mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
ADD: Patch [3122812] "Massive changes in frmConfigToolBar" with small modifications
This commit is contained in:
Alexander Koblov
parent
f3cbee4633
commit
4cc1f238ea
3 changed files with 424 additions and 297 deletions
|
|
@ -1,8 +1,8 @@
|
|||
object frmConfigToolBar: TfrmConfigToolBar
|
||||
Left = 376
|
||||
Height = 335
|
||||
Top = 137
|
||||
Width = 646
|
||||
Left = 291
|
||||
Height = 321
|
||||
Top = 160
|
||||
Width = 653
|
||||
HelpType = htKeyword
|
||||
HelpKeyword = '/toolbar.html'
|
||||
ActiveControl = pnlToolBarFileName
|
||||
|
|
@ -10,18 +10,19 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
BorderStyle = bsDialog
|
||||
Caption = 'Change button bar'
|
||||
ChildSizing.TopBottomSpacing = 8
|
||||
ClientHeight = 335
|
||||
ClientWidth = 646
|
||||
ClientHeight = 321
|
||||
ClientWidth = 653
|
||||
Color = clForm
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object lblButtonBar: TLabel
|
||||
AnchorSideLeft.Control = tbScrollBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 18
|
||||
Left = 176
|
||||
Height = 14
|
||||
Top = 11
|
||||
Width = 73
|
||||
Width = 56
|
||||
Caption = '&Button bar:'
|
||||
ParentColor = False
|
||||
end
|
||||
|
|
@ -29,9 +30,9 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideTop.Control = cbCommand
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 198
|
||||
Width = 72
|
||||
Height = 14
|
||||
Top = 177
|
||||
Width = 52
|
||||
Caption = '&Command:'
|
||||
FocusControl = cbCommand
|
||||
ParentColor = False
|
||||
|
|
@ -44,8 +45,8 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideRight.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 1
|
||||
Top = 186
|
||||
Width = 646
|
||||
Top = 167
|
||||
Width = 653
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = False
|
||||
BorderSpacing.Top = 4
|
||||
|
|
@ -57,9 +58,9 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideTop.Control = edtParams
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 232
|
||||
Width = 79
|
||||
Height = 14
|
||||
Top = 204
|
||||
Width = 60
|
||||
Caption = '&Parameters:'
|
||||
FocusControl = edtParams
|
||||
ParentColor = False
|
||||
|
|
@ -68,9 +69,9 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideTop.Control = edtStartPath
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 260
|
||||
Width = 69
|
||||
Height = 14
|
||||
Top = 227
|
||||
Width = 54
|
||||
Caption = '&Start path:'
|
||||
FocusControl = edtStartPath
|
||||
ParentColor = False
|
||||
|
|
@ -79,43 +80,55 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideTop.Control = kedtIconFileName
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 288
|
||||
Width = 56
|
||||
Height = 14
|
||||
Top = 282
|
||||
Width = 43
|
||||
Caption = 'Icon &file:'
|
||||
FocusControl = kedtIconFileName
|
||||
ParentColor = False
|
||||
end
|
||||
object lblIcon: TLabel
|
||||
AnchorSideLeft.Control = btnOK
|
||||
AnchorSideTop.Control = sbIconExample
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 327
|
||||
Width = 32
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = sbIconExample
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = sbIconExample
|
||||
Left = 111
|
||||
Height = 14
|
||||
Top = 254
|
||||
Width = 26
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Right = 9
|
||||
Caption = 'Ic&on:'
|
||||
ParentColor = False
|
||||
Visible = False
|
||||
WordWrap = True
|
||||
end
|
||||
object lblToolTip: TLabel
|
||||
AnchorSideTop.Control = edtToolTip
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 365
|
||||
Width = 48
|
||||
Height = 14
|
||||
Top = 250
|
||||
Width = 37
|
||||
Caption = '&Tooltip:'
|
||||
FocusControl = edtToolTip
|
||||
ParentColor = False
|
||||
end
|
||||
object sbIconExample: TSpeedButton
|
||||
AnchorSideTop.Control = kedtIconFileName
|
||||
AnchorSideLeft.Control = edtToolTip
|
||||
AnchorSideTop.Control = edtToolTip
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 133
|
||||
AnchorSideRight.Control = btnOK
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = gbGroupBox
|
||||
Left = 108
|
||||
Height = 38
|
||||
Top = 317
|
||||
Top = 272
|
||||
Width = 38
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 7
|
||||
NumGlyphs = 0
|
||||
OnClick = sbIconExampleClick
|
||||
end
|
||||
|
|
@ -124,171 +137,174 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pnlToolBarFileName
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 432
|
||||
AnchorSideRight.Control = tbScrollBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 504
|
||||
Height = 21
|
||||
Top = 10
|
||||
Width = 26
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '>>'
|
||||
OnClick = btnOpenBarFileClick
|
||||
TabOrder = 0
|
||||
TabOrder = 6
|
||||
end
|
||||
object btnDeleteButton: TButton
|
||||
AnchorSideLeft.Control = btnInsertButton
|
||||
AnchorSideTop.Control = btnInsertButton
|
||||
AnchorSideLeft.Control = btnAppendButton
|
||||
AnchorSideTop.Control = btnCloneButton
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 28
|
||||
Top = 97
|
||||
Width = 77
|
||||
BorderSpacing.Top = 4
|
||||
Left = 538
|
||||
Height = 32
|
||||
Top = 122
|
||||
Width = 109
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Delete'
|
||||
OnClick = btnDeleteButtonClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object btnAddButton: TButton
|
||||
AnchorSideTop.Control = lblButtonBar
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 28
|
||||
Top = 33
|
||||
Width = 77
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Append'
|
||||
OnClick = btnAddButtonClick
|
||||
TabOrder = 1
|
||||
TabOrder = 3
|
||||
end
|
||||
object cbCommand: TComboBox
|
||||
AnchorSideLeft.Control = edtParams
|
||||
AnchorSideTop.Control = lblLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 133
|
||||
Height = 29
|
||||
Top = 193
|
||||
Width = 298
|
||||
AnchorSideRight.Control = btnOpenFile
|
||||
Left = 108
|
||||
Height = 21
|
||||
Top = 174
|
||||
Width = 396
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
DropDownCount = 20
|
||||
ItemHeight = 0
|
||||
ItemHeight = 13
|
||||
OnSelect = cbCommandSelect
|
||||
TabOrder = 4
|
||||
TabOrder = 9
|
||||
end
|
||||
object btnOpenFile: TButton
|
||||
AnchorSideLeft.Control = cbCommand
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cbCommand
|
||||
AnchorSideRight.Control = edtParams
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = cbCommand
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 431
|
||||
Height = 29
|
||||
Top = 193
|
||||
Left = 504
|
||||
Height = 21
|
||||
Top = 174
|
||||
Width = 26
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '>>'
|
||||
OnClick = btnOpenFileClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object btnChangeButton: TButton
|
||||
AnchorSideLeft.Control = gbGroupBox
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = lblLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 497
|
||||
Height = 28
|
||||
Top = 193
|
||||
Width = 109
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Bottom = 21
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Change >>'
|
||||
OnClick = btnChangeButtonClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object edtParams: TEdit
|
||||
AnchorSideTop.Control = cbCommand
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 134
|
||||
Height = 27
|
||||
Top = 228
|
||||
Width = 298
|
||||
BorderSpacing.Top = 6
|
||||
MaxLength = 259
|
||||
TabOrder = 7
|
||||
end
|
||||
object edtStartPath: TEdit
|
||||
AnchorSideTop.Control = lblParameters
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 133
|
||||
Height = 27
|
||||
Top = 256
|
||||
Width = 298
|
||||
BorderSpacing.Top = 6
|
||||
MaxLength = 259
|
||||
TabOrder = 8
|
||||
end
|
||||
object kedtIconFileName: TEdit
|
||||
AnchorSideTop.Control = lblStartPath
|
||||
object btnAppendMore: TButton
|
||||
AnchorSideLeft.Control = btnAppendButton
|
||||
AnchorSideTop.Control = btnAppendButton
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 133
|
||||
Height = 27
|
||||
Top = 284
|
||||
Width = 298
|
||||
AnchorSideBottom.Control = btnOK
|
||||
Left = 538
|
||||
Height = 32
|
||||
Top = 46
|
||||
Width = 109
|
||||
BorderSpacing.Top = 6
|
||||
MaxLength = 259
|
||||
TabOrder = 9
|
||||
end
|
||||
object btnOpenIconFile: TButton
|
||||
AnchorSideLeft.Control = kedtIconFileName
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = kedtIconFileName
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Control = kedtIconFileName
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 431
|
||||
Height = 27
|
||||
Top = 284
|
||||
Width = 26
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Bottom = 6
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '>>'
|
||||
OnClick = btnOpenIconFileClick
|
||||
Caption = 'A&ppend >>'
|
||||
OnClick = btnAppendMoreClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object edtParams: TEdit
|
||||
AnchorSideLeft.Control = lblParameters
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cbCommand
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = btnOK
|
||||
Left = 108
|
||||
Height = 21
|
||||
Top = 201
|
||||
Width = 422
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 40
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 259
|
||||
TabOrder = 10
|
||||
end
|
||||
object edtToolTip: TEdit
|
||||
AnchorSideTop.Control = sbIconExample
|
||||
object edtStartPath: TEdit
|
||||
AnchorSideLeft.Control = edtParams
|
||||
AnchorSideTop.Control = lblParameters
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 133
|
||||
Height = 27
|
||||
Top = 361
|
||||
Width = 298
|
||||
AnchorSideRight.Control = edtParams
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 108
|
||||
Height = 21
|
||||
Top = 224
|
||||
Width = 422
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
MaxLength = 259
|
||||
TabOrder = 11
|
||||
end
|
||||
object kedtIconFileName: TEdit
|
||||
AnchorSideLeft.Control = sbIconExample
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = lblToolTip
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = edtParams
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 152
|
||||
Height = 21
|
||||
Top = 279
|
||||
Width = 378
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 15
|
||||
Enabled = False
|
||||
MaxLength = 259
|
||||
TabOrder = 13
|
||||
end
|
||||
object edtToolTip: TEdit
|
||||
AnchorSideLeft.Control = edtStartPath
|
||||
AnchorSideTop.Control = lblStartPath
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = edtParams
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 108
|
||||
Height = 21
|
||||
Top = 247
|
||||
Width = 422
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
MaxLength = 259
|
||||
OnChange = edtToolTipChange
|
||||
TabOrder = 12
|
||||
end
|
||||
object btnOK: TButton
|
||||
AnchorSideLeft.Control = gbGroupBox
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = btnCancel
|
||||
Left = 497
|
||||
Left = 538
|
||||
Height = 32
|
||||
Top = 223
|
||||
Top = 209
|
||||
Width = 109
|
||||
Anchors = [akLeft, akBottom]
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
OnClick = btnOKClick
|
||||
TabOrder = 12
|
||||
TabOrder = 15
|
||||
end
|
||||
object btnCancel: TButton
|
||||
AnchorSideLeft.Control = btnOK
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = btnHelp
|
||||
Left = 497
|
||||
Left = 538
|
||||
Height = 32
|
||||
Top = 259
|
||||
Top = 245
|
||||
Width = 109
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Top = 4
|
||||
|
|
@ -296,53 +312,51 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 14
|
||||
TabOrder = 16
|
||||
end
|
||||
object btnHelp: TButton
|
||||
AnchorSideLeft.Control = btnCancel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 497
|
||||
Left = 538
|
||||
Height = 32
|
||||
Top = 295
|
||||
Top = 281
|
||||
Width = 109
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Help'
|
||||
OnClick = btnHelpClick
|
||||
TabOrder = 13
|
||||
TabOrder = 17
|
||||
end
|
||||
object gbGroupBox: TGroupBox
|
||||
AnchorSideLeft.Control = tbScrollBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = lblLabel
|
||||
Left = 462
|
||||
Height = 174
|
||||
Top = 8
|
||||
Width = 178
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
Left = 8
|
||||
Height = 154
|
||||
Top = 9
|
||||
Width = 160
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 9
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'Appearance'
|
||||
ChildSizing.LeftRightSpacing = 8
|
||||
ChildSizing.TopBottomSpacing = 4
|
||||
ClientHeight = 155
|
||||
ClientWidth = 174
|
||||
TabOrder = 3
|
||||
ClientHeight = 136
|
||||
ClientWidth = 156
|
||||
TabOrder = 4
|
||||
object lblBarSize: TLabel
|
||||
AnchorSideLeft.Control = gbGroupBox
|
||||
AnchorSideTop.Control = gbGroupBox
|
||||
Left = 8
|
||||
Height = 18
|
||||
Height = 14
|
||||
Top = 4
|
||||
Width = 57
|
||||
Caption = 'B&ar size:'
|
||||
Width = 42
|
||||
Caption = 'Ba&r size:'
|
||||
FocusControl = trbBarSize
|
||||
ParentColor = False
|
||||
end
|
||||
|
|
@ -351,15 +365,15 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideTop.Control = trbIconSize
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 22
|
||||
Top = 129
|
||||
Width = 102
|
||||
BorderSpacing.Top = 6
|
||||
Height = 17
|
||||
Top = 113
|
||||
Width = 76
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Flat b&uttons'
|
||||
Checked = True
|
||||
OnChange = cbFlatButtonsChange
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
TabOrder = 2
|
||||
end
|
||||
object trbBarSize: TTrackBar
|
||||
AnchorSideLeft.Control = gbGroupBox
|
||||
|
|
@ -368,20 +382,19 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideRight.Control = gbGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 37
|
||||
Top = 25
|
||||
Width = 158
|
||||
Height = 32
|
||||
Top = 21
|
||||
Width = 140
|
||||
Frequency = 4
|
||||
Max = 40
|
||||
Min = 10
|
||||
OnChange = trbBarSizeChange
|
||||
Position = 36
|
||||
ScalePos = trRight
|
||||
Position = 18
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Right = 4
|
||||
Constraints.MinWidth = 40
|
||||
TabOrder = 1
|
||||
TabOrder = 0
|
||||
end
|
||||
object trbIconSize: TTrackBar
|
||||
AnchorSideLeft.Control = gbGroupBox
|
||||
|
|
@ -391,31 +404,30 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 37
|
||||
Top = 86
|
||||
Width = 158
|
||||
Height = 32
|
||||
Top = 73
|
||||
Width = 140
|
||||
Frequency = 4
|
||||
Max = 32
|
||||
Min = 8
|
||||
OnChange = trbIconSizeChange
|
||||
Position = 32
|
||||
ScalePos = trRight
|
||||
Position = 16
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Right = 2
|
||||
Constraints.MinWidth = 40
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
TabOrder = 1
|
||||
end
|
||||
object lblIconSize: TLabel
|
||||
AnchorSideLeft.Control = gbGroupBox
|
||||
AnchorSideTop.Control = trbBarSize
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 68
|
||||
Width = 62
|
||||
Height = 14
|
||||
Top = 59
|
||||
Width = 47
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Ic&on size:'
|
||||
FocusControl = trbIconSize
|
||||
|
|
@ -426,10 +438,10 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = lblIconSize
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 72
|
||||
Height = 18
|
||||
Top = 68
|
||||
Width = 17
|
||||
Left = 57
|
||||
Height = 14
|
||||
Top = 59
|
||||
Width = 13
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 6
|
||||
Caption = '16'
|
||||
|
|
@ -440,10 +452,10 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = lblBarSize
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 67
|
||||
Height = 18
|
||||
Left = 52
|
||||
Height = 14
|
||||
Top = 4
|
||||
Width = 17
|
||||
Width = 13
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 6
|
||||
Caption = '16'
|
||||
|
|
@ -451,24 +463,33 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
end
|
||||
end
|
||||
object tbScrollBox: TScrollBox
|
||||
AnchorSideLeft.Control = pnlToolBarFileName
|
||||
AnchorSideLeft.Control = gbGroupBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btnOpenBarFile
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = btnAppendButton
|
||||
AnchorSideBottom.Control = lblLabel
|
||||
Left = 133
|
||||
Height = 145
|
||||
Top = 33
|
||||
Width = 325
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Bottom = 8
|
||||
ClientHeight = 143
|
||||
ClientWidth = 323
|
||||
TabOrder = 15
|
||||
Left = 176
|
||||
Height = 124
|
||||
Top = 37
|
||||
Width = 354
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 6
|
||||
ClientHeight = 120
|
||||
ClientWidth = 350
|
||||
TabOrder = 7
|
||||
OnClick = tbScrollBoxClick
|
||||
object ktbBar: TKASToolBar
|
||||
Left = 0
|
||||
Left = 1
|
||||
Height = 24
|
||||
Top = 0
|
||||
Width = 323
|
||||
Width = 348
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 1
|
||||
BorderSpacing.Right = 1
|
||||
Constraints.MinHeight = 24
|
||||
TabOrder = 0
|
||||
OnToolButtonClick = ktbBarToolButtonClick
|
||||
|
|
@ -479,47 +500,77 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
end
|
||||
end
|
||||
object pnlToolBarFileName: TPanel
|
||||
Left = 133
|
||||
AnchorSideLeft.Control = lblButtonBar
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = btnOpenBarFile
|
||||
Left = 242
|
||||
Height = 21
|
||||
Top = 10
|
||||
Width = 299
|
||||
Width = 262
|
||||
Alignment = taLeftJustify
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Top = 10
|
||||
BevelInner = bvLowered
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 16
|
||||
TabOrder = 5
|
||||
end
|
||||
object btnInsertButton: TButton
|
||||
AnchorSideLeft.Control = btnAddButton
|
||||
AnchorSideTop.Control = btnAddButton
|
||||
object btnAppendButton: TButton
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 538
|
||||
Height = 32
|
||||
Top = 8
|
||||
Width = 109
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 6
|
||||
Caption = '&Append'
|
||||
OnClick = btnAppendButtonClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbIsSeparator: TCheckBox
|
||||
AnchorSideLeft.Control = btnOK
|
||||
AnchorSideTop.Control = btnOpenFile
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 538
|
||||
Height = 17
|
||||
Top = 176
|
||||
Width = 66
|
||||
Caption = 'S&eparator'
|
||||
OnChange = cbIsSeparatorChange
|
||||
TabOrder = 14
|
||||
end
|
||||
object btnCloneButton: TButton
|
||||
AnchorSideLeft.Control = btnAppendButton
|
||||
AnchorSideTop.Control = btnAppendMore
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 28
|
||||
Top = 65
|
||||
Width = 77
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Insert'
|
||||
OnClick = btnInsertButtonClick
|
||||
TabOrder = 17
|
||||
Left = 538
|
||||
Height = 32
|
||||
Top = 84
|
||||
Width = 109
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Clo&ne'
|
||||
OnClick = btnCloneButtonClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
FilterIndex = 0
|
||||
left = 584
|
||||
top = 184
|
||||
left = 224
|
||||
top = 104
|
||||
end
|
||||
object pmChangeButton: TPopupMenu
|
||||
left = 496
|
||||
top = 184
|
||||
object miInsertSeparator: TMenuItem
|
||||
Caption = 'Insert separator'
|
||||
OnClick = miInsertSeparatorClick
|
||||
end
|
||||
left = 304
|
||||
top = 104
|
||||
object miAddSubBar: TMenuItem
|
||||
Caption = 'Add S&ubbar >>'
|
||||
Caption = 'S&ubbar >>'
|
||||
OnClick = miAddSubBarClick
|
||||
end
|
||||
object miAddSubMenu: TMenuItem
|
||||
Caption = 'Add Sub&menu >>'
|
||||
Caption = 'Sub&menu >>'
|
||||
OnClick = miAddSubMenuClick
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -1,27 +1,26 @@
|
|||
TFRMCONFIGTOOLBAR.FRMCONFIGTOOLBAR.CAPTION=Change button bar
|
||||
TFRMCONFIGTOOLBAR.LBLBUTTONBAR.CAPTION=&Button bar:
|
||||
TFRMCONFIGTOOLBAR.LBLCOMMAND.CAPTION=&Command:
|
||||
TFRMCONFIGTOOLBAR.LBLPARAMETERS.CAPTION=&Parameters:
|
||||
TFRMCONFIGTOOLBAR.LBLSTARTPATH.CAPTION=&Start path:
|
||||
TFRMCONFIGTOOLBAR.LBLICONFILE.CAPTION=Icon &file:
|
||||
TFRMCONFIGTOOLBAR.LBLICON.CAPTION=Ic&on:
|
||||
TFRMCONFIGTOOLBAR.LBLTOOLTIP.CAPTION=&Tooltip:
|
||||
TFRMCONFIGTOOLBAR.BTNOPENBARFILE.CAPTION=>>
|
||||
TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION=&Delete
|
||||
TFRMCONFIGTOOLBAR.BTNADDBUTTON.CAPTION=&Append
|
||||
TFRMCONFIGTOOLBAR.BTNOPENFILE.CAPTION=>>
|
||||
TFRMCONFIGTOOLBAR.BTNCHANGEBUTTON.CAPTION=Change >>
|
||||
TFRMCONFIGTOOLBAR.BTNOPENICONFILE.CAPTION=>>
|
||||
TFRMCONFIGTOOLBAR.BTNOK.CAPTION=OK
|
||||
TFRMCONFIGTOOLBAR.BTNCANCEL.CAPTION=Cancel
|
||||
TFRMCONFIGTOOLBAR.BTNHELP.CAPTION=&Help
|
||||
TFRMCONFIGTOOLBAR.GBGROUPBOX.CAPTION=Appearance
|
||||
TFRMCONFIGTOOLBAR.LBLBARSIZE.CAPTION=B&ar size:
|
||||
TFRMCONFIGTOOLBAR.CBFLATBUTTONS.CAPTION=Flat b&uttons
|
||||
TFRMCONFIGTOOLBAR.LBLICONSIZE.CAPTION=Ic&on size:
|
||||
TFRMCONFIGTOOLBAR.LBLICONSIZEVALUE.CAPTION=16
|
||||
TFRMCONFIGTOOLBAR.LBLBARSIZEVALUE.CAPTION=16
|
||||
TFRMCONFIGTOOLBAR.BTNINSERTBUTTON.CAPTION=Insert
|
||||
TFRMCONFIGTOOLBAR.MIINSERTSEPARATOR.CAPTION=Insert separator
|
||||
TFRMCONFIGTOOLBAR.MIADDSUBBAR.CAPTION=Add S&ubbar >>
|
||||
TFRMCONFIGTOOLBAR.MIADDSUBMENU.CAPTION=Add Sub&menu >>
|
||||
TFRMCONFIGTOOLBAR.FRMCONFIGTOOLBAR.CAPTION=Change button bar
|
||||
TFRMCONFIGTOOLBAR.LBLBUTTONBAR.CAPTION=&Button bar:
|
||||
TFRMCONFIGTOOLBAR.LBLCOMMAND.CAPTION=&Command:
|
||||
TFRMCONFIGTOOLBAR.LBLPARAMETERS.CAPTION=&Parameters:
|
||||
TFRMCONFIGTOOLBAR.LBLSTARTPATH.CAPTION=&Start path:
|
||||
TFRMCONFIGTOOLBAR.LBLICONFILE.CAPTION=Icon &file:
|
||||
TFRMCONFIGTOOLBAR.LBLICON.CAPTION=Ic&on:
|
||||
TFRMCONFIGTOOLBAR.LBLTOOLTIP.CAPTION=&Tooltip:
|
||||
TFRMCONFIGTOOLBAR.BTNOPENBARFILE.CAPTION=>>
|
||||
TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION=&Delete
|
||||
TFRMCONFIGTOOLBAR.BTNOPENFILE.CAPTION=>>
|
||||
TFRMCONFIGTOOLBAR.BTNAPPENDMORE.CAPTION=A&ppend >>
|
||||
TFRMCONFIGTOOLBAR.BTNOK.CAPTION=OK
|
||||
TFRMCONFIGTOOLBAR.BTNCANCEL.CAPTION=Cancel
|
||||
TFRMCONFIGTOOLBAR.BTNHELP.CAPTION=&Help
|
||||
TFRMCONFIGTOOLBAR.GBGROUPBOX.CAPTION=Appearance
|
||||
TFRMCONFIGTOOLBAR.LBLBARSIZE.CAPTION=Ba&r size:
|
||||
TFRMCONFIGTOOLBAR.CBFLATBUTTONS.CAPTION=Flat b&uttons
|
||||
TFRMCONFIGTOOLBAR.LBLICONSIZE.CAPTION=Ic&on size:
|
||||
TFRMCONFIGTOOLBAR.LBLICONSIZEVALUE.CAPTION=16
|
||||
TFRMCONFIGTOOLBAR.LBLBARSIZEVALUE.CAPTION=16
|
||||
TFRMCONFIGTOOLBAR.BTNAPPENDBUTTON.CAPTION=&Append
|
||||
TFRMCONFIGTOOLBAR.CBISSEPARATOR.CAPTION=S&eparator
|
||||
TFRMCONFIGTOOLBAR.BTNCLONEBUTTON.CAPTION=Clo&ne
|
||||
TFRMCONFIGTOOLBAR.MIADDSUBBAR.CAPTION=S&ubbar >>
|
||||
TFRMCONFIGTOOLBAR.MIADDSUBMENU.CAPTION=Sub&menu >>
|
||||
|
|
|
|||
|
|
@ -35,7 +35,9 @@ type
|
|||
{ TfrmConfigToolBar }
|
||||
|
||||
TfrmConfigToolBar = class(TForm)
|
||||
btnInsertButton: TButton;
|
||||
btnAppendButton: TButton;
|
||||
btnCloneButton: TButton;
|
||||
cbIsSeparator: TCheckBox;
|
||||
lblIconSize: TLabel;
|
||||
lblIconSizeValue: TLabel;
|
||||
lblBarSizeValue: TLabel;
|
||||
|
|
@ -47,14 +49,12 @@ type
|
|||
gbGroupBox: TGroupBox;
|
||||
lblIcon: TLabel;
|
||||
lblIconFile: TLabel;
|
||||
btnAddButton: TButton;
|
||||
ktbBar: TKASToolBar;
|
||||
btnOpenBarFile: TButton;
|
||||
cbCommand: TComboBox;
|
||||
btnDeleteButton: TButton;
|
||||
btnOpenFile: TButton;
|
||||
btnChangeButton: TButton;
|
||||
btnOpenIconFile: TButton;
|
||||
btnAppendMore: TButton;
|
||||
kedtIconFileName: TEdit;
|
||||
edtParams: TEdit;
|
||||
edtStartPath: TEdit;
|
||||
|
|
@ -64,7 +64,6 @@ type
|
|||
lblLabel: TLabel;
|
||||
btnOK: TButton;
|
||||
miAddSubMenu: TMenuItem;
|
||||
miInsertSeparator: TMenuItem;
|
||||
miAddSubBar: TMenuItem;
|
||||
OpenDialog: TOpenDialog;
|
||||
lblParameters: TLabel;
|
||||
|
|
@ -75,25 +74,26 @@ type
|
|||
lblBarSize: TLabel;
|
||||
lblStartPath: TLabel;
|
||||
lblToolTip: TLabel;
|
||||
procedure btnChangeButtonClick(Sender: TObject);
|
||||
procedure btnAppendMoreClick(Sender: TObject);
|
||||
procedure btnCloneButtonClick(Sender: TObject);
|
||||
procedure btnHelpClick(Sender: TObject);
|
||||
procedure btnInsertButtonClick(Sender: TObject);
|
||||
procedure btnAppendButtonClick(Sender: TObject);
|
||||
procedure btnOpenBarFileClick(Sender: TObject);
|
||||
procedure cbCommandSelect(Sender: TObject);
|
||||
procedure cbFlatButtonsChange(Sender: TObject);
|
||||
procedure cbIsSeparatorChange(Sender: TObject);
|
||||
procedure edtToolTipChange(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure btnAddButtonClick(Sender: TObject);
|
||||
function ktbBarLoadButtonGlyph(sIconFileName: String; iIconSize: Integer;
|
||||
clBackColor: TColor): TBitmap;
|
||||
procedure ktbBarToolButtonClick(Sender: TObject; NumberOfButton : Integer);
|
||||
procedure btnDeleteButtonClick(Sender: TObject);
|
||||
procedure btnOpenFileClick(Sender: TObject);
|
||||
procedure btnOpenIconFileClick(Sender: TObject);
|
||||
procedure miAddSubBarClick(Sender: TObject);
|
||||
procedure miAddSubMenuClick(Sender: TObject);
|
||||
procedure miInsertSeparatorClick(Sender: TObject);
|
||||
procedure sbIconExampleClick(Sender: TObject);
|
||||
procedure tbScrollBoxClick(Sender: TObject);
|
||||
procedure trbBarSizeChange(Sender: TObject);
|
||||
procedure trbIconSizeChange(Sender: TObject);
|
||||
|
||||
|
|
@ -102,6 +102,7 @@ type
|
|||
LastToolButton : Integer;
|
||||
|
||||
procedure FillActionLists;
|
||||
procedure WakeSleepControls();
|
||||
procedure ClearControls;
|
||||
procedure LoadButton(NumberOfButton: Integer);
|
||||
procedure Save;
|
||||
|
|
@ -159,8 +160,10 @@ begin
|
|||
trbBarSize.Position := gToolBarButtonSize div 2;
|
||||
trbIconSize.Position:= gToolBarIconSize div 2;
|
||||
cbFlatButtons.Checked:= gToolBarFlat;
|
||||
// Flat buttons in this dialog don't have any sense. They decrease button
|
||||
// readability without giving any actual advantages.
|
||||
// sbIconExample.Flat:= gToolBarFlat;
|
||||
ktbBar.Flat:= gToolBarFlat;
|
||||
// ktbBar.Flat:= gToolBarFlat;
|
||||
ktbBar.ChangePath:= gpExePath;
|
||||
ktbBar.EnvVar:= '%commander_path%';
|
||||
try
|
||||
|
|
@ -178,23 +181,47 @@ begin
|
|||
begin
|
||||
ktbBar.Buttons[ktbBar.Tag].Click;
|
||||
ktbBar.Buttons[ktbBar.Tag].Down := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if ktbBar.ButtonCount > 0 then
|
||||
begin
|
||||
ktbBar.Buttons[ktbBar.ButtonCount-1].Down := True;
|
||||
LoadButton(ktbBar.ButtonCount-1);
|
||||
LastToolButton := ktbBar.ButtonCount-1;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Next section is commented and should be deleted.
|
||||
// The reason is this: user does not need to have
|
||||
// any buttons selected if he has just opened the dialog.
|
||||
// If user wants to have have some button selected,
|
||||
// he just edits that button.
|
||||
// This text should also be deleted.
|
||||
//
|
||||
//else
|
||||
// begin
|
||||
// if ktbBar.ButtonCount > 0 then
|
||||
// begin
|
||||
// ktbBar.Buttons[ktbBar.ButtonCount-1].Down := True;
|
||||
// LoadButton(ktbBar.ButtonCount-1);
|
||||
// LastToolButton := ktbBar.ButtonCount-1;
|
||||
// end;
|
||||
// end;
|
||||
|
||||
WakeSleepControls;
|
||||
Update;
|
||||
Height:= edtToolTip.Top + edtToolTip.Height + 18;
|
||||
Height:= sbIconExample.Top + sbIconExample.Height + 18;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.cbFlatButtonsChange(Sender: TObject);
|
||||
begin
|
||||
ktbBar.Flat := cbFlatButtons.Checked;
|
||||
// ktbBar.Flat := cbFlatButtons.Checked;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.cbIsSeparatorChange(Sender: TObject);
|
||||
begin
|
||||
if cbIsSeparator.Checked then
|
||||
edtToolTip.Text:= '-'
|
||||
else if edtToolTip.Text= '-' then
|
||||
edtToolTip.Text:= EmptyStr;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.edtToolTipChange(Sender: TObject);
|
||||
begin
|
||||
cbIsSeparator.Checked:=(edtToolTip.Text='-');
|
||||
WakeSleepControls;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.btnOpenBarFileClick(Sender: TObject);
|
||||
|
|
@ -226,29 +253,51 @@ begin
|
|||
LastToolButton := ktbBar.ButtonCount-1;
|
||||
end;
|
||||
end;
|
||||
WakeSleepControls;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.btnInsertButtonClick(Sender: TObject);
|
||||
(*Add new button on tool bar*)
|
||||
procedure TfrmConfigToolBar.btnAppendButtonClick(Sender: TObject);
|
||||
var
|
||||
SelectedIndex: Integer = 0;
|
||||
begin
|
||||
SelectedIndex := GetSelectedButton;
|
||||
if SelectedIndex = -1 then
|
||||
InsertButton(ktbBar.ButtonCount)
|
||||
begin
|
||||
InsertButton(ktbBar.ButtonCount);
|
||||
WakeSleepControls;
|
||||
end
|
||||
else
|
||||
InsertButton(SelectedIndex);
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.btnChangeButtonClick(Sender: TObject);
|
||||
procedure TfrmConfigToolBar.btnAppendMoreClick(Sender: TObject);
|
||||
var
|
||||
Point: TPoint;
|
||||
begin
|
||||
with btnChangeButton do
|
||||
with btnAppendMore do
|
||||
Point:= Classes.Point(Left, Top + Height);
|
||||
Point:= ClientToScreen(Point);
|
||||
pmChangeButton.PopUp(Point.X, Point.Y);
|
||||
end;
|
||||
|
||||
(*Clone selected button on tool bar*)
|
||||
procedure TfrmConfigToolBar.btnCloneButtonClick(Sender: TObject);
|
||||
var
|
||||
SelectedIndex: Integer = 0;
|
||||
begin
|
||||
SelectedIndex := GetSelectedButton;
|
||||
if SelectedIndex > -1 then
|
||||
begin
|
||||
Save; // Save currently selected button
|
||||
LastToolButton := ktbBar.InsertButtonX(SelectedIndex, '', '', '', '', '', '', '');
|
||||
ktbBar.SetButtonX(LastToolButton, ButtonX, kedtIconFileName.Text);
|
||||
Save; // Save newly created button
|
||||
LastToolButton := LastToolButton + 1;
|
||||
ktbBar.Buttons[LastToolButton].Down := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.btnHelpClick(Sender: TObject);
|
||||
begin
|
||||
ShowHelpOrErrorForKeyword('', '/toolbar.html');
|
||||
|
|
@ -285,12 +334,6 @@ begin
|
|||
ModalResult:= mrOK;
|
||||
end;
|
||||
|
||||
(*Add new button on tool bar*)
|
||||
procedure TfrmConfigToolBar.btnAddButtonClick(Sender: TObject);
|
||||
begin
|
||||
InsertButton(ktbBar.ButtonCount);
|
||||
end;
|
||||
|
||||
function TfrmConfigToolBar.ktbBarLoadButtonGlyph(sIconFileName: String;
|
||||
iIconSize: Integer; clBackColor: TColor): TBitmap;
|
||||
begin
|
||||
|
|
@ -301,8 +344,42 @@ end;
|
|||
procedure TfrmConfigToolBar.ktbBarToolButtonClick(Sender: TObject; NumberOfButton : Integer);
|
||||
begin
|
||||
Save;
|
||||
LoadButton(NumberOfButton);
|
||||
LastToolButton := NumberOfButton;
|
||||
if GetSelectedButton > -1 then
|
||||
begin
|
||||
LoadButton(NumberOfButton);
|
||||
LastToolButton := NumberOfButton;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ClearControls;
|
||||
LastToolButton := -1;
|
||||
end;
|
||||
WakeSleepControls;
|
||||
end;
|
||||
|
||||
(*Disables button controls if LastToolButton = -1 or if False is passed
|
||||
as a parameter. Otherwise enables button controls.*)
|
||||
procedure TfrmConfigToolBar.WakeSleepControls();
|
||||
var MakeEnabled: Boolean = True;
|
||||
begin
|
||||
If (LastToolButton = -1) or (edtToolTip.Text='-') then MakeEnabled := False;
|
||||
lblCommand.Enabled := MakeEnabled;
|
||||
lblParameters.Enabled := MakeEnabled;
|
||||
lblStartPath.Enabled := MakeEnabled;
|
||||
lblIconFile.Enabled := MakeEnabled;
|
||||
btnOpenFile.Enabled := MakeEnabled;
|
||||
cbCommand.Enabled := MakeEnabled;
|
||||
edtParams.Enabled := MakeEnabled;
|
||||
edtStartPath.Enabled := MakeEnabled;
|
||||
kedtIconFileName.Enabled := MakeEnabled;
|
||||
sbIconExample.Enabled := MakeEnabled;
|
||||
if edtToolTip.Text= '-' then MakeEnabled := True;
|
||||
lblToolTip.Enabled := MakeEnabled;
|
||||
edtToolTip.Enabled := MakeEnabled;
|
||||
cbIsSeparator.Enabled := MakeEnabled;
|
||||
btnCloneButton.Enabled := MakeEnabled;
|
||||
btnDeleteButton.Enabled := MakeEnabled;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.ClearControls;
|
||||
|
|
@ -365,6 +442,7 @@ begin
|
|||
else
|
||||
LastToolButton := -1;
|
||||
end;
|
||||
WakeSleepControls;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.btnOpenFileClick(Sender: TObject);
|
||||
|
|
@ -389,25 +467,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.btnOpenIconFileClick(Sender: TObject);
|
||||
var
|
||||
sFileName: String;
|
||||
Bitmap: TBitmap;
|
||||
begin
|
||||
sFileName := GetCmdDirFromEnvVar(kedtIconFileName.Text);
|
||||
if ShowOpenIconDialog(Self, sFileName) then
|
||||
begin
|
||||
kedtIconFileName.Text := sFileName;
|
||||
|
||||
Bitmap := PixMapManager.LoadBitmapEnhanced(kedtIconFileName.Text, 32, Color);
|
||||
sbIconExample.Glyph := Bitmap;
|
||||
FreeThenNil(Bitmap);
|
||||
|
||||
// Refresh icon on the toolbar.
|
||||
ktbBar.SetButtonX(LastToolButton, ButtonX, kedtIconFileName.Text);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.miAddSubBarClick(Sender: TObject);
|
||||
var
|
||||
sFileName: UTF8String;
|
||||
|
|
@ -432,18 +491,35 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.miInsertSeparatorClick(Sender: TObject);
|
||||
procedure TfrmConfigToolBar.sbIconExampleClick(Sender: TObject);
|
||||
var
|
||||
sFileName: String;
|
||||
Bitmap: TBitmap;
|
||||
begin
|
||||
cbCommand.Text:= EmptyStr;
|
||||
edtParams.Text:= EmptyStr;
|
||||
edtStartPath.Text:= EmptyStr;
|
||||
kedtIconFileName.Text:= EmptyStr;
|
||||
edtToolTip.Text:= '-';
|
||||
sFileName := GetCmdDirFromEnvVar(kedtIconFileName.Text);
|
||||
if ShowOpenIconDialog(Self, sFileName) then
|
||||
begin
|
||||
kedtIconFileName.Text := sFileName;
|
||||
|
||||
Bitmap := PixMapManager.LoadBitmapEnhanced(kedtIconFileName.Text, 32, Color);
|
||||
sbIconExample.Glyph := Bitmap;
|
||||
FreeThenNil(Bitmap);
|
||||
|
||||
// Refresh icon on the toolbar.
|
||||
ktbBar.SetButtonX(LastToolButton, ButtonX, kedtIconFileName.Text);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.sbIconExampleClick(Sender: TObject);
|
||||
procedure TfrmConfigToolBar.tbScrollBoxClick(Sender: TObject);
|
||||
begin
|
||||
btnOpenIconFileClick(Sender);
|
||||
ClearControls;
|
||||
LastToolButton := GetSelectedButton;
|
||||
if LastToolButton > -1 then
|
||||
begin
|
||||
ktbBar.Buttons[LastToolButton].Down:=False;
|
||||
LastToolButton := -1;
|
||||
end;
|
||||
WakeSleepControls;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.trbBarSizeChange(Sender: TObject);
|
||||
|
|
@ -512,10 +588,11 @@ begin
|
|||
end;
|
||||
Result:= ShowConfigToolbar(aFileName);
|
||||
end;
|
||||
WakeSleepControls;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fconfigtoolbar.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue