TGradButton: Update Demo-App (DropDown & SplitButton)
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1456 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1
parent
bdd5f9aaec
commit
ea64d0c14f
@ -1,115 +1,114 @@
|
||||
object Form1: TForm1
|
||||
Left = 368
|
||||
Height = 439
|
||||
Top = 215
|
||||
Width = 576
|
||||
ActiveControl = TrackBar1
|
||||
Left = 277
|
||||
Height = 504
|
||||
Top = 127
|
||||
Width = 750
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'TGradButton-Demo'
|
||||
ClientHeight = 439
|
||||
ClientWidth = 576
|
||||
ClientHeight = 504
|
||||
ClientWidth = 750
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.29'
|
||||
LCLVersion = '0.9.31'
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 16
|
||||
Top = 75
|
||||
Width = 71
|
||||
Height = 17
|
||||
Top = 119
|
||||
Width = 82
|
||||
Caption = 'NormalBlend'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 8
|
||||
Height = 16
|
||||
Top = 131
|
||||
Width = 56
|
||||
Height = 17
|
||||
Top = 175
|
||||
Width = 65
|
||||
Caption = 'OverBlend'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 88
|
||||
Height = 16
|
||||
Top = 75
|
||||
Left = 112
|
||||
Height = 1
|
||||
Top = 119
|
||||
Width = 1
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 88
|
||||
Height = 16
|
||||
Top = 131
|
||||
Left = 112
|
||||
Height = 1
|
||||
Top = 175
|
||||
Width = 1
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 37
|
||||
Height = 16
|
||||
Top = 16
|
||||
Width = 57
|
||||
Left = 453
|
||||
Height = 17
|
||||
Top = 10
|
||||
Width = 68
|
||||
Caption = 'Base Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 133
|
||||
Height = 16
|
||||
Top = 16
|
||||
Width = 106
|
||||
Left = 432
|
||||
Height = 17
|
||||
Top = 52
|
||||
Width = 124
|
||||
Caption = 'Normal Blend Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 240
|
||||
Height = 16
|
||||
Top = 16
|
||||
Width = 91
|
||||
Left = 436
|
||||
Height = 17
|
||||
Top = 106
|
||||
Width = 107
|
||||
Caption = 'Over Blend Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 488
|
||||
Height = 16
|
||||
Top = 128
|
||||
Width = 32
|
||||
Left = 472
|
||||
Height = 17
|
||||
Top = 322
|
||||
Width = 37
|
||||
Caption = 'Glyph'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 461
|
||||
Height = 16
|
||||
Top = 176
|
||||
Width = 99
|
||||
Left = 432
|
||||
Height = 17
|
||||
Top = 370
|
||||
Width = 116
|
||||
Caption = 'Glyph Background'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 472
|
||||
Height = 16
|
||||
Top = 16
|
||||
Width = 59
|
||||
Left = 456
|
||||
Height = 17
|
||||
Top = 210
|
||||
Width = 70
|
||||
Caption = 'Click Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 464
|
||||
Height = 16
|
||||
Top = 72
|
||||
Width = 78
|
||||
Left = 445
|
||||
Height = 17
|
||||
Top = 266
|
||||
Width = 94
|
||||
Caption = 'Disabled Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 368
|
||||
Height = 16
|
||||
Top = 16
|
||||
Width = 55
|
||||
Left = 454
|
||||
Height = 17
|
||||
Top = 154
|
||||
Width = 67
|
||||
Caption = 'Text Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object TrackBar1: TTrackBar
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 96
|
||||
Width = 440
|
||||
Top = 140
|
||||
Width = 417
|
||||
Max = 100000
|
||||
OnChange = TrackBar1Change
|
||||
Position = 0
|
||||
@ -121,8 +120,8 @@ object Form1: TForm1
|
||||
object TrackBar2: TTrackBar
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 152
|
||||
Width = 440
|
||||
Top = 196
|
||||
Width = 417
|
||||
Max = 100000
|
||||
OnChange = TrackBar2Change
|
||||
Position = 0
|
||||
@ -134,8 +133,8 @@ object Form1: TForm1
|
||||
end
|
||||
object CheckGroup1: TCheckGroup
|
||||
Left = 8
|
||||
Height = 105
|
||||
Top = 320
|
||||
Height = 129
|
||||
Top = 233
|
||||
Width = 129
|
||||
AutoFill = True
|
||||
Caption = 'Border Sides'
|
||||
@ -160,9 +159,9 @@ object Form1: TForm1
|
||||
}
|
||||
end
|
||||
object CheckGroup2: TCheckGroup
|
||||
Left = 8
|
||||
Height = 89
|
||||
Top = 216
|
||||
Left = 144
|
||||
Height = 129
|
||||
Top = 233
|
||||
Width = 129
|
||||
AutoFill = True
|
||||
Caption = 'Other'
|
||||
@ -175,7 +174,7 @@ object Form1: TForm1
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
Items.Strings = (
|
||||
'ShowFocusBorder'
|
||||
'FocusBorder'
|
||||
'ShowGlyph'
|
||||
'Enabled'
|
||||
)
|
||||
@ -186,9 +185,9 @@ object Form1: TForm1
|
||||
}
|
||||
end
|
||||
object RadioGroup1: TRadioGroup
|
||||
Left = 432
|
||||
Height = 65
|
||||
Top = 240
|
||||
Left = 9
|
||||
Height = 87
|
||||
Top = 369
|
||||
Width = 129
|
||||
AutoFill = True
|
||||
Caption = 'Gradient Type'
|
||||
@ -200,8 +199,8 @@ object Form1: TForm1
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 47
|
||||
ClientWidth = 125
|
||||
ClientHeight = 65
|
||||
ClientWidth = 121
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'gtHorizontal'
|
||||
@ -211,9 +210,9 @@ object Form1: TForm1
|
||||
TabOrder = 8
|
||||
end
|
||||
object RadioGroup2: TRadioGroup
|
||||
Left = 151
|
||||
Height = 105
|
||||
Top = 320
|
||||
Left = 144
|
||||
Height = 87
|
||||
Top = 369
|
||||
Width = 129
|
||||
AutoFill = True
|
||||
Caption = 'Rotated Direction'
|
||||
@ -225,8 +224,8 @@ object Form1: TForm1
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 87
|
||||
ClientWidth = 125
|
||||
ClientHeight = 65
|
||||
ClientWidth = 121
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'rdNormal'
|
||||
@ -237,10 +236,10 @@ object Form1: TForm1
|
||||
TabOrder = 2
|
||||
end
|
||||
object RadioGroup3: TRadioGroup
|
||||
Left = 296
|
||||
Height = 105
|
||||
Top = 320
|
||||
Width = 121
|
||||
Left = 280
|
||||
Height = 129
|
||||
Top = 233
|
||||
Width = 145
|
||||
AutoFill = True
|
||||
Caption = 'Button Layout'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -251,8 +250,8 @@ object Form1: TForm1
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 87
|
||||
ClientWidth = 117
|
||||
ClientHeight = 107
|
||||
ClientWidth = 137
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
'blGlyphRight'
|
||||
@ -264,10 +263,10 @@ object Form1: TForm1
|
||||
TabOrder = 3
|
||||
end
|
||||
object RadioGroup4: TRadioGroup
|
||||
Left = 432
|
||||
Height = 106
|
||||
Top = 320
|
||||
Width = 129
|
||||
Left = 280
|
||||
Height = 129
|
||||
Top = 369
|
||||
Width = 145
|
||||
AutoFill = True
|
||||
Caption = 'Text Alignment'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -278,8 +277,8 @@ object Form1: TForm1
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 88
|
||||
ClientWidth = 125
|
||||
ClientHeight = 107
|
||||
ClientWidth = 137
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'taCenter'
|
||||
@ -290,16 +289,16 @@ object Form1: TForm1
|
||||
TabOrder = 5
|
||||
end
|
||||
object LabeledEdit1: TLabeledEdit
|
||||
Left = 328
|
||||
Height = 23
|
||||
Top = 216
|
||||
Width = 80
|
||||
Left = 9
|
||||
Height = 22
|
||||
Top = 24
|
||||
Width = 105
|
||||
EditLabel.AnchorSideLeft.Control = LabeledEdit1
|
||||
EditLabel.AnchorSideBottom.Control = LabeledEdit1
|
||||
EditLabel.Left = 328
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Top = 197
|
||||
EditLabel.Width = 82
|
||||
EditLabel.Left = 9
|
||||
EditLabel.Height = 17
|
||||
EditLabel.Top = 4
|
||||
EditLabel.Width = 95
|
||||
EditLabel.Caption = 'Button Caption'
|
||||
EditLabel.ParentColor = False
|
||||
TabOrder = 7
|
||||
@ -307,11 +306,16 @@ object Form1: TForm1
|
||||
OnKeyUp = LabeledEdit1KeyUp
|
||||
end
|
||||
object b: TGradButton
|
||||
Left = 152
|
||||
Left = 160
|
||||
Height = 96
|
||||
Top = 200
|
||||
Width = 168
|
||||
Top = 10
|
||||
Width = 167
|
||||
Caption = 'Sample Text'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.PopupMenu = ExamplePopupMenu
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
PopupMenu = ExamplePopupMenu
|
||||
Font.Color = clWhite
|
||||
Font.Height = -15
|
||||
OnClick = bClick
|
||||
@ -333,11 +337,14 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object BaseColorButton: TGradButton
|
||||
Left = 8
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 35
|
||||
Top = 26
|
||||
Width = 104
|
||||
Caption = 'BaseColorButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = BaseColorClick
|
||||
TabOrder = 10
|
||||
@ -358,11 +365,14 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object NormalBlendColorButton: TGradButton
|
||||
Left = 120
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 35
|
||||
Top = 74
|
||||
Width = 104
|
||||
Caption = 'NormalBlendColorButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = NormalBlendClick
|
||||
TabOrder = 11
|
||||
@ -383,11 +393,14 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object OverBlendButton: TGradButton
|
||||
Left = 232
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 35
|
||||
Top = 125
|
||||
Width = 104
|
||||
Caption = 'OverBlendButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = OverBlendClick
|
||||
TabOrder = 12
|
||||
@ -408,11 +421,14 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object LoadGlyphButton: TGradButton
|
||||
Left = 452
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 144
|
||||
Top = 338
|
||||
Width = 104
|
||||
Caption = 'Load Glyph'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = LoadGlyphButtonClick
|
||||
TabOrder = 13
|
||||
@ -433,11 +449,14 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object GlyphBackgroundColorButton: TGradButton
|
||||
Left = 452
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 192
|
||||
Top = 386
|
||||
Width = 104
|
||||
Caption = 'GlyphBackgroundColorButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = GlyphBackgroundColorButtonClick
|
||||
TabOrder = 14
|
||||
@ -458,11 +477,14 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object ClickColorButton: TGradButton
|
||||
Left = 452
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 35
|
||||
Top = 234
|
||||
Width = 104
|
||||
Caption = 'ClickColorButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = ClickColorButtonClick
|
||||
TabOrder = 15
|
||||
@ -483,11 +505,14 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object DisabledColorButton: TGradButton
|
||||
Left = 452
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 93
|
||||
Top = 290
|
||||
Width = 104
|
||||
Caption = 'DisabledColorButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = DisabledColorButtonClick
|
||||
TabOrder = 16
|
||||
@ -508,29 +533,32 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object UnderlineCheckBox: TCheckBox
|
||||
Left = 327
|
||||
Height = 19
|
||||
Top = 242
|
||||
Width = 71
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 50
|
||||
Width = 81
|
||||
Caption = 'Underline'
|
||||
OnChange = UnderlineCheckBoxChange
|
||||
TabOrder = 17
|
||||
end
|
||||
object BoldCheckBox: TCheckBox
|
||||
Left = 327
|
||||
Height = 19
|
||||
Top = 261
|
||||
Width = 44
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 69
|
||||
Width = 48
|
||||
Caption = 'Bold'
|
||||
OnChange = BoldCheckBoxChange
|
||||
TabOrder = 18
|
||||
end
|
||||
object TextColorButton: TGradButton
|
||||
Left = 344
|
||||
Left = 436
|
||||
Height = 25
|
||||
Top = 35
|
||||
Top = 178
|
||||
Width = 104
|
||||
Caption = 'Text Color'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = TextColorButtonClick
|
||||
TabOrder = 19
|
||||
@ -551,23 +579,195 @@ object Form1: TForm1
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object ItalicCheckBox: TCheckBox
|
||||
Left = 327
|
||||
Height = 19
|
||||
Top = 280
|
||||
Width = 45
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 88
|
||||
Width = 50
|
||||
Caption = 'Italic'
|
||||
OnChange = ItalicCheckBoxChange
|
||||
TabOrder = 20
|
||||
end
|
||||
object GlyphTransparentCheckBox: TCheckBox
|
||||
Left = 448
|
||||
Height = 19
|
||||
Top = 220
|
||||
Width = 117
|
||||
Left = 432
|
||||
Height = 18
|
||||
Top = 416
|
||||
Width = 137
|
||||
Caption = 'Glyph Transparent'
|
||||
OnChange = GlyphTransparentCheckBoxChange
|
||||
TabOrder = 21
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 560
|
||||
Height = 447
|
||||
Top = 10
|
||||
Width = 185
|
||||
Caption = 'DropDownSettings'
|
||||
ClientHeight = 425
|
||||
ClientWidth = 177
|
||||
TabOrder = 22
|
||||
object RadioGroup6: TRadioGroup
|
||||
Left = 0
|
||||
Height = 80
|
||||
Top = 345
|
||||
Width = 177
|
||||
Align = alBottom
|
||||
AutoFill = True
|
||||
Caption = 'MarkPosition'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 58
|
||||
ClientWidth = 169
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
'mpLeft'
|
||||
'mpRight'
|
||||
)
|
||||
OnClick = RadioGroup6Click
|
||||
TabOrder = 0
|
||||
end
|
||||
object RadioGroup5: TRadioGroup
|
||||
Left = 0
|
||||
Height = 135
|
||||
Top = 210
|
||||
Width = 177
|
||||
Align = alBottom
|
||||
AutoFill = True
|
||||
Caption = 'MarkDirection'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 113
|
||||
ClientWidth = 169
|
||||
ItemIndex = 2
|
||||
Items.Strings = (
|
||||
'mdUp'
|
||||
'mdLeft'
|
||||
'mdDown'
|
||||
'mdRight'
|
||||
)
|
||||
OnClick = RadioGroup5Click
|
||||
TabOrder = 1
|
||||
end
|
||||
object LabeledEdit2: TLabeledEdit
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 69
|
||||
Width = 80
|
||||
EditLabel.AnchorSideLeft.Control = LabeledEdit2
|
||||
EditLabel.AnchorSideBottom.Control = LabeledEdit2
|
||||
EditLabel.Left = 0
|
||||
EditLabel.Height = 17
|
||||
EditLabel.Top = 49
|
||||
EditLabel.Width = 26
|
||||
EditLabel.Caption = 'Size'
|
||||
EditLabel.ParentColor = False
|
||||
EditLabel.ParentFont = False
|
||||
TabOrder = 2
|
||||
Text = '8'
|
||||
OnChange = LabeledEdit2Change
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 68
|
||||
Height = 17
|
||||
Top = 93
|
||||
Width = 35
|
||||
Caption = 'Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object DDColorButton: TGradButton
|
||||
Left = 0
|
||||
Height = 25
|
||||
Top = 117
|
||||
Width = 177
|
||||
Caption = 'DDColorButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = DDColorButtonClick
|
||||
TabOrder = 3
|
||||
TabStop = True
|
||||
NormalBlend = 0.5
|
||||
OverBlend = 0.653
|
||||
BaseColor = clBlue
|
||||
Color = clBlue
|
||||
NormalBlendColor = clWhite
|
||||
OverBlendColor = clSilver
|
||||
BackgroundColor = clBtnFace
|
||||
ShowFocusBorder = True
|
||||
ShowGlyph = False
|
||||
GlyphBackgroundColor = clWhite
|
||||
ClickColor = clBlue
|
||||
OwnerBackgroundDraw = False
|
||||
AutoWidthBorderSpacing = 15
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 36
|
||||
Height = 17
|
||||
Top = 149
|
||||
Width = 88
|
||||
Caption = 'Pressed Color'
|
||||
ParentColor = False
|
||||
end
|
||||
object DDPressedColorButton: TGradButton
|
||||
Left = 0
|
||||
Height = 25
|
||||
Top = 173
|
||||
Width = 177
|
||||
Caption = 'DDPressedColorButton'
|
||||
DropDownSettings.OnlyOnMark = False
|
||||
DropDownSettings.Show = False
|
||||
DropDownSettings.SplitButton = False
|
||||
Font.Color = clWhite
|
||||
OnClick = DDPressedColorButtonClick
|
||||
TabOrder = 4
|
||||
TabStop = True
|
||||
NormalBlend = 0.5
|
||||
OverBlend = 0.653
|
||||
BaseColor = clBlue
|
||||
Color = clBlue
|
||||
NormalBlendColor = clWhite
|
||||
OverBlendColor = clSilver
|
||||
BackgroundColor = clBtnFace
|
||||
ShowFocusBorder = True
|
||||
ShowGlyph = False
|
||||
GlyphBackgroundColor = clWhite
|
||||
ClickColor = clBlue
|
||||
OwnerBackgroundDraw = False
|
||||
AutoWidthBorderSpacing = 15
|
||||
AutoHeightBorderSpacing = 15
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 4
|
||||
Height = 18
|
||||
Top = 5
|
||||
Width = 54
|
||||
Caption = 'Show'
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 5
|
||||
end
|
||||
object CheckBox2: TCheckBox
|
||||
Left = 4
|
||||
Height = 18
|
||||
Top = 29
|
||||
Width = 89
|
||||
Caption = 'SplitButton'
|
||||
OnChange = CheckBox2Change
|
||||
TabOrder = 6
|
||||
end
|
||||
end
|
||||
object ColorDialog1: TColorDialog
|
||||
Color = 11954481
|
||||
CustomColors.Strings = (
|
||||
@ -592,12 +792,22 @@ object Form1: TForm1
|
||||
'ColorS=F0FBFF'
|
||||
'ColorT=A4A0A0'
|
||||
)
|
||||
left = 8
|
||||
top = 176
|
||||
left = 152
|
||||
top = 464
|
||||
end
|
||||
object OpenPictureDialog1: TOpenPictureDialog
|
||||
Filter = 'Graphic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pixmap (*.ppm)|*.ppm|Portable Graymap'
|
||||
left = 48
|
||||
top = 176
|
||||
left = 56
|
||||
top = 456
|
||||
end
|
||||
object ExamplePopupMenu: TPopupMenu
|
||||
left = 104
|
||||
top = 464
|
||||
object MenuItem1: TMenuItem
|
||||
Caption = 'New Item1'
|
||||
end
|
||||
object MenuItem2: TMenuItem
|
||||
Caption = 'New Item2'
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,198 +1,269 @@
|
||||
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'p'#1#6'Height'#3#183#1#3'Top'#3#215#0#5'W'
|
||||
+'idth'#3'@'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSyste'
|
||||
+'mMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGrad'
|
||||
+'Button-Demo'#12'ClientHeight'#3#183#1#11'ClientWidth'#3'@'#2#8'OnCreate'#7
|
||||
+#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6'Label1'#4'Left'#2#8
|
||||
+#6'Height'#2#16#3'Top'#2'K'#5'Width'#2'G'#7'Caption'#6#11'NormalBlend'#11'Pa'
|
||||
+'rentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#16#3'Top'#3#131
|
||||
+#0#5'Width'#2'8'#7'Caption'#6#9'OverBlend'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||
+'Label3'#4'Left'#2'X'#6'Height'#2#16#3'Top'#2'K'#5'Width'#2#1#11'ParentColor'
|
||||
+#8#0#0#6'TLabel'#6'Label4'#4'Left'#2'X'#6'Height'#2#16#3'Top'#3#131#0#5'Widt'
|
||||
+'h'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2'%'#6'Height'#2#16
|
||||
+#3'Top'#2#16#5'Width'#2'9'#7'Caption'#6#10'Base Color'#11'ParentColor'#8#0#0
|
||||
+#6'TLabel'#6'Label6'#4'Left'#3#133#0#6'Height'#2#16#3'Top'#2#16#5'Width'#2'j'
|
||||
+#7'Caption'#6#18'Normal Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label'
|
||||
+'7'#4'Left'#3#240#0#6'Height'#2#16#3'Top'#2#16#5'Width'#2'['#7'Caption'#6#16
|
||||
+'Over Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#232#1
|
||||
+#6'Height'#2#16#3'Top'#3#128#0#5'Width'#2' '#7'Caption'#6#5'Glyph'#11'Parent'
|
||||
+'Color'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3#205#1#6'Height'#2#16#3'Top'#3#176
|
||||
+#0#5'Width'#2'c'#7'Caption'#6#16'Glyph Background'#11'ParentColor'#8#0#0#6'T'
|
||||
+'Label'#7'Label10'#4'Left'#3#216#1#6'Height'#2#16#3'Top'#2#16#5'Width'#2';'#7
|
||||
+'Caption'#6#11'Click Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label11'#4'Lef'
|
||||
+'t'#3#208#1#6'Height'#2#16#3'Top'#2'H'#5'Width'#2'N'#7'Caption'#6#14'Disable'
|
||||
+'d Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'p'#1#6'Height'
|
||||
+#2#16#3'Top'#2#16#5'Width'#2'7'#7'Caption'#6#10'Text Color'#11'ParentColor'#8
|
||||
+#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'Height'#2#30#3'Top'#2'`'#5'Widt'
|
||||
+'h'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar1Change'#8'Positio'
|
||||
+'n'#2#0#8'ScalePos'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCu'
|
||||
+'stom'#8'TabOrder'#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2
|
||||
+#30#3'Top'#3#152#0#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'Tr'
|
||||
+'ackBar2Change'#8'Position'#2#0#8'ScalePos'#7#8'trBottom'#7'TabStop'#8#9'Tic'
|
||||
+'kStyle'#7#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'#2#1#0#0#11'TCheckGro'
|
||||
+'up'#11'CheckGroup1'#4'Left'#2#8#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129
|
||||
+#0#8'AutoFill'#9#7'Caption'#6#12'Border Sides'#28'ChildSizing.LeftRightSpaci'
|
||||
+'ng'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizont'
|
||||
+'al'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crs'
|
||||
+'HomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'
|
||||
+#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7
|
||||
+#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'It'
|
||||
+'ems.Strings'#1#6#12'bsBottomLine'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRi'
|
||||
+'ghtLine'#0#11'OnItemClick'#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Dat'
|
||||
+'a'#10#8#0#0#0#4#0#0#0#2#2#2#2#0#0#11'TCheckGroup'#11'CheckGroup2'#4'Left'#2
|
||||
+#8#6'Height'#2'Y'#3'Top'#3#216#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6
|
||||
+#5'Other'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpaci'
|
||||
+'ng'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27
|
||||
+'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.'
|
||||
+'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14
|
||||
+'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'
|
||||
+#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#15'ShowFocusBorde'
|
||||
+'r'#6#9'ShowGlyph'#6#7'Enabled'#0#11'OnItemClick'#7#20'CheckGroup2ItemClick'
|
||||
+#8'TabOrder'#2#6#4'Data'#10#7#0#0#0#3#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'Rad'
|
||||
+'ioGroup1'#4'Left'#3#176#1#6'Height'#2'A'#3'Top'#3#240#0#5'Width'#3#129#0#8
|
||||
+'AutoFill'#9#7'Caption'#6#13'Gradient Type'#28'ChildSizing.LeftRightSpacing'
|
||||
+#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7
|
||||
+#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge'
|
||||
+'nousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C'
|
||||
+'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29
|
||||
+'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'Clien'
|
||||
+'tHeight'#2'/'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#12
|
||||
+'gtHorizontal'#6#10'gtVertical'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrd'
|
||||
+'er'#2#8#0#0#11'TRadioGroup'#11'RadioGroup2'#4'Left'#3#151#0#6'Height'#2'i'#3
|
||||
+'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#17'Rotated Directio'
|
||||
+'n'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6
|
||||
+#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi'
|
||||
+'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH'
|
||||
,'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal'
|
||||
+'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil'
|
||||
+'dSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'}'#9'I'
|
||||
+'temIndex'#2#0#13'Items.Strings'#1#6#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7
|
||||
+'OnClick'#7#16'RadioGroup2Click'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#11'Radi'
|
||||
+'oGroup3'#4'Left'#3'('#1#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#2'y'#8'AutoFi'
|
||||
+'ll'#9#7'Caption'#6#13'Button Layout'#28'ChildSizing.LeftRightSpacing'#2#6#28
|
||||
+'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr'
|
||||
+'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC'
|
||||
+'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS'
|
||||
+'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL'
|
||||
+'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHei'
|
||||
+'ght'#2'W'#11'ClientWidth'#2'u'#9'ItemIndex'#2#1#13'Items.Strings'#1#6#12'bl'
|
||||
+'GlyphRight'#6#11'blGlyphLeft'#6#10'blGlyphTop'#6#13'blGlyphBottom'#0#7'OnCl'
|
||||
+'ick'#7#16'RadioGroup3Click'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#11'RadioGro'
|
||||
+'up4'#4'Left'#3#176#1#6'Height'#2'j'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFi'
|
||||
+'ll'#9#7'Caption'#6#14'Text Alignment'#28'ChildSizing.LeftRightSpacing'#2#6
|
||||
+#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24
|
||||
+'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenou'
|
||||
+'sChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'Chil'
|
||||
+'dSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cc'
|
||||
+'lLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientH'
|
||||
+'eight'#2'X'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8't'
|
||||
+'aCenter'#6#13'taLeftJustify'#6#14'taRightJustify'#0#7'OnClick'#7#16'RadioGr'
|
||||
+'oup4Click'#8'TabOrder'#2#5#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Left'#3
|
||||
+'H'#1#6'Height'#2#23#3'Top'#3#216#0#5'Width'#2'P EditLabel.AnchorSideLeft.Co'
|
||||
+'ntrol'#7#12'LabeledEdit1"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEd'
|
||||
+'it1'#14'EditLabel.Left'#3'H'#1#16'EditLabel.Height'#2#16#13'EditLabel.Top'#3
|
||||
+#197#0#15'EditLabel.Width'#2'R'#17'EditLabel.Caption'#6#14'Button Caption'#21
|
||||
+'EditLabel.ParentColor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'OnKeyU'
|
||||
+'p'#7#17'LabeledEdit1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3#152#0#6'Heigh'
|
||||
+'t'#2'`'#3'Top'#3#200#0#5'Width'#3#168#0#7'Caption'#6#11'Sample Text'#10'Fon'
|
||||
+'t.Color'#7#7'clWhite'#11'Font.Height'#2#241#7'OnClick'#7#6'bClick'#8'TabOrd'
|
||||
+'er'#2#9#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'
|
||||
+#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlu'
|
||||
+'e'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Ba'
|
||||
+'ckgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'Glyph'
|
||||
+'BackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackground'
|
||||
+'Draw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0
|
||||
+#11'TGradButton'#15'BaseColorButton'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'#'#5
|
||||
+'Width'#2'h'#7'Caption'#6#15'BaseColorButton'#10'Font.Color'#7#7'clWhite'#7
|
||||
+'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2#10#7'TabStop'#9#11'NormalBlend'
|
||||
+#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'B'
|
||||
+'aseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'
|
||||
+#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'Show'
|
||||
+'FocusBorder'#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'Clic'
|
||||
+'kColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2
|
||||
+#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#22'NormalBlendColor'
|
||||
+'Button'#4'Left'#2'x'#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6
|
||||
+#22'NormalBlendColorButton'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#16'Norm'
|
||||
+'alBlendClick'#8'TabOrder'#2#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0
|
||||
+#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'cl'
|
||||
+'Blue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendCo'
|
||||
+'lor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9
|
||||
+#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB'
|
||||
+'lue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeigh'
|
||||
+'tBorderSpacing'#2#15#0#0#11'TGradButton'#15'OverBlendButton'#4'Left'#3#232#0
|
||||
+#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#15'OverBlendButton'#10
|
||||
+'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2#12#7
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#21#1#6'Height'#3#248#1#3'Top'#2#127#5'Wid'
|
||||
+'th'#3#238#2#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderS'
|
||||
+'tyle'#7#8'bsSingle'#7'Caption'#6#16'TGradButton-Demo'#12'ClientHeight'#3#248
|
||||
+#1#11'ClientWidth'#3#238#2#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0'
|
||||
+'.9.31'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#17#3'Top'#2'w'#5'Width'
|
||||
+#2'R'#7'Caption'#6#11'NormalBlend'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'
|
||||
+#4'Left'#2#8#6'Height'#2#17#3'Top'#3#175#0#5'Width'#2'A'#7'Caption'#6#9'Over'
|
||||
+'Blend'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'p'#6'Height'#2#1
|
||||
+#3'Top'#2'w'#5'Width'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2
|
||||
+'p'#6'Height'#2#1#3'Top'#3#175#0#5'Width'#2#1#11'ParentColor'#8#0#0#6'TLabel'
|
||||
+#6'Label5'#4'Left'#3#197#1#6'Height'#2#17#3'Top'#2#10#5'Width'#2'D'#7'Captio'
|
||||
+'n'#6#10'Base Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#3#176
|
||||
+#1#6'Height'#2#17#3'Top'#2'4'#5'Width'#2'|'#7'Caption'#6#18'Normal Blend Col'
|
||||
+'or'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#3#180#1#6'Height'#2#17
|
||||
+#3'Top'#2'j'#5'Width'#2'k'#7'Caption'#6#16'Over Blend Color'#11'ParentColor'
|
||||
+#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#216#1#6'Height'#2#17#3'Top'#3'B'#1#5'Wi'
|
||||
+'dth'#2'%'#7'Caption'#6#5'Glyph'#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4
|
||||
+'Left'#3#176#1#6'Height'#2#17#3'Top'#3'r'#1#5'Width'#2't'#7'Caption'#6#16'Gl'
|
||||
+'yph Background'#11'ParentColor'#8#0#0#6'TLabel'#7'Label10'#4'Left'#3#200#1#6
|
||||
+'Height'#2#17#3'Top'#3#210#0#5'Width'#2'F'#7'Caption'#6#11'Click Color'#11'P'
|
||||
+'arentColor'#8#0#0#6'TLabel'#7'Label11'#4'Left'#3#189#1#6'Height'#2#17#3'Top'
|
||||
+#3#10#1#5'Width'#2'^'#7'Caption'#6#14'Disabled Color'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#7'Label12'#4'Left'#3#198#1#6'Height'#2#17#3'Top'#3#154#0#5'Width'#2
|
||||
+'C'#7'Caption'#6#10'Text Color'#11'ParentColor'#8#0#0#9'TTrackBar'#9'TrackBa'
|
||||
+'r1'#4'Left'#2#8#6'Height'#2#30#3'Top'#3#140#0#5'Width'#3#161#1#3'Max'#4#160
|
||||
+#134#1#0#8'OnChange'#7#15'TrackBar1Change'#8'Position'#2#0#8'ScalePos'#7#8't'
|
||||
+'rBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'#2#0#0#0
|
||||
+#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2#30#3'Top'#3#196#0#5'Width'
|
||||
+#3#161#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar2Change'#8'Position'#2
|
||||
+#0#8'ScalePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7#6'tsNone'#5'Align'#7
|
||||
+#8'alCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'CheckGroup1'#4'Left'#2#8
|
||||
+#6'Height'#3#129#0#3'Top'#3#233#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6
|
||||
+#12'Border Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBot'
|
||||
+'tomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildRe'
|
||||
+'size'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'Chi'
|
||||
+'ldSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertic'
|
||||
+'al'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopT'
|
||||
+'oBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#12'bsBot'
|
||||
+'tomLine'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'#0#11'OnItemClick'
|
||||
+#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Data'#10#8#0#0#0#4#0#0#0#2#2#2
|
||||
+#2#0#0#11'TCheckGroup'#11'CheckGroup2'#4'Left'#3#144#0#6'Height'#3#129#0#3'T'
|
||||
+'op'#3#233#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#5'Other'#28'ChildSi'
|
||||
+'zing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSiz'
|
||||
+'ing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarg'
|
||||
+'eVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
|
||||
+#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
|
||||
+'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
|
||||
+'olsPerLine'#2#1#13'Items.Strings'#1#6#11'FocusBorder'#6#9'ShowGlyph'#6#7'En'
|
||||
+'abled'#0#11'OnItemClick'#7#20'CheckGroup2ItemClick'#8'TabOrder'#2#6#4'Data'
|
||||
+#10#7#0#0#0#3#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#2#9#6
|
||||
+'Height'#2'W'#3'Top'#3'q'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#13'G'
|
||||
+'radient Type'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottom'
|
||||
+'Spacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResiz'
|
||||
+'e'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildS'
|
||||
+'izing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'
|
||||
+#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBot'
|
||||
+'tom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'A'#11'ClientWid'
|
||||
+'th'#2'y'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#12'gtHorizontal'#6#10'gtVer'
|
||||
+'tical'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#8#0#0#11'TRadioGro'
|
||||
+'up'#11'RadioGroup2'#4'Left'#3#144#0#6'Height'#2'W'#3'Top'#3'q'#1#5'Width'#3
|
||||
+#129#0#8'AutoFill'#9#7'Caption'#6#17'Rotated Direction'#28'ChildSizing.LeftR'
|
||||
+'ightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enlarg'
|
||||
+'eHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'
|
||||
+#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsSca'
|
||||
,'leChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizin'
|
||||
+'g.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLin'
|
||||
+'e'#2#1#12'ClientHeight'#2'A'#11'ClientWidth'#2'y'#9'ItemIndex'#2#0#13'Items'
|
||||
+'.Strings'#1#6#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7'OnClick'#7#16'RadioG'
|
||||
+'roup2Click'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#11'RadioGroup3'#4'Left'#3#24
|
||||
+#1#6'Height'#3#129#0#3'Top'#3#233#0#5'Width'#3#145#0#8'AutoFill'#9#7'Caption'
|
||||
+#6#13'Button Layout'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.Top'
|
||||
+'BottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChil'
|
||||
+'dResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
|
||||
+'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
|
||||
+'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT'
|
||||
+'opToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'k'#11'Cl'
|
||||
+'ientWidth'#3#137#0#9'ItemIndex'#2#1#13'Items.Strings'#1#6#12'blGlyphRight'#6
|
||||
+#11'blGlyphLeft'#6#10'blGlyphTop'#6#13'blGlyphBottom'#0#7'OnClick'#7#16'Radi'
|
||||
+'oGroup3Click'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#11'RadioGroup4'#4'Left'#3
|
||||
+#24#1#6'Height'#3#129#0#3'Top'#3'q'#1#5'Width'#3#145#0#8'AutoFill'#9#7'Capti'
|
||||
+'on'#6#14'Text Alignment'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizin'
|
||||
+'g.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenou'
|
||||
+'sChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
|
||||
+#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
|
||||
+'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
|
||||
+'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'k'#11
|
||||
+'ClientWidth'#3#137#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'taCenter'#6#13
|
||||
+'taLeftJustify'#6#14'taRightJustify'#0#7'OnClick'#7#16'RadioGroup4Click'#8'T'
|
||||
+'abOrder'#2#5#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Left'#2#9#6'Height'#2
|
||||
+#22#3'Top'#2#24#5'Width'#2'i EditLabel.AnchorSideLeft.Control'#7#12'LabeledE'
|
||||
+'dit1"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEdit1'#14'EditLabel.Le'
|
||||
+'ft'#2#9#16'EditLabel.Height'#2#17#13'EditLabel.Top'#2#4#15'EditLabel.Width'
|
||||
+#2'_'#17'EditLabel.Caption'#6#14'Button Caption'#21'EditLabel.ParentColor'#8
|
||||
+#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'OnKeyUp'#7#17'LabeledEdit1KeyUp'
|
||||
+#0#0#11'TGradButton'#1'b'#4'Left'#3#160#0#6'Height'#2'`'#3'Top'#2#10#5'Width'
|
||||
+#3#167#0#7'Caption'#6#11'Sample Text'#27'DropDownSettings.OnlyOnMark'#8#26'D'
|
||||
+'ropDownSettings.PopupMenu'#7#16'ExamplePopupMenu'#21'DropDownSettings.Show'
|
||||
+#8#28'DropDownSettings.SplitButton'#8#9'PopupMenu'#7#16'ExamplePopupMenu'#10
|
||||
+'Font.Color'#7#7'clWhite'#11'Font.Height'#2#241#7'OnClick'#7#6'bClick'#8'Tab'
|
||||
+'Order'#2#9#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBl'
|
||||
+'end'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6
|
||||
+'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'
|
||||
+#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20
|
||||
+'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackg'
|
||||
+'roundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2
|
||||
+#15#0#0#11'TGradButton'#15'BaseColorButton'#4'Left'#3#180#1#6'Height'#2#25#3
|
||||
+'Top'#2#26#5'Width'#2'h'#7'Caption'#6#15'BaseColorButton'#27'DropDownSetting'
|
||||
+'s.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton'
|
||||
+#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2
|
||||
+#10#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
|
||||
+'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
|
||||
+#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
|
||||
+'roundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBac'
|
||||
+'kgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDra'
|
||||
+'w'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11
|
||||
+'TGradButton'#22'NormalBlendColorButton'#4'Left'#3#180#1#6'Height'#2#25#3'To'
|
||||
+'p'#2'J'#5'Width'#2'h'#7'Caption'#6#22'NormalBlendColorButton'#27'DropDownSe'
|
||||
+'ttings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitB'
|
||||
+'utton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#16'NormalBlendClick'#8'Ta'
|
||||
+'bOrder'#2#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'Over'
|
||||
+'Blend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6
|
||||
+'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'
|
||||
+#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20
|
||||
+'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackg'
|
||||
+'roundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2
|
||||
+#15#0#0#11'TGradButton'#15'OverBlendButton'#4'Left'#3#180#1#6'Height'#2#25#3
|
||||
+'Top'#2'}'#5'Width'#2'h'#7'Caption'#6#15'OverBlendButton'#27'DropDownSetting'
|
||||
+'s.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton'
|
||||
,#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2
|
||||
+#12#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
|
||||
+'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
|
||||
+#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
|
||||
+'roundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBac'
|
||||
+'kgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDra'
|
||||
+'w'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11
|
||||
+'TGradButton'#15'LoadGlyphButton'#4'Left'#3#180#1#6'Height'#2#25#3'Top'#3'R'
|
||||
+#1#5'Width'#2'h'#7'Caption'#6#10'Load Glyph'#27'DropDownSettings.OnlyOnMark'
|
||||
+#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton'#8#10'Font.Co'
|
||||
+'lor'#7#7'clWhite'#7'OnClick'#7#20'LoadGlyphButtonClick'#8'TabOrder'#2#13#7
|
||||
+'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186
|
||||
+'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'Norm'
|
||||
+'alBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundCo'
|
||||
+'lor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBackground'
|
||||
+'Color'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22
|
||||
,'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradB'
|
||||
+'utton'#15'LoadGlyphButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#144#0#5
|
||||
+'Width'#2'h'#7'Caption'#6#10'Load Glyph'#10'Font.Color'#7#7'clWhite'#7'OnCli'
|
||||
+'ck'#7#20'LoadGlyphButtonClick'#8'TabOrder'#2#13#7'TabStop'#9#11'NormalBlend'
|
||||
+#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'B'
|
||||
+'aseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'
|
||||
+#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'Show'
|
||||
+'FocusBorder'#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'Clic'
|
||||
+'kColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2
|
||||
+#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#26'GlyphBackgroundC'
|
||||
+'olorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#192#0#5'Width'#2'h'#7'C'
|
||||
+'aption'#6#26'GlyphBackgroundColorButton'#10'Font.Color'#7#7'clWhite'#7'OnCl'
|
||||
+'ick'#7#31'GlyphBackgroundColorButtonClick'#8'TabOrder'#2#14#7'TabStop'#9#11
|
||||
+'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'
|
||||
+#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColo'
|
||||
+'r'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'cl'
|
||||
+'BtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7
|
||||
+'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthB'
|
||||
+'orderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#16
|
||||
+'ClickColorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7
|
||||
+'Caption'#6#16'ClickColorButton'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#21
|
||||
+'ClickColorButtonClick'#8'TabOrder'#2#15#7'TabStop'#9#11'NormalBlend'#5#0#0#0
|
||||
+#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'
|
||||
+#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverB'
|
||||
+'lendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBor'
|
||||
+'der'#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7
|
||||
+#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'Auto'
|
||||
+'HeightBorderSpacing'#2#15#0#0#11'TGradButton'#19'DisabledColorButton'#4'Lef'
|
||||
+'t'#3#196#1#6'Height'#2#25#3'Top'#2']'#5'Width'#2'h'#7'Caption'#6#19'Disable'
|
||||
+'dColorButton'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#24'DisabledColorButt'
|
||||
+'onClick'#8'TabOrder'#2#16#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128
|
||||
+#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'
|
||||
+#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7
|
||||
+#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'Show'
|
||||
+'Glyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19
|
||||
+'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderS'
|
||||
+'pacing'#2#15#0#0#9'TCheckBox'#17'UnderlineCheckBox'#4'Left'#3'G'#1#6'Height'
|
||||
+#2#19#3'Top'#3#242#0#5'Width'#2'G'#7'Caption'#6#9'Underline'#8'OnChange'#7#23
|
||||
+'UnderlineCheckBoxChange'#8'TabOrder'#2#17#0#0#9'TCheckBox'#12'BoldCheckBox'
|
||||
+#4'Left'#3'G'#1#6'Height'#2#19#3'Top'#3#5#1#5'Width'#2','#7'Caption'#6#4'Bol'
|
||||
+'d'#8'OnChange'#7#18'BoldCheckBoxChange'#8'TabOrder'#2#18#0#0#11'TGradButton'
|
||||
+#15'TextColorButton'#4'Left'#3'X'#1#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'
|
||||
+#7'Caption'#6#10'Text Color'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#20'Tex'
|
||||
+'tColorButtonClick'#8'TabOrder'#2#19#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0
|
||||
+'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradB'
|
||||
+'utton'#26'GlyphBackgroundColorButton'#4'Left'#3#180#1#6'Height'#2#25#3'Top'
|
||||
+#3#130#1#5'Width'#2'h'#7'Caption'#6#26'GlyphBackgroundColorButton'#27'DropDo'
|
||||
+'wnSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.Sp'
|
||||
+'litButton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#31'GlyphBackgroundCol'
|
||||
+'orButtonClick'#8'TabOrder'#2#14#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0
|
||||
+#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'cl'
|
||||
+'Blue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendCo'
|
||||
+'lor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9
|
||||
+#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB'
|
||||
+'lue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeigh'
|
||||
+'tBorderSpacing'#2#15#0#0#11'TGradButton'#16'ClickColorButton'#4'Left'#3#180
|
||||
+#1#6'Height'#2#25#3'Top'#3#234#0#5'Width'#2'h'#7'Caption'#6#16'ClickColorBut'
|
||||
+'ton'#27'DropDownSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropD'
|
||||
+'ownSettings.SplitButton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#21'Clic'
|
||||
+'kColorButtonClick'#8'TabOrder'#2#15#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0
|
||||
+#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6
|
||||
+'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlend'
|
||||
+'Color'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'
|
||||
+#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'c'
|
||||
+'lBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHei'
|
||||
+'ghtBorderSpacing'#2#15#0#0#9'TCheckBox'#14'ItalicCheckBox'#4'Left'#3'G'#1#6
|
||||
+'Height'#2#19#3'Top'#3#24#1#5'Width'#2'-'#7'Caption'#6#6'Italic'#8'OnChange'
|
||||
+#7#20'ItalicCheckBoxChange'#8'TabOrder'#2#20#0#0#9'TCheckBox'#24'GlyphTransp'
|
||||
+'arentCheckBox'#4'Left'#3#192#1#6'Height'#2#19#3'Top'#3#220#0#5'Width'#2'u'#7
|
||||
+'Caption'#6#17'Glyph Transparent'#8'OnChange'#7#30'GlyphTransparentCheckBoxC'
|
||||
+'hange'#8'TabOrder'#2#21#0#0#12'TColorDialog'#12'ColorDialog1'#5'Color'#4'1i'
|
||||
+#182#0#20'CustomColors.Strings'#1#6#13'ColorA=000000'#6#13'ColorB=000080'#6
|
||||
+#13'ColorC=008000'#6#13'ColorD=008080'#6#13'ColorE=800000'#6#13'ColorF=80008'
|
||||
+'0'#6#13'ColorG=808000'#6#13'ColorH=808080'#6#13'ColorI=C0C0C0'#6#13'ColorJ='
|
||||
+'0000FF'#6#13'ColorK=00FF00'#6#13'ColorL=00FFFF'#6#13'ColorM=FF0000'#6#13'Co'
|
||||
+'lorN=FF00FF'#6#13'ColorO=FFFF00'#6#13'ColorP=FFFFFF'#6#13'ColorQ=C0DCC0'#6
|
||||
+#13'ColorR=F0CAA6'#6#13'ColorS=F0FBFF'#6#13'ColorT=A4A0A0'#0#4'left'#2#8#3't'
|
||||
+'op'#3#176#0#0#0#18'TOpenPictureDialog'#18'OpenPictureDialog1'#6'Filter'#6
|
||||
+'ghtBorderSpacing'#2#15#0#0#11'TGradButton'#19'DisabledColorButton'#4'Left'#3
|
||||
+#180#1#6'Height'#2#25#3'Top'#3'"'#1#5'Width'#2'h'#7'Caption'#6#19'DisabledCo'
|
||||
+'lorButton'#27'DropDownSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28
|
||||
+'DropDownSettings.SplitButton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#24
|
||||
+'DisabledColorButtonClick'#8'TabOrder'#2#16#7'TabStop'#9#11'NormalBlend'#5#0
|
||||
+#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseC'
|
||||
+'olor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14
|
||||
+'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFoc'
|
||||
+'usBorder'#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickCo'
|
||||
+'lor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15
|
||||
+#23'AutoHeightBorderSpacing'#2#15#0#0#9'TCheckBox'#17'UnderlineCheckBox'#4'L'
|
||||
+'eft'#2#8#6'Height'#2#18#3'Top'#2'2'#5'Width'#2'Q'#7'Caption'#6#9'Underline'
|
||||
+#8'OnChange'#7#23'UnderlineCheckBoxChange'#8'TabOrder'#2#17#0#0#9'TCheckBox'
|
||||
+#12'BoldCheckBox'#4'Left'#2#8#6'Height'#2#18#3'Top'#2'E'#5'Width'#2'0'#7'Cap'
|
||||
+'tion'#6#4'Bold'#8'OnChange'#7#18'BoldCheckBoxChange'#8'TabOrder'#2#18#0#0#11
|
||||
+'TGradButton'#15'TextColorButton'#4'Left'#3#180#1#6'Height'#2#25#3'Top'#3#178
|
||||
+#0#5'Width'#2'h'#7'Caption'#6#10'Text Color'#27'DropDownSettings.OnlyOnMark'
|
||||
+#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton'#8#10'Font.Co'
|
||||
+'lor'#7#7'clWhite'#7'OnClick'#7#20'TextColorButtonClick'#8'TabOrder'#2#19#7
|
||||
+'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186
|
||||
+'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'Norm'
|
||||
+'alBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundCo'
|
||||
+'lor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBackground'
|
||||
+'Color'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22
|
||||
+'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#9'TCheckB'
|
||||
+'ox'#14'ItalicCheckBox'#4'Left'#2#8#6'Height'#2#18#3'Top'#2'X'#5'Width'#2'2'
|
||||
+#7'Caption'#6#6'Italic'#8'OnChange'#7#20'ItalicCheckBoxChange'#8'TabOrder'#2
|
||||
,#20#0#0#9'TCheckBox'#24'GlyphTransparentCheckBox'#4'Left'#3#176#1#6'Height'#2
|
||||
+#18#3'Top'#3#160#1#5'Width'#3#137#0#7'Caption'#6#17'Glyph Transparent'#8'OnC'
|
||||
+'hange'#7#30'GlyphTransparentCheckBoxChange'#8'TabOrder'#2#21#0#0#9'TGroupBo'
|
||||
+'x'#9'GroupBox1'#4'Left'#3'0'#2#6'Height'#3#191#1#3'Top'#2#10#5'Width'#3#185
|
||||
+#0#7'Caption'#6#16'DropDownSettings'#12'ClientHeight'#3#169#1#11'ClientWidth'
|
||||
+#3#177#0#8'TabOrder'#2#22#0#11'TRadioGroup'#11'RadioGroup6'#4'Left'#2#0#6'He'
|
||||
+'ight'#2'P'#3'Top'#3'Y'#1#5'Width'#3#177#0#5'Align'#7#8'alBottom'#8'AutoFill'
|
||||
+#9#7'Caption'#6#12'MarkPosition'#28'ChildSizing.LeftRightSpacing'#2#6#28'Chi'
|
||||
+'ldSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHo'
|
||||
+'mogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChil'
|
||||
+'dResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizi'
|
||||
+'ng.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeft'
|
||||
+'ToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'
|
||||
+#2':'#11'ClientWidth'#3#169#0#9'ItemIndex'#2#1#13'Items.Strings'#1#6#6'mpLef'
|
||||
+'t'#6#7'mpRight'#0#7'OnClick'#7#16'RadioGroup6Click'#8'TabOrder'#2#0#0#0#11
|
||||
+'TRadioGroup'#11'RadioGroup5'#4'Left'#2#0#6'Height'#3#135#0#3'Top'#3#210#0#5
|
||||
+'Width'#3#177#0#5'Align'#7#8'alBottom'#8'AutoFill'#9#7'Caption'#6#13'MarkDir'
|
||||
+'ection'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacin'
|
||||
+'g'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27
|
||||
+'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.'
|
||||
+'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14
|
||||
+'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'
|
||||
+#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'q'#11'ClientWidth'#3
|
||||
+#169#0#9'ItemIndex'#2#2#13'Items.Strings'#1#6#4'mdUp'#6#6'mdLeft'#6#6'mdDown'
|
||||
+#6#7'mdRight'#0#7'OnClick'#7#16'RadioGroup5Click'#8'TabOrder'#2#1#0#0#12'TLa'
|
||||
+'beledEdit'#12'LabeledEdit2'#4'Left'#2#0#6'Height'#2#22#3'Top'#2'E'#5'Width'
|
||||
+#2'P EditLabel.AnchorSideLeft.Control'#7#12'LabeledEdit2"EditLabel.AnchorSid'
|
||||
+'eBottom.Control'#7#12'LabeledEdit2'#14'EditLabel.Left'#2#0#16'EditLabel.Hei'
|
||||
+'ght'#2#17#13'EditLabel.Top'#2'1'#15'EditLabel.Width'#2#26#17'EditLabel.Capt'
|
||||
+'ion'#6#4'Size'#21'EditLabel.ParentColor'#8#20'EditLabel.ParentFont'#8#8'Tab'
|
||||
+'Order'#2#2#4'Text'#6#1'8'#8'OnChange'#7#18'LabeledEdit2Change'#0#0#6'TLabel'
|
||||
+#7'Label13'#4'Left'#2'D'#6'Height'#2#17#3'Top'#2']'#5'Width'#2'#'#7'Caption'
|
||||
+#6#5'Color'#11'ParentColor'#8#0#0#11'TGradButton'#13'DDColorButton'#4'Left'#2
|
||||
+#0#6'Height'#2#25#3'Top'#2'u'#5'Width'#3#177#0#7'Caption'#6#13'DDColorButton'
|
||||
+#27'DropDownSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSe'
|
||||
+'ttings.SplitButton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#18'DDColorBu'
|
||||
+'ttonClick'#8'TabOrder'#2#3#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128
|
||||
+#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'
|
||||
+#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7
|
||||
+#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'Show'
|
||||
+'Glyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19
|
||||
+'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderS'
|
||||
+'pacing'#2#15#0#0#6'TLabel'#7'Label14'#4'Left'#2'$'#6'Height'#2#17#3'Top'#3
|
||||
+#149#0#5'Width'#2'X'#7'Caption'#6#13'Pressed Color'#11'ParentColor'#8#0#0#11
|
||||
+'TGradButton'#20'DDPressedColorButton'#4'Left'#2#0#6'Height'#2#25#3'Top'#3
|
||||
+#173#0#5'Width'#3#177#0#7'Caption'#6#20'DDPressedColorButton'#27'DropDownSet'
|
||||
+'tings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitBu'
|
||||
+'tton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#25'DDPressedColorButtonCli'
|
||||
+'ck'#8'TabOrder'#2#4#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'
|
||||
+#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Col'
|
||||
+'or'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'cl'
|
||||
+'Silver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyp'
|
||||
+'h'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'Ow'
|
||||
+'nerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpa'
|
||||
+'cing'#2#15#0#0#9'TCheckBox'#9'CheckBox1'#4'Left'#2#4#6'Height'#2#18#3'Top'#2
|
||||
+#5#5'Width'#2'6'#7'Caption'#6#4'Show'#8'OnChange'#7#15'CheckBox1Change'#8'Ta'
|
||||
+'bOrder'#2#5#0#0#9'TCheckBox'#9'CheckBox2'#4'Left'#2#4#6'Height'#2#18#3'Top'
|
||||
+#2#29#5'Width'#2'Y'#7'Caption'#6#11'SplitButton'#8'OnChange'#7#15'CheckBox2C'
|
||||
+'hange'#8'TabOrder'#2#6#0#0#0#12'TColorDialog'#12'ColorDialog1'#5'Color'#4'1'
|
||||
+'i'#182#0#20'CustomColors.Strings'#1#6#13'ColorA=000000'#6#13'ColorB=000080'
|
||||
+#6#13'ColorC=008000'#6#13'ColorD=008080'#6#13'ColorE=800000'#6#13'ColorF=800'
|
||||
+'080'#6#13'ColorG=808000'#6#13'ColorH=808080'#6#13'ColorI=C0C0C0'#6#13'Color'
|
||||
+'J=0000FF'#6#13'ColorK=00FF00'#6#13'ColorL=00FFFF'#6#13'ColorM=FF0000'#6#13
|
||||
+'ColorN=FF00FF'#6#13'ColorO=FFFF00'#6#13'ColorP=FFFFFF'#6#13'ColorQ=C0DCC0'#6
|
||||
,#13'ColorR=F0CAA6'#6#13'ColorS=F0FBFF'#6#13'ColorT=A4A0A0'#0#4'left'#3#152#0
|
||||
+#3'top'#3#208#1#0#0#18'TOpenPictureDialog'#18'OpenPictureDialog1'#6'Filter'#6
|
||||
+#255'Graphic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*'
|
||||
+'.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga'
|
||||
,'|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pix'
|
||||
+'map (*.ppm)|*.ppm|Portable Graymap'#4'left'#2'0'#3'top'#3#176#0#0#0#0
|
||||
+'|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pix'
|
||||
+'map (*.ppm)|*.ppm|Portable Graymap'#4'left'#2'8'#3'top'#3#200#1#0#0#10'TPop'
|
||||
+'upMenu'#16'ExamplePopupMenu'#4'left'#2'h'#3'top'#3#208#1#0#9'TMenuItem'#9'M'
|
||||
+'enuItem1'#7'Caption'#6#9'New Item1'#0#0#9'TMenuItem'#9'MenuItem2'#7'Caption'
|
||||
+#6#9'New Item2'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -7,17 +7,30 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, ExtCtrls, ugradbtn, Buttons, ComCtrls,
|
||||
LCLType, ExtDlgs, urotatebitmap;
|
||||
LCLType, ExtDlgs, Menus, urotatebitmap;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
CheckBox2: TCheckBox;
|
||||
DDColorButton: TGradButton;
|
||||
DDPressedColorButton: TGradButton;
|
||||
BoldCheckBox: TCheckBox;
|
||||
CheckBox1: TCheckBox;
|
||||
GlyphTransparentCheckBox: TCheckBox;
|
||||
GroupBox1: TGroupBox;
|
||||
ItalicCheckBox: TCheckBox;
|
||||
Label12: TLabel;
|
||||
ExamplePopupMenu: TPopupMenu;
|
||||
Label13: TLabel;
|
||||
Label14: TLabel;
|
||||
LabeledEdit2: TLabeledEdit;
|
||||
MenuItem1: TMenuItem;
|
||||
MenuItem2: TMenuItem;
|
||||
RadioGroup5: TRadioGroup;
|
||||
RadioGroup6: TRadioGroup;
|
||||
TextColorButton: TGradButton;
|
||||
UnderlineCheckBox: TCheckBox;
|
||||
CheckGroup1: TCheckGroup;
|
||||
@ -52,10 +65,15 @@ type
|
||||
TrackBar2: TTrackBar;
|
||||
procedure bClick(Sender: TObject);
|
||||
procedure BoldCheckBoxChange(Sender: TObject);
|
||||
procedure CheckBox1Change(Sender: TObject);
|
||||
procedure CheckBox2Change(Sender: TObject);
|
||||
procedure CheckGroup1ItemClick(Sender: TObject; Index: integer);
|
||||
procedure CheckGroup2ItemClick(Sender: TObject; Index: integer);
|
||||
procedure BaseColorClick(Sender: TObject);
|
||||
procedure DDPressedColorButtonClick(Sender: TObject);
|
||||
procedure DDColorButtonClick(Sender: TObject);
|
||||
procedure GlyphTransparentCheckBoxChange(Sender: TObject);
|
||||
procedure LabeledEdit2Change(Sender: TObject);
|
||||
procedure LoadGlyphButtonClick(Sender: TObject);
|
||||
procedure GlyphBackgroundColorButtonClick(Sender: TObject);
|
||||
procedure ClickColorButtonClick(Sender: TObject);
|
||||
@ -68,6 +86,8 @@ type
|
||||
procedure RadioGroup2Click(Sender: TObject);
|
||||
procedure RadioGroup3Click(Sender: TObject);
|
||||
procedure RadioGroup4Click(Sender: TObject);
|
||||
procedure RadioGroup5Click(Sender: TObject);
|
||||
procedure RadioGroup6Click(Sender: TObject);
|
||||
procedure TextColorButtonClick(Sender: TObject);
|
||||
procedure TrackBar1Change(Sender: TObject);
|
||||
procedure TrackBar2Change(Sender: TObject);
|
||||
@ -82,7 +102,8 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
GraphType;
|
||||
GraphType;
|
||||
|
||||
procedure UpdateButtonColor(Button: TGradButton; Color: TColor);
|
||||
begin
|
||||
Button.BaseColor := Color;
|
||||
@ -106,6 +127,8 @@ begin
|
||||
UpdateButtonColor(ClickColorButton, b.ClickColor);
|
||||
UpdateButtonColor(DisabledColorButton, b.DisabledColor);
|
||||
UpdateButtonColor(TextColorButton, b.Font.Color);
|
||||
UpdateButtonColor(DDColorButton, b.DropDownSettings.Color);
|
||||
UpdateButtonColor(DDPressedColorButton, b.DropDownSettings.PressedColor);
|
||||
|
||||
CheckGroup1.Checked[0]:=true;
|
||||
CheckGroup1.Checked[1]:=true;
|
||||
@ -125,42 +148,60 @@ end;
|
||||
|
||||
procedure TForm1.RadioGroup1Click(Sender: TObject);
|
||||
begin
|
||||
if RadioGroup1.ItemIndex = 0 then
|
||||
b.GradientType := gtHorizontal
|
||||
else
|
||||
b.GradientType := gtVertical;
|
||||
if RadioGroup1.ItemIndex = 0 then
|
||||
b.GradientType := gtHorizontal
|
||||
else
|
||||
b.GradientType := gtVertical;
|
||||
end;
|
||||
|
||||
procedure TForm1.RadioGroup2Click(Sender: TObject);
|
||||
begin
|
||||
if RadioGroup2.ItemIndex = 0 then
|
||||
b.RotateDirection := rdNormal
|
||||
else if RadioGroup2.ItemIndex = 1 then
|
||||
b.RotateDirection := rdLeft
|
||||
else
|
||||
b.RotateDirection := rdRight;
|
||||
if RadioGroup2.ItemIndex = 0 then
|
||||
b.RotateDirection := rdNormal
|
||||
else if RadioGroup2.ItemIndex = 1 then
|
||||
b.RotateDirection := rdLeft
|
||||
else
|
||||
b.RotateDirection := rdRight;
|
||||
end;
|
||||
|
||||
procedure TForm1.RadioGroup3Click(Sender: TObject);
|
||||
begin
|
||||
if RadioGroup3.ItemIndex = 0 then
|
||||
b.ButtonLayout := blGlyphRight
|
||||
b.ButtonLayout := blGlyphRight
|
||||
else if RadioGroup3.ItemIndex = 1 then
|
||||
b.ButtonLayout := blGlyphLeft
|
||||
b.ButtonLayout := blGlyphLeft
|
||||
else if RadioGroup3.ItemIndex = 2 then
|
||||
b.ButtonLayout := blGlyphTop
|
||||
b.ButtonLayout := blGlyphTop
|
||||
else b.ButtonLayout := blGlyphBottom;
|
||||
end;
|
||||
|
||||
procedure TForm1.RadioGroup4Click(Sender: TObject);
|
||||
begin
|
||||
case RadioGroup4.ItemIndex of
|
||||
0 : b.TextAlignment := taCenter;
|
||||
1 : b.TextAlignment := taLeftJustify;
|
||||
2 : b.TextAlignment := taRightJustify;
|
||||
0 : b.TextAlignment := taCenter;
|
||||
1 : b.TextAlignment := taLeftJustify;
|
||||
2 : b.TextAlignment := taRightJustify;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.RadioGroup5Click(Sender: TObject);
|
||||
begin
|
||||
case RadioGroup5.ItemIndex of
|
||||
0: b.DropDownSettings.MarkDirection:=mdUp;
|
||||
1: b.DropDownSettings.MarkDirection:=mdLeft;
|
||||
2: b.DropDownSettings.MarkDirection:=mdDown;
|
||||
3: b.DropDownSettings.MarkDirection:=mdRight;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.RadioGroup6Click(Sender: TObject);
|
||||
begin
|
||||
case RadioGroup6.ItemIndex of
|
||||
0: b.DropDownSettings.MarkPosition:=mpLeft;
|
||||
1: b.DropDownSettings.MarkPosition:=mpRight;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.TextColorButtonClick(Sender: TObject);
|
||||
begin
|
||||
ColorDialog1.Color := b.Font.Color;
|
||||
@ -173,12 +214,32 @@ end;
|
||||
|
||||
procedure TForm1.BaseColorClick(Sender: TObject);
|
||||
begin
|
||||
ColorDialog1.Color:=BaseColorButton.BaseColor;
|
||||
if ColorDialog1.Execute then
|
||||
begin
|
||||
b.BaseColor:=ColorDialog1.Color;
|
||||
UpdateButtonColor(BaseColorButton, ColorDialog1.Color);
|
||||
end;
|
||||
ColorDialog1.Color:=BaseColorButton.BaseColor;
|
||||
if ColorDialog1.Execute then
|
||||
begin
|
||||
b.BaseColor:=ColorDialog1.Color;
|
||||
UpdateButtonColor(BaseColorButton, ColorDialog1.Color);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.DDPressedColorButtonClick(Sender: TObject);
|
||||
begin
|
||||
ColorDialog1.Color:=DDPressedColorButton.BaseColor;
|
||||
if ColorDialog1.Execute then
|
||||
begin
|
||||
b.DropDownSettings.PressedColor:=ColorDialog1.Color;
|
||||
UpdateButtonColor(DDPressedColorButton, ColorDialog1.Color);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.DDColorButtonClick(Sender: TObject);
|
||||
begin
|
||||
ColorDialog1.Color:=DDColorButton.BaseColor;
|
||||
if ColorDialog1.Execute then
|
||||
begin
|
||||
b.DropDownSettings.Color:=ColorDialog1.Color;
|
||||
UpdateButtonColor(DDColorButton, ColorDialog1.Color);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.GlyphTransparentCheckBoxChange(Sender: TObject);
|
||||
@ -187,6 +248,16 @@ begin
|
||||
LoadGlyphButton.Glyph.Transparent := GlyphTransparentCheckBox.Checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.LabeledEdit2Change(Sender: TObject);
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
if TryStrToInt(LabeledEdit2.Text, i) then
|
||||
begin
|
||||
b.DropDownSettings.Size := i;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.LoadGlyphButtonClick(Sender: TObject);
|
||||
var
|
||||
tempPicture : TPicture;
|
||||
@ -289,6 +360,16 @@ begin
|
||||
b.Font.Style := b.Font.Style - [fsBold];
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox1Change(Sender: TObject);
|
||||
begin
|
||||
b.DropDownSettings.Show := CheckBox1.Checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox2Change(Sender: TObject);
|
||||
begin
|
||||
b.DropDownSettings.SplitButton:= CheckBox2.Checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.bClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
|
||||
@ -1,21 +1,22 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<Title Value="TGradButton-Demo"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<ProjectVersion Value=""/>
|
||||
<StringTable ProductVersion=""/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
@ -25,7 +26,7 @@
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="3">
|
||||
@ -55,15 +56,16 @@
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="8"/>
|
||||
<Version Value="9"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="Forms\"/>
|
||||
<UnitOutputDirectory Value="Output\"/>
|
||||
<OtherUnitFiles Value="Forms"/>
|
||||
<UnitOutputDirectory Value="Output"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<CStyleOperator Value="False"/>
|
||||
<UseAnsiStrings Value="False"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<CodeGeneration>
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user