mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 09:12:49 +02:00
497bf7b015
- General clean up and much improved support for Qt. - Updated the example to contain a popup menu. git-svn-id: trunk@10107 -
57 lines
1.1 KiB
Plaintext
57 lines
1.1 KiB
Plaintext
object Form1: TForm1
|
|
Left = 290
|
|
Height = 300
|
|
Top = 175
|
|
Width = 400
|
|
HorzScrollBar.Page = 399
|
|
VertScrollBar.Page = 299
|
|
ActiveControl = Button1
|
|
Caption = 'Form1'
|
|
ClientHeight = 300
|
|
ClientWidth = 400
|
|
OnCreate = FormCreate
|
|
object Button1: TButton
|
|
Left = 56
|
|
Height = 33
|
|
Top = 56
|
|
Width = 94
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Show'
|
|
OnClick = Button1Click
|
|
TabOrder = 0
|
|
end
|
|
object Button2: TButton
|
|
Left = 56
|
|
Height = 33
|
|
Top = 112
|
|
Width = 94
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Hide'
|
|
OnClick = Button2Click
|
|
TabOrder = 1
|
|
end
|
|
object Button3: TButton
|
|
Left = 224
|
|
Height = 33
|
|
Top = 56
|
|
Width = 94
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Paint Test'
|
|
OnClick = Button3Click
|
|
TabOrder = 2
|
|
end
|
|
object PopupMenu: TPopupMenu
|
|
left = 180
|
|
top = 260
|
|
object MenuItem1: TMenuItem
|
|
Caption = 'New Item1'
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Caption = 'New Item3'
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Caption = 'New Item2'
|
|
end
|
|
end
|
|
end
|