mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-12 23:09:28 +02:00
56 lines
1.2 KiB
Plaintext
56 lines
1.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 290
|
|
Height = 300
|
|
Top = 155
|
|
Width = 400
|
|
HorzScrollBar.Page = 399
|
|
VertScrollBar.Page = 299
|
|
Caption = 'Messages example'
|
|
ClientHeight = 300
|
|
ClientWidth = 400
|
|
LCLVersion = '1.7'
|
|
object Button1: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 4
|
|
Height = 25
|
|
Top = 4
|
|
Width = 104
|
|
BorderSpacing.Around = 4
|
|
Caption = 'Send Message'
|
|
OnClick = Button1Click
|
|
TabOrder = 0
|
|
end
|
|
object Button2: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Button1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 4
|
|
Height = 25
|
|
Top = 33
|
|
Width = 104
|
|
BorderSpacing.Around = 4
|
|
Caption = 'PostMessage'
|
|
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 = 112
|
|
Height = 292
|
|
Top = 4
|
|
Width = 284
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 4
|
|
ReadOnly = True
|
|
ScrollBars = ssAutoBoth
|
|
TabOrder = 2
|
|
end
|
|
end
|