Files
lazarus-ccr/components/gradcontrols/examples/Forms/unit1.lfm

736 lines
19 KiB
Plaintext
Raw Normal View History

object Form1: TForm1
Left = 81
Height = 506
Top = 164
Width = 898
Caption = 'Form1'
ClientHeight = 506
ClientWidth = 898
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '0.9.25'
object GradButton1: TGradButton
Left = 24
Height = 104
Top = 88
Width = 176
Caption = 'GradButton1'
OnClick = GradButton1Click
OnMouseDown = GradButton1MouseDown
OnMouseEnter = GradButton1MouseEnter
OnMouseLeave = GradButton1MouseLeave
OnMouseMove = GradButton1MouseMove
OnMouseUp = GradButton1MouseUp
TabOrder = 0
TabStop = True
NormalBlend = 0.5
OverBlend = 0.653
BaseColor = clBlue
Color = clBlue
NormalBlendColor = clWhite
OverBlendColor = clSilver
BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True
Glyph.Data = {
3A000000424D3A00000000000000360000002800000001000000010000000100
18000000000004000000640000006400000000000000000000009451DC00
}
GlyphBackgroundColor = clWhite
ClickColor = clBlue
end
object Panel1: TPanel
Height = 506
Width = 759
Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Panel1'
ClientHeight = 506
ClientWidth = 759
TabOrder = 1
object GradTabControl1: TGradTabControl
Left = 248
Height = 504
Top = 1
Width = 392
Align = alClient
ControlStyle = [csAcceptsControls, csDesignInteractive, csOpaque, csMenuEvents, csParentBackground, csOwnedChildsSelectable]
ActivePage = GradTabPage2
OnTabButtonClick = GradTabControl1TabButtonClick
OnTabButtonMouseUp = GradTabControl1TabButtonMouseUp
PageIndex = 1
TabHeight = 20
object GradTabPage1: TGradTabPage
Left = 2
Height = 480
Top = 22
Width = 388
ControlState = [csVisibleSetInLoading]
ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
Caption = 'GradTabPage1'
ShowCloseButton = True
object Edit1: TEdit
Height = 480
Width = 388
Align = alClient
TabOrder = 0
Text = 'Edit1'
end
end
object GradTabPage3: TGradTabPage
Left = 2
Height = 480
Top = 22
Width = 388
ControlState = [csVisibleSetInLoading]
ControlStyle = [csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
PageIndex = 2
Caption = 'GradTabPage3'
object Memo1: TMemo
Left = 6
Height = 362
Top = 49
Width = 326
Align = alClient
Lines.Strings = (
'Memo1'
)
TabOrder = 0
end
end
object GradTabPage2: TGradTabPage
Left = 2
Height = 480
Top = 22
Width = 388
ControlState = [csVisibleSetInLoading]
ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csDesignFixedBounds]
PageIndex = 1
Caption = 'GradTabPage2'
end
end
object GradTabControl2: TGradTabControl
Left = 1
Height = 504
Top = 1
Width = 247
Align = alLeft
ControlStyle = [csAcceptsControls]
ActivePage = GradTabPage5
OnTabButtonClick = GradTabControl2TabButtonClick
PageIndex = 1
TabHeight = 25
TabPosition = tpRight
object GradTabPage4: TGradTabPage
Left = 2
Height = 587
Top = 2
Width = 218
ControlState = [csVisibleSetInLoading]
ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
TabVisible = False
Caption = 'GradTabPage4wewwerwerwer'
object SynEdit1: TSynEdit
Height = 587
Width = 218
Align = alClient
Font.Height = 12
Font.Name = 'Courier'
Font.Pitch = fpFixed
ParentColor = False
TabOrder = 0
BookMarkOptions.OnChange = nil
Highlighter = SynPHPSyn1
Keystrokes = <
item
Command = 3
ShortCut = 38
end
item
Command = 103
ShortCut = 8230
end
item
Command = 211
ShortCut = 16422
end
item
Command = 4
ShortCut = 40
end
item
Command = 104
ShortCut = 8232
end
item
Command = 212
ShortCut = 16424
end
item
Command = 1
ShortCut = 37
end
item
Command = 101
ShortCut = 8229
end
item
Command = 5
ShortCut = 16421
end
item
Command = 105
ShortCut = 24613
end
item
Command = 2
ShortCut = 39
end
item
Command = 102
ShortCut = 8231
end
item
Command = 6
ShortCut = 16423
end
item
Command = 106
ShortCut = 24615
end
item
Command = 10
ShortCut = 34
end
item
Command = 110
ShortCut = 8226
end
item
Command = 14
ShortCut = 16418
end
item
Command = 114
ShortCut = 24610
end
item
Command = 9
ShortCut = 33
end
item
Command = 109
ShortCut = 8225
end
item
Command = 13
ShortCut = 16417
end
item
Command = 113
ShortCut = 24609
end
item
Command = 7
ShortCut = 36
end
item
Command = 107
ShortCut = 8228
end
item
Command = 15
ShortCut = 16420
end
item
Command = 115
ShortCut = 24612
end
item
Command = 8
ShortCut = 35
end
item
Command = 108
ShortCut = 8227
end
item
Command = 16
ShortCut = 16419
end
item
Command = 116
ShortCut = 24611
end
item
Command = 223
ShortCut = 45
end
item
Command = 201
ShortCut = 16429
end
item
Command = 604
ShortCut = 8237
end
item
Command = 502
ShortCut = 46
end
item
Command = 603
ShortCut = 8238
end
item
Command = 501
ShortCut = 8
end
item
Command = 501
ShortCut = 8200
end
item
Command = 504
ShortCut = 16392
end
item
Command = 601
ShortCut = 32776
end
item
Command = 602
ShortCut = 40968
end
item
Command = 509
ShortCut = 13
end
item
Command = 199
ShortCut = 16449
end
item
Command = 201
ShortCut = 16451
end
item
Command = 610
ShortCut = 24649
end
item
Command = 509
ShortCut = 16461
end
item
Command = 510
ShortCut = 16462
end
item
Command = 503
ShortCut = 16468
end
item
Command = 611
ShortCut = 24661
end
item
Command = 604
ShortCut = 16470
end
item
Command = 603
ShortCut = 16472
end
item
Command = 507
ShortCut = 16473
end
item
Command = 506
ShortCut = 24665
end
item
Command = 601
ShortCut = 16474
end
item
Command = 602
ShortCut = 24666
end
item
Command = 301
ShortCut = 16432
end
item
Command = 302
ShortCut = 16433
end
item
Command = 303
ShortCut = 16434
end
item
Command = 304
ShortCut = 16435
end
item
Command = 305
ShortCut = 16436
end
item
Command = 306
ShortCut = 16437
end
item
Command = 307
ShortCut = 16438
end
item
Command = 308
ShortCut = 16439
end
item
Command = 309
ShortCut = 16440
end
item
Command = 310
ShortCut = 16441
end
item
Command = 351
ShortCut = 24624
end
item
Command = 352
ShortCut = 24625
end
item
Command = 353
ShortCut = 24626
end
item
Command = 354
ShortCut = 24627
end
item
Command = 355
ShortCut = 24628
end
item
Command = 356
ShortCut = 24629
end
item
Command = 357
ShortCut = 24630
end
item
Command = 358
ShortCut = 24631
end
item
Command = 359
ShortCut = 24632
end
item
Command = 360
ShortCut = 24633
end
item
Command = 231
ShortCut = 24654
end
item
Command = 232
ShortCut = 24643
end
item
Command = 233
ShortCut = 24652
end
item
Command = 612
ShortCut = 9
end
item
Command = 613
ShortCut = 8201
end
item
Command = 250
ShortCut = 24642
end>
Lines.Strings = (
'<?'
''
'echo "string";'
''
'?>'
)
SelectedColor.OnChange = nil
end
end
object GradTabPage5: TGradTabPage
Left = 2
Height = 500
Top = 2
Width = 218
ControlState = [csVisibleSetInLoading]
ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csDesignFixedBounds]
PageIndex = 1
Caption = 'GradTabPage5'
ShowCloseButton = True
object StringGrid1: TStringGrid
Height = 500
Width = 218
Align = alClient
ColCount = 5
ExtendedSelect = True
FixedColor = clBtnFace
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goSmoothScroll]
RowCount = 5
TabOrder = 0
end
end
end
object GradTabControl3: TGradTabControl
Left = 640
Height = 504
Top = 1
Width = 118
Align = alRight
ControlStyle = [csAcceptsControls]
ActivePage = GradTabPage6
PageIndex = 1
TabHeight = 30
TabPosition = tpLeft
object GradTabPage7: TGradTabPage
Left = 32
Height = 500
Top = 2
Width = 84
ControlState = [csVisibleSetInLoading]
ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
Caption = 'GradTabPage7'
end
object GradTabPage6: TGradTabPage
Left = 32
Height = 500
Top = 2
Width = 84
ControlState = [csVisibleSetInLoading]
ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csDesignFixedBounds]
PageIndex = 1
Caption = 'GradTabPage6'
ShowCloseButton = True
end
end
end
object Panel2: TPanel
Left = 764
Height = 506
Width = 134
Align = alClient
Caption = 'Panel2'
ClientHeight = 506
ClientWidth = 134
TabOrder = 2
object ComboBox1: TComboBox
Left = 16
Height = 21
Top = 16
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
OnChange = ComboBox1Change
Style = csDropDownList
TabOrder = 0
end
object GradButton3: TGradButton
Left = 16
Height = 25
Top = 48
Width = 100
Caption = 'Add'
OnClick = GradButton3Click
TabOrder = 1
TabStop = True
NormalBlend = 0.5
OverBlend = 0.653
BaseColor = clBlue
Color = clBlue
NormalBlendColor = clWhite
OverBlendColor = clSilver
BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True
Glyph.Data = {
3A000000424D3A00000000000000360000002800000001000000010000000100
1800000000000400000064000000640000000000000000000000FC8FE500
}
GlyphBackgroundColor = clWhite
ClickColor = clBlue
end
object GradButton4: TGradButton
Left = 16
Height = 25
Top = 112
Width = 100
Caption = 'Delete'
OnClick = GradButton4Click
TabOrder = 2
TabStop = True
NormalBlend = 0.5
OverBlend = 0.653
BaseColor = clBlue
Color = clBlue
NormalBlendColor = clWhite
OverBlendColor = clSilver
BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True
Glyph.Data = {
3A000000424D3A00000000000000360000002800000001000000010000000100
1800000000000400000064000000640000000000000000000000ACA4E500
}
GlyphBackgroundColor = clWhite
ClickColor = clBlue
end
object GradButton2: TGradButton
Left = 16
Height = 25
Top = 80
Width = 100
Caption = 'Add Custom Page'
OnClick = GradButton2Click
TabOrder = 3
TabStop = True
NormalBlend = 0.5
OverBlend = 0.653
BaseColor = clBlue
Color = clBlue
NormalBlendColor = clWhite
OverBlendColor = clSilver
BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True
Glyph.Data = {
3A000000424D3A00000000000000360000002800000001000000010000000100
18000000000004000000640000006400000000000000000000008C440700
}
GlyphBackgroundColor = clWhite
ClickColor = clBlue
end
object RadioGroup1: TRadioGroup
Left = 16
Height = 113
Top = 152
Width = 100
AutoFill = True
Caption = 'Tab Position'
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 = 95
ClientWidth = 96
ItemIndex = 0
Items.Strings = (
'tpTop'
'tpBottom'
'tpLeft'
'tpRight'
)
OnClick = RadioGroup1Click
TabOrder = 4
end
object CheckBox1: TCheckBox
Left = 15
Height = 19
Top = 276
Width = 75
Caption = 'Long Tabs'
OnClick = CheckBox1Click
TabOrder = 5
end
object SpinEdit1: TSpinEdit
Left = 95
Height = 19
Top = 276
Width = 34
MaxValue = 50
OnEditingDone = SpinEdit1EditingDone
TabOrder = 6
Value = 50
end
object Arrow1: TArrow
Left = 31
Height = 10
Top = 456
Width = 10
end
object GradButton5: TGradButton
Left = 44
Height = 24
Top = 336
Width = 24
Caption = 'X'
Font.Name = 'System'
Font.Style = [fsBold]
TabOrder = 8
TabStop = True
NormalBlend = 0.5
OverBlend = 0.653
BaseColor = clBtnFace
Color = clBtnFace
NormalBlendColor = clBtnFace
OverBlendColor = clWhite
BackgroundColor = clBtnFace
AutoWidth = True
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True
RotateDirection = rdRight
Glyph.Data = {
3A000000424D3A00000000000000360000002800000001000000010000000100
1800000000000400000064000000640000000000000000000000FCCFE100
}
GlyphBackgroundColor = clWhite
ClickColor = clBtnFace
end
object ScrollBox1: TScrollBox
Left = -28
Height = 150
Top = 336
Width = 150
HorzScrollBar.Page = 145
VertScrollBar.Page = 145
AutoScroll = False
TabOrder = 9
end
end
object Splitter1: TSplitter
Left = 759
Height = 506
Width = 5
end
object PopupMenu1: TPopupMenu
left = 734
top = 397
object MenuItem1: TMenuItem
Caption = 'New Item1'
end
end
object SynPHPSyn1: TSynPHPSyn
DefaultFilter = 'PHP-Dateien (*.php,*.php3,*.phtml,*.inc)|*.php;*.php3;*.phtml;*.inc'
Enabled = False
left = 115
top = 255
end
end