Right mouse button selection mode

Patch by Nikola Radovanovic <nrad@eunet.rs>

1 files changed, 24 insertions, 18 deletions

diff --git a/UPreferences.pas b/UPreferences.pas
index 3d5d17d..c65e3db 100644
--- a/UPreferences.pas
+++ b/UPreferences.pas
@@ -80,6 +80,7 @@ type
     TempPathLabel, VFSTempPathLabel: TGTKLabel;
     VFSTempPathEntry: TGTKEntry;
     QuickRenameSkipExtCheckBox: TGTKCheckButton;
+    RightClickSelectCheckBox: TGTKCheckButton;
 
     procedure FormCreate(Sender: TObject); override;
     procedure FormDestroy(Sender: TObject);
@@ -336,7 +337,7 @@ begin
   PanelsPage.AddControlEx(PanelsLabel2, False, False, 5);
 
   Table5 := TGTKTable.Create(Self);
-  Table5.SetRowColCount(18, 2);
+  Table5.SetRowColCount(19, 2);
   PanelsPage.AddControlEx(Table5, False, False, 0);
 
   DisableMouseRename := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_DisableMouseRenaming);
@@ -345,48 +346,51 @@ begin
   QuickRenameSkipExtCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_QuickRenameSkipExtCheckBox);
   QuickRenameSkipExtCheckBox.Tooltip := LANGPreferences_QuickRenameSkipExtCheckBox_Tooltip;
   Table5.AddControl(0, 1, 2, 1, QuickRenameSkipExtCheckBox, 30, 2);
+  RightClickSelectCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_RightClickSelectCheckBox);
+  RightClickSelectCheckBox.Tooltip := LANGPreferences_RightClickSelectCheckBox_Tooltip;
+  Table5.AddControl(0, 2, 2, 1, RightClickSelectCheckBox, 30, 2);
   DisableFileTipsCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesDisableFileTipsCheckBox_Caption);
   DisableFileTipsCheckBox.Tooltip := LANGPreferencesDisableFileTipsCheckBox_Tooltip;
-  Table5.AddControl(0, 2, 2, 1, DisableFileTipsCheckBox, 30, 2);
+  Table5.AddControl(0, 3, 2, 1, DisableFileTipsCheckBox, 30, 2);
   SortDirectoriesLikeFilesCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_SortDirectoriesLikeFilesCheckBox);
   SortDirectoriesLikeFilesCheckBox.Tooltip := LANGPreferences_SortDirectoriesLikeFilesCheckBox_Tooltip;
-  Table5.AddControl(0, 3, 2, 1, SortDirectoriesLikeFilesCheckBox, 30, 2);
-  Table5.AddControl(0, 4, 2, 1, TGTKVBox.Create(Self), 0, 7);
+  Table5.AddControl(0, 4, 2, 1, SortDirectoriesLikeFilesCheckBox, 30, 2);
+  Table5.AddControl(0, 5, 2, 1, TGTKVBox.Create(Self), 0, 7);
 
   PanelsLabel3 := TGTKLabel.Create(Self);
   PanelsLabel3.XAlign := 0;
   PanelsLabel3.XPadding := 0;
   PanelsLabel3.Caption := Format('<span weight="ultrabold">%s</span>', [LANGPreferencesShow]);
   PanelsLabel3.UseMarkup := True;
-  Table5.AddControl(0, 5, 2, 1, PanelsLabel3, 10, 2);
+  Table5.AddControl(0, 6, 2, 1, PanelsLabel3, 10, 2);
 
   ShowFiletypeIcons := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_ShowFiletypeIconsInList);
-  Table5.AddControl(0, 6, 2, 1, ShowFiletypeIcons, 30, 2);
+  Table5.AddControl(0, 7, 2, 1, ShowFiletypeIcons, 30, 2);
   DirsInBoldCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesDirsInBoldCheckBox_Caption);
-  Table5.AddControl(0, 7, 2, 1, DirsInBoldCheckBox, 30, 2);
+  Table5.AddControl(0, 8, 2, 1, DirsInBoldCheckBox, 30, 2);
   DisableDirectoryBracketsCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesDisableDirectoryBracketsCheckBox_Caption);
-  Table5.AddControl(0, 8, 2, 1, DisableDirectoryBracketsCheckBox, 30, 2);
+  Table5.AddControl(0, 9, 2, 1, DisableDirectoryBracketsCheckBox, 30, 2);
   OctalPermissionsCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesOctalPermissionsCheckBox_Caption);
   OctalPermissionsCheckBox.Tooltip := LANGPreferencesOctalPermissionsCheckBox_Tooltip;
-  Table5.AddControl(0, 9, 2, 1, OctalPermissionsCheckBox, 30, 2);
+  Table5.AddControl(0, 10, 2, 1, OctalPermissionsCheckBox, 30, 2);
   ShowTextUIDsCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGShowTextUIDsCheckBox_Caption);
   ShowTextUIDsCheckBox.Tooltip := LANGShowTextUIDsCheckBox_Tooltip;
-  Table5.AddControl(0, 10, 2, 1, ShowTextUIDsCheckBox, 30, 2);
-  Table5.AddControl(0, 11, 2, 1, TGTKVBox.Create(Self), 0, 7);
+  Table5.AddControl(0, 11, 2, 1, ShowTextUIDsCheckBox, 30, 2);
+  Table5.AddControl(0, 12, 2, 1, TGTKVBox.Create(Self), 0, 7);
 
   PanelsLabel4 := TGTKLabel.Create(Self);
   PanelsLabel4.XAlign := 0;
   PanelsLabel4.XPadding := 0;
   PanelsLabel4.Caption := Format('<span weight="ultrabold">%s</span>', [LANGPreferencesMovement]);
   PanelsLabel4.UseMarkup := True;
-  Table5.AddControl(0, 12, 2, 1, PanelsLabel4, 10, 2);
+  Table5.AddControl(0, 13, 2, 1, PanelsLabel4, 10, 2);
 
   LynxLikeMotionCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesLynxLikeMotionCheckBox_Caption);
-  Table5.AddControl(0, 13, 2, 1, LynxLikeMotionCheckBox, 30, 2);
+  Table5.AddControl(0, 14, 2, 1, LynxLikeMotionCheckBox, 30, 2);
   InsertMovesDownCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesInsertMovesDownCheckBox_Caption);
-  Table5.AddControl(0, 14, 2, 1, InsertMovesDownCheckBox, 30, 2);
+  Table5.AddControl(0, 15, 2, 1, InsertMovesDownCheckBox, 30, 2);
   SpaceMovesDownCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesSpaceMovesDownCheckBox_Caption);
-  Table5.AddControl(0, 15, 2, 1, SpaceMovesDownCheckBox, 30, 2);
+  Table5.AddControl(0, 16, 2, 1, SpaceMovesDownCheckBox, 30, 2);
 
   QuickSearchLabel := TGTKLabel.Create(Self);
   QuickSearchLabel.Caption := LANGPreferences_QuickSearchLabel_Caption;
@@ -407,9 +411,9 @@ begin
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
   Item.Caption := LANGPreferences_QuickSearch_Option4;
   QuickSearchOptionMenu.Items.Add(Item);
-  Table5.AddControl(0, 16, 2, 1, TGTKVBox.Create(Self), 0, 2);
-  Table5.AddControlEx(0, 17, 1, 1, QuickSearchLabel, [taoShrink], [taoShrink], 35, 2);
-  Table5.AddControlEx(1, 17, 1, 1, QuickSearchOptionMenu, [taoExpand, taoFill], [taoShrink, taoExpand, taoFill], 20, 2);
+  Table5.AddControl(0, 17, 2, 1, TGTKVBox.Create(Self), 0, 2);
+  Table5.AddControlEx(0, 18, 1, 1, QuickSearchLabel, [taoShrink], [taoShrink], 35, 2);
+  Table5.AddControlEx(1, 18, 1, 1, QuickSearchOptionMenu, [taoExpand, taoFill], [taoShrink, taoExpand, taoFill], 20, 2);
 
 
   // *********  PAGE Applications
@@ -919,6 +923,7 @@ begin
   SortDirectoriesLikeFilesCheckBox.Checked := ConfSortDirectoriesLikeFiles;
   VFSTempPathEntry.Text := StrToUTF8(ConfTempPath);
   QuickRenameSkipExtCheckBox.Checked := ConfQuickRenameSkipExt;
+  RightClickSelectCheckBox.Checked := ConfRightClickSelect;
 
   DefaultFontCheckBoxToggled(Self);
   ColorButtonDefaultsToggled(Self);
@@ -992,6 +997,7 @@ begin
   ConfSortDirectoriesLikeFiles := SortDirectoriesLikeFilesCheckBox.Checked;
   ConfTempPath := UTF8ToStr(VFSTempPathEntry.Text);
   ConfQuickRenameSkipExt := QuickRenameSkipExtCheckBox.Checked;
+  ConfRightClickSelect := RightClickSelectCheckBox.Checked;
 end;
 
 (********************************************************************************************************************************)