ADD: Make drives list button options page. Add options to show/hide columns in the drives list.

src/frames/foptionsframe.pas

@@ -93,6 +93,7 @@ uses
   fOptionsConfiguration,
   fOptionsCustomColumns,
   fOptionsDragDrop,
+  fOptionsDrivesListButton,
   fOptionsFileOperations,
   fOptionsFilePanelsColors,
   fOptionsFileTypesColors,
@@ -225,6 +226,7 @@ var
   ColumnsView,
   FilesViews,
   Keyboard,
+  Layout,
   Mouse,
   Tools: TOptionsEditorRec;
 begin
@@ -247,7 +249,8 @@ begin
   ColumnsView := FilesViews.Add(TfrmOptionsColumnsView);
   ColumnsView.Add(TfrmOptionsCustomColumns);
   Main.Add(TfrmOptionsPlugins);
-  Main.Add(TfrmOptionsLayout);
+  Layout := Main.Add(TfrmOptionsLayout);
+  Layout.Add(TfrmOptionsDrivesListButton);
   Main.Add(TfrmOptionsFileOperations);
   Main.Add(TfrmOptionsTabs);
   Main.Add(TfrmOptionsLog);

src/frames/foptionslayout.lfm

@@ -4,17 +4,22 @@ inherited frmOptionsLayout: TfrmOptionsLayout
   ClientHeight = 588
   ClientWidth = 784
   object gbScreenLayout: TGroupBox[0]
-    Left = 10
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 6
     Height = 572
     Top = 6
-    Width = 756
+    Width = 772
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
+    BorderSpacing.Around = 6
     Caption = ' Screen layout '
     ChildSizing.LeftRightSpacing = 12
     ChildSizing.TopBottomSpacing = 6
     ClientHeight = 550
-    ClientWidth = 752
+    ClientWidth = 768
     TabOrder = 0
     object cbShowMainMenu: TCheckBox
       Left = 12
@@ -47,15 +52,15 @@ inherited frmOptionsLayout: TfrmOptionsLayout
       OnChange = cbShowDiskPanelChange
       TabOrder = 3
     end
-    object cbShowDriveMenuButton: TCheckBox
+    object cbShowDrivesListButton: TCheckBox
       AnchorSideTop.Control = cbFlatDiskPanel
       AnchorSideTop.Side = asrBottom
       Left = 12
       Height = 25
       Top = 168
-      Width = 194
+      Width = 182
       BorderSpacing.Top = 2
-      Caption = 'Show d&rive menu button'
+      Caption = 'Show d&rives list button'
       TabOrder = 6
     end
     object cbShowCurDir: TCheckBox
@@ -227,7 +232,7 @@ inherited frmOptionsLayout: TfrmOptionsLayout
       TabOrder = 19
     end
     object cbShowDriveFreeSpace: TCheckBox
-      AnchorSideTop.Control = cbShowDriveMenuButton
+      AnchorSideTop.Control = cbShowDrivesListButton
       AnchorSideTop.Side = asrBottom
       Left = 12
       Height = 25

src/frames/foptionslayout.lrt

@@ -2,7 +2,7 @@ TFRMOPTIONSLAYOUT.GBSCREENLAYOUT.CAPTION= Screen layout
 TFRMOPTIONSLAYOUT.CBSHOWMAINMENU.CAPTION=Show main menu
 TFRMOPTIONSLAYOUT.CBSHOWMAINTOOLBAR.CAPTION=Show &button bar
 TFRMOPTIONSLAYOUT.CBSHOWDISKPANEL.CAPTION=Show &drive buttons
-TFRMOPTIONSLAYOUT.CBSHOWDRIVEMENUBUTTON.CAPTION=Show d&rive menu button
+TFRMOPTIONSLAYOUT.CBSHOWDRIVESLISTBUTTON.CAPTION=Show d&rives list button
 TFRMOPTIONSLAYOUT.CBSHOWCURDIR.CAPTION=Show &current directory
 TFRMOPTIONSLAYOUT.CBSHOWTABHEADER.CAPTION=Show &tabstop header
 TFRMOPTIONSLAYOUT.CBSHOWSTATUSBAR.CAPTION=Show &status bar

src/frames/foptionslayout.pas

@@ -46,7 +46,7 @@ type
     cbShowCurDir: TCheckBox;
     cbShowDiskPanel: TCheckBox;
     cbShowDriveFreeSpace: TCheckBox;
-    cbShowDriveMenuButton: TCheckBox;
+    cbShowDrivesListButton: TCheckBox;
     cbShowKeysPanel: TCheckBox;
     cbShowMainMenu: TCheckBox;
     cbShowMainToolBar: TCheckBox;
@@ -114,7 +114,7 @@ begin
   cbShowDiskPanel.Checked := gDriveBar1;
   cbTwoDiskPanels.Checked := gDriveBar2;
   cbFlatDiskPanel.Checked := gDriveBarFlat;
-  cbShowDriveMenuButton.Checked := gDriveMenuButton;
+  cbShowDrivesListButton.Checked := gDrivesListButton;
   cbShowTabs.Checked := gDirectoryTabs;
   cbShowCurDir.Checked := gCurDir;
   cbShowTabHeader.Checked := gTabHeader;
@@ -141,7 +141,7 @@ begin
   gDriveBar1 := cbShowDiskPanel.Checked;
   gDriveBar2 := cbTwoDiskPanels.Checked;
   gDriveBarFlat := cbFlatDiskPanel.Checked;
-  gDriveMenuButton := cbShowDriveMenuButton.Checked;
+  gDrivesListButton := cbShowDrivesListButton.Checked;
   gDirectoryTabs := cbShowTabs.Checked;
   gCurDir := cbShowCurDir.Checked;
   gTabHeader := cbShowTabHeader.Checked;