mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-10 18:36:25 +02:00
82 lines
1.7 KiB
Plaintext
82 lines
1.7 KiB
Plaintext
object frmTrayTest: TfrmTrayTest
|
|
Left = 290
|
|
Height = 249
|
|
Top = 175
|
|
Width = 393
|
|
HorzScrollBar.Page = 392
|
|
VertScrollBar.Page = 248
|
|
ActiveControl = btnShow
|
|
Caption = 'TTrayIcon test application'
|
|
ClientHeight = 249
|
|
ClientWidth = 393
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnPaint = FormPaint
|
|
LCLVersion = '0.9.25'
|
|
object btnShow: TButton
|
|
Left = 32
|
|
Height = 33
|
|
Top = 32
|
|
Width = 136
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Show'
|
|
OnClick = btnShowClick
|
|
TabOrder = 0
|
|
end
|
|
object btnHide: TButton
|
|
Left = 32
|
|
Height = 33
|
|
Top = 88
|
|
Width = 136
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Hide'
|
|
OnClick = btnHideClick
|
|
TabOrder = 1
|
|
end
|
|
object btnPaintTest: TButton
|
|
Left = 216
|
|
Height = 33
|
|
Top = 32
|
|
Width = 136
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Raw Paint Test'
|
|
OnClick = btnPaintTestClick
|
|
TabOrder = 2
|
|
end
|
|
object btnDisplayMessage: TButton
|
|
Left = 216
|
|
Height = 33
|
|
Top = 88
|
|
Width = 136
|
|
Caption = 'Display Message'
|
|
OnClick = HandleClick
|
|
TabOrder = 3
|
|
end
|
|
object chkOnPaintDrawing: TCheckBox
|
|
Left = 32
|
|
Height = 18
|
|
Top = 152
|
|
Width = 335
|
|
Caption = 'Test drawing the icon in the Form''s OnPaint event'
|
|
OnChange = chkOnPaintDrawingChange
|
|
TabOrder = 4
|
|
end
|
|
object PopupMenu: TPopupMenu
|
|
left = 136
|
|
top = 184
|
|
object MenuItem1: TMenuItem
|
|
Caption = 'New Item1'
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Caption = 'New Item3'
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Caption = 'New Item2'
|
|
end
|
|
end
|
|
object SystrayIcon: TTrayIcon
|
|
left = 181
|
|
top = 184
|
|
end
|
|
end
|