lazarus-ccr/components/exctrls/examples/ButtonEx/main.lfm
2021-11-01 13:02:49 +00:00

814 lines
21 KiB
Plaintext

object Form1: TForm1
Left = 353
Height = 294
Top = 130
Width = 838
Caption = 'Form1'
ClientHeight = 294
ClientWidth = 838
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '2.3.0.0'
object Button1: TButton
Left = 160
Height = 25
Top = 61
Width = 75
Caption = 'TButton'
ModalResult = 11
OnClick = ButtonClick
TabOrder = 0
end
object GroupBox1: TGroupBox
Left = 304
Height = 274
Top = 12
Width = 510
AutoSize = True
Caption = 'TButtonEx Appearance'
ClientHeight = 254
ClientWidth = 506
TabOrder = 6
object cbColorNormalFrom: TColorButton
AnchorSideLeft.Control = cmbAlignment
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrBottom
Left = 82
Height = 25
Top = 47
Width = 65
BorderSpacing.Top = 3
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'From'
Margin = 4
OnColorChanged = cbColorNormalFromToChanged
end
object cbColorNormalTo: TColorButton
AnchorSideLeft.Control = cbColorNormalFrom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorNormalFrom
Left = 151
Height = 25
Top = 47
Width = 65
BorderSpacing.Left = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'To'
Margin = 4
OnColorChanged = cbColorNormalFromToChanged
end
object Label1: TLabel
AnchorSideTop.Control = cbColorNormalFrom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbColorNormalFrom
Left = 34
Height = 15
Top = 52
Width = 40
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Normal'
end
object Label2: TLabel
AnchorSideTop.Control = cbColorHotFrom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbColorHotFrom
Left = 54
Height = 15
Top = 81
Width = 20
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Hot'
end
object Label3: TLabel
AnchorSideTop.Control = cbColorDisabledFrom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbColorDisabledFrom
Left = 29
Height = 15
Top = 110
Width = 45
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Disabled'
end
object Label4: TLabel
AnchorSideTop.Control = cbColorFocusedFrom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbColorFocusedFrom
Left = 30
Height = 15
Top = 139
Width = 44
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Focused'
end
object cbColorHotFrom: TColorButton
AnchorSideLeft.Control = cbColorNormalFrom
AnchorSideTop.Control = cbColorNormalFrom
AnchorSideTop.Side = asrBottom
Left = 82
Height = 25
Top = 76
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'From'
Margin = 4
OnColorChanged = cbColorHotFromToChanged
end
object cbColorHotTo: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideTop.Control = cbColorHotFrom
Left = 151
Height = 25
Top = 76
Width = 65
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'To'
Margin = 4
OnColorChanged = cbColorHotFromToChanged
end
object cbColorDisabledFrom: TColorButton
AnchorSideLeft.Control = cbColorNormalFrom
AnchorSideTop.Control = cbColorHotFrom
AnchorSideTop.Side = asrBottom
Left = 82
Height = 25
Top = 105
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'From'
Margin = 4
OnColorChanged = cbColorDisabledFromToChanged
end
object cbColorDisabledTo: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideTop.Control = cbColorDisabledFrom
Left = 151
Height = 25
Top = 105
Width = 65
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'To'
Margin = 4
OnColorChanged = cbColorDisabledFromToChanged
end
object cbColorFocusedFrom: TColorButton
AnchorSideLeft.Control = cbColorNormalFrom
AnchorSideTop.Control = cbColorDisabledFrom
AnchorSideTop.Side = asrBottom
Left = 82
Height = 25
Top = 134
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'From'
Margin = 4
OnColorChanged = cbColorFocusedFromToChanged
end
object cbColorFocusedTo: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideTop.Control = cbColorFocusedFrom
Left = 151
Height = 25
Top = 134
Width = 65
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'To'
Margin = 4
OnColorChanged = cbColorFocusedFromToChanged
end
object Label5: TLabel
AnchorSideTop.Control = cbColorDownFrom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbColorDownFrom
Left = 43
Height = 15
Top = 168
Width = 31
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Down'
end
object cbColorDownFrom: TColorButton
AnchorSideLeft.Control = cbColorNormalFrom
AnchorSideTop.Control = cbColorFocusedFrom
AnchorSideTop.Side = asrBottom
Left = 82
Height = 25
Top = 163
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'From'
Margin = 4
OnColorChanged = cbColorDownFromToChanged
end
object cbColorDownTo: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideTop.Control = cbColorDownFrom
Left = 151
Height = 25
Top = 163
Width = 65
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'To'
Margin = 4
OnColorChanged = cbColorDownFromToChanged
end
object Label6: TLabel
AnchorSideLeft.Control = cmbAlignment
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = cbDefaultDrawing
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 90
Height = 15
Top = 29
Width = 111
BorderSpacing.Top = 8
Caption = 'Background gradient'
end
object cbBorderColorNormal: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorNormalFrom
Left = 232
Height = 25
Top = 47
Width = 65
BorderSpacing.Left = 16
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Color'
Margin = 4
OnColorChanged = cbColorNormalFromToChanged
end
object cbBorderColorHot: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBorderColorNormal
AnchorSideTop.Side = asrBottom
Left = 232
Height = 25
Top = 76
Width = 65
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Color'
Margin = 4
OnColorChanged = cbColorHotFromToChanged
end
object cbBorderColorDisabled: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBorderColorHot
AnchorSideTop.Side = asrBottom
Left = 232
Height = 25
Top = 105
Width = 65
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Color'
Margin = 4
OnColorChanged = cbColorDisabledFromToChanged
end
object cbBorderColorFocused: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBorderColorDisabled
AnchorSideTop.Side = asrBottom
Left = 232
Height = 25
Top = 134
Width = 65
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Color'
Margin = 4
OnColorChanged = cbColorFocusedFromToChanged
end
object cbBorderColorDown: TColorButton
AnchorSideLeft.Control = cbColorNormalTo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBorderColorFocused
AnchorSideTop.Side = asrBottom
Left = 232
Height = 25
Top = 163
Width = 65
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Color'
Margin = 4
OnColorChanged = cbColorDownFromToChanged
end
object Label7: TLabel
AnchorSideLeft.Control = cbBorderColorNormal
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label6
Left = 247
Height = 15
Top = 31
Width = 35
BorderSpacing.Top = 2
Caption = 'Border'
end
object seBorderWidthNormal: TSpinEdit
AnchorSideLeft.Control = cbBorderColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorNormalFrom
AnchorSideTop.Side = asrCenter
Left = 313
Height = 23
Top = 48
Width = 45
Alignment = taRightJustify
BorderSpacing.Left = 16
OnChange = seBorderWidthNormalChange
TabOrder = 1
end
object Label8: TLabel
AnchorSideLeft.Control = seBorderWidthNormal
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label6
Left = 319
Height = 15
Top = 31
Width = 32
BorderSpacing.Top = 2
Caption = 'Width'
end
object seBorderWidthHot: TSpinEdit
AnchorSideLeft.Control = cbBorderColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorHotTo
AnchorSideTop.Side = asrCenter
Left = 313
Height = 23
Top = 77
Width = 45
Alignment = taRightJustify
BorderSpacing.Left = 16
OnChange = seBorderWidthHotChange
TabOrder = 2
end
object seBorderWidthDisabled: TSpinEdit
AnchorSideLeft.Control = cbBorderColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorDisabledFrom
AnchorSideTop.Side = asrCenter
Left = 313
Height = 23
Top = 106
Width = 45
Alignment = taRightJustify
BorderSpacing.Left = 16
OnChange = seBorderWidthDisabledChange
TabOrder = 3
end
object seBorderWidthFocused: TSpinEdit
AnchorSideLeft.Control = cbBorderColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorFocusedFrom
AnchorSideTop.Side = asrCenter
Left = 313
Height = 23
Top = 135
Width = 45
Alignment = taRightJustify
BorderSpacing.Left = 16
OnChange = seBorderWidthFocusedChange
TabOrder = 4
end
object seBorderWidthDown: TSpinEdit
AnchorSideLeft.Control = cbBorderColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorDownFrom
AnchorSideTop.Side = asrCenter
Left = 313
Height = 23
Top = 164
Width = 45
Alignment = taRightJustify
BorderSpacing.Left = 16
OnChange = seBorderWidthDownChange
TabOrder = 5
end
object clbFontColorNormal: TColorButton
AnchorSideLeft.Control = seBorderWidthHot
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorNormalFrom
Left = 374
Height = 25
Top = 47
Width = 65
BorderSpacing.Left = 16
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Font'
Margin = 4
OnColorChanged = cbColorNormalFromToChanged
end
object clbFontColorHot: TColorButton
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideTop.Control = clbFontColorNormal
AnchorSideTop.Side = asrBottom
Left = 374
Height = 25
Top = 76
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Font'
Margin = 4
OnColorChanged = cbColorHotFromToChanged
end
object clbFontColorDisabled: TColorButton
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideTop.Control = clbFontColorHot
AnchorSideTop.Side = asrBottom
Left = 374
Height = 25
Top = 105
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Font'
Margin = 4
OnColorChanged = cbColorDisabledFromToChanged
end
object clbFontColorFocused: TColorButton
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideTop.Control = clbFontColorDisabled
AnchorSideTop.Side = asrBottom
Left = 374
Height = 25
Top = 134
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Font'
Margin = 4
OnColorChanged = cbColorFocusedFromToChanged
end
object clbFontColorDown: TColorButton
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideTop.Control = clbFontColorFocused
AnchorSideTop.Side = asrBottom
Left = 374
Height = 25
Top = 163
Width = 65
BorderSpacing.Top = 4
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Font'
Margin = 4
OnColorChanged = cbColorDownFromToChanged
end
object Label9: TLabel
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label6
Left = 394
Height = 15
Top = 31
Width = 24
BorderSpacing.Top = 2
Caption = 'Font'
end
object cbGradient: TCheckBox
AnchorSideLeft.Control = cmbAlignment
AnchorSideTop.Control = cbColorDownFrom
AnchorSideTop.Side = asrBottom
Left = 82
Height = 19
Top = 196
Width = 63
BorderSpacing.Top = 8
Caption = 'Gradient'
Checked = True
OnChange = cbGradientChange
State = cbChecked
TabOrder = 11
end
object cbShowFocusRect: TCheckBox
AnchorSideLeft.Control = cbGradient
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbBorderColorDown
AnchorSideTop.Side = asrBottom
Left = 169
Height = 19
Top = 192
Width = 104
BorderSpacing.Left = 24
BorderSpacing.Top = 4
Caption = 'Show FocusRect'
Checked = True
OnChange = cbShowFocusRectChange
State = cbChecked
TabOrder = 12
end
object cbFontNormalBold: TCheckBox
AnchorSideLeft.Control = udFontSizeNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = clbFontColorNormal
AnchorSideTop.Side = asrCenter
Left = 464
Height = 19
Top = 50
Width = 42
BorderSpacing.Left = 8
Caption = 'Bold'
OnChange = cbFontBoldChange
TabOrder = 6
end
object cbFontHotBold: TCheckBox
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorHotFrom
AnchorSideTop.Side = asrCenter
Left = 447
Height = 19
Top = 79
Width = 42
BorderSpacing.Left = 8
Caption = 'Bold'
OnChange = cbFontBoldChange
TabOrder = 7
end
object cbFontDisabledBold: TCheckBox
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorDisabledFrom
AnchorSideTop.Side = asrCenter
Left = 447
Height = 19
Top = 108
Width = 42
BorderSpacing.Left = 8
Caption = 'Bold'
OnChange = cbFontBoldChange
TabOrder = 8
end
object cbFontFocusedBold: TCheckBox
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorFocusedFrom
AnchorSideTop.Side = asrCenter
Left = 447
Height = 19
Top = 137
Width = 42
BorderSpacing.Left = 8
Caption = 'Bold'
OnChange = cbFontBoldChange
TabOrder = 9
end
object cbFontDownBold: TCheckBox
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbColorDownFrom
AnchorSideTop.Side = asrCenter
Left = 447
Height = 19
Top = 166
Width = 42
BorderSpacing.Left = 8
Caption = 'Bold'
OnChange = cbFontBoldChange
TabOrder = 10
end
object lblAlignment: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = cmbAlignment
AnchorSideTop.Side = asrCenter
Left = 18
Height = 15
Top = 227
Width = 56
BorderSpacing.Left = 18
BorderSpacing.Right = 8
Caption = 'Alignment'
end
object cmbAlignment: TComboBox
AnchorSideLeft.Control = lblAlignment
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbGradient
AnchorSideTop.Side = asrBottom
Left = 82
Height = 23
Top = 223
Width = 126
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 2
Items.Strings = (
'taLeftJustify'
'taRightJustify'
'taCenter'
)
OnChange = cmbAlignmentChange
Style = csDropDownList
TabOrder = 14
Text = 'taCenter'
end
object cbDefaultDrawing: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 18
Height = 19
Top = 2
Width = 102
Alignment = taLeftJustify
BorderSpacing.Left = 18
BorderSpacing.Top = 2
BorderSpacing.Right = 16
Caption = 'Default drawing'
Checked = True
OnChange = cbDefaultDrawingChange
State = cbChecked
TabOrder = 0
end
object cbWordWrap: TCheckBox
AnchorSideLeft.Control = cbShowFocusRect
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = clbFontColorDown
AnchorSideTop.Side = asrBottom
Left = 297
Height = 19
Top = 192
Width = 75
BorderSpacing.Left = 24
BorderSpacing.Top = 4
Caption = 'WordWrap'
OnChange = cbWordWrapChange
TabOrder = 13
end
object udFontSizeNormal: TUpDown
AnchorSideLeft.Control = clbFontColorNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = clbFontColorNormal
AnchorSideBottom.Control = cbColorNormalFrom
AnchorSideBottom.Side = asrBottom
Left = 439
Height = 25
Top = 47
Width = 17
Anchors = [akTop, akLeft, akBottom]
Max = 20
Min = 5
OnClick = udFontSizeNormalClick
Position = 5
TabOrder = 15
end
end
object cbEnabled: TCheckBox
Left = 160
Height = 19
Top = 95
Width = 60
Caption = 'Enabled'
Checked = True
OnChange = cbEnabledChange
State = cbChecked
TabOrder = 1
end
object Memo1: TMemo
Left = 8
Height = 187
Top = 61
Width = 136
Lines.Strings = (
'Memo1'
)
ScrollBars = ssAutoVertical
TabOrder = 7
end
object Button2: TButton
Left = 8
Height = 25
Top = 254
Width = 113
AutoSize = True
Caption = 'Test modal form'
OnClick = Button2Click
TabOrder = 5
end
object cbAutoSize: TCheckBox
Left = 160
Height = 19
Top = 119
Width = 64
Caption = 'AutoSize'
OnChange = cbAutoSizeChange
TabOrder = 2
end
object SpinEdit1: TSpinEdit
Left = 160
Height = 23
Top = 167
Width = 80
MaxValue = 500
OnChange = SpinEdit1Change
OnEditingDone = SpinEdit1EditingDone
TabOrder = 3
Value = 100
end
object Label11: TLabel
Left = 162
Height = 15
Top = 149
Width = 32
Caption = 'Width'
end
object Label12: TLabel
Left = 162
Height = 15
Top = 207
Width = 36
Caption = 'Height'
end
object SpinEdit2: TSpinEdit
Left = 160
Height = 23
Top = 225
Width = 80
MaxValue = 300
OnChange = SpinEdit2Change
OnEditingDone = SpinEdit2EditingDone
TabOrder = 4
Value = 100
end
end