mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Start - Feature Request [2693669] Color highlight file names by file age

Browse source
This commit is contained in:
Alexander Koblov 2009-04-05 14:53:51 +00:00
commit 831ca1ca91
3 changed files with 201 additions and 180 deletions
Download patch file Download diff file Expand all files Collapse all files

352
foptions.lfm
View file

@ -117,7 +117,7 @@ object frmOptions: TfrmOptions
Width = 501
Align = alClient
OnPageChanged = nbNotebookPageChanged
PageIndex = 5
PageIndex = 7
ShowTabs = False
TabOrder = 0
object pgLng: TPage
@ -1632,175 +1632,191 @@ object frmOptions: TfrmOptions
object pgFileTypesColors: TPage
ClientWidth = 493
ClientHeight = 471
object gbFileTypesColors: TGroupBox
Left = 10
Height = 436
Top = 2
Width = 469
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'File types colors'
ClientHeight = 418
ClientWidth = 465
object pcFileTypesColors: TPageControl
Height = 471
Width = 493
ActivePage = tsByFileType
Align = alClient
TabIndex = 0
TabOrder = 0
object lblCategoryName: TLabel
AnchorSideTop.Control = edtCategoryName
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 191
Width = 79
Caption = 'Category name:'
ParentColor = False
object tsByFileType: TTabSheet
Caption = 'By file type'
ClientHeight = 445
ClientWidth = 485
object gbFileTypesColors: TGroupBox
Left = 10
Height = 436
Top = 2
Width = 469
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'File types colors'
ClientHeight = 418
ClientWidth = 465
TabOrder = 0
object lblCategoryName: TLabel
AnchorSideTop.Control = edtCategoryName
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 191
Width = 79
Caption = 'Category name:'
ParentColor = False
end
object lblCategoryMask: TLabel
AnchorSideTop.Control = edtCategoryMask
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 222
Width = 77
Caption = 'Category mask:'
ParentColor = False
end
object lblCategoryColor: TLabel
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 284
Width = 76
Caption = 'Category color:'
ParentColor = False
end
object lblCategoryAttr: TLabel
AnchorSideTop.Control = edtCategoryAttr
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 253
Width = 100
Caption = 'Category attributes:'
ParentColor = False
end
object edtCategoryName: TEdit
AnchorSideTop.Control = lbCategories
AnchorSideTop.Side = asrBottom
Left = 174
Height = 23
Top = 187
Width = 252
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
TabOrder = 0
end
object edtCategoryMask: TEdit
AnchorSideTop.Control = edtCategoryName
AnchorSideTop.Side = asrBottom
Left = 174
Height = 23
Top = 218
Width = 252
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
TabOrder = 1
end
object cbCategoryColor: TColorBox
AnchorSideTop.Control = edtCategoryAttr
AnchorSideTop.Side = asrBottom
Left = 174
Height = 22
Top = 280
Width = 140
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
BorderSpacing.Top = 8
ItemHeight = 16
OnChange = cbCategoryColorChange
OnDropDown = cbColorBoxDropDown
TabOrder = 2
end
object bbtnAddCategory: TBitBtn
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bbtnDeleteCategory
Left = 144
Height = 32
Top = 314
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 6
Caption = 'Add'
NumGlyphs = 0
OnClick = bbtnAddCategoryClick
TabOrder = 3
end
object bbtnDeleteCategory: TBitBtn
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bbtnApplyCategory
Left = 240
Height = 32
Top = 314
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 6
Caption = 'Delete'
NumGlyphs = 0
OnClick = bbtnDeleteCategoryClick
TabOrder = 4
end
object btnCategoryColor: TButton
AnchorSideTop.Control = cbCategoryColor
AnchorSideBottom.Control = cbCategoryColor
AnchorSideBottom.Side = asrBottom
Left = 318
Height = 22
Top = 280
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnCategoryColorClick
TabOrder = 5
end
object lbCategories: TListBox
Left = 12
Height = 165
Top = 10
Width = 414
Anchors = [akTop, akLeft, akRight, akBottom]
OnClick = lbCategoriesClick
OnDrawItem = lbCategoriesDrawItem
Style = lbOwnerDrawFixed
TabOrder = 6
end
object bbtnApplyCategory: TBitBtn
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lbCategories
AnchorSideRight.Side = asrBottom
Left = 336
Height = 32
Top = 314
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
Caption = 'Apply'
NumGlyphs = 0
OnClick = bbtnApplyCategoryClick
TabOrder = 7
end
object edtCategoryAttr: TEdit
AnchorSideTop.Control = edtCategoryMask
AnchorSideTop.Side = asrBottom
Left = 174
Height = 23
Top = 249
Width = 252
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
TabOrder = 8
end
end
end
object lblCategoryMask: TLabel
AnchorSideTop.Control = edtCategoryMask
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 222
Width = 77
Caption = 'Category mask:'
ParentColor = False
end
object lblCategoryColor: TLabel
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 284
Width = 76
Caption = 'Category color:'
ParentColor = False
end
object lblCategoryAttr: TLabel
AnchorSideTop.Control = edtCategoryAttr
AnchorSideTop.Side = asrCenter
Left = 12
Height = 14
Top = 253
Width = 100
Caption = 'Category attributes:'
ParentColor = False
end
object edtCategoryName: TEdit
AnchorSideTop.Control = lbCategories
AnchorSideTop.Side = asrBottom
Left = 174
Height = 23
Top = 187
Width = 252
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
TabOrder = 0
end
object edtCategoryMask: TEdit
AnchorSideTop.Control = edtCategoryName
AnchorSideTop.Side = asrBottom
Left = 174
Height = 23
Top = 218
Width = 252
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
TabOrder = 1
end
object cbCategoryColor: TColorBox
AnchorSideTop.Control = edtCategoryAttr
AnchorSideTop.Side = asrBottom
Left = 174
Height = 22
Top = 280
Width = 140
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
BorderSpacing.Top = 8
ItemHeight = 16
OnChange = cbCategoryColorChange
OnDropDown = cbColorBoxDropDown
TabOrder = 2
end
object bbtnAddCategory: TBitBtn
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bbtnDeleteCategory
Left = 144
Height = 32
Top = 314
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 6
Caption = 'Add'
NumGlyphs = 0
OnClick = bbtnAddCategoryClick
TabOrder = 3
end
object bbtnDeleteCategory: TBitBtn
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bbtnApplyCategory
Left = 240
Height = 32
Top = 314
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 6
Caption = 'Delete'
NumGlyphs = 0
OnClick = bbtnDeleteCategoryClick
TabOrder = 4
end
object btnCategoryColor: TButton
AnchorSideTop.Control = cbCategoryColor
AnchorSideBottom.Control = cbCategoryColor
AnchorSideBottom.Side = asrBottom
Left = 318
Height = 22
Top = 280
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnCategoryColorClick
TabOrder = 5
end
object lbCategories: TListBox
Left = 12
Height = 165
Top = 10
Width = 414
Anchors = [akTop, akLeft, akRight, akBottom]
OnClick = lbCategoriesClick
OnDrawItem = lbCategoriesDrawItem
Style = lbOwnerDrawFixed
TabOrder = 6
end
object bbtnApplyCategory: TBitBtn
AnchorSideTop.Control = cbCategoryColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lbCategories
AnchorSideRight.Side = asrBottom
Left = 336
Height = 32
Top = 314
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
Caption = 'Apply'
NumGlyphs = 0
OnClick = bbtnApplyCategoryClick
TabOrder = 7
end
object edtCategoryAttr: TEdit
AnchorSideTop.Control = edtCategoryMask
AnchorSideTop.Side = asrBottom
Left = 174
Height = 23
Top = 249
Width = 252
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
TabOrder = 8
object tsBySearchTemplate: TTabSheet
Caption = 'By search template'
end
end
end

2
foptions.lrt
View file

@ -71,6 +71,7 @@ TFRMOPTIONS.BTNENABLEPLUGIN.CAPTION=Enable
TFRMOPTIONS.BTNREMOVEPLUGIN.CAPTION=Remove
TFRMOPTIONS.BTNTWEAKPLUGIN.CAPTION=Tweak
TFRMOPTIONS.BTNCONFIGPLUGIN.CAPTION=Configure
TFRMOPTIONS.TSBYFILETYPE.CAPTION=By file type
TFRMOPTIONS.GBFILETYPESCOLORS.CAPTION=File types colors
TFRMOPTIONS.LBLCATEGORYNAME.CAPTION=Category name:
TFRMOPTIONS.LBLCATEGORYMASK.CAPTION=Category mask:
@ -80,6 +81,7 @@ TFRMOPTIONS.BBTNADDCATEGORY.CAPTION=Add
TFRMOPTIONS.BBTNDELETECATEGORY.CAPTION=Delete
TFRMOPTIONS.BTNCATEGORYCOLOR.CAPTION=>>
TFRMOPTIONS.BBTNAPPLYCATEGORY.CAPTION=Apply
TFRMOPTIONS.TSBYSEARCHTEMPLATE.CAPTION=By search template
TFRMOPTIONS.GBSCREENLAYOUT.CAPTION= Screen layout
TFRMOPTIONS.CBSHOWMAINTOOLBAR.CAPTION=Show &button bar
TFRMOPTIONS.CBSHOWDISKPANEL.CAPTION=Show &drive buttons

27
foptions.pas
View file

@ -43,8 +43,9 @@ type
TfrmOptions = class(TForm)
bbtnAddCategory: TBitBtn;
bbtnDeleteCategory: TBitBtn;
bbtnApplyCategory: TBitBtn;
bbtnDeleteCategory: TBitBtn;
btnCategoryColor: TButton;
btnConfigApply: TBitBtn;
btnConfigEdit: TBitBtn;
btnConfigPlugin: TBitBtn;
@ -52,7 +53,6 @@ type
btnRemovePlugin: TBitBtn;
btnEnablePlugin: TBitBtn;
btnAddPlugin: TBitBtn;
btnCategoryColor: TButton;
btnSelEditFnt: TButton;
btnSelMainFnt: TButton;
btnSelViewFnt: TButton;
@ -71,6 +71,7 @@ type
cbBackColor: TColorBox;
cBackGrndLabel: TLabel;
cbCaseSensitiveSort: TCheckBox;
cbCategoryColor: TColorBox;
cbDirSelect: TCheckBox;
cbDropReadOnlyFlag: TCheckBox;
cbEditorFont: TComboBox;
@ -103,7 +104,6 @@ type
cbCursorColor: TColorBox;
cbCursorText: TColorBox;
cbTextColor: TColorBox;
cbCategoryColor: TColorBox;
cbDateTimeFormat: TComboBox;
cbbFileSystem: TComboBox;
cbMouseMode: TComboBox;
@ -122,13 +122,13 @@ type
cTextLabel: TLabel;
dlgFnt: TFontDialog;
edHotKey: TEdit;
edtCategoryAttr: TEdit;
edtCategoryMask: TEdit;
edtCategoryName: TEdit;
edtFilter: TEdit;
edtParam: TEdit;
edtCategoryAttr: TEdit;
edtTabsLimitLength: TEdit;
edtCopyBufferSize: TEdit;
edtCategoryName: TEdit;
edtCategoryMask: TEdit;
edtEditorSize: TSpinEdit;
edtMainSize: TSpinEdit;
edtRunTerm: TEdit;
@ -140,6 +140,7 @@ type
cbLogFile: TCheckBox;
gbExactNameMatch: TGroupBox;
fneLogFileName: TFileNameEdit;
gbFileTypesColors: TGroupBox;
gbLogFile: TGroupBox;
gbLogFileOp: TGroupBox;
gbLogFileStatus: TGroupBox;
@ -148,7 +149,6 @@ type
fneExtEditor: TFileNameEdit;
gbMisc1: TGroupBox;
gbExample: TGroupBox;
gbFileTypesColors: TGroupBox;
gbMisc2: TGroupBox;
gbScreenLayout: TGroupBox;
cbFlatDiskPanel: TCheckBox;
@ -174,6 +174,11 @@ type
gbShowGrid: TGroupBox;
gbExtended: TGroupBox;
gbAutoRefresh: TGroupBox;
lbCategories: TListBox;
lblCategoryAttr: TLabel;
lblCategoryColor: TLabel;
lblCategoryMask: TLabel;
lblCategoryName: TLabel;
lbPressedHotKeyCommand: TLabel;
lbHotKeys: TLabel;
lbFilter: TLabel;
@ -187,12 +192,12 @@ type
lblWipePassNumber: TLabel;
lblMouseMode: TLabel;
lblConfigColumns: TLabel;
lblCategoryAttr: TLabel;
lblWDXDescription: TLabel;
lbtypes: TLabel;
lbxCategories: TListBox;
lbxHotkeys: TListBox;
lstColumnsSets: TListBox;
pcFileTypesColors: TPageControl;
pgAutoRefresh: TPage;
pgMisc: TPage;
pnlButtons: TPanel;
@ -211,9 +216,6 @@ type
lblCopyBufferSize: TLabel;
lblIconsSize: TLabel;
lblWFXDescription: TLabel;
lblCategoryColor: TLabel;
lblCategoryName: TLabel;
lblCategoryMask: TLabel;
lblBackground2: TLabel;
lblMarkColor: TLabel;
lblCursorColor: TLabel;
@ -224,7 +226,6 @@ type
lblRunTerm: TLabel;
lblRunInTerm: TLabel;
lblViewerFont: TLabel;
lbCategories: TListBox;
lngList: TListBox;
cbLogArcOp: TCheckBox;
cbLogCpMvLn: TCheckBox;
@ -268,6 +269,8 @@ type
seWipePassNumber: TSpinEdit;
stgPlugins: TStringGrid;
stgCommands: TStringGrid;
tsByFileType: TTabSheet;
tsBySearchTemplate: TTabSheet;
tsWLX: TTabSheet;
tsDSX: TTabSheet;
tsWDX: TTabSheet;