ADD: Middle toolbar - initial implementation

This commit is contained in:
Alexander Koblov 2019-06-22 09:00:11 +00:00
commit 44aded6668
6 changed files with 249 additions and 149 deletions

View file

@ -11,7 +11,7 @@ inherited frmOptionsLayout: TfrmOptionsLayout
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 427
Height = 554
Top = 6
Width = 772
Anchors = [akTop, akLeft, akRight]
@ -20,14 +20,14 @@ inherited frmOptionsLayout: TfrmOptionsLayout
Caption = ' Screen layout '
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 6
ClientHeight = 409
ClientHeight = 536
ClientWidth = 768
TabOrder = 0
object cbShowMainMenu: TCheckBox
Left = 12
Height = 17
Height = 22
Top = 6
Width = 98
Width = 124
Caption = 'Show &main menu'
TabOrder = 0
end
@ -35,149 +35,149 @@ inherited frmOptionsLayout: TfrmOptionsLayout
AnchorSideTop.Control = cbShowMainMenu
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 25
Width = 98
Height = 22
Top = 30
Width = 99
BorderSpacing.Top = 2
Caption = 'Show tool&bar'
OnChange = cbShowMainToolBarChange
TabOrder = 1
end
object cbShowDiskPanel: TCheckBox
AnchorSideTop.Control = cbFlatToolBar
AnchorSideTop.Control = chkShowMiddleToolBar
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 63
Width = 111
Height = 22
Top = 100
Width = 135
BorderSpacing.Top = 2
Caption = 'Show &drive buttons'
OnChange = cbShowDiskPanelChange
TabOrder = 3
TabOrder = 4
end
object cbShowDrivesListButton: TCheckBox
AnchorSideTop.Control = cbFlatDiskPanel
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 120
Width = 127
Height = 22
Top = 172
Width = 156
BorderSpacing.Top = 2
Caption = 'Show drives list bu&tton'
TabOrder = 6
TabOrder = 7
end
object cbShowCurDir: TCheckBox
AnchorSideTop.Control = cbShowTabs
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 215
Width = 128
Height = 22
Top = 292
Width = 154
BorderSpacing.Top = 2
Caption = 'Show current director&y'
TabOrder = 11
TabOrder = 12
end
object cbShowTabHeader: TCheckBox
AnchorSideTop.Control = cbShowCurDir
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 234
Width = 121
Height = 22
Top = 316
Width = 146
BorderSpacing.Top = 2
Caption = 'S&how tabstop header'
TabOrder = 12
TabOrder = 13
end
object cbShowStatusBar: TCheckBox
AnchorSideTop.Control = cbShowTabHeader
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 253
Width = 96
Height = 22
Top = 340
Width = 118
BorderSpacing.Top = 2
Caption = 'Show &status bar'
TabOrder = 13
TabOrder = 14
end
object cbShowCmdLine: TCheckBox
AnchorSideTop.Control = cbShowStatusBar
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 272
Width = 111
Height = 22
Top = 364
Width = 141
BorderSpacing.Top = 2
Caption = 'Show command l&ine'
TabOrder = 14
TabOrder = 15
end
object cbShowKeysPanel: TCheckBox
AnchorSideTop.Control = cbShowCmdLine
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 291
Width = 146
Height = 22
Top = 388
Width = 178
BorderSpacing.Top = 2
Caption = 'Show function &key buttons'
TabOrder = 15
TabOrder = 16
end
object cbFlatDiskPanel: TCheckBox
AnchorSideLeft.Control = cbTwoDiskPanels
AnchorSideTop.Control = cbTwoDiskPanels
AnchorSideTop.Side = asrBottom
Left = 28
Height = 17
Top = 101
Width = 76
Height = 22
Top = 148
Width = 93
BorderSpacing.Top = 2
Caption = '&Flat buttons'
Enabled = False
TabOrder = 5
TabOrder = 6
end
object cbTwoDiskPanels: TCheckBox
AnchorSideLeft.Control = cbShowDiskPanel
AnchorSideTop.Control = cbShowDiskPanel
AnchorSideTop.Side = asrBottom
Left = 28
Height = 17
Top = 82
Width = 313
Height = 22
Top = 124
Width = 372
BorderSpacing.Left = 16
BorderSpacing.Top = 2
Caption = 'Show two drive button bars (fi&xed width, above file windows)'
Enabled = False
TabOrder = 4
TabOrder = 5
end
object cbShowTabs: TCheckBox
AnchorSideTop.Control = cbFreespaceInd
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 196
Width = 99
Height = 22
Top = 268
Width = 121
BorderSpacing.Top = 2
Caption = 'Sho&w folder tabs'
TabOrder = 10
TabOrder = 11
end
object cbFlatInterface: TCheckBox
AnchorSideTop.Control = cbShowKeysPanel
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 310
Width = 82
Height = 22
Top = 412
Width = 100
BorderSpacing.Top = 2
Caption = 'Flat i&nterface'
TabOrder = 16
TabOrder = 17
end
object cbFlatToolBar: TCheckBox
AnchorSideLeft.Control = cbShowMainToolBar
AnchorSideTop.Control = cbShowMainToolBar
AnchorSideTop.Side = asrBottom
Left = 28
Height = 17
Top = 44
Width = 76
Height = 22
Top = 54
Width = 93
BorderSpacing.Left = 16
BorderSpacing.Top = 2
Caption = 'Flat b&uttons'
@ -188,80 +188,91 @@ inherited frmOptionsLayout: TfrmOptionsLayout
AnchorSideTop.Control = cbFlatInterface
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 329
Width = 100
Height = 22
Top = 436
Width = 123
BorderSpacing.Top = 2
Caption = 'Show lo&g window'
TabOrder = 17
TabOrder = 18
end
object cbTermWindow: TCheckBox
AnchorSideTop.Control = cbLogWindow
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 348
Width = 124
Height = 22
Top = 460
Width = 152
BorderSpacing.Top = 2
Caption = 'Show te&rminal window'
TabOrder = 18
TabOrder = 19
end
object cbFreespaceInd: TCheckBox
AnchorSideTop.Control = cbShowShortDriveFreeSpace
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 177
Width = 209
Height = 22
Top = 244
Width = 255
BorderSpacing.Top = 2
Caption = 'Show fr&ee space indicator on drive label'
TabOrder = 9
TabOrder = 10
end
object cbProgInMenuBar: TCheckBox
AnchorSideTop.Control = cbTermWindow
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 367
Width = 190
Height = 22
Top = 484
Width = 236
BorderSpacing.Top = 2
Caption = 'Show common progress in menu bar'
TabOrder = 19
TabOrder = 20
end
object cbPanelOfOperations: TCheckBox
AnchorSideTop.Control = cbProgInMenuBar
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 386
Width = 205
Height = 22
Top = 508
Width = 248
BorderSpacing.Top = 2
Caption = 'Show panel of operation in background'
TabOrder = 20
TabOrder = 21
end
object cbShowDriveFreeSpace: TCheckBox
AnchorSideTop.Control = cbShowDrivesListButton
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 139
Width = 123
Height = 22
Top = 196
Width = 152
BorderSpacing.Top = 2
Caption = 'Show free s&pace label'
OnChange = cbShowDriveFreeSpaceChange
TabOrder = 7
TabOrder = 8
end
object cbShowShortDriveFreeSpace: TCheckBox
AnchorSideLeft.Control = cbFlatDiskPanel
AnchorSideTop.Control = cbShowDriveFreeSpace
AnchorSideTop.Side = asrBottom
Left = 28
Height = 17
Top = 158
Width = 151
Height = 22
Top = 220
Width = 185
BorderSpacing.Top = 2
Caption = 'Show short free space &label'
TabOrder = 8
TabOrder = 9
end
object chkShowMiddleToolBar: TCheckBox
AnchorSideLeft.Control = cbShowMainToolBar
AnchorSideTop.Control = cbFlatToolBar
AnchorSideTop.Side = asrBottom
Left = 12
Height = 22
Top = 76
Width = 141
Caption = 'Show middle toolbar'
TabOrder = 3
end
end
end

View file

@ -1,24 +1,25 @@
{"version":1,"strings":[
{"hash":134597216,"name":"tfrmoptionslayout.gbscreenlayout.caption","sourcebytes":[32,83,99,114,101,101,110,32,108,97,121,111,117,116,32],"value":" Screen layout "},
{"hash":177574613,"name":"tfrmoptionslayout.cbshowmainmenu.caption","sourcebytes":[83,104,111,119,32,38,109,97,105,110,32,109,101,110,117],"value":"Show &main menu"},
{"hash":229134466,"name":"tfrmoptionslayout.cbshowmaintoolbar.caption","sourcebytes":[83,104,111,119,32,116,111,111,108,38,98,97,114],"value":"Show tool&bar"},
{"hash":189661603,"name":"tfrmoptionslayout.cbshowdiskpanel.caption","sourcebytes":[83,104,111,119,32,38,100,114,105,118,101,32,98,117,116,116,111,110,115],"value":"Show &drive buttons"},
{"hash":6470158,"name":"tfrmoptionslayout.cbshowdriveslistbutton.caption","sourcebytes":[83,104,111,119,32,100,114,105,118,101,115,32,108,105,115,116,32,98,117,38,116,116,111,110],"value":"Show drives list bu&tton"},
{"hash":138066537,"name":"tfrmoptionslayout.cbshowcurdir.caption","sourcebytes":[83,104,111,119,32,99,117,114,114,101,110,116,32,100,105,114,101,99,116,111,114,38,121],"value":"Show current director&y"},
{"hash":226967058,"name":"tfrmoptionslayout.cbshowtabheader.caption","sourcebytes":[83,38,104,111,119,32,116,97,98,115,116,111,112,32,104,101,97,100,101,114],"value":"S&how tabstop header"},
{"hash":49110370,"name":"tfrmoptionslayout.cbshowstatusbar.caption","sourcebytes":[83,104,111,119,32,38,115,116,97,116,117,115,32,98,97,114],"value":"Show &status bar"},
{"hash":196317541,"name":"tfrmoptionslayout.cbshowcmdline.caption","sourcebytes":[83,104,111,119,32,99,111,109,109,97,110,100,32,108,38,105,110,101],"value":"Show command l&ine"},
{"hash":14274819,"name":"tfrmoptionslayout.cbshowkeyspanel.caption","sourcebytes":[83,104,111,119,32,102,117,110,99,116,105,111,110,32,38,107,101,121,32,98,117,116,116,111,110,115],"value":"Show function &key buttons"},
{"hash":51983379,"name":"tfrmoptionslayout.cbflatdiskpanel.caption","sourcebytes":[38,70,108,97,116,32,98,117,116,116,111,110,115],"value":"&Flat buttons"},
{"hash":216809273,"name":"tfrmoptionslayout.cbtwodiskpanels.caption","sourcebytes":[83,104,111,119,32,116,119,111,32,100,114,105,118,101,32,98,117,116,116,111,110,32,98,97,114,115,32,40,102,105,38,120,101,100,32,119,105,100,116,104,44,32,97,98,111,118,101,32,102,105,108,101,32,119,105,110,100,111,119,115,41],"value":"Show two drive button bars (fi&xed width, above file windows)"},
{"hash":91296995,"name":"tfrmoptionslayout.cbshowtabs.caption","sourcebytes":[83,104,111,38,119,32,102,111,108,100,101,114,32,116,97,98,115],"value":"Sho&w folder tabs"},
{"hash":44971493,"name":"tfrmoptionslayout.cbflatinterface.caption","sourcebytes":[70,108,97,116,32,105,38,110,116,101,114,102,97,99,101],"value":"Flat i&nterface"},
{"hash":14931027,"name":"tfrmoptionslayout.cbflattoolbar.caption","sourcebytes":[70,108,97,116,32,98,38,117,116,116,111,110,115],"value":"Flat b&uttons"},
{"hash":245942935,"name":"tfrmoptionslayout.cblogwindow.caption","sourcebytes":[83,104,111,119,32,108,111,38,103,32,119,105,110,100,111,119],"value":"Show lo&g window"},
{"hash":142079143,"name":"tfrmoptionslayout.cbtermwindow.caption","sourcebytes":[83,104,111,119,32,116,101,38,114,109,105,110,97,108,32,119,105,110,100,111,119],"value":"Show te&rminal window"},
{"hash":140527132,"name":"tfrmoptionslayout.cbfreespaceind.caption","sourcebytes":[83,104,111,119,32,102,114,38,101,101,32,115,112,97,99,101,32,105,110,100,105,99,97,116,111,114,32,111,110,32,100,114,105,118,101,32,108,97,98,101,108],"value":"Show fr&ee space indicator on drive label"},
{"hash":151685554,"name":"tfrmoptionslayout.cbproginmenubar.caption","sourcebytes":[83,104,111,119,32,99,111,109,109,111,110,32,112,114,111,103,114,101,115,115,32,105,110,32,109,101,110,117,32,98,97,114],"value":"Show common progress in menu bar"},
{"hash":11318116,"name":"tfrmoptionslayout.cbpanelofoperations.caption","sourcebytes":[83,104,111,119,32,112,97,110,101,108,32,111,102,32,111,112,101,114,97,116,105,111,110,32,105,110,32,98,97,99,107,103,114,111,117,110,100],"value":"Show panel of operation in background"},
{"hash":157748028,"name":"tfrmoptionslayout.cbshowdrivefreespace.caption","sourcebytes":[83,104,111,119,32,102,114,101,101,32,115,38,112,97,99,101,32,108,97,98,101,108],"value":"Show free s&pace label"},
{"hash":176489292,"name":"tfrmoptionslayout.cbshowshortdrivefreespace.caption","sourcebytes":[83,104,111,119,32,115,104,111,114,116,32,102,114,101,101,32,115,112,97,99,101,32,38,108,97,98,101,108],"value":"Show short free space &label"}
]}
{"version":1,"strings":[
{"hash":134597216,"name":"tfrmoptionslayout.gbscreenlayout.caption","sourcebytes":[32,83,99,114,101,101,110,32,108,97,121,111,117,116,32],"value":" Screen layout "},
{"hash":177574613,"name":"tfrmoptionslayout.cbshowmainmenu.caption","sourcebytes":[83,104,111,119,32,38,109,97,105,110,32,109,101,110,117],"value":"Show &main menu"},
{"hash":229134466,"name":"tfrmoptionslayout.cbshowmaintoolbar.caption","sourcebytes":[83,104,111,119,32,116,111,111,108,38,98,97,114],"value":"Show tool&bar"},
{"hash":189661603,"name":"tfrmoptionslayout.cbshowdiskpanel.caption","sourcebytes":[83,104,111,119,32,38,100,114,105,118,101,32,98,117,116,116,111,110,115],"value":"Show &drive buttons"},
{"hash":6470158,"name":"tfrmoptionslayout.cbshowdriveslistbutton.caption","sourcebytes":[83,104,111,119,32,100,114,105,118,101,115,32,108,105,115,116,32,98,117,38,116,116,111,110],"value":"Show drives list bu&tton"},
{"hash":138066537,"name":"tfrmoptionslayout.cbshowcurdir.caption","sourcebytes":[83,104,111,119,32,99,117,114,114,101,110,116,32,100,105,114,101,99,116,111,114,38,121],"value":"Show current director&y"},
{"hash":226967058,"name":"tfrmoptionslayout.cbshowtabheader.caption","sourcebytes":[83,38,104,111,119,32,116,97,98,115,116,111,112,32,104,101,97,100,101,114],"value":"S&how tabstop header"},
{"hash":49110370,"name":"tfrmoptionslayout.cbshowstatusbar.caption","sourcebytes":[83,104,111,119,32,38,115,116,97,116,117,115,32,98,97,114],"value":"Show &status bar"},
{"hash":196317541,"name":"tfrmoptionslayout.cbshowcmdline.caption","sourcebytes":[83,104,111,119,32,99,111,109,109,97,110,100,32,108,38,105,110,101],"value":"Show command l&ine"},
{"hash":14274819,"name":"tfrmoptionslayout.cbshowkeyspanel.caption","sourcebytes":[83,104,111,119,32,102,117,110,99,116,105,111,110,32,38,107,101,121,32,98,117,116,116,111,110,115],"value":"Show function &key buttons"},
{"hash":51983379,"name":"tfrmoptionslayout.cbflatdiskpanel.caption","sourcebytes":[38,70,108,97,116,32,98,117,116,116,111,110,115],"value":"&Flat buttons"},
{"hash":216809273,"name":"tfrmoptionslayout.cbtwodiskpanels.caption","sourcebytes":[83,104,111,119,32,116,119,111,32,100,114,105,118,101,32,98,117,116,116,111,110,32,98,97,114,115,32,40,102,105,38,120,101,100,32,119,105,100,116,104,44,32,97,98,111,118,101,32,102,105,108,101,32,119,105,110,100,111,119,115,41],"value":"Show two drive button bars (fi&xed width, above file windows)"},
{"hash":91296995,"name":"tfrmoptionslayout.cbshowtabs.caption","sourcebytes":[83,104,111,38,119,32,102,111,108,100,101,114,32,116,97,98,115],"value":"Sho&w folder tabs"},
{"hash":44971493,"name":"tfrmoptionslayout.cbflatinterface.caption","sourcebytes":[70,108,97,116,32,105,38,110,116,101,114,102,97,99,101],"value":"Flat i&nterface"},
{"hash":14931027,"name":"tfrmoptionslayout.cbflattoolbar.caption","sourcebytes":[70,108,97,116,32,98,38,117,116,116,111,110,115],"value":"Flat b&uttons"},
{"hash":245942935,"name":"tfrmoptionslayout.cblogwindow.caption","sourcebytes":[83,104,111,119,32,108,111,38,103,32,119,105,110,100,111,119],"value":"Show lo&g window"},
{"hash":142079143,"name":"tfrmoptionslayout.cbtermwindow.caption","sourcebytes":[83,104,111,119,32,116,101,38,114,109,105,110,97,108,32,119,105,110,100,111,119],"value":"Show te&rminal window"},
{"hash":140527132,"name":"tfrmoptionslayout.cbfreespaceind.caption","sourcebytes":[83,104,111,119,32,102,114,38,101,101,32,115,112,97,99,101,32,105,110,100,105,99,97,116,111,114,32,111,110,32,100,114,105,118,101,32,108,97,98,101,108],"value":"Show fr&ee space indicator on drive label"},
{"hash":151685554,"name":"tfrmoptionslayout.cbproginmenubar.caption","sourcebytes":[83,104,111,119,32,99,111,109,109,111,110,32,112,114,111,103,114,101,115,115,32,105,110,32,109,101,110,117,32,98,97,114],"value":"Show common progress in menu bar"},
{"hash":11318116,"name":"tfrmoptionslayout.cbpanelofoperations.caption","sourcebytes":[83,104,111,119,32,112,97,110,101,108,32,111,102,32,111,112,101,114,97,116,105,111,110,32,105,110,32,98,97,99,107,103,114,111,117,110,100],"value":"Show panel of operation in background"},
{"hash":157748028,"name":"tfrmoptionslayout.cbshowdrivefreespace.caption","sourcebytes":[83,104,111,119,32,102,114,101,101,32,115,38,112,97,99,101,32,108,97,98,101,108],"value":"Show free s&pace label"},
{"hash":176489292,"name":"tfrmoptionslayout.cbshowshortdrivefreespace.caption","sourcebytes":[83,104,111,119,32,115,104,111,114,116,32,102,114,101,101,32,115,112,97,99,101,32,38,108,97,98,101,108],"value":"Show short free space &label"},
{"hash":219781266,"name":"tfrmoptionslayout.chkshowmiddletoolbar.caption","sourcebytes":[83,104,111,119,32,109,105,100,100,108,101,32,116,111,111,108,98,97,114],"value":"Show middle toolbar"}
]}

View file

@ -56,6 +56,7 @@ type
cbTermWindow: TCheckBox;
cbTwoDiskPanels: TCheckBox;
cbShowShortDriveFreeSpace: TCheckBox;
chkShowMiddleToolBar: TCheckBox;
gbScreenLayout: TGroupBox;
procedure cbShowDiskPanelChange(Sender: TObject);
procedure cbShowDriveFreeSpaceChange(Sender: TObject);
@ -109,6 +110,7 @@ begin
cbShowMainMenu.Checked := gMainMenu;
cbShowMainToolBar.Checked := gButtonBar;
cbFlatToolBar.Checked := gToolBarFlat;
chkShowMiddleToolBar.Checked := gMiddleToolBar;
cbShowDiskPanel.Checked := gDriveBar1;
cbTwoDiskPanels.Checked := gDriveBar2;
cbFlatDiskPanel.Checked := gDriveBarFlat;
@ -136,6 +138,7 @@ begin
gMainMenu := cbShowMainMenu.Checked;
gButtonBar := cbShowMainToolBar.Checked;
gToolBarFlat := cbFlatToolBar.Checked;
gMiddleToolBar := chkShowMiddleToolBar.Checked;
gDriveBar1 := cbShowDiskPanel.Checked;
gDriveBar2 := cbTwoDiskPanels.Checked;
gDriveBarFlat := cbFlatDiskPanel.Checked;