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
doublecmd/fcolumnssetconf.lfm
Alexander Koblov 6cc79db107 UPD: Small optimizations
2008-06-29 08:27:38 +00:00

907 lines
22 KiB
Text
Raw Blame History

object fColumnsSetConf: TfColumnsSetConf
Left = 287
Height = 600
Top = 91
Width = 900
HorzScrollBar.Page = 988
VertScrollBar.Page = 724
ActiveControl = edtNameofColumnsSet
Caption = 'Configure custom columns view'
ClientHeight = 600
ClientWidth = 900
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.25'
object Panel1: TPanel
Height = 36
Width = 989
Align = alTop
ClientHeight = 36
ClientWidth = 989
TabOrder = 0
object lblConfigViewNr: TLabel
Left = 8
Height = 13
Top = 11
Width = 145
Caption = 'Configure view nr:'
ParentColor = False
end
object lbNrOfColumnsSet: TLabel
AnchorSideLeft.Control = lblConfigViewNr
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = lblName
Left = 155
Height = 13
Top = 11
Width = 59
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2
BorderSpacing.Right = 2
Caption = '0'
ParentColor = False
end
object lblName: TLabel
Left = 216
Height = 13
Top = 10
Width = 41
Caption = 'Name:'
ParentColor = False
end
object edtNameofColumnsSet: TEdit
Left = 255
Height = 23
Top = 4
Width = 729
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
end
end
object Panel2: TPanel
Height = 647
Top = 36
Width = 989
Align = alClient
ClientHeight = 647
ClientWidth = 989
TabOrder = 1
object stgColumns: TStringGrid
Left = 1
Height = 292
Top = 1
Width = 987
Align = alClient
ColCount = 7
FixedColor = clBtnFace
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goSmoothScroll]
PopupMenu = pmStringGrid
RowCount = 3
TabOrder = 0
OnEditingDone = stgColumnsEditingDone
OnHeaderSized = stgColumnsHeaderSized
OnKeyDown = stgColumnsKeyDown
OnSelectEditor = stgColumnsSelectEditor
ColWidths = (
67
129
64
61
457
38
72
)
Cells = (
7
0
0
'Delete'
1
0
'Caption'
2
0
'Width'
3
0
'Align'
4
0
'Field contents'
5
0
'Move'
6
0
'Config'
)
end
object pnlPrevCont: TPanel
Left = 1
Height = 180
Top = 466
Width = 987
Align = alBottom
ClientHeight = 180
ClientWidth = 987
TabOrder = 1
object pnlPreview: TPanel
Left = 1
Height = 178
Top = 1
Width = 985
Align = alClient
TabOrder = 0
end
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 1
Height = 5
Top = 461
Width = 987
Align = alBottom
MinSize = 180
ResizeAnchor = akBottom
end
object pnlPreviewHead: TPanel
Left = 1
Height = 19
Top = 442
Width = 987
Align = alBottom
Caption = 'Preview'
TabOrder = 3
OnClick = pnlPreviewHeadClick
end
object pnlCustCont: TPanel
Left = 1
Height = 130
Top = 312
Width = 987
Align = alBottom
Anchors = [akTop, akLeft, akRight]
ClientHeight = 130
ClientWidth = 987
Constraints.MaxHeight = 130
TabOrder = 4
object Label3: TLabel
AnchorSideRight.Control = edtFont
Left = 14
Height = 13
Top = 9
Width = 90
Anchors = [akTop, akLeft, akRight]
Caption = 'Font:'
ParentColor = False
end
object Label4: TLabel
AnchorSideLeft.Control = btnFontSelect
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = sneFontSize
Left = 507
Height = 13
Top = 9
Width = 68
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
Caption = 'Size:'
ParentColor = False
end
object cTextLabel: TLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbTextColor
Left = 14
Height = 13
Top = 41
Width = 146
Anchors = [akTop, akLeft, akRight]
Caption = 'Text Color:'
ParentColor = False
end
object cBackGrndLabel: TLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbBackColor
Left = 14
Height = 13
Top = 71
Width = 146
Anchors = [akTop, akLeft, akRight]
Caption = 'BackGround:'
ParentColor = False
end
object lblBackground2: TLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbBackColor2
Left = 14
Height = 13
Top = 101
Width = 146
Anchors = [akTop, akLeft, akRight]
Caption = 'Background 2:'
ParentColor = False
end
object lblMarkColor: TLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbMarkColor
Left = 458
Height = 13
Top = 41
Width = 150
Anchors = [akTop, akLeft, akRight]
Caption = 'Mark Color:'
ParentColor = False
end
object lblCursorColor: TLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbCursorColor
Left = 458
Height = 13
Top = 70
Width = 150
Anchors = [akTop, akLeft, akRight]
Caption = 'Cursor Color:'
ParentColor = False
end
object lblCursorText: TLabel
Tag = 3
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbCursorText
Left = 458
Height = 13
Top = 101
Width = 150
Anchors = [akTop, akLeft, akRight]
Caption = 'Cursor Text:'
ParentColor = False
end
object edtFont: TEdit
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
Left = 104
Height = 23
Top = 4
Width = 358
ReadOnly = True
TabOrder = 0
end
object btnFontSelect: TBitBtn
AnchorSideLeft.Control = edtFont
AnchorSideLeft.Side = asrBottom
Left = 462
Height = 23
Top = 4
Width = 35
Caption = '...'
NumGlyphs = 0
OnClick = btnFontSelectClick
TabOrder = 1
end
object sneFontSize: TSpinEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
Left = 575
Height = 23
Top = 4
Width = 48
MaxValue = 0
OnChange = sneFontSizeChange
TabOrder = 2
Value = 7
end
object cbCursorText: TColorBox
AnchorSideTop.Side = asrBottom
Left = 608
Height = 22
Top = 96
Width = 144
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 8
ItemHeight = 16
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 3
OnChange = cbCursorTextChange
OnDropDown = cbTextColorDropDown
end
object cbCursorColor: TColorBox
AnchorSideTop.Side = asrBottom
Left = 608
Height = 22
Top = 66
Width = 144
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 8
ItemHeight = 16
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 4
OnChange = cbCursorColorChange
OnDropDown = cbTextColorDropDown
end
object cbMarkColor: TColorBox
AnchorSideTop.Side = asrBottom
Left = 608
Height = 22
Top = 36
Width = 144
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 8
ItemHeight = 16
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 5
OnChange = cbMarkColorChange
OnDropDown = cbTextColorDropDown
end
object cbBackColor2: TColorBox
AnchorSideTop.Side = asrBottom
Left = 160
Height = 22
Top = 96
Width = 144
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 8
ItemHeight = 16
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 6
OnChange = cbBackColor2Change
OnDropDown = cbTextColorDropDown
end
object cbBackColor: TColorBox
AnchorSideTop.Side = asrBottom
Left = 160
Height = 22
Top = 66
Width = 144
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 8
ItemHeight = 16
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 7
OnChange = cbBackColorChange
OnDropDown = cbTextColorDropDown
end
object cbTextColor: TColorBox
Left = 160
Height = 22
Top = 36
Width = 144
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 16
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 8
OnChange = cbTextColorChange
OnDropDown = cbTextColorDropDown
end
object btnForeColor: TButton
AnchorSideLeft.Control = cbTextColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbTextColor
AnchorSideBottom.Control = cbTextColor
AnchorSideBottom.Side = asrBottom
Left = 310
Height = 22
Top = 36
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnForeColorClick
TabOrder = 9
end
object btnBackColor: TButton
AnchorSideLeft.Control = cbBackColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBackColor
AnchorSideBottom.Control = cbBackColor
AnchorSideBottom.Side = asrBottom
Left = 310
Height = 22
Top = 66
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnBackColorClick
TabOrder = 10
end
object btnBackColor2: TButton
AnchorSideLeft.Control = cbBackColor2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBackColor2
AnchorSideBottom.Control = cbBackColor2
AnchorSideBottom.Side = asrBottom
Left = 310
Height = 22
Top = 96
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnBackColor2Click
TabOrder = 11
end
object btnMarkColor: TButton
AnchorSideLeft.Control = cbMarkColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbMarkColor
AnchorSideBottom.Control = cbMarkColor
AnchorSideBottom.Side = asrBottom
Left = 758
Height = 22
Top = 36
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnMarkColorClick
TabOrder = 12
end
object btnCursorColor: TButton
AnchorSideLeft.Control = cbCursorColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCursorColor
AnchorSideBottom.Control = cbCursorColor
AnchorSideBottom.Side = asrBottom
Left = 758
Height = 22
Top = 66
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnCursorColorClick
TabOrder = 13
end
object btnCursorText: TButton
AnchorSideLeft.Control = cbCursorText
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCursorText
AnchorSideBottom.Control = cbCursorText
AnchorSideBottom.Side = asrBottom
Left = 758
Height = 22
Top = 96
Width = 28
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnCursorTextClick
TabOrder = 14
end
object ResCurText: TButton
AnchorSideLeft.Control = btnCursorText
AnchorSideLeft.Side = asrBottom
Left = 792
Height = 22
Top = 96
Width = 30
BorderSpacing.Left = 6
Caption = 'R'
OnClick = ResCurTextClick
TabOrder = 15
end
object ResCurCol: TButton
AnchorSideLeft.Control = btnCursorText
AnchorSideLeft.Side = asrBottom
Left = 792
Height = 22
Top = 66
Width = 30
BorderSpacing.Left = 6
Caption = 'R'
OnClick = ResCurColClick
TabOrder = 16
end
object ResMark: TButton
AnchorSideLeft.Control = btnCursorText
AnchorSideLeft.Side = asrBottom
Left = 792
Height = 22
Top = 36
Width = 30
BorderSpacing.Left = 6
Caption = 'R'
OnClick = ResMarkClick
TabOrder = 17
end
object ResBack2: TButton
AnchorSideLeft.Control = btnBackColor2
AnchorSideLeft.Side = asrBottom
Left = 344
Height = 22
Top = 96
Width = 30
BorderSpacing.Left = 6
Caption = 'R'
OnClick = ResBack2Click
TabOrder = 18
end
object ResBack: TButton
AnchorSideLeft.Control = btnBackColor2
AnchorSideLeft.Side = asrBottom
Left = 344
Height = 22
Top = 66
Width = 30
BorderSpacing.Left = 6
Caption = 'R'
OnClick = ResBackClick
TabOrder = 19
end
object ResText: TButton
AnchorSideLeft.Control = btnBackColor2
AnchorSideLeft.Side = asrBottom
Left = 344
Height = 22
Top = 36
Width = 30
BorderSpacing.Left = 6
Caption = 'R'
OnClick = ResTextClick
TabOrder = 20
end
object cbOverColor: TCheckBox
Tag = 1
Left = 639
Height = 20
Top = 4
Width = 144
Caption = 'Allow Overcolor'
OnChange = cbOvercolorChange
TabOrder = 21
end
object btnAllText: TButton
Tag = 1
AnchorSideLeft.Control = ResText
AnchorSideLeft.Side = asrBottom
Left = 380
Height = 22
Top = 36
Width = 40
BorderSpacing.Left = 6
Caption = 'All'
OnClick = btnAllTextClick
TabOrder = 22
end
object btnAllBack: TButton
Tag = 2
AnchorSideLeft.Control = ResText
AnchorSideLeft.Side = asrBottom
Left = 380
Height = 22
Top = 64
Width = 40
BorderSpacing.Left = 6
Caption = 'All'
OnClick = btnAllTextClick
TabOrder = 23
end
object btnAllBack2: TButton
Tag = 3
AnchorSideLeft.Control = ResText
AnchorSideLeft.Side = asrBottom
Left = 380
Height = 22
Top = 96
Width = 40
BorderSpacing.Left = 6
Caption = 'All'
OnClick = btnAllTextClick
TabOrder = 24
end
object btnAllCurCol: TButton
Tag = 5
AnchorSideLeft.Control = ResMark
AnchorSideLeft.Side = asrBottom
Left = 828
Height = 22
Top = 66
Width = 40
BorderSpacing.Left = 6
Caption = 'All'
OnClick = btnAllTextClick
TabOrder = 25
end
object btnAllCurText: TButton
Tag = 6
AnchorSideLeft.Control = ResMark
AnchorSideLeft.Side = asrBottom
Left = 828
Height = 22
Top = 96
Width = 40
BorderSpacing.Left = 6
Caption = 'All'
OnClick = btnAllTextClick
TabOrder = 26
end
object btnAllMarc: TButton
Tag = 4
AnchorSideLeft.Control = ResMark
AnchorSideLeft.Side = asrBottom
Left = 828
Height = 22
Top = 36
Width = 40
BorderSpacing.Left = 6
Caption = 'All'
OnClick = btnAllTextClick
TabOrder = 27
end
end
object Splitter2: TSplitter
Cursor = crVSplit
Left = 1
Height = 1
Top = 311
Width = 987
Align = alBottom
MinSize = 129
OnCanResize = Splitter2CanResize
ResizeAnchor = akBottom
ResizeStyle = rsNone
end
object pnlCustHead: TPanel
Left = 1
Height = 18
Top = 293
Width = 987
Align = alBottom
Caption = 'Customize column:'
ClientHeight = 18
ClientWidth = 987
TabOrder = 6
OnClick = pnlCustHeadClick
object btnNext: TButton
Left = 615
Height = 15
Top = 1
Width = 40
Anchors = [akTop]
Caption = '->'
OnClick = btnNextClick
TabOrder = 0
end
object btnPrev: TButton
Left = 327
Height = 15
Top = 1
Width = 40
Anchors = [akTop]
Caption = '<-'
OnClick = btnPrevClick
TabOrder = 1
end
end
end
object Panel3: TPanel
Height = 42
Top = 683
Width = 989
Align = alBottom
ClientHeight = 42
ClientWidth = 989
TabOrder = 2
object Label2: TLabel
Left = 24
Height = 13
Top = 29
Width = 49
Caption = 'Label2'
ParentColor = False
Visible = False
end
object Label1: TLabel
Left = 24
Height = 13
Top = 18
Width = 49
Caption = 'Label1'
ParentColor = False
Visible = False
end
object btnOk: TBitBtn
Left = 778
Height = 30
Top = 6
Width = 91
Anchors = [akTop, akRight]
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOkClick
TabOrder = 0
end
object btnCancel: TBitBtn
Left = 882
Height = 30
Top = 6
Width = 99
Anchors = [akTop, akRight]
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
end
object ComboBox1: TComboBox
Left = 16
Height = 25
Top = -6
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 2
Text = 'ComboBox1'
Visible = False
end
end
object pmStringGrid: TPopupMenu
left = 8
top = 104
object miAddColumn: TMenuItem
Caption = 'Add column'
OnClick = miAddColumnClick
end
end
object pmFields: TPopupMenu
left = 48
top = 104
end
object dlgfont: TFontDialog
left = 96
top = 104
end
object dlgcolor: TColorDialog
left = 136
top = 104
end
end
Reference in a new issue View git blame Copy permalink