You've already forked lazarus-ccr
997 lines
27 KiB
Plaintext
997 lines
27 KiB
Plaintext
|
object MainForm: TMainForm
|
||
|
|
Left = 435
|
||
|
|
Height = 496
|
||
|
|
Top = 239
|
||
|
|
Width = 947
|
||
|
|
AutoSize = True
|
||
|
|
Caption = 'JvPanel demo'
|
||
|
|
ClientHeight = 496
|
||
|
|
ClientWidth = 947
|
||
|
|
OnCreate = FormCreate
|
||
|
|
ShowHint = True
|
||
|
|
LCLVersion = '2.1.0.0'
|
||
|
|
object gbArrangeSettings: TGroupBox
|
||
|
|
AnchorSideLeft.Control = gbCaption
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = Owner
|
||
|
|
Left = 504
|
||
|
|
Height = 326
|
||
|
|
Top = 12
|
||
|
|
Width = 213
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Left = 16
|
||
|
|
BorderSpacing.Top = 12
|
||
|
|
Caption = 'Arrange settings'
|
||
|
|
ClientHeight = 306
|
||
|
|
ClientWidth = 209
|
||
|
|
TabOrder = 0
|
||
|
|
object cbAutoArrange: TCheckBox
|
||
|
|
AnchorSideLeft.Control = gbArrangeSettings
|
||
|
|
AnchorSideTop.Control = btnAddButton
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 35
|
||
|
|
Width = 89
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
Caption = 'Auto arrange'
|
||
|
|
OnChange = cbAutoArrangeChange
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object cbWrapControls: TCheckBox
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 56
|
||
|
|
Width = 94
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
Caption = 'Wrap controls'
|
||
|
|
Checked = True
|
||
|
|
OnChange = cbWrapControlsChange
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object seHorDistance: TSpinEdit
|
||
|
|
AnchorSideLeft.Control = lblHorDistance
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = cbHorAlignLines
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 142
|
||
|
|
Height = 23
|
||
|
|
Top = 100
|
||
|
|
Width = 50
|
||
|
|
Alignment = taRightJustify
|
||
|
|
BorderSpacing.Left = 32
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
OnChange = seHorDistanceChange
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object seVertDistance: TSpinEdit
|
||
|
|
AnchorSideLeft.Control = seHorDistance
|
||
|
|
AnchorSideTop.Control = seHorDistance
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 142
|
||
|
|
Height = 23
|
||
|
|
Top = 125
|
||
|
|
Width = 50
|
||
|
|
Alignment = taRightJustify
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
OnChange = seVertDistanceChange
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object lblHorDistance: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = seHorDistance
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 104
|
||
|
|
Width = 102
|
||
|
|
BorderSpacing.Top = 8
|
||
|
|
Caption = 'Horizontal distance'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lblVertDistance: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = seVertDistance
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 129
|
||
|
|
Width = 85
|
||
|
|
Caption = 'Vertical distance'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lblBorderLeft: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = seBorderLeft
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 154
|
||
|
|
Width = 58
|
||
|
|
BorderSpacing.Top = 8
|
||
|
|
Caption = 'Left border'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object seBorderLeft: TSpinEdit
|
||
|
|
AnchorSideLeft.Control = seVertDistance
|
||
|
|
AnchorSideTop.Control = seVertDistance
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 142
|
||
|
|
Height = 23
|
||
|
|
Top = 150
|
||
|
|
Width = 50
|
||
|
|
Alignment = taRightJustify
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
OnChange = seBorderLeftChange
|
||
|
|
TabOrder = 4
|
||
|
|
end
|
||
|
|
object seBorderTop: TSpinEdit
|
||
|
|
AnchorSideLeft.Control = seVertDistance
|
||
|
|
AnchorSideTop.Control = seBorderLeft
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 142
|
||
|
|
Height = 23
|
||
|
|
Top = 175
|
||
|
|
Width = 50
|
||
|
|
Alignment = taRightJustify
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
OnChange = seBorderTopChange
|
||
|
|
TabOrder = 5
|
||
|
|
end
|
||
|
|
object lblBorderTop: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = seBorderTop
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 179
|
||
|
|
Width = 58
|
||
|
|
BorderSpacing.Top = 8
|
||
|
|
Caption = 'Top border'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object btnAddButton: TButton
|
||
|
|
AnchorSideLeft.Control = gbArrangeSettings
|
||
|
|
AnchorSideTop.Control = gbArrangeSettings
|
||
|
|
Left = 8
|
||
|
|
Height = 25
|
||
|
|
Top = 4
|
||
|
|
Width = 87
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Bottom = 6
|
||
|
|
Caption = 'Add button'
|
||
|
|
OnClick = btnAddButtonClick
|
||
|
|
TabOrder = 6
|
||
|
|
end
|
||
|
|
object btnClear: TButton
|
||
|
|
AnchorSideLeft.Control = btnAddButton
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = btnAddButton
|
||
|
|
Left = 103
|
||
|
|
Height = 25
|
||
|
|
Top = 4
|
||
|
|
Width = 53
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
Caption = 'Clear'
|
||
|
|
OnClick = btnClearClick
|
||
|
|
TabOrder = 7
|
||
|
|
end
|
||
|
|
object cbHorAlignLines: TCheckBox
|
||
|
|
AnchorSideLeft.Control = cbWrapControls
|
||
|
|
AnchorSideTop.Control = cbWrapControls
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Hint = 'HorizontalAlignLines aligns the control-lines. This only works if WrapControls or MaxControlsPerLine is enabled'
|
||
|
|
Top = 77
|
||
|
|
Width = 159
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
Caption = 'Horizontal alignment lines'
|
||
|
|
OnChange = cbHorAlignLinesChange
|
||
|
|
TabOrder = 8
|
||
|
|
end
|
||
|
|
object lblMaxCtrlsPerLine: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = seMaxCtrlsPerLine
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 204
|
||
|
|
Width = 110
|
||
|
|
BorderSpacing.Top = 8
|
||
|
|
Caption = 'Max controls per line'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object seMaxCtrlsPerLine: TSpinEdit
|
||
|
|
AnchorSideLeft.Control = seVertDistance
|
||
|
|
AnchorSideTop.Control = seBorderTop
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 142
|
||
|
|
Height = 23
|
||
|
|
Hint = 'MaxControlsPerLine specifies the max. number of controls that fit into a line. '#13#10'The following controls are moved to the next line. A value of zero means no limit. '#13#10'WrapControls is still considered.'
|
||
|
|
Top = 200
|
||
|
|
Width = 50
|
||
|
|
Alignment = taRightJustify
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
OnChange = seMaxCtrlsPerLineChange
|
||
|
|
TabOrder = 9
|
||
|
|
end
|
||
|
|
object lblArrangeSettingsAutoSize: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = cmbArrangeSettingsAutoSize
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 229
|
||
|
|
Width = 48
|
||
|
|
Caption = 'Auto size'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object cmbArrangeSettingsAutoSize: TComboBox
|
||
|
|
AnchorSideLeft.Control = cmbVertAlignment
|
||
|
|
AnchorSideTop.Control = seMaxCtrlsPerLine
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = seMaxCtrlsPerLine
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 101
|
||
|
|
Height = 23
|
||
|
|
Top = 225
|
||
|
|
Width = 91
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'asNone'
|
||
|
|
'asWidth'
|
||
|
|
'asHeight'
|
||
|
|
'asBoth'
|
||
|
|
)
|
||
|
|
OnChange = cmbArrangeSettingsAutoSizeChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 10
|
||
|
|
Text = 'asNone'
|
||
|
|
end
|
||
|
|
object cmbHorAlignment: TComboBox
|
||
|
|
AnchorSideLeft.Control = cmbVertAlignment
|
||
|
|
AnchorSideTop.Control = cmbArrangeSettingsAutoSize
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = seMaxCtrlsPerLine
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 101
|
||
|
|
Height = 23
|
||
|
|
Hint = 'HorizontalAlignment aligns the arranged control-block in the panel unless AutoSize is asBoth or asWidth.'
|
||
|
|
Top = 250
|
||
|
|
Width = 91
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'asLeft'
|
||
|
|
'asCenter'
|
||
|
|
'asRight'
|
||
|
|
)
|
||
|
|
OnChange = cmbHorAlignmentChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 11
|
||
|
|
Text = 'asLeft'
|
||
|
|
end
|
||
|
|
object lblHorAlignment: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = cmbHorAlignment
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 254
|
||
|
|
Width = 77
|
||
|
|
Caption = 'Hor alignment'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lblVertAlignment: TLabel
|
||
|
|
AnchorSideLeft.Control = cbAutoArrange
|
||
|
|
AnchorSideTop.Control = cmbVertAlignment
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 279
|
||
|
|
Width = 77
|
||
|
|
Caption = 'Vert alignment'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object cmbVertAlignment: TComboBox
|
||
|
|
AnchorSideLeft.Control = lblVertAlignment
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = cmbHorAlignment
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = seMaxCtrlsPerLine
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 101
|
||
|
|
Height = 23
|
||
|
|
Hint = 'VerticalAlignment aligns the arranged control-block in the panel '#13#10'unless AutoSize is asBoth or asHeight.'
|
||
|
|
Top = 275
|
||
|
|
Width = 91
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Left = 16
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Bottom = 8
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'asTop'
|
||
|
|
'asVCenter'
|
||
|
|
'asBottom'
|
||
|
|
)
|
||
|
|
OnChange = cmbVertAlignmentChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 12
|
||
|
|
Text = 'asTop'
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object gbCaption: TGroupBox
|
||
|
|
AnchorSideLeft.Control = Panel1
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = Owner
|
||
|
|
AnchorSideRight.Control = gbArrangeSettings
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 296
|
||
|
|
Height = 126
|
||
|
|
Top = 12
|
||
|
|
Width = 192
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Left = 16
|
||
|
|
BorderSpacing.Top = 12
|
||
|
|
Caption = 'Caption'
|
||
|
|
ClientHeight = 106
|
||
|
|
ClientWidth = 188
|
||
|
|
TabOrder = 1
|
||
|
|
object edCaption: TEdit
|
||
|
|
AnchorSideLeft.Control = gbCaption
|
||
|
|
AnchorSideTop.Control = gbCaption
|
||
|
|
AnchorSideRight.Control = gbCaption
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 23
|
||
|
|
Top = 4
|
||
|
|
Width = 172
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
OnChange = edCaptionChange
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object lblAlignment: TLabel
|
||
|
|
AnchorSideLeft.Control = edCaption
|
||
|
|
AnchorSideTop.Control = cmbAlignment
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 33
|
||
|
|
Width = 56
|
||
|
|
Caption = 'Alignment'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lblLayout: TLabel
|
||
|
|
AnchorSideLeft.Control = edCaption
|
||
|
|
AnchorSideTop.Control = cmbLayout
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 58
|
||
|
|
Width = 36
|
||
|
|
Caption = 'Layout'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object cmbAlignment: TComboBox
|
||
|
|
AnchorSideLeft.Control = lblAlignment
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = edCaption
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = edCaption
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 80
|
||
|
|
Height = 23
|
||
|
|
Top = 29
|
||
|
|
Width = 100
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Left = 16
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 2
|
||
|
|
Items.Strings = (
|
||
|
|
'taLeftJustify'
|
||
|
|
'taRightJustify'
|
||
|
|
'taCenter'
|
||
|
|
)
|
||
|
|
OnChange = cmbAlignmentChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 1
|
||
|
|
Text = 'taCenter'
|
||
|
|
end
|
||
|
|
object cmbLayout: TComboBox
|
||
|
|
AnchorSideLeft.Control = cmbAlignment
|
||
|
|
AnchorSideTop.Control = cmbAlignment
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = edCaption
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 80
|
||
|
|
Height = 23
|
||
|
|
Top = 54
|
||
|
|
Width = 100
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 1
|
||
|
|
Items.Strings = (
|
||
|
|
'tlTop'
|
||
|
|
'tlCenter'
|
||
|
|
'tlBottom'
|
||
|
|
)
|
||
|
|
OnChange = cmbLayoutChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 2
|
||
|
|
Text = 'tlCenter'
|
||
|
|
end
|
||
|
|
object cbMultiLine: TCheckBox
|
||
|
|
AnchorSideLeft.Control = lblAlignment
|
||
|
|
AnchorSideTop.Control = cmbLayout
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 79
|
||
|
|
Width = 72
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Bottom = 8
|
||
|
|
Caption = 'Multi-line'
|
||
|
|
OnChange = cbMultiLineChange
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object gbBorder: TGroupBox
|
||
|
|
AnchorSideLeft.Control = gbCaption
|
||
|
|
AnchorSideTop.Control = gbCaption
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = gbCaption
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 296
|
||
|
|
Height = 107
|
||
|
|
Top = 150
|
||
|
|
Width = 192
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Top = 12
|
||
|
|
Caption = 'Border'
|
||
|
|
ClientHeight = 87
|
||
|
|
ClientWidth = 188
|
||
|
|
TabOrder = 2
|
||
|
|
object cmbBorderStyle: TComboBox
|
||
|
|
AnchorSideLeft.Control = lblBorderStyle
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = gbBorder
|
||
|
|
AnchorSideRight.Control = gbBorder
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 80
|
||
|
|
Height = 23
|
||
|
|
Top = 4
|
||
|
|
Width = 100
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Left = 47
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'bsNone'
|
||
|
|
'bsSingle'
|
||
|
|
)
|
||
|
|
OnChange = cmbBorderStyleChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 0
|
||
|
|
Text = 'bsNone'
|
||
|
|
end
|
||
|
|
object lblBorderStyle: TLabel
|
||
|
|
AnchorSideLeft.Control = gbBorder
|
||
|
|
AnchorSideTop.Control = cmbBorderStyle
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 8
|
||
|
|
Width = 25
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
Caption = 'Style'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object seBorderWidth: TSpinEdit
|
||
|
|
AnchorSideLeft.Control = cmbBorderStyle
|
||
|
|
AnchorSideTop.Control = cmbBorderStyle
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = cmbBorderStyle
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 80
|
||
|
|
Height = 23
|
||
|
|
Top = 29
|
||
|
|
Width = 100
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
OnChange = seBorderWidthChange
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object lblBorderWidth: TLabel
|
||
|
|
AnchorSideLeft.Control = lblBorderStyle
|
||
|
|
AnchorSideTop.Control = seBorderWidth
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 33
|
||
|
|
Width = 32
|
||
|
|
BorderSpacing.Top = 8
|
||
|
|
Caption = 'Width'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object cbFlatBorder: TCheckBox
|
||
|
|
AnchorSideLeft.Control = lblBorderWidth
|
||
|
|
AnchorSideTop.Control = cbFlatBorderColor
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 57
|
||
|
|
Width = 77
|
||
|
|
BorderSpacing.Top = 6
|
||
|
|
Caption = 'Flat border'
|
||
|
|
OnChange = cbFlatBorderChange
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object cbFlatBorderColor: TColorButton
|
||
|
|
AnchorSideLeft.Control = cbFlatBorder
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = seBorderWidth
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = seBorderWidth
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 97
|
||
|
|
Height = 25
|
||
|
|
Top = 54
|
||
|
|
Width = 83
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Left = 12
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Bottom = 8
|
||
|
|
BorderWidth = 2
|
||
|
|
ButtonColorAutoSize = False
|
||
|
|
ButtonColorSize = 16
|
||
|
|
ButtonColor = clBlack
|
||
|
|
Caption = 'Color'
|
||
|
|
Margin = 4
|
||
|
|
OnColorChanged = cbFlatBorderColorColorChanged
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object gbMisc: TGroupBox
|
||
|
|
AnchorSideLeft.Control = gbArrangeSettings
|
||
|
|
AnchorSideTop.Control = gbArrangeSettings
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = gbArrangeSettings
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 504
|
||
|
|
Height = 51
|
||
|
|
Top = 350
|
||
|
|
Width = 213
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Top = 12
|
||
|
|
BorderSpacing.Bottom = 16
|
||
|
|
Caption = 'Misc'
|
||
|
|
ClientHeight = 31
|
||
|
|
ClientWidth = 209
|
||
|
|
TabOrder = 3
|
||
|
|
object cbMovable: TCheckBox
|
||
|
|
AnchorSideLeft.Control = gbMisc
|
||
|
|
AnchorSideTop.Control = gbMisc
|
||
|
|
Left = 16
|
||
|
|
Height = 19
|
||
|
|
Top = 4
|
||
|
|
Width = 66
|
||
|
|
BorderSpacing.Left = 16
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Bottom = 8
|
||
|
|
Caption = 'Movable'
|
||
|
|
OnChange = cbMovableChange
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object cbSizeable: TCheckBox
|
||
|
|
AnchorSideLeft.Control = cbMovable
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = cbMovable
|
||
|
|
Left = 98
|
||
|
|
Height = 19
|
||
|
|
Top = 4
|
||
|
|
Width = 62
|
||
|
|
BorderSpacing.Left = 16
|
||
|
|
Caption = 'Sizeable'
|
||
|
|
OnChange = cbSizeableChange
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object gbBevel: TGroupBox
|
||
|
|
AnchorSideLeft.Control = gbBorder
|
||
|
|
AnchorSideTop.Control = gbBorder
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = gbCaption
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
AnchorSideBottom.Control = gbBorder
|
||
|
|
AnchorSideBottom.Side = asrBottom
|
||
|
|
Left = 296
|
||
|
|
Height = 105
|
||
|
|
Top = 269
|
||
|
|
Width = 192
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Top = 12
|
||
|
|
Caption = 'Bevel'
|
||
|
|
ClientHeight = 85
|
||
|
|
ClientWidth = 188
|
||
|
|
TabOrder = 4
|
||
|
|
object cmbBevelInner: TComboBox
|
||
|
|
AnchorSideLeft.Control = lblBevelInner
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = gbBevel
|
||
|
|
AnchorSideRight.Control = gbBevel
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 58
|
||
|
|
Height = 23
|
||
|
|
Top = 4
|
||
|
|
Width = 122
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Left = 23
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'bvNone'
|
||
|
|
'bvLowered'
|
||
|
|
'bvRaised'
|
||
|
|
'bvSpace'
|
||
|
|
)
|
||
|
|
OnChange = cmbBevelInnerChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 0
|
||
|
|
Text = 'bvNone'
|
||
|
|
end
|
||
|
|
object lblBevelInner: TLabel
|
||
|
|
AnchorSideLeft.Control = gbBevel
|
||
|
|
AnchorSideTop.Control = cmbBevelInner
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 8
|
||
|
|
Width = 27
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
Caption = 'Inner'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object seBevelWidth: TSpinEdit
|
||
|
|
AnchorSideLeft.Control = cmbBevelInner
|
||
|
|
AnchorSideTop.Control = cmbBevelOuter
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = cmbBevelInner
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 58
|
||
|
|
Height = 23
|
||
|
|
Top = 54
|
||
|
|
Width = 122
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Bottom = 8
|
||
|
|
OnChange = seBevelWidthChange
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object lblBevelWidth: TLabel
|
||
|
|
AnchorSideLeft.Control = lblBevelInner
|
||
|
|
AnchorSideTop.Control = seBevelWidth
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 58
|
||
|
|
Width = 32
|
||
|
|
BorderSpacing.Top = 8
|
||
|
|
Caption = 'Width'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lblBevelOuter: TLabel
|
||
|
|
AnchorSideLeft.Control = lblBevelInner
|
||
|
|
AnchorSideTop.Control = cmbBevelOuter
|
||
|
|
AnchorSideTop.Side = asrCenter
|
||
|
|
Left = 8
|
||
|
|
Height = 15
|
||
|
|
Top = 33
|
||
|
|
Width = 30
|
||
|
|
Caption = 'Outer'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object cmbBevelOuter: TComboBox
|
||
|
|
AnchorSideLeft.Control = cmbBevelInner
|
||
|
|
AnchorSideTop.Control = cmbBevelInner
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = gbBevel
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 58
|
||
|
|
Height = 23
|
||
|
|
Top = 29
|
||
|
|
Width = 122
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
ItemHeight = 15
|
||
|
|
ItemIndex = 2
|
||
|
|
Items.Strings = (
|
||
|
|
'bvNone'
|
||
|
|
'bvLowered'
|
||
|
|
'bvRaised'
|
||
|
|
'bvSpace'
|
||
|
|
)
|
||
|
|
OnChange = cmbBevelInnerChange
|
||
|
|
Style = csDropDownList
|
||
|
|
TabOrder = 2
|
||
|
|
Text = 'bvRaised'
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object gbHotTrack: TGroupBox
|
||
|
|
AnchorSideLeft.Control = gbArrangeSettings
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = gbArrangeSettings
|
||
|
|
Left = 733
|
||
|
|
Height = 365
|
||
|
|
Top = 12
|
||
|
|
Width = 200
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Left = 16
|
||
|
|
BorderSpacing.Right = 16
|
||
|
|
Caption = 'Hot tracking'
|
||
|
|
ClientHeight = 345
|
||
|
|
ClientWidth = 196
|
||
|
|
Constraints.MinWidth = 200
|
||
|
|
TabOrder = 5
|
||
|
|
object cbHotTrack: TCheckBox
|
||
|
|
AnchorSideLeft.Control = gbHotTrack
|
||
|
|
AnchorSideTop.Control = gbHotTrack
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 4
|
||
|
|
Width = 103
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
Caption = 'HotTrack active'
|
||
|
|
OnChange = cbHotTrackChange
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object gbHotTrackOptions: TGroupBox
|
||
|
|
AnchorSideLeft.Control = cbHotTrack
|
||
|
|
AnchorSideTop.Control = CheckListBox1
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = gbHotTrack
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 109
|
||
|
|
Top = 228
|
||
|
|
Width = 180
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Top = 12
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
BorderSpacing.Bottom = 8
|
||
|
|
Caption = 'Hot track options'
|
||
|
|
ClientHeight = 89
|
||
|
|
ClientWidth = 176
|
||
|
|
TabOrder = 1
|
||
|
|
object cbHotTrackOptionsEnabled: TCheckBox
|
||
|
|
AnchorSideLeft.Control = gbHotTrackOptions
|
||
|
|
AnchorSideTop.Control = gbHotTrackOptions
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 6
|
||
|
|
Width = 62
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
BorderSpacing.Top = 6
|
||
|
|
Caption = 'Enabled'
|
||
|
|
OnChange = cbHotTrackOptionsEnabledChange
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object cbHotTrackOptionsColor: TColorButton
|
||
|
|
AnchorSideLeft.Control = cbHotTrackOptionsEnabled
|
||
|
|
AnchorSideTop.Control = cbHotTrackOptionsEnabled
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = gbHotTrackOptions
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 25
|
||
|
|
Top = 29
|
||
|
|
Width = 160
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
BorderWidth = 2
|
||
|
|
ButtonColorAutoSize = False
|
||
|
|
ButtonColorSize = 16
|
||
|
|
ButtonColor = clBtnFace
|
||
|
|
Caption = 'Color'
|
||
|
|
Margin = 4
|
||
|
|
OnColorChanged = cbHotTrackOptionsColorColorChanged
|
||
|
|
end
|
||
|
|
object cbHotTrackOptionsFrameColor: TColorButton
|
||
|
|
AnchorSideLeft.Control = cbHotTrackOptionsColor
|
||
|
|
AnchorSideTop.Control = cbHotTrackOptionsColor
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = cbHotTrackOptionsColor
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 25
|
||
|
|
Top = 56
|
||
|
|
Width = 160
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 2
|
||
|
|
BorderSpacing.Bottom = 8
|
||
|
|
BorderWidth = 2
|
||
|
|
ButtonColorAutoSize = False
|
||
|
|
ButtonColorSize = 16
|
||
|
|
ButtonColor = clBlack
|
||
|
|
Caption = 'Frame color'
|
||
|
|
Margin = 4
|
||
|
|
OnColorChanged = cbHotTrackOptionsFrameColorColorChanged
|
||
|
|
end
|
||
|
|
object cbHotTrackoptionsFrameVisible: TCheckBox
|
||
|
|
AnchorSideLeft.Control = cbHotTrackOptionsEnabled
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = cbHotTrackOptionsEnabled
|
||
|
|
Left = 78
|
||
|
|
Height = 19
|
||
|
|
Top = 6
|
||
|
|
Width = 89
|
||
|
|
BorderSpacing.Left = 8
|
||
|
|
Caption = 'Frame visible'
|
||
|
|
OnChange = cbHotTrackoptionsFrameVisibleChange
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object btnHotTrackFont: TButton
|
||
|
|
AnchorSideLeft.Control = cbHotTrack
|
||
|
|
AnchorSideTop.Control = cbHotTrack
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = gbHotTrack
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 25
|
||
|
|
Top = 27
|
||
|
|
Width = 180
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Right = 8
|
||
|
|
Caption = 'Hot track font'
|
||
|
|
OnClick = btnHotTrackFontClick
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object CheckListBox1: TCheckListBox
|
||
|
|
AnchorSideLeft.Control = btnHotTrackFont
|
||
|
|
AnchorSideTop.Control = btnHotTrackFont
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Control = btnHotTrackFont
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 8
|
||
|
|
Height = 160
|
||
|
|
Hint = 'Defines how HotTrackFont follows changes in the panel''s normal Font'
|
||
|
|
Top = 56
|
||
|
|
Width = 180
|
||
|
|
Anchors = [akTop, akLeft, akRight]
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
Items.Strings = (
|
||
|
|
'hoFollowFont'
|
||
|
|
'hoPreserveCharSet'
|
||
|
|
'hoPreserveColor'
|
||
|
|
'hoPreserveHeight'
|
||
|
|
'hoPreserveName'
|
||
|
|
'hoPreservePitch'
|
||
|
|
'hoPreserveStyle'
|
||
|
|
'hoPreserveOrientation'
|
||
|
|
'hoPreserveQuality'
|
||
|
|
)
|
||
|
|
ItemHeight = 17
|
||
|
|
TabOrder = 3
|
||
|
|
Data = {
|
||
|
|
09000000000000000000000000
|
||
|
|
}
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 0
|
||
|
|
Height = 496
|
||
|
|
Top = 0
|
||
|
|
Width = 280
|
||
|
|
Align = alLeft
|
||
|
|
BevelInner = bvLowered
|
||
|
|
BevelOuter = bvNone
|
||
|
|
BorderWidth = 4
|
||
|
|
ClientHeight = 496
|
||
|
|
ClientWidth = 280
|
||
|
|
ParentColor = False
|
||
|
|
TabOrder = 6
|
||
|
|
object JvPanel1: TJvPanel
|
||
|
|
Left = 56
|
||
|
|
Height = 160
|
||
|
|
Hint = 'This is TJvPanel.'
|
||
|
|
Top = 31
|
||
|
|
Width = 160
|
||
|
|
Caption = 'TJvPanel in action!'
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object btnFont: TButton
|
||
|
|
AnchorSideLeft.Control = cbColor
|
||
|
|
AnchorSideTop.Control = cbColor
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
AnchorSideRight.Side = asrBottom
|
||
|
|
Left = 296
|
||
|
|
Height = 25
|
||
|
|
Top = 415
|
||
|
|
Width = 50
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Top = 4
|
||
|
|
BorderSpacing.Bottom = 16
|
||
|
|
Caption = 'Font'
|
||
|
|
OnClick = btnFontClick
|
||
|
|
TabOrder = 7
|
||
|
|
end
|
||
|
|
object cbColor: TColorButton
|
||
|
|
AnchorSideLeft.Control = gbBevel
|
||
|
|
AnchorSideTop.Control = gbBevel
|
||
|
|
AnchorSideTop.Side = asrBottom
|
||
|
|
Left = 296
|
||
|
|
Height = 25
|
||
|
|
Top = 386
|
||
|
|
Width = 67
|
||
|
|
BorderSpacing.Top = 12
|
||
|
|
BorderWidth = 2
|
||
|
|
ButtonColorAutoSize = False
|
||
|
|
ButtonColorSize = 16
|
||
|
|
ButtonColor = clBlack
|
||
|
|
Caption = 'Color'
|
||
|
|
Margin = 4
|
||
|
|
OnColorChanged = cbColorColorChanged
|
||
|
|
end
|
||
|
|
object cbHintColor: TColorButton
|
||
|
|
AnchorSideLeft.Control = cbColor
|
||
|
|
AnchorSideLeft.Side = asrBottom
|
||
|
|
AnchorSideTop.Control = cbColor
|
||
|
|
Left = 367
|
||
|
|
Height = 25
|
||
|
|
Top = 386
|
||
|
|
Width = 91
|
||
|
|
BorderSpacing.Left = 4
|
||
|
|
BorderWidth = 2
|
||
|
|
ButtonColorAutoSize = False
|
||
|
|
ButtonColorSize = 16
|
||
|
|
ButtonColor = clBlack
|
||
|
|
Caption = 'Hint color'
|
||
|
|
Margin = 4
|
||
|
|
OnColorChanged = cbHintColorColorChanged
|
||
|
|
end
|
||
|
|
object FontDialog: TFontDialog
|
||
|
|
MinFontSize = 0
|
||
|
|
MaxFontSize = 0
|
||
|
|
left = 880
|
||
|
|
top = 8
|
||
|
|
end
|
||
|
|
end
|