mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
ADD: Possibility to enable/disable cursor border and set its color.
This commit is contained in:
cobines
parent
8d38f672a3
commit
f92882fdfa
6 changed files with 2435 additions and 2290 deletions
|
|
@ -3,7 +3,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
Height = 600
|
||||
Top = 91
|
||||
Width = 900
|
||||
ActiveControl = edtNameofColumnsSet
|
||||
ActiveControl = Panel1
|
||||
Caption = 'Configure custom columns view'
|
||||
ClientHeight = 600
|
||||
ClientWidth = 900
|
||||
|
|
@ -60,16 +60,16 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Height = 522
|
||||
Top = 36
|
||||
Height = 490
|
||||
Top = 68
|
||||
Width = 900
|
||||
Align = alClient
|
||||
ClientHeight = 522
|
||||
ClientHeight = 490
|
||||
ClientWidth = 900
|
||||
TabOrder = 1
|
||||
object stgColumns: TStringGrid
|
||||
Left = 1
|
||||
Height = 167
|
||||
Height = 134
|
||||
Top = 1
|
||||
Width = 898
|
||||
Align = alClient
|
||||
|
|
@ -121,7 +121,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
object pnlPrevCont: TPanel
|
||||
Left = 1
|
||||
Height = 180
|
||||
Top = 341
|
||||
Top = 309
|
||||
Width = 898
|
||||
Align = alBottom
|
||||
ClientHeight = 180
|
||||
|
|
@ -136,20 +136,22 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object Splitter1: TSplitter
|
||||
object SplitterPreview: TSplitter
|
||||
AnchorSideBottom.Control = pnlPrevCont
|
||||
Cursor = crVSplit
|
||||
Left = 1
|
||||
Height = 5
|
||||
Top = 336
|
||||
Top = 304
|
||||
Width = 898
|
||||
Align = alBottom
|
||||
MinSize = 180
|
||||
ResizeAnchor = akBottom
|
||||
end
|
||||
object pnlPreviewHead: TPanel
|
||||
AnchorSideBottom.Control = SplitterPreview
|
||||
Left = 1
|
||||
Height = 19
|
||||
Top = 317
|
||||
Top = 285
|
||||
Width = 898
|
||||
Align = alBottom
|
||||
Caption = 'Preview'
|
||||
|
|
@ -157,14 +159,12 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
OnClick = pnlPreviewHeadClick
|
||||
end
|
||||
object pnlCustCont: TPanel
|
||||
AnchorSideTop.Control = Splitter2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = pnlPreviewHead
|
||||
Left = 1
|
||||
Height = 130
|
||||
Top = 187
|
||||
Top = 155
|
||||
Width = 898
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ClientHeight = 130
|
||||
ClientWidth = 898
|
||||
Constraints.MaxHeight = 130
|
||||
|
|
@ -172,7 +172,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
object Label3: TLabel
|
||||
AnchorSideRight.Control = edtFont
|
||||
Left = 14
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 9
|
||||
Width = 90
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -184,7 +184,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = sneFontSize
|
||||
Left = 507
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 9
|
||||
Width = 68
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -196,7 +196,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = cbTextColor
|
||||
Left = 14
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 41
|
||||
Width = 146
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -207,7 +207,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = cbBackColor
|
||||
Left = 14
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 71
|
||||
Width = 146
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -218,7 +218,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = cbBackColor2
|
||||
Left = 14
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 101
|
||||
Width = 146
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -229,7 +229,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = cbMarkColor
|
||||
Left = 458
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 41
|
||||
Width = 150
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -240,7 +240,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = cbCursorColor
|
||||
Left = 458
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 70
|
||||
Width = 150
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -252,7 +252,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = cbCursorText
|
||||
Left = 458
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 101
|
||||
Width = 150
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
|
|
@ -292,12 +292,12 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
MinValue = 8
|
||||
OnChange = sneFontSizeChange
|
||||
TabOrder = 2
|
||||
Value = 7
|
||||
Value = 8
|
||||
end
|
||||
object cbCursorText: TColorBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 608
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 144
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
||||
|
|
@ -310,7 +310,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
object cbCursorColor: TColorBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 608
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 144
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
||||
|
|
@ -323,7 +323,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
object cbMarkColor: TColorBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 608
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 144
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
||||
|
|
@ -336,7 +336,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
object cbBackColor2: TColorBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 160
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 144
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
||||
|
|
@ -349,7 +349,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
object cbBackColor: TColorBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 160
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 144
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
||||
|
|
@ -361,7 +361,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
end
|
||||
object cbTextColor: TColorBox
|
||||
Left = 160
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 144
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
||||
|
|
@ -377,7 +377,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbTextColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 310
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 28
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -394,7 +394,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbBackColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 310
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 28
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -411,7 +411,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbBackColor2
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 310
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 28
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -428,7 +428,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbMarkColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 758
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 28
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -445,7 +445,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbCursorColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 758
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 28
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -462,7 +462,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbCursorText
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 758
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 28
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -479,7 +479,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbCursorText
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 792
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 30
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -495,7 +495,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbCursorColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 792
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 30
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -511,7 +511,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbMarkColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 792
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 30
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -527,7 +527,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbBackColor2
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 344
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 30
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -543,7 +543,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbBackColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 344
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 30
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -558,7 +558,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbTextColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 344
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 30
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -574,9 +574,9 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideTop.Control = btnAllFont
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 711
|
||||
Height = 22
|
||||
Top = 4
|
||||
Width = 131
|
||||
Height = 21
|
||||
Top = 5
|
||||
Width = 120
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Allow Overcolor'
|
||||
OnChange = cbOvercolorChange
|
||||
|
|
@ -590,7 +590,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbTextColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 380
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 40
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -607,7 +607,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbBackColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 380
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 40
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -624,7 +624,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbBackColor2
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 380
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 40
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -641,7 +641,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbCursorColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 828
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 66
|
||||
Width = 40
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -658,7 +658,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbCursorText
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 828
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 96
|
||||
Width = 40
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -675,7 +675,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
AnchorSideBottom.Control = cbMarkColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 828
|
||||
Height = 32
|
||||
Height = 33
|
||||
Top = 36
|
||||
Width = 40
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
|
|
@ -717,26 +717,28 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
TabOrder = 29
|
||||
end
|
||||
end
|
||||
object Splitter2: TSplitter
|
||||
object SplitterCustomize: TSplitter
|
||||
AnchorSideBottom.Control = pnlCustCont
|
||||
Cursor = crVSplit
|
||||
Left = 1
|
||||
Height = 1
|
||||
Top = 186
|
||||
Top = 154
|
||||
Width = 898
|
||||
Align = alBottom
|
||||
MinSize = 129
|
||||
OnCanResize = Splitter2CanResize
|
||||
MinSize = 130
|
||||
OnCanResize = SplitterCustomizeCanResize
|
||||
ResizeAnchor = akBottom
|
||||
ResizeStyle = rsNone
|
||||
end
|
||||
object pnlCustHead: TPanel
|
||||
AnchorSideBottom.Control = SplitterCustomize
|
||||
Left = 1
|
||||
Height = 18
|
||||
Top = 168
|
||||
Height = 19
|
||||
Top = 135
|
||||
Width = 898
|
||||
Align = alBottom
|
||||
Caption = 'Customize column:'
|
||||
ClientHeight = 18
|
||||
ClientHeight = 19
|
||||
ClientWidth = 898
|
||||
TabOrder = 6
|
||||
OnClick = pnlCustHeadClick
|
||||
|
|
@ -772,18 +774,18 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
TabOrder = 2
|
||||
object Label2: TLabel
|
||||
Left = 24
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 29
|
||||
Width = 46
|
||||
Width = 42
|
||||
Caption = 'Label2'
|
||||
ParentColor = False
|
||||
Visible = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Height = 19
|
||||
Height = 18
|
||||
Top = 18
|
||||
Width = 45
|
||||
Width = 42
|
||||
Caption = 'Label1'
|
||||
ParentColor = False
|
||||
Visible = False
|
||||
|
|
@ -816,7 +818,7 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 16
|
||||
Height = 30
|
||||
Height = 27
|
||||
Top = -6
|
||||
Width = 100
|
||||
MaxLength = 65535
|
||||
|
|
@ -825,6 +827,59 @@ object fColumnsSetConf: TfColumnsSetConf
|
|||
Visible = False
|
||||
end
|
||||
end
|
||||
object pnlGlobalSettings: TPanel
|
||||
AnchorSideTop.Control = Panel1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Height = 32
|
||||
Top = 36
|
||||
Width = 900
|
||||
Align = alTop
|
||||
ClientHeight = 32
|
||||
ClientWidth = 900
|
||||
TabOrder = 3
|
||||
object cbCursorBorder: TCheckBox
|
||||
AnchorSideLeft.Control = pnlGlobalSettings
|
||||
AnchorSideTop.Control = cbCursorBorderColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 107
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Cursor border'
|
||||
OnChange = cbCursorBorderChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbCursorBorderColor: TColorBox
|
||||
AnchorSideLeft.Control = cbCursorBorder
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pnlGlobalSettings
|
||||
Left = 121
|
||||
Height = 33
|
||||
Width = 144
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
||||
BorderSpacing.Left = 6
|
||||
OnChange = cbCursorBorderColorChange
|
||||
OnDropDown = cbTextColorDropDown
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnCursorBorderColor: TButton
|
||||
AnchorSideLeft.Control = cbCursorBorderColor
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cbCursorBorderColor
|
||||
AnchorSideBottom.Control = cbCursorBorderColor
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 271
|
||||
Height = 33
|
||||
Width = 28
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '>>'
|
||||
OnClick = btnCursorBorderColorClick
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object pmStringGrid: TPopupMenu
|
||||
left = 8
|
||||
top = 104
|
||||
|
|
|
|||
|
|
@ -1,44 +1,46 @@
|
|||
TFCOLUMNSSETCONF.CAPTION=Configure custom columns view
|
||||
TFCOLUMNSSETCONF.LBLCONFIGVIEWNR.CAPTION=Configure view nr:
|
||||
TFCOLUMNSSETCONF.LBNROFCOLUMNSSET.CAPTION=0
|
||||
TFCOLUMNSSETCONF.LBLNAME.CAPTION=Name:
|
||||
TFCOLUMNSSETCONF.PNLPREVIEWHEAD.CAPTION=Preview
|
||||
TFCOLUMNSSETCONF.LABEL3.CAPTION=Font:
|
||||
TFCOLUMNSSETCONF.LABEL4.CAPTION=Size:
|
||||
TFCOLUMNSSETCONF.CTEXTLABEL.CAPTION=Text Color:
|
||||
TFCOLUMNSSETCONF.CBACKGRNDLABEL.CAPTION=BackGround:
|
||||
TFCOLUMNSSETCONF.LBLBACKGROUND2.CAPTION=Background 2:
|
||||
TFCOLUMNSSETCONF.LBLMARKCOLOR.CAPTION=Mark Color:
|
||||
TFCOLUMNSSETCONF.LBLCURSORCOLOR.CAPTION=Cursor Color:
|
||||
TFCOLUMNSSETCONF.LBLCURSORTEXT.CAPTION=Cursor Text:
|
||||
TFCOLUMNSSETCONF.BTNFONTSELECT.CAPTION=...
|
||||
TFCOLUMNSSETCONF.BTNFORECOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNBACKCOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNBACKCOLOR2.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNMARKCOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNCURSORCOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNCURSORTEXT.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.RESCURTEXT.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESCURCOL.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESMARK.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESBACK2.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESBACK.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESTEXT.CAPTION=R
|
||||
TFCOLUMNSSETCONF.CBOVERCOLOR.CAPTION=Allow Overcolor
|
||||
TFCOLUMNSSETCONF.BTNALLTEXT.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLBACK.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLBACK2.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLCURCOL.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLCURTEXT.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLMARC.CAPTION=All
|
||||
TFCOLUMNSSETCONF.RESFONT.CAPTION=R
|
||||
TFCOLUMNSSETCONF.BTNALLFONT.CAPTION=All
|
||||
TFCOLUMNSSETCONF.PNLCUSTHEAD.CAPTION=Customize column:
|
||||
TFCOLUMNSSETCONF.BTNNEXT.CAPTION=->
|
||||
TFCOLUMNSSETCONF.BTNPREV.CAPTION=<-
|
||||
TFCOLUMNSSETCONF.LABEL2.CAPTION=Label2
|
||||
TFCOLUMNSSETCONF.LABEL1.CAPTION=Label1
|
||||
TFCOLUMNSSETCONF.BTNOK.CAPTION=&OK
|
||||
TFCOLUMNSSETCONF.BTNCANCEL.CAPTION=Cancel
|
||||
TFCOLUMNSSETCONF.COMBOBOX1.TEXT=ComboBox1
|
||||
TFCOLUMNSSETCONF.MIADDCOLUMN.CAPTION=Add column
|
||||
TFCOLUMNSSETCONF.CAPTION=Configure custom columns view
|
||||
TFCOLUMNSSETCONF.LBLCONFIGVIEWNR.CAPTION=Configure view nr:
|
||||
TFCOLUMNSSETCONF.LBNROFCOLUMNSSET.CAPTION=0
|
||||
TFCOLUMNSSETCONF.LBLNAME.CAPTION=Name:
|
||||
TFCOLUMNSSETCONF.PNLPREVIEWHEAD.CAPTION=Preview
|
||||
TFCOLUMNSSETCONF.LABEL3.CAPTION=Font:
|
||||
TFCOLUMNSSETCONF.LABEL4.CAPTION=Size:
|
||||
TFCOLUMNSSETCONF.CTEXTLABEL.CAPTION=Text Color:
|
||||
TFCOLUMNSSETCONF.CBACKGRNDLABEL.CAPTION=BackGround:
|
||||
TFCOLUMNSSETCONF.LBLBACKGROUND2.CAPTION=Background 2:
|
||||
TFCOLUMNSSETCONF.LBLMARKCOLOR.CAPTION=Mark Color:
|
||||
TFCOLUMNSSETCONF.LBLCURSORCOLOR.CAPTION=Cursor Color:
|
||||
TFCOLUMNSSETCONF.LBLCURSORTEXT.CAPTION=Cursor Text:
|
||||
TFCOLUMNSSETCONF.BTNFONTSELECT.CAPTION=...
|
||||
TFCOLUMNSSETCONF.BTNFORECOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNBACKCOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNBACKCOLOR2.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNMARKCOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNCURSORCOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.BTNCURSORTEXT.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.RESCURTEXT.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESCURCOL.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESMARK.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESBACK2.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESBACK.CAPTION=R
|
||||
TFCOLUMNSSETCONF.RESTEXT.CAPTION=R
|
||||
TFCOLUMNSSETCONF.CBOVERCOLOR.CAPTION=Allow Overcolor
|
||||
TFCOLUMNSSETCONF.BTNALLTEXT.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLBACK.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLBACK2.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLCURCOL.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLCURTEXT.CAPTION=All
|
||||
TFCOLUMNSSETCONF.BTNALLMARC.CAPTION=All
|
||||
TFCOLUMNSSETCONF.RESFONT.CAPTION=R
|
||||
TFCOLUMNSSETCONF.BTNALLFONT.CAPTION=All
|
||||
TFCOLUMNSSETCONF.PNLCUSTHEAD.CAPTION=Customize column:
|
||||
TFCOLUMNSSETCONF.BTNNEXT.CAPTION=->
|
||||
TFCOLUMNSSETCONF.BTNPREV.CAPTION=<-
|
||||
TFCOLUMNSSETCONF.LABEL2.CAPTION=Label2
|
||||
TFCOLUMNSSETCONF.LABEL1.CAPTION=Label1
|
||||
TFCOLUMNSSETCONF.BTNOK.CAPTION=&OK
|
||||
TFCOLUMNSSETCONF.BTNCANCEL.CAPTION=Cancel
|
||||
TFCOLUMNSSETCONF.COMBOBOX1.TEXT=ComboBox1
|
||||
TFCOLUMNSSETCONF.CBCURSORBORDER.CAPTION=Cursor border
|
||||
TFCOLUMNSSETCONF.BTNCURSORBORDERCOLOR.CAPTION=>>
|
||||
TFCOLUMNSSETCONF.MIADDCOLUMN.CAPTION=Add column
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
|
|
@ -2410,7 +2410,6 @@ begin
|
|||
frmColumnsSetConf.ColumnClass.Load(gIni,ActiveFrame.ActiveColm);
|
||||
{EDIT Set}
|
||||
frmColumnsSetConf.ShowModal;
|
||||
//ColSet.Save(gIni);
|
||||
|
||||
FreeAndNil(frmColumnsSetConf);
|
||||
//TODO: Reload current columns in panels
|
||||
|
|
@ -2428,6 +2427,7 @@ begin
|
|||
begin
|
||||
ActiveFrame.ActiveColm:=ColSet.Items[(Sender as TMenuItem).Tag];
|
||||
ActiveFrame.SetColWidths;
|
||||
ActiveFrame.UpdateColumnsView;
|
||||
// ActiveFrame.dgPanel.ColCount:=ColSet.GetColumnSet(ActiveFrame.ActiveColm).ColumnsCount;
|
||||
|
||||
// if ColSet.GetColumnSet(ActiveFrame.ActiveColm).ColumnsCount>0 then
|
||||
|
|
@ -2899,6 +2899,7 @@ begin
|
|||
ActiveColm:='Default';
|
||||
Colset.GetColumnSet(ActiveColm).Load(gini,ActiveColm);
|
||||
SetColWidths;
|
||||
UpdateColumnsView;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -2949,6 +2950,7 @@ begin
|
|||
begin
|
||||
ActiveColm:= sColumnSet;
|
||||
SetColWidths;
|
||||
UpdateColumnsView;
|
||||
end;
|
||||
|
||||
Inc(I);
|
||||
|
|
|
|||
|
|
@ -239,6 +239,7 @@ type
|
|||
function AnySelected:Boolean;
|
||||
procedure ClearGridSelection;
|
||||
procedure RedrawGrid;
|
||||
procedure UpdateColumnsView;
|
||||
function GetActiveItem:PFileRecItem;
|
||||
{ Returns True if there are no files shown in the panel. }
|
||||
function IsEmpty:Boolean;
|
||||
|
|
@ -1269,12 +1270,8 @@ procedure TFrameFilePanel.dgPanelDrawCell(Sender: TObject; ACol,
|
|||
//------------------------------------------------------
|
||||
|
||||
begin
|
||||
{ (Sender as TDrawGrid).Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(ARow));
|
||||
Exit;}
|
||||
|
||||
if not isSlave then ActiveColmSlave:=ColSet.GetColumnSet(ActiveColm);
|
||||
|
||||
|
||||
if DrawFixed then exit;
|
||||
|
||||
if (ARow>=dgPanel.RowCount)or (ARow<0) then Exit;
|
||||
|
|
@ -1378,6 +1375,20 @@ begin
|
|||
dgPanel.Invalidate;
|
||||
end;
|
||||
|
||||
procedure TFrameFilePanel.UpdateColumnsView;
|
||||
begin
|
||||
if isSlave then
|
||||
begin
|
||||
dgPanel.FocusRectVisible := ActiveColmSlave.GetCursorBorder;
|
||||
dgPanel.FocusColor := ActiveColmSlave.GetCursorBorderColor;
|
||||
end
|
||||
else
|
||||
begin
|
||||
dgPanel.FocusRectVisible := ColSet.GetColumnSet(ActiveColm).GetCursorBorder;
|
||||
dgPanel.FocusColor := ColSet.GetColumnSet(ActiveColm).GetCursorBorderColor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFrameFilePanel.dgPanelKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
|
|
@ -1660,6 +1671,7 @@ begin
|
|||
|
||||
// setup column widths
|
||||
SetColWidths;
|
||||
UpdateColumnsView;
|
||||
end;
|
||||
|
||||
destructor TFrameFilePanel.Destroy;
|
||||
|
|
|
|||
2141
src/ucolumns.pas
2141
src/ucolumns.pas
File diff suppressed because it is too large
Load diff
Loading…
Add table
Add a link
Reference in a new issue