diff options
| -rw-r--r-- | UConfig.pas | 6 | ||||
| -rw-r--r-- | UCore.pas | 2 |
2 files changed, 7 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]); @@ -2192,8 +2192,10 @@ begin AFSymlink.ToEntry.Text := StrToUTF8(PossibleNewName); AFSymlink.ToEntry.SetFocus; AFSymlink.ToEntry.SelectAll; + AFSymLink.RelativeCheckButton.Checked := ConfMakeSymlinkRelative; if AFSymlink.Run = mbOK then Result := HandleCreateSymlink(UTF8ToStr(AFSymlink.FromEntry.Text), ProcessPattern(Engine, UTF8ToStr(AFSymlink.ToEntry.Text), Engine.Path, '', False)); + if Result then ConfMakeSymlinkRelative := AFSymLink.RelativeCheckButton.Checked; finally AFSymlink.Free; end; |