1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
object MainForm: TMainForm
Left = 409
Height = 448
Top = 218
Width = 613
HorzScrollBar.Page = 559
VertScrollBar.Page = 447
ActiveControl = ListBox1
Caption = 'Test SetTimer'
ClientHeight = 448
ClientWidth = 613
Position = poScreenCenter
LCLVersion = '1.3'
object ListBox1: TListBox
Left = 8
Height = 403
Top = 8
Width = 320
Anchors = [akTop, akLeft, akBottom]
ItemHeight = 0
ScrollWidth = 318
TabOrder = 0
end
object Button1: TButton
Left = 240
Height = 30
Top = 414
Width = 88
Anchors = [akLeft, akBottom]
BorderSpacing.InnerBorder = 4
Caption = 'Clear'
OnClick = Button1Click
TabOrder = 1
end
object SetTimer1Button: TButton
Left = 345
Height = 28
Top = 8
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Set Timer 1'
OnClick = SetTimer1ButtonClick
TabOrder = 2
end
object SetTimer2Button: TButton
Left = 345
Height = 28
Top = 48
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Set Timer 2'
OnClick = SetTimer2ButtonClick
TabOrder = 3
end
object SetTimer3Button: TButton
Left = 345
Height = 28
Top = 88
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Set Timer 3'
OnClick = SetTimer3ButtonClick
TabOrder = 4
end
object KillTimer1Button: TButton
Left = 481
Height = 28
Top = 8
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Kill'
OnClick = KillTimer1ButtonClick
TabOrder = 5
end
object KillTimer2Button: TButton
Left = 481
Height = 28
Top = 48
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Kill'
OnClick = KillTimer2ButtonClick
TabOrder = 6
end
object KillTimer3Button: TButton
Left = 481
Height = 60
Top = 88
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Kill'
OnClick = KillTimer3ButtonClick
TabOrder = 7
end
object SetTimer3bButton: TButton
Left = 345
Height = 28
Top = 120
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Set Timer 3b'
OnClick = SetTimer3bButtonClick
TabOrder = 8
end
object SetTimerDestroyButton: TButton
Left = 345
Height = 28
Top = 224
Width = 256
Caption = 'Set Timer and Destroy'
OnClick = SetTimerDestroyButtonClick
TabOrder = 9
end
object SetGlobalTimerButton: TButton
Left = 345
Height = 28
Top = 160
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Set Global Timer'
OnClick = SetGlobalTimerButtonClick
TabOrder = 10
end
object KillGlobalTimerButton1: TButton
Left = 481
Height = 28
Top = 160
Width = 120
BorderSpacing.InnerBorder = 4
Caption = 'Kill'
OnClick = KillGlobalTimerButton1Click
TabOrder = 11
end
end
|
