From ec2f73f0f66ce7ea31afdce6cacfe2225e765323 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 17 Nov 2009 16:45:46 +0100 Subject: Preserve normal/monospace internal viewer font --- UConfig.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'UConfig.pas') diff --git a/UConfig.pas b/UConfig.pas index 9a9d9a0..33828a7 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -102,7 +102,7 @@ var ConfPanelSep, ConfRowHeight, ConfRowHeightReal, ConfNumHistoryItems, ConfMounterUseFSTab, ConfShowTextUIDs, ConfMounterPushDown, ConfSavePanelTabs, ConfDuplicateTabWarning, ConfOpenConnectionsWarning, ConfSortDirectoriesLikeFiles, ConfQuickRenameSkipExt, ConfRightClickSelect, ConfSearchFilterCaseSensitive, ConfSearchOtherFS, ConfSearchArchives, ConfSearchTextCaseSensitive, - ConfMakeSymlinkRelative, ConfReplaceConnectionWarning, ConfWarnUnsavedConnection: boolean; + ConfMakeSymlinkRelative, ConfReplaceConnectionWarning, ConfWarnUnsavedConnection, ConfViewerMonospaceFont: boolean; ConfShowMounterBar: integer; ConfColumnSizes, ConfColumnIDs: array[1..ConstNumPanelColumns] of integer; @@ -272,6 +272,7 @@ begin ConfMakeSymlinkRelative := False; ConfReplaceConnectionWarning := True; ConfWarnUnsavedConnection := True; + ConfViewerMonospaceFont := False; // Setup default values for colors @@ -355,6 +356,7 @@ begin ConfSearchArchives := IniFile.ReadBool(ConfProfileName, 'SearchArchives', ConfSearchArchives); ConfSearchTextCaseSensitive := IniFile.ReadBool(ConfProfileName, 'SearchTextCaseSensitive', ConfSearchTextCaseSensitive); ConfMakeSymlinkRelative := IniFile.ReadBool(ConfProfileName, 'MakeSymlinkRelative', ConfMakeSymlinkRelative); + ConfViewerMonospaceFont := IniFile.ReadBool(ConfProfileName, 'ViewerMonospaceFont', ConfViewerMonospaceFont); finally try IniFile.Free; except end; @@ -422,6 +424,7 @@ begin IniFile.WriteBool(ConfProfileName, 'SearchArchives', ConfSearchArchives); IniFile.WriteBool(ConfProfileName, 'SearchTextCaseSensitive', ConfSearchTextCaseSensitive); IniFile.WriteBool(ConfProfileName, 'MakeSymlinkRelative', ConfMakeSymlinkRelative); + IniFile.WriteBool(ConfProfileName, 'ViewerMonospaceFont', ConfViewerMonospaceFont); except on E: Exception do DebugMsg(['*** Error: Cannot save user settings (', E.ClassName, '): ', E.Message]); -- cgit v1.2.3