PageRenderTime 31ms CodeModel.GetById 27ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/examples/trayicon/frmtest.lfm

http://github.com/graemeg/lazarus
Unknown | 86 lines | 86 code | 0 blank | 0 comment | 0 complexity | 524bb884ec427c768053e70fe98a90a7 MD5 | raw file
 1object frmTrayTest: TfrmTrayTest
 2  Left = 183
 3  Height = 238
 4  Top = 176
 5  Width = 311
 6  ActiveControl = btnShow
 7  Caption = 'TTrayIcon test application'
 8  ClientHeight = 238
 9  ClientWidth = 311
10  OnCreate = FormCreate
11  OnPaint = FormPaint
12  LCLVersion = '0.9.25'
13  object btnShow: TButton
14    Left = 32
15    Height = 33
16    Top = 32
17    Width = 136
18    BorderSpacing.InnerBorder = 4
19    Caption = 'Show'
20    OnClick = btnShowClick
21    TabOrder = 0
22  end
23  object btnHide: TButton
24    Left = 32
25    Height = 33
26    Top = 88
27    Width = 136
28    BorderSpacing.InnerBorder = 4
29    Caption = 'Hide'
30    OnClick = btnHideClick
31    TabOrder = 1
32  end
33  object btnDisplayMessage: TButton
34    Left = 32
35    Height = 33
36    Top = 144
37    Width = 136
38    Caption = 'Display Message'
39    OnClick = HandleClick
40    TabOrder = 2
41  end
42  object chkOnPaintDrawing: TCheckBox
43    Left = 32
44    Height = 21
45    Top = 200
46    Width = 267
47    Caption = 'Test drawing the icon in the Form''s OnPaint event'
48    OnChange = chkOnPaintDrawingChange
49    TabOrder = 3
50  end
51  object PopupMenu: TPopupMenu
52    left = 192
53    top = 96
54    object MenuItem1: TMenuItem
55      Caption = 'New Item1'
56    end
57    object MenuItem3: TMenuItem
58      Caption = 'New Item3'
59    end
60    object MenuItem2: TMenuItem
61      Caption = 'New Item2'
62    end
63  end
64  object SystrayIcon: TTrayIcon
65    Icon.Data = {
66      DE0100000000010001001616100001000400C801000016000000280000001600
67      00002C0000000100040000000000000000000000000000000000000000000000
68      000000000000FF2FA00000C6D200000000000000000000000000000000000000
69      0000000000000000000000000000000000000000000000000000000000000000
70      0000002222222221111111111100002222222221111111111100002222222221
71      1111111111000022222222211111111111000022222222211111111111000002
72      2222221111111111110000002222211111111111110000022222111111111111
73      1100000222221111111111111100000222211111111111111100000222211111
74      1111111111000000022111111111111111000000022111111111111111000000
75      0221111111111111110000000221111111111111110000000222221111111122
76      2200000022222222222222222200000002222222222222222200000002222222
77      2222222222000000022222222222222222000000002222222222222222000000
78      0022222222222222220000000000000000000000000000000000000000000000
79      0000000000000000000000000000000000000000000000000000000000000000
80      0000000000000000000000000000000000000000000000000000000000000000
81      0000
82    }
83    left = 237
84    top = 96
85  end
86end