From 4e24fb845acd4a1fc6a772749eceb08129acaf08 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Thu, 24 Sep 2009 10:13:30 +0200 Subject: Remember relative path checkbox state from the symlink dialog --- UConfig.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'UConfig.pas') 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]); -- cgit v1.2.3