source: MicroThreading/Demo/UMainForm.lfm

Last change on this file was 168, checked in by george, 13 years ago
  • Added: Context menu in microthreads list to show microthread call stack.
File size: 8.7 KB
Line 
1object MainForm: TMainForm
2 Left = 0
3 Height = 533
4 Top = 13
5 Width = 792
6 Caption = 'MicroThreading demo'
7 ClientHeight = 514
8 ClientWidth = 792
9 Menu = MainMenu1
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnShow = FormShow
13 LCLVersion = '0.9.31'
14 object PageControl1: TPageControl
15 Left = 8
16 Height = 500
17 Top = 8
18 Width = 778
19 ActivePage = TabSheet1
20 Anchors = [akTop, akLeft, akRight, akBottom]
21 TabIndex = 1
22 TabOrder = 0
23 object TabSheet2: TTabSheet
24 Caption = 'Scheduler state'
25 ClientHeight = 474
26 ClientWidth = 794
27 object GroupBox1: TGroupBox
28 Left = 6
29 Height = 123
30 Top = 143
31 Width = 205
32 Caption = 'State'
33 ClientHeight = 105
34 ClientWidth = 201
35 TabOrder = 0
36 object Label15: TLabel
37 Left = 9
38 Height = 14
39 Top = 52
40 Width = 73
41 Caption = 'Main thread id:'
42 ParentColor = False
43 end
44 object Label16: TLabel
45 Left = 142
46 Height = 14
47 Top = 52
48 Width = 13
49 Caption = ' '
50 ParentColor = False
51 end
52 end
53 object GroupBox2: TGroupBox
54 Left = 6
55 Height = 126
56 Top = 7
57 Width = 206
58 Caption = 'Control'
59 ClientHeight = 108
60 ClientWidth = 202
61 TabOrder = 1
62 object ButtonSchedulerStartStop: TButton
63 Left = 8
64 Height = 25
65 Top = 7
66 Width = 103
67 Caption = 'Start scheduler'
68 OnClick = ButtonSchedulerStartStopClick
69 TabOrder = 0
70 end
71 object Label3: TLabel
72 Left = 8
73 Height = 14
74 Top = 46
75 Width = 69
76 Caption = 'Thread count:'
77 ParentColor = False
78 end
79 object SpinEdit2: TSpinEdit
80 Left = 96
81 Height = 21
82 Top = 39
83 Width = 74
84 OnChange = SpinEdit2Change
85 TabOrder = 1
86 end
87 object CheckBoxUseMainThread: TCheckBox
88 Left = 10
89 Height = 17
90 Top = 64
91 Width = 98
92 Caption = 'Use main thread'
93 OnChange = CheckBoxUseMainThreadChange
94 TabOrder = 2
95 end
96 end
97 object Button4: TButton
98 Left = 226
99 Height = 25
100 Top = 17
101 Width = 123
102 Caption = 'Show manager'
103 OnClick = Button4Click
104 TabOrder = 2
105 end
106 end
107 object TabSheet1: TTabSheet
108 Caption = 'Job control'
109 ClientHeight = 474
110 ClientWidth = 770
111 object ButtonAddWorkers: TButton
112 Left = 10
113 Height = 25
114 Top = 7
115 Width = 120
116 Caption = 'Add workers'
117 OnClick = ButtonAddWorkersClick
118 TabOrder = 0
119 end
120 object ButtonClearMicroThreads: TButton
121 Left = 10
122 Height = 25
123 Top = 266
124 Width = 104
125 Caption = 'Clear jobs'
126 OnClick = ButtonClearMicroThreadsClick
127 TabOrder = 1
128 end
129 object Label4: TLabel
130 Left = 140
131 Height = 14
132 Top = 14
133 Width = 34
134 Caption = 'Count:'
135 ParentColor = False
136 end
137 object SpinEdit1: TSpinEdit
138 Left = 204
139 Height = 21
140 Top = 11
141 Width = 74
142 MaxValue = 100000
143 MinValue = 1
144 TabStop = False
145 TabOrder = 2
146 Value = 2
147 end
148 object Memo1: TMemo
149 Left = 316
150 Height = 225
151 Top = 14
152 Width = 294
153 Anchors = [akTop, akLeft, akBottom]
154 ScrollBars = ssAutoBoth
155 TabOrder = 3
156 end
157 object Button1: TButton
158 Left = 316
159 Height = 25
160 Top = 266
161 Width = 75
162 Caption = 'Clear memo'
163 OnClick = Button1Click
164 TabOrder = 4
165 end
166 object Label12: TLabel
167 Left = 140
168 Height = 14
169 Top = 38
170 Width = 52
171 Caption = 'Iterations:'
172 ParentColor = False
173 end
174 object SpinEdit3: TSpinEdit
175 Left = 204
176 Height = 21
177 Top = 36
178 Width = 74
179 MaxValue = 1000000000
180 OnChange = SpinEdit3Change
181 TabOrder = 5
182 Value = 10000000
183 end
184 object GroupBox3: TGroupBox
185 Left = 10
186 Height = 185
187 Top = 74
188 Width = 292
189 Caption = 'Do inside jobs'
190 ClientHeight = 167
191 ClientWidth = 288
192 TabOrder = 6
193 object CheckBox1: TCheckBox
194 Left = 4
195 Height = 17
196 Top = 9
197 Width = 66
198 Caption = 'Use sleep'
199 OnChange = CheckBox1Change
200 TabOrder = 0
201 end
202 object SpinEdit4: TSpinEdit
203 Left = 149
204 Height = 21
205 Top = 8
206 Width = 90
207 MaxValue = 100000
208 OnChange = CheckBox1Change
209 TabOrder = 1
210 Value = 100
211 end
212 object Label14: TLabel
213 Left = 242
214 Height = 14
215 Top = 15
216 Width = 14
217 Caption = 'ms'
218 ParentColor = False
219 end
220 object CheckBox2: TCheckBox
221 Left = 5
222 Height = 17
223 Top = 32
224 Width = 112
225 Caption = 'Write test to memo'
226 OnChange = CheckBox2Change
227 TabOrder = 2
228 end
229 object CheckBox3: TCheckBox
230 Left = 5
231 Height = 17
232 Top = 56
233 Width = 90
234 Caption = 'Wait for event'
235 OnChange = CheckBox3Change
236 TabOrder = 3
237 end
238 object Button3: TButton
239 Left = 226
240 Height = 25
241 Top = 51
242 Width = 51
243 Caption = 'Signal'
244 OnClick = Button3Click
245 TabOrder = 4
246 end
247 object SpinEdit5: TSpinEdit
248 Left = 130
249 Height = 21
250 Top = 51
251 Width = 70
252 MaxValue = 100000
253 OnChange = CheckBox3Change
254 TabOrder = 5
255 Value = 100
256 end
257 object Label17: TLabel
258 Left = 202
259 Height = 14
260 Top = 56
261 Width = 14
262 Caption = 'ms'
263 ParentColor = False
264 end
265 object Button5: TButton
266 Left = 8
267 Height = 25
268 Top = 80
269 Width = 115
270 Caption = 'Raise exception'
271 OnClick = Button5Click
272 TabOrder = 6
273 end
274 object CheckBox4: TCheckBox
275 Left = 6
276 Height = 17
277 Top = 110
278 Width = 123
279 Caption = 'Wait in critical section'
280 OnChange = CheckBox4Change
281 TabOrder = 7
282 end
283 object SpinEdit6: TSpinEdit
284 Left = 186
285 Height = 21
286 Top = 104
287 Width = 70
288 MaxValue = 100000
289 OnChange = CheckBox4Change
290 TabOrder = 8
291 Value = 100
292 end
293 object Label18: TLabel
294 Left = 264
295 Height = 14
296 Top = 110
297 Width = 14
298 Caption = 'ms'
299 ParentColor = False
300 end
301 end
302 object Button6: TButton
303 Left = 9
304 Height = 25
305 Top = 38
306 Width = 121
307 Caption = 'Add method workers'
308 OnClick = Button6Click
309 TabOrder = 7
310 end
311 end
312 object TabSheet3: TTabSheet
313 Caption = 'Testing'
314 ClientHeight = 492
315 ClientWidth = 798
316 object ButtonShowThreadId: TButton
317 Left = 14
318 Height = 25
319 Top = 47
320 Width = 147
321 Caption = 'Show thread id'
322 OnClick = ButtonShowThreadIdClick
323 TabOrder = 0
324 end
325 object ButtonGetMaxThread: TButton
326 Left = 14
327 Height = 25
328 Top = 79
329 Width = 147
330 Caption = 'Get max TThread count'
331 OnClick = ButtonGetMaxThreadClick
332 TabOrder = 1
333 end
334 object Label2: TLabel
335 Left = 102
336 Height = 14
337 Top = 135
338 Width = 13
339 Caption = ' '
340 ParentColor = False
341 end
342 object Button2: TButton
343 Left = 14
344 Height = 25
345 Top = 15
346 Width = 147
347 Caption = 'Read stack frame info'
348 OnClick = Button2Click
349 TabOrder = 2
350 end
351 object Label11: TLabel
352 Left = 15
353 Height = 14
354 Top = 135
355 Width = 70
356 Caption = 'Precision time:'
357 ParentColor = False
358 end
359 end
360 end
361 object TimerRedraw: TTimer
362 Interval = 100
363 OnTimer = TimerRedrawTimer
364 left = 427
365 top = 115
366 end
367 object MainMenu1: TMainMenu
368 left = 512
369 top = 115
370 object MenuItem1: TMenuItem
371 Caption = 'New Item1'
372 object MenuItem2: TMenuItem
373 Caption = 'New Item2'
374 end
375 object MenuItem4: TMenuItem
376 Caption = 'New Item4'
377 end
378 end
379 object MenuItem3: TMenuItem
380 Caption = 'New Item3'
381 end
382 end
383end
Note: See TracBrowser for help on using the repository browser.