You've already forked lazarus-ccr
484 lines
12 KiB
Plaintext
484 lines
12 KiB
Plaintext
|
object Form1: TForm1
|
||
|
|
Left = 399
|
||
|
|
Height = 440
|
||
|
|
Top = 98
|
||
|
|
Width = 575
|
||
|
|
ActiveControl = TrackBar1
|
||
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
||
|
|
BorderStyle = bsSingle
|
||
|
|
Caption = 'TGradButton-Demo'
|
||
|
|
ClientHeight = 440
|
||
|
|
ClientWidth = 575
|
||
|
|
OnCreate = FormCreate
|
||
|
|
LCLVersion = '0.9.25'
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 8
|
||
|
|
Height = 14
|
||
|
|
Top = 75
|
||
|
|
Width = 60
|
||
|
|
Caption = 'NormalBlend'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label2: TLabel
|
||
|
|
Left = 8
|
||
|
|
Height = 14
|
||
|
|
Top = 131
|
||
|
|
Width = 51
|
||
|
|
Caption = 'OverBlend'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label3: TLabel
|
||
|
|
Left = 88
|
||
|
|
Height = 14
|
||
|
|
Top = 75
|
||
|
|
Width = 1
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label4: TLabel
|
||
|
|
Left = 88
|
||
|
|
Height = 14
|
||
|
|
Top = 131
|
||
|
|
Width = 1
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label5: TLabel
|
||
|
|
Left = 45
|
||
|
|
Height = 14
|
||
|
|
Top = 16
|
||
|
|
Width = 52
|
||
|
|
Caption = 'Base Color'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label6: TLabel
|
||
|
|
Left = 151
|
||
|
|
Height = 14
|
||
|
|
Top = 16
|
||
|
|
Width = 91
|
||
|
|
Caption = 'Normal Blend Color'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label7: TLabel
|
||
|
|
Left = 272
|
||
|
|
Height = 14
|
||
|
|
Top = 16
|
||
|
|
Width = 82
|
||
|
|
Caption = 'Over Blend Color'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label8: TLabel
|
||
|
|
Left = 488
|
||
|
|
Height = 14
|
||
|
|
Top = 128
|
||
|
|
Width = 28
|
||
|
|
Caption = 'Glyph'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label9: TLabel
|
||
|
|
Left = 461
|
||
|
|
Height = 14
|
||
|
|
Top = 184
|
||
|
|
Width = 87
|
||
|
|
Caption = 'Glyph Background'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label10: TLabel
|
||
|
|
Left = 464
|
||
|
|
Height = 14
|
||
|
|
Top = 16
|
||
|
|
Width = 50
|
||
|
|
Caption = 'Click Color'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label11: TLabel
|
||
|
|
Left = 464
|
||
|
|
Height = 14
|
||
|
|
Top = 72
|
||
|
|
Width = 84
|
||
|
|
Caption = 'NotEnabled Color'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object TrackBar1: TTrackBar
|
||
|
|
Left = 8
|
||
|
|
Height = 30
|
||
|
|
Top = 96
|
||
|
|
Width = 368
|
||
|
|
Max = 100000
|
||
|
|
OnChange = TrackBar1Change
|
||
|
|
ScalePos = trBottom
|
||
|
|
TickStyle = tsNone
|
||
|
|
Align = alCustom
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object TrackBar2: TTrackBar
|
||
|
|
Left = 8
|
||
|
|
Height = 30
|
||
|
|
Top = 155
|
||
|
|
Width = 368
|
||
|
|
Max = 100000
|
||
|
|
OnChange = TrackBar2Change
|
||
|
|
ScalePos = trBottom
|
||
|
|
TabStop = False
|
||
|
|
TickStyle = tsNone
|
||
|
|
Align = alCustom
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object CheckGroup1: TCheckGroup
|
||
|
|
Left = 8
|
||
|
|
Height = 105
|
||
|
|
Top = 320
|
||
|
|
Width = 129
|
||
|
|
AutoFill = True
|
||
|
|
Caption = 'Border Sides'
|
||
|
|
ChildSizing.LeftRightSpacing = 6
|
||
|
|
ChildSizing.TopBottomSpacing = 6
|
||
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||
|
|
ChildSizing.ControlsPerLine = 1
|
||
|
|
Items.Strings = (
|
||
|
|
'bsBottomLine'
|
||
|
|
'bsTopLine'
|
||
|
|
'bsLeftLine'
|
||
|
|
'bsRightLine'
|
||
|
|
)
|
||
|
|
OnItemClick = CheckGroup1ItemClick
|
||
|
|
TabOrder = 4
|
||
|
|
Data = {
|
||
|
|
0400000002020202
|
||
|
|
}
|
||
|
|
end
|
||
|
|
object CheckGroup2: TCheckGroup
|
||
|
|
Left = 8
|
||
|
|
Height = 89
|
||
|
|
Top = 216
|
||
|
|
Width = 129
|
||
|
|
AutoFill = True
|
||
|
|
Caption = 'Other'
|
||
|
|
ChildSizing.LeftRightSpacing = 6
|
||
|
|
ChildSizing.TopBottomSpacing = 6
|
||
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||
|
|
ChildSizing.ControlsPerLine = 1
|
||
|
|
Items.Strings = (
|
||
|
|
'ShowFocusBorder'
|
||
|
|
'ShowGlyph'
|
||
|
|
'Enabled'
|
||
|
|
)
|
||
|
|
OnItemClick = CheckGroup2ItemClick
|
||
|
|
TabOrder = 6
|
||
|
|
Data = {
|
||
|
|
03000000020202
|
||
|
|
}
|
||
|
|
end
|
||
|
|
object RadioGroup1: TRadioGroup
|
||
|
|
Left = 432
|
||
|
|
Height = 65
|
||
|
|
Top = 240
|
||
|
|
Width = 129
|
||
|
|
AutoFill = True
|
||
|
|
Caption = 'Gradient Type'
|
||
|
|
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 = 47
|
||
|
|
ClientWidth = 125
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'gtHorizontal'
|
||
|
|
'gtVertical'
|
||
|
|
)
|
||
|
|
OnClick = RadioGroup1Click
|
||
|
|
TabOrder = 8
|
||
|
|
end
|
||
|
|
object RadioGroup2: TRadioGroup
|
||
|
|
Left = 151
|
||
|
|
Height = 105
|
||
|
|
Top = 320
|
||
|
|
Width = 129
|
||
|
|
AutoFill = True
|
||
|
|
Caption = 'Rotated Direction'
|
||
|
|
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 = 87
|
||
|
|
ClientWidth = 125
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'rdNormal'
|
||
|
|
'rdLeft'
|
||
|
|
'rdRight'
|
||
|
|
)
|
||
|
|
OnClick = RadioGroup2Click
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object RadioGroup3: TRadioGroup
|
||
|
|
Left = 296
|
||
|
|
Height = 105
|
||
|
|
Top = 320
|
||
|
|
Width = 121
|
||
|
|
AutoFill = True
|
||
|
|
Caption = 'Button Layout'
|
||
|
|
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 = 87
|
||
|
|
ClientWidth = 117
|
||
|
|
ItemIndex = 1
|
||
|
|
Items.Strings = (
|
||
|
|
'blGlyphRight'
|
||
|
|
'blGlyphLeft'
|
||
|
|
'blGlyphTop'
|
||
|
|
'blGlyphBottom'
|
||
|
|
)
|
||
|
|
OnClick = RadioGroup3Click
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object RadioGroup4: TRadioGroup
|
||
|
|
Left = 432
|
||
|
|
Height = 106
|
||
|
|
Top = 320
|
||
|
|
Width = 129
|
||
|
|
AutoFill = True
|
||
|
|
Caption = 'Text Alignment'
|
||
|
|
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 = 88
|
||
|
|
ClientWidth = 125
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'taCenter'
|
||
|
|
'taLeftJustify'
|
||
|
|
'taRightJustify'
|
||
|
|
)
|
||
|
|
OnClick = RadioGroup4Click
|
||
|
|
TabOrder = 5
|
||
|
|
end
|
||
|
|
object LabeledEdit1: TLabeledEdit
|
||
|
|
Left = 328
|
||
|
|
Height = 23
|
||
|
|
Top = 240
|
||
|
|
Width = 80
|
||
|
|
EditLabel.AnchorSideLeft.Control = LabeledEdit1
|
||
|
|
EditLabel.AnchorSideBottom.Control = LabeledEdit1
|
||
|
|
EditLabel.Left = 328
|
||
|
|
EditLabel.Height = 14
|
||
|
|
EditLabel.Top = 223
|
||
|
|
EditLabel.Width = 73
|
||
|
|
EditLabel.Caption = 'Button Caption'
|
||
|
|
EditLabel.ParentColor = False
|
||
|
|
ParentColor = False
|
||
|
|
TabOrder = 7
|
||
|
|
Text = 'Sample Text'
|
||
|
|
OnKeyUp = LabeledEdit1KeyUp
|
||
|
|
end
|
||
|
|
object b: TGradButton
|
||
|
|
Left = 152
|
||
|
|
Height = 96
|
||
|
|
Top = 200
|
||
|
|
Width = 168
|
||
|
|
Font.Height = -15
|
||
|
|
OnClick = bClick
|
||
|
|
TabOrder = 9
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'ÖÄÜÒ'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object GradButton1: TGradButton
|
||
|
|
Left = 16
|
||
|
|
Height = 25
|
||
|
|
Top = 35
|
||
|
|
Width = 104
|
||
|
|
OnClick = BaseColorClick
|
||
|
|
TabOrder = 10
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'GradButton1'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object GradButton2: TGradButton
|
||
|
|
Left = 144
|
||
|
|
Height = 25
|
||
|
|
Top = 35
|
||
|
|
Width = 104
|
||
|
|
OnClick = NormalBlendClick
|
||
|
|
TabOrder = 11
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'GradButton2'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object GradButton3: TGradButton
|
||
|
|
Left = 256
|
||
|
|
Height = 25
|
||
|
|
Top = 35
|
||
|
|
Width = 104
|
||
|
|
OnClick = OverBlendClick
|
||
|
|
TabOrder = 12
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'GradButton3'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object GradButton4: TGradButton
|
||
|
|
Left = 452
|
||
|
|
Height = 25
|
||
|
|
Top = 149
|
||
|
|
Width = 104
|
||
|
|
OnClick = GradButton4Click
|
||
|
|
TabOrder = 13
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'load Glyph'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object GradButton5: TGradButton
|
||
|
|
Left = 452
|
||
|
|
Height = 25
|
||
|
|
Top = 200
|
||
|
|
Width = 104
|
||
|
|
OnClick = GradButton5Click
|
||
|
|
TabOrder = 14
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'GradButton5'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object GradButton6: TGradButton
|
||
|
|
Left = 452
|
||
|
|
Height = 25
|
||
|
|
Top = 35
|
||
|
|
Width = 104
|
||
|
|
OnClick = GradButton6Click
|
||
|
|
TabOrder = 15
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'GradButton6'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object GradButton7: TGradButton
|
||
|
|
Left = 452
|
||
|
|
Height = 25
|
||
|
|
Top = 93
|
||
|
|
Width = 104
|
||
|
|
OnClick = GradButton7Click
|
||
|
|
TabOrder = 16
|
||
|
|
TabStop = True
|
||
|
|
NormalBlend = 0.5
|
||
|
|
OverBlend = 0.653
|
||
|
|
Caption = 'GradButton7'
|
||
|
|
BaseColor = clBlue
|
||
|
|
Color = clBlue
|
||
|
|
NormalBlendColor = clWhite
|
||
|
|
OverBlendColor = clSilver
|
||
|
|
BackgroundColor = clBtnFace
|
||
|
|
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
|
||
|
|
ShowFocusBorder = True
|
||
|
|
GlyphBackgroundColor = clWhite
|
||
|
|
ClickColor = clBlue
|
||
|
|
end
|
||
|
|
object ColorDialog1: TColorDialog
|
||
|
|
Color = 11954481
|
||
|
|
left = 48
|
||
|
|
top = 176
|
||
|
|
end
|
||
|
|
object ImageList1: TImageList
|
||
|
|
left = 8
|
||
|
|
top = 176
|
||
|
|
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 = 88
|
||
|
|
top = 176
|
||
|
|
end
|
||
|
|
end
|