mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 10:37:58 +02:00
88 lines
2.2 KiB
Plaintext
88 lines
2.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 290
|
|
Height = 300
|
|
Top = 155
|
|
Width = 400
|
|
HorzScrollBar.Page = 399
|
|
VertScrollBar.Page = 299
|
|
Caption = 'QueueAsyncCall example'
|
|
ClientHeight = 300
|
|
ClientWidth = 400
|
|
LCLVersion = '1.7'
|
|
object Button1: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 4
|
|
Height = 25
|
|
Top = 4
|
|
Width = 124
|
|
BorderSpacing.Around = 4
|
|
Caption = 'Direct call'
|
|
OnClick = Button1Click
|
|
TabOrder = 0
|
|
end
|
|
object Button2: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Button1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Button1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 25
|
|
Top = 33
|
|
Width = 124
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 4
|
|
Caption = 'Async call'
|
|
OnClick = Button2Click
|
|
TabOrder = 1
|
|
end
|
|
object Memo1: TMemo
|
|
AnchorSideLeft.Control = Button1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 132
|
|
Height = 292
|
|
Top = 4
|
|
Width = 264
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 4
|
|
ReadOnly = True
|
|
ScrollBars = ssAutoBoth
|
|
TabOrder = 2
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
AnchorSideLeft.Control = Button2
|
|
AnchorSideRight.Control = Button2
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 4
|
|
Height = 72
|
|
Top = 75
|
|
Width = 124
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoFill = True
|
|
Caption = 'Parameters'
|
|
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 = 46
|
|
ClientWidth = 120
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Integer (simple)'
|
|
'Record (advanced)'
|
|
)
|
|
TabOrder = 3
|
|
end
|
|
end
|