diff options
Diffstat (limited to 'UConfig.pas')
| -rw-r--r-- | UConfig.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/UConfig.pas b/UConfig.pas index a58363a..e4f919f 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -103,7 +103,7 @@ var ConfPanelSep, ConfRowHeight, ConfRowHeightReal, ConfNumHistoryItems, ConfMounterUseFSTab, ConfShowTextUIDs, ConfMounterPushDown, ConfSavePanelTabs, ConfDuplicateTabWarning, ConfOpenConnectionsWarning, ConfSortDirectoriesLikeFiles, ConfQuickRenameSkipExt, ConfRightClickSelect, ConfSearchFilterCaseSensitive, ConfSearchOtherFS, ConfSearchArchives, ConfSearchTextCaseSensitive, - ConfMakeSymlinkRelative: boolean; + ConfMakeSymlinkRelative, ConfReplaceConnectionWarning, ConfWarnUnsavedConnection: boolean; ConfShowMounterBar: integer; ConfColumnSizes, ConfColumnIDs: array[1..ConstNumPanelColumns] of integer; @@ -271,6 +271,8 @@ begin ConfSearchArchives := False; ConfSearchTextCaseSensitive := False; ConfMakeSymlinkRelative := False; + ConfReplaceConnectionWarning := True; + ConfWarnUnsavedConnection := True; // Setup default values for colors @@ -517,6 +519,8 @@ begin (********************************************* NEW SINCE 0.6.55 *************************************************) ConfRightClickSelect := IniFile.ReadBool(ConfProfileName, 'RightClickSelect', ConfRightClickSelect); + ConfReplaceConnectionWarning := IniFile.ReadBool(ConfProfileName, 'ReplaceConnectionWarning', ConfReplaceConnectionWarning); + ConfWarnUnsavedConnection := IniFile.ReadBool(ConfProfileName, 'WarnUnsavedConnection', ConfWarnUnsavedConnection); SearchForDefaultApps; @@ -610,6 +614,8 @@ begin (********************************************* NEW SINCE 0.6.55 *************************************************) IniFile.WriteBool(ConfProfileName, 'RightClickSelect', ConfRightClickSelect); + IniFile.WriteBool(ConfProfileName, 'ReplaceConnectionWarning', ConfReplaceConnectionWarning); + IniFile.WriteBool(ConfProfileName, 'WarnUnsavedConnection', ConfWarnUnsavedConnection); except on E: Exception do DebugMsg(['*** Error: Cannot save user settings (', E.ClassName, '): ', E.Message]); |