mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 10:57:55 +02:00
234 lines
5.9 KiB
Plaintext
234 lines
5.9 KiB
Plaintext
object FormLazExam: TFormLazExam
|
|
Left = 789
|
|
Height = 400
|
|
Top = 304
|
|
Width = 781
|
|
Caption = 'Lazarus Examples Window'
|
|
ClientHeight = 400
|
|
ClientWidth = 781
|
|
KeyPreview = True
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnKeyDown = FormKeyDown
|
|
OnShow = FormShow
|
|
Position = poWorkAreaCenter
|
|
LCLVersion = '2.3.0.0'
|
|
object Memo1: TMemo
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Splitter2
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = CheckGroupCategory
|
|
Left = 6
|
|
Height = 148
|
|
Top = 157
|
|
Width = 769
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.Bottom = 6
|
|
Lines.Strings = (
|
|
'Memo1'
|
|
)
|
|
ParentShowHint = False
|
|
ReadOnly = True
|
|
ScrollBars = ssAutoVertical
|
|
TabOrder = 2
|
|
TabStop = False
|
|
end
|
|
object ListView1: TListView
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = EditSearch
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Splitter2
|
|
Left = 6
|
|
Height = 111
|
|
Hint = 'Click for Info, Double Click to download'
|
|
Top = 35
|
|
Width = 775
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSort = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 3
|
|
BorderSpacing.Bottom = 6
|
|
Columns = <
|
|
item
|
|
Width = 10
|
|
end
|
|
item
|
|
Width = 750
|
|
end>
|
|
ParentShowHint = False
|
|
ReadOnly = True
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnClick = ListView1Click
|
|
OnDblClick = ListView1DblClick
|
|
OnEnter = ListView1Enter
|
|
OnExit = ListView1Exit
|
|
OnKeyDown = ListView1KeyDown
|
|
OnKeyPress = ListView1KeyPress
|
|
OnSelectItem = ListView1SelectItem
|
|
end
|
|
object CheckGroupCategory: TCheckGroup
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonOpen
|
|
Left = 6
|
|
Height = 23
|
|
Top = 311
|
|
Width = 769
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
AutoFill = True
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Category'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 2
|
|
Columns = 2
|
|
OnDblClick = CheckGroupCategoryDblClick
|
|
OnItemClick = CheckGroupCategoryItemClick
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 4
|
|
end
|
|
object Splitter2: TSplitter
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Memo1
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 5
|
|
Top = 152
|
|
Width = 781
|
|
Align = alNone
|
|
Anchors = [akLeft, akRight]
|
|
ResizeAnchor = akTop
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Height = 23
|
|
Top = 377
|
|
Width = 781
|
|
Panels = <>
|
|
end
|
|
object ButtonRefresh: TButton
|
|
AnchorSideLeft.Control = ButtonView
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonOpen
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 175
|
|
Height = 31
|
|
Top = 340
|
|
Width = 73
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Refresh'
|
|
OnClick = ButtonRefreshClick
|
|
TabOrder = 7
|
|
end
|
|
object ButtonClose: TButton
|
|
AnchorSideLeft.Control = ButtonView
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonOpen
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 721
|
|
Height = 31
|
|
Top = 340
|
|
Width = 54
|
|
Anchors = [akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = 'Close'
|
|
ModalResult = 11
|
|
OnClick = ButtonCloseClick
|
|
TabOrder = 8
|
|
end
|
|
object ButtonOpen: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = StatusBar1
|
|
Left = 6
|
|
Height = 31
|
|
Top = 340
|
|
Width = 54
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Open'
|
|
OnClick = ButtonOpenClick
|
|
TabOrder = 5
|
|
end
|
|
object ButtonView: TButton
|
|
AnchorSideLeft.Control = ButtonOpen
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonOpen
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 66
|
|
Height = 31
|
|
Top = 340
|
|
Width = 103
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 6
|
|
Caption = 'ButtonView'
|
|
OnClick = ButtonViewClick
|
|
TabOrder = 6
|
|
end
|
|
object EditSearch: TEdit
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = ClearSearchButton
|
|
Left = 6
|
|
Height = 29
|
|
Hint = 'Searches for Keywords'
|
|
Top = 3
|
|
Width = 743
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 3
|
|
BorderSpacing.Right = 3
|
|
OnChange = EditSearchChange
|
|
OnEnter = EditSearchEnter
|
|
OnKeyDown = EditSearchKeyDown
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
end
|
|
object ClearSearchButton: TSpeedButton
|
|
AnchorSideTop.Control = EditSearch
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 752
|
|
Height = 22
|
|
Top = 6
|
|
Width = 23
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Left = 3
|
|
BorderSpacing.Right = 6
|
|
OnClick = ClearSearchButtonClick
|
|
end
|
|
end
|