source: MicroThreading/UMicroThreadList.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: 4.6 KB
Line 
1object 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
198end
Note: See TracBrowser for help on using the repository browser.