Remember relative path checkbox state from the symlink dialog

1 files changed, 5 insertions, 1 deletions

diff --git a/UConfig.pas b/UConfig.pas
index 760d811..01a47d8 100644
--- a/UConfig.pas
+++ b/UConfig.pas
@@ -102,7 +102,8 @@ var ConfPanelSep, ConfRowHeight, ConfRowHeightReal, ConfNumHistoryItems,
     ConfDisableFileTips, ConfInsMoveDown, ConfSpaceMovesDown, ConfShowFuncButtons, ConfSelectAllDirs, ConfOctalPerm: boolean;
     ConfMounterUseFSTab, ConfShowTextUIDs, ConfMounterPushDown, ConfSavePanelTabs, ConfDuplicateTabWarning,
     ConfOpenConnectionsWarning, ConfSortDirectoriesLikeFiles, ConfQuickRenameSkipExt, ConfRightClickSelect,
-    ConfSearchFilterCaseSensitive, ConfSearchOtherFS, ConfSearchArchives, ConfSearchTextCaseSensitive: boolean;
+    ConfSearchFilterCaseSensitive, ConfSearchOtherFS, ConfSearchArchives, ConfSearchTextCaseSensitive,
+    ConfMakeSymlinkRelative: boolean;
 
     ConfShowMounterBar: integer;
     ConfColumnSizes, ConfColumnIDs: array[1..ConstNumPanelColumns] of integer;
@@ -269,6 +270,7 @@ begin
   ConfSearchOtherFS := False;
   ConfSearchArchives := False;
   ConfSearchTextCaseSensitive := False;
+  ConfMakeSymlinkRelative := False;
 
 
   //  Setup default values for colors
@@ -351,6 +353,7 @@ begin
     ConfSearchOtherFS := IniFile.ReadBool(ConfProfileName, 'SearchOtherFS', ConfSearchOtherFS);
     ConfSearchArchives := IniFile.ReadBool(ConfProfileName, 'SearchArchives', ConfSearchArchives);
     ConfSearchTextCaseSensitive := IniFile.ReadBool(ConfProfileName, 'SearchTextCaseSensitive', ConfSearchTextCaseSensitive);
+    ConfMakeSymlinkRelative := IniFile.ReadBool(ConfProfileName, 'MakeSymlinkRelative', ConfMakeSymlinkRelative);
 
   finally
     try IniFile.Free; except end;
@@ -417,6 +420,7 @@ begin
     IniFile.WriteBool(ConfProfileName, 'SearchOtherFS', ConfSearchOtherFS);
     IniFile.WriteBool(ConfProfileName, 'SearchArchives', ConfSearchArchives);
     IniFile.WriteBool(ConfProfileName, 'SearchTextCaseSensitive', ConfSearchTextCaseSensitive);
+    IniFile.WriteBool(ConfProfileName, 'MakeSymlinkRelative', ConfMakeSymlinkRelative);
 
   except
     on E: Exception do DebugMsg(['*** Error: Cannot save user settings (', E.ClassName, '): ', E.Message]);