From c64f56fa977eaa96861cd5d8bac03c59552838df Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 11 Nov 2008 23:12:42 +0100 Subject: Right mouse button selection mode Patch by Nikola Radovanovic --- UConfig.pas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'UConfig.pas') diff --git a/UConfig.pas b/UConfig.pas index 980c387..17a1b7d 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -100,7 +100,7 @@ var ConfPanelSep, ConfRowHeight, ConfRowHeightReal, ConfNumHistoryItems, ConfLinkItemDefaultColors, ConfDotFileItemDefaultColors, ConfLynxLikeMotion, ConfSizeGroupRequestZeroDigits, ConfDisableFileTips, ConfInsMoveDown, ConfSpaceMovesDown, ConfShowFuncButtons, ConfSelectAllDirs, ConfOctalPerm: boolean; ConfMounterUseFSTab, ConfShowTextUIDs, ConfMounterPushDown, ConfSavePanelTabs, ConfDuplicateTabWarning, - ConfOpenConnectionsWarning, ConfSortDirectoriesLikeFiles, ConfQuickRenameSkipExt: boolean; + ConfOpenConnectionsWarning, ConfSortDirectoriesLikeFiles, ConfQuickRenameSkipExt, ConfRightClickSelect: boolean; ConfShowMounterBar: integer; ConfColumnSizes, ConfColumnIDs: array[1..ConstNumPanelColumns] of integer; @@ -253,6 +253,7 @@ begin ConfSortDirectoriesLikeFiles := False; ConfQuickRenameSkipExt := True; ConfConnMgrActiveItem := 0; + ConfRightClickSelect := False; // Setup default values for colors @@ -479,6 +480,9 @@ begin ConfSortDirectoriesLikeFiles := IniFile.ReadBool(ConfProfileName, 'SortDirectoriesLikeFiles', ConfSortDirectoriesLikeFiles); ConfQuickRenameSkipExt := IniFile.ReadBool(ConfProfileName, 'QuickRenameSkipExt', ConfQuickRenameSkipExt); + (********************************************* NEW SINCE 0.6.55 *************************************************) + ConfRightClickSelect := IniFile.ReadBool(ConfProfileName, 'RightClickSelect', ConfRightClickSelect); + SearchForDefaultApps; finally @@ -569,6 +573,8 @@ begin IniFile.WriteBool(ConfProfileName, 'SortDirectoriesLikeFiles', ConfSortDirectoriesLikeFiles); IniFile.WriteBool(ConfProfileName, 'QuickRenameSkipExt', ConfQuickRenameSkipExt); + (********************************************* NEW SINCE 0.6.55 *************************************************) + IniFile.WriteBool(ConfProfileName, 'RightClickSelect', ConfRightClickSelect); except on E: Exception do DebugMsg(['*** Error: Cannot save user settings (', E.ClassName, '): ', E.Message]); -- cgit v1.2.3