1 | object MicroThreadListForm: TMicroThreadListForm
|
---|
2 | Left = 321
|
---|
3 | Height = 423
|
---|
4 | Top = 108
|
---|
5 | Width = 569
|
---|
6 | Caption = 'Microthread list'
|
---|
7 | ClientHeight = 423
|
---|
8 | ClientWidth = 569
|
---|
9 | OnClose = FormClose
|
---|
10 | OnCreate = FormCreate
|
---|
11 | OnDestroy = FormDestroy
|
---|
12 | OnHide = FormHide
|
---|
13 | OnShow = FormShow
|
---|
14 | LCLVersion = '0.9.31'
|
---|
15 | object PageControl1: TPageControl
|
---|
16 | Left = 8
|
---|
17 | Height = 409
|
---|
18 | Top = 7
|
---|
19 | Width = 553
|
---|
20 | ActivePage = TabSheet3
|
---|
21 | Anchors = [akTop, akLeft, akRight, akBottom]
|
---|
22 | TabIndex = 2
|
---|
23 | TabOrder = 0
|
---|
24 | object TabSheet1: TTabSheet
|
---|
25 | Caption = 'State'
|
---|
26 | ClientHeight = 383
|
---|
27 | ClientWidth = 545
|
---|
28 | object Label5: TLabel
|
---|
29 | Left = 9
|
---|
30 | Height = 14
|
---|
31 | Top = 11
|
---|
32 | Width = 117
|
---|
33 | Caption = 'Logical processor count:'
|
---|
34 | ParentColor = False
|
---|
35 | end
|
---|
36 | object Label7: TLabel
|
---|
37 | Left = 8
|
---|
38 | Height = 14
|
---|
39 | Top = 27
|
---|
40 | Width = 69
|
---|
41 | Caption = 'Thread count:'
|
---|
42 | ParentColor = False
|
---|
43 | end
|
---|
44 | object Label8: TLabel
|
---|
45 | Left = 9
|
---|
46 | Height = 14
|
---|
47 | Top = 43
|
---|
48 | Width = 95
|
---|
49 | Caption = 'Micro thread count:'
|
---|
50 | ParentColor = False
|
---|
51 | end
|
---|
52 | object Label10: TLabel
|
---|
53 | Left = 151
|
---|
54 | Height = 14
|
---|
55 | Top = 43
|
---|
56 | Width = 13
|
---|
57 | Caption = ' '
|
---|
58 | ParentColor = False
|
---|
59 | end
|
---|
60 | object Label9: TLabel
|
---|
61 | Left = 150
|
---|
62 | Height = 14
|
---|
63 | Top = 27
|
---|
64 | Width = 13
|
---|
65 | Caption = ' '
|
---|
66 | ParentColor = False
|
---|
67 | end
|
---|
68 | object Label6: TLabel
|
---|
69 | Left = 150
|
---|
70 | Height = 14
|
---|
71 | Top = 11
|
---|
72 | Width = 13
|
---|
73 | Caption = ' '
|
---|
74 | ParentColor = False
|
---|
75 | end
|
---|
76 | object Label1: TLabel
|
---|
77 | Left = 8
|
---|
78 | Height = 14
|
---|
79 | Top = 63
|
---|
80 | Width = 128
|
---|
81 | Caption = 'Main thread loop duration:'
|
---|
82 | ParentColor = False
|
---|
83 | end
|
---|
84 | object Label2: TLabel
|
---|
85 | Left = 148
|
---|
86 | Height = 14
|
---|
87 | Top = 64
|
---|
88 | Width = 13
|
---|
89 | Caption = ' '
|
---|
90 | ParentColor = False
|
---|
91 | end
|
---|
92 | end
|
---|
93 | object TabSheet2: TTabSheet
|
---|
94 | Caption = 'Threads'
|
---|
95 | ClientHeight = 383
|
---|
96 | ClientWidth = 545
|
---|
97 | object ListView2: TListView
|
---|
98 | Left = 4
|
---|
99 | Height = 376
|
---|
100 | Top = 3
|
---|
101 | Width = 536
|
---|
102 | Anchors = [akTop, akLeft, akRight, akBottom]
|
---|
103 | Columns = <
|
---|
104 | item
|
---|
105 | Caption = 'Id'
|
---|
106 | end
|
---|
107 | item
|
---|
108 | Caption = 'State'
|
---|
109 | Width = 100
|
---|
110 | end
|
---|
111 | item
|
---|
112 | Caption = 'Microthread Id'
|
---|
113 | Width = 70
|
---|
114 | end
|
---|
115 | item
|
---|
116 | Caption = 'Loop duration'
|
---|
117 | Width = 70
|
---|
118 | end>
|
---|
119 | OwnerData = True
|
---|
120 | ReadOnly = True
|
---|
121 | RowSelect = True
|
---|
122 | TabOrder = 0
|
---|
123 | ViewStyle = vsReport
|
---|
124 | OnData = ListView2Data
|
---|
125 | end
|
---|
126 | end
|
---|
127 | object TabSheet3: TTabSheet
|
---|
128 | Caption = 'Microthreads'
|
---|
129 | ClientHeight = 383
|
---|
130 | ClientWidth = 545
|
---|
131 | object ListView1: TListView
|
---|
132 | Left = 4
|
---|
133 | Height = 376
|
---|
134 | Top = 3
|
---|
135 | Width = 537
|
---|
136 | Anchors = [akTop, akLeft, akRight, akBottom]
|
---|
137 | Columns = <
|
---|
138 | item
|
---|
139 | Caption = 'Id'
|
---|
140 | Width = 40
|
---|
141 | end
|
---|
142 | item
|
---|
143 | Caption = 'Usage'
|
---|
144 | end
|
---|
145 | item
|
---|
146 | Caption = 'Priority'
|
---|
147 | Width = 40
|
---|
148 | end
|
---|
149 | item
|
---|
150 | Caption = 'State'
|
---|
151 | Width = 60
|
---|
152 | end
|
---|
153 | item
|
---|
154 | Caption = 'Block state'
|
---|
155 | end
|
---|
156 | item
|
---|
157 | Caption = 'Execution time'
|
---|
158 | Width = 70
|
---|
159 | end
|
---|
160 | item
|
---|
161 | Caption = 'Tick count'
|
---|
162 | end
|
---|
163 | item
|
---|
164 | Caption = 'Completion'
|
---|
165 | end
|
---|
166 | item
|
---|
167 | Caption = 'Used stack'
|
---|
168 | end
|
---|
169 | item
|
---|
170 | Caption = 'Name'
|
---|
171 | Width = 70
|
---|
172 | end>
|
---|
173 | OwnerData = True
|
---|
174 | PopupMenu = PopupMenu1
|
---|
175 | ReadOnly = True
|
---|
176 | RowSelect = True
|
---|
177 | TabOrder = 0
|
---|
178 | ViewStyle = vsReport
|
---|
179 | OnData = ListView1Data
|
---|
180 | end
|
---|
181 | end
|
---|
182 | end
|
---|
183 | object TimerRedraw: TTimer
|
---|
184 | Enabled = False
|
---|
185 | Interval = 200
|
---|
186 | OnTimer = TimerRedrawTimer
|
---|
187 | left = 192
|
---|
188 | top = 85
|
---|
189 | end
|
---|
190 | object PopupMenu1: TPopupMenu
|
---|
191 | left = 192
|
---|
192 | top = 136
|
---|
193 | object MenuItemCallStack: TMenuItem
|
---|
194 | Caption = 'Call stack'
|
---|
195 | OnClick = MenuItemCallStackClick
|
---|
196 | end
|
---|
197 | end
|
---|
198 | end
|
---|