object frmTrayTest: TfrmTrayTest Left = 183 Height = 249 Top = 176 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 = 19 Top = 152 Width = 261 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