ADD: "Show hidden/system files" option to "Options" dialog

This commit is contained in:
Alexander Koblov 2009-03-22 10:16:20 +00:00
commit 649539b8c6
3 changed files with 64 additions and 47 deletions

View file

@ -137,9 +137,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = edtRunInTerm
AnchorSideTop.Side = asrCenter
Left = 8
Height = 17
Top = 12
Width = 129
Height = 14
Top = 13
Width = 76
Caption = 'Run in terminal:'
ParentColor = False
end
@ -147,9 +147,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = edtRunTerm
AnchorSideTop.Side = asrCenter
Left = 8
Height = 17
Top = 42
Width = 105
Height = 14
Top = 43
Width = 65
Caption = 'Run terminal:'
ParentColor = False
end
@ -158,10 +158,10 @@ object frmOptions: TfrmOptions
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = pgBehav
AnchorSideRight.Side = asrBottom
Left = 143
Left = 90
Height = 24
Top = 8
Width = 447
Width = 500
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 10
@ -173,10 +173,10 @@ object frmOptions: TfrmOptions
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtRunInTerm
AnchorSideRight.Side = asrBottom
Left = 143
Left = 90
Height = 24
Top = 38
Width = 447
Width = 500
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
TabOrder = 1
@ -195,9 +195,9 @@ object frmOptions: TfrmOptions
object cbDirSelect: TCheckBox
AnchorSideTop.Control = gbMisc1
Left = 8
Height = 21
Height = 17
Top = 6
Width = 247
Width = 151
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'Select directory with keypad'
@ -207,9 +207,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbLynxLike
AnchorSideTop.Side = asrBottom
Left = 8
Height = 21
Top = 60
Width = 199
Height = 17
Top = 52
Width = 120
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'Case sensitive sorting'
@ -219,9 +219,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbDirSelect
AnchorSideTop.Side = asrBottom
Left = 8
Height = 21
Top = 33
Width = 167
Height = 17
Top = 29
Width = 111
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'Lynx like movement'
@ -231,9 +231,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbCaseSensitiveSort
AnchorSideTop.Side = asrBottom
Left = 8
Height = 21
Top = 87
Width = 191
Height = 17
Top = 75
Width = 112
AllowGrayed = True
BorderSpacing.Top = 6
Caption = 'Short Filesize format'
@ -243,9 +243,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbShortFileSizeFormat
AnchorSideTop.Side = asrBottom
Left = 8
Height = 21
Top = 114
Width = 335
Height = 17
Top = 98
Width = 212
BorderSpacing.Top = 6
Caption = 'Mo&ve icon to system tray when minimized'
TabOrder = 4
@ -274,9 +274,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbIconsSize
AnchorSideTop.Side = asrCenter
Left = 14
Height = 17
Top = 35
Width = 89
Height = 14
Top = 36
Width = 53
Caption = 'Icons Size:'
ParentColor = False
end
@ -284,9 +284,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbMouseMode
AnchorSideTop.Side = asrCenter
Left = 14
Height = 17
Top = 89
Width = 41
Height = 14
Top = 90
Width = 31
Caption = 'Mode:'
ParentColor = False
end
@ -294,7 +294,7 @@ object frmOptions: TfrmOptions
AnchorSideLeft.Control = lblIconsSize
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 115
Left = 79
Height = 21
Top = 33
Width = 131
@ -314,25 +314,25 @@ object frmOptions: TfrmOptions
end
object cbShowIcons: TCheckBox
Left = 13
Height = 21
Height = 17
Top = 6
Width = 103
Width = 73
Caption = 'Show icons'
OnChange = cbShowIconsChange
TabOrder = 0
end
object cbSelectionByMouse: TCheckBox
Left = 13
Height = 21
Height = 17
Top = 60
Width = 167
Width = 110
Caption = 'Selection by mouse'
TabOrder = 2
end
object cbMouseMode: TComboBox
AnchorSideLeft.Control = cbIconsSize
AnchorSideRight.Side = asrBottom
Left = 115
Left = 79
Height = 21
Top = 87
Width = 131
@ -361,9 +361,9 @@ object frmOptions: TfrmOptions
TabOrder = 5
object lblDateTimeFormat: TLabel
Left = 6
Height = 17
Height = 14
Top = 6
Width = 169
Width = 107
Caption = 'Date and time format:'
ParentColor = False
end
@ -371,9 +371,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbDateTimeFormat
AnchorSideTop.Side = asrBottom
Left = 6
Height = 28
Top = 56
Width = 110
Height = 14
Top = 53
Width = 1
BorderSpacing.Top = 6
Font.Style = [fsBold]
ParentColor = False
@ -384,7 +384,7 @@ object frmOptions: TfrmOptions
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 29
Top = 26
Width = 184
BorderSpacing.Top = 6
ItemHeight = 13
@ -448,14 +448,27 @@ object frmOptions: TfrmOptions
AnchorSideLeft.Control = gbMisc3
AnchorSideTop.Control = gbMisc3
Left = 10
Height = 21
Height = 17
Top = 6
Width = 215
Width = 131
BorderSpacing.Left = 10
BorderSpacing.Top = 6
Caption = 'Cut text to column width'
TabOrder = 0
end
object cbShowSystemFiles: TCheckBox
AnchorSideLeft.Control = gbMisc3
AnchorSideTop.Control = cbCutTextToColWidth
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 29
Width = 138
BorderSpacing.Left = 10
BorderSpacing.Top = 6
Caption = 'Show hidden/system files'
TabOrder = 1
end
end
object gbMisc4: TGroupBox
AnchorSideLeft.Control = rgScrolling
@ -487,9 +500,9 @@ object frmOptions: TfrmOptions
EditLabel.AnchorSideLeft.Control = ledDriveBlackList
EditLabel.AnchorSideBottom.Control = ledDriveBlackList
EditLabel.Left = 10
EditLabel.Height = 17
EditLabel.Top = 4
EditLabel.Width = 137
EditLabel.Height = 14
EditLabel.Top = 7
EditLabel.Width = 73
EditLabel.Caption = 'Drive black list:'
EditLabel.ParentColor = False
ParentShowHint = False

View file

@ -18,6 +18,7 @@ TFRMOPTIONS.GBDATETIMEFORMAT.CAPTION=Date and time
TFRMOPTIONS.LBLDATETIMEFORMAT.CAPTION=Date and time format:
TFRMOPTIONS.RGSCROLLING.CAPTION=Scrolling
TFRMOPTIONS.CBCUTTEXTTOCOLWIDTH.CAPTION=Cut text to column width
TFRMOPTIONS.CBSHOWSYSTEMFILES.CAPTION=Show hidden/system files
TFRMOPTIONS.LEDDRIVEBLACKLIST.HINT=Here you can enter one or more drives, separated by ";".
TFRMOPTIONS.LEDDRIVEBLACKLIST.EDITLABEL.CAPTION=Drive black list:
TFRMOPTIONS.CBEXTEDITOR.CAPTION=External editor

View file

@ -113,6 +113,7 @@ type
cbGridVertLine: TCheckBox;
cbGridHorzLine: TCheckBox;
cbShowWarningMessages: TCheckBox;
cbShowSystemFiles: TCheckBox;
cTextLabel: TLabel;
dlgFnt: TFontDialog;
edHotKey: TEdit;
@ -1668,6 +1669,7 @@ begin
cbRenameSelOnlyName.Checked:= gRenameSelOnlyName;
cbCutTextToColWidth.Checked:= gCutTextToColWidth;
ledDriveBlackList.Text:= gDriveBlackList;
cbShowSystemFiles.Checked:= gShowSystemFiles;
fneExtEditor.FileName := gExtEdit;
fneExtViewer.FileName := gExtView;
@ -1816,6 +1818,7 @@ begin
gRenameSelOnlyName:= cbRenameSelOnlyName.Checked;
gCutTextToColWidth:= cbCutTextToColWidth.Checked;
gDriveBlackList:= ledDriveBlackList.Text;
gShowSystemFiles:= cbShowSystemFiles.Checked;
gMouseSelectionEnabled := cbSelectionByMouse.Checked;
gMouseSelectionButton := cbMouseMode.ItemIndex;