-
Notifications
You must be signed in to change notification settings - Fork 6
/
UExceptionForm.lfm
303 lines (303 loc) · 11.7 KB
/
UExceptionForm.lfm
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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
object ExceptionForm: TExceptionForm
Left = 235
Height = 320
Top = 182
Width = 480
Caption = 'Exception info'
ClientHeight = 320
ClientWidth = 480
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.6.4.0'
object PanelBasic: TPanel
Left = 0
Height = 100
Top = 0
Width = 480
Align = alTop
BevelOuter = bvNone
ClientHeight = 100
ClientWidth = 480
TabOrder = 0
object Image1: TImage
Left = 8
Height = 48
Top = 8
Width = 48
OnClick = Image1Click
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869639C0C000089504E47
0D0A1A0A0000000D49484452000000300000003008060000005702F987000000
0473424954080808087C0864880000000970485973000005310000053101B7ED
28520000001974455874536F667477617265007777772E696E6B73636170652E
6F72679BEE3C1A00000C194944415468819D997B8C15D51DC73F67662EE82A25
48C1A5202A015C0571450BCBC3DAB89644DBC20AD18DA08B0FDA8A6F946AFA07
58FF6AB4A90D88CA233654C568A5B12D52A5B0605B828DC6B0AB1850D816581E
AE2F28ECE3DE3B73CEE91F73CEDC33B37797DD4EF2CB9C393373E6FBFDBD6746
68ADE9EF562F84FFF873CFEDBE78DAB431684D6A859ED6B30F1222B9464B09A0
BFDCB7EFC4B3CB97573F77E8D089FE6211FD25502F84D7B070E1CECBC78E9DD2
75F0A08F10699CC9CAA2DBBDC29E0F437418264472E79DC7D7E79E7BF0A5575F
9DDC5F12FD22502F84B760C1827F4CA8ACAC291C39E277BB5308CAAE26045A29
741425C08521288CE4860DE3E4F0E1075FDAB0A15F24FA4CA05E08EFE6B973DF
BD7CE8D069D1891381EE01B09D4F8EB5464B890E43B4520968173C42208060C8
10DA2FBCF0E086D75E9BBC62FFFE3E91E813817A21BC1FD7D6365E397CF84C55
28040950D22E935D494919838FA2546CB8DACF1209060D227FE9A5875E7EE595
2BFB42E28C04EA85F06A274DDA523366CCF7D13AD006B43080DDBB13AB688D8A
A2127833EF824E80675C0920A8A8209A32E5F0FA75EBAE58D9D272F2FF26502F
843F63F4E8CDDF9B38B1567B5ED01368EDBA8C523178A56C96C93C51A4345F8E
889FCB911B3408396DDAD11757AE9CD81B891E09D40BE14F1F3D7AF335975D56
8B10817B4E1B229110F84E1A554AC5C04DC0BAA0BB3DD821A300DF1CFB030712
E47231A920405C7BEDD1F5CF3F7FF9337BF7967527AF47F0A3466DBE66FCF85A
2D65A0A20825254A4AA494A828E2447535A2A181BCE7A195220A43A491A85040
2985520AA914D2DC27A54CCD2B29F9AABA9A13757584410041009E57BABE5844
35368EBC7DD1A28F1EB9F4D2217DB240BD10FEB41123365F535555AB3D2F28E7
32A7A74CA17AC9123CDFA765C70EDAD7AE25572CA2011586E960EE45FBFFBDFA
6A2E5AB8103F0838F2CF7F72F6A64D0CD43AE55A1EB17B45353587376EDC58FD
747373CA12290216FCCCF1E36B112250388169C65D35354C32E0214E932DDBB7
737ACD1ABCCE4ED03A89897275C26EED53A732F6EEBB1142A04C7AFDFCBDF718
F0E69BE4A20861DCCB95AE89130F6EDAB66DB24B2221502F8437BDB272D38C71
E3666908B4035A998BF335354CFAF9CFF10D7877DBB7650B2757AD221786C99C
CE685F1B209D336650F5D39F26E0A513ECC777ED22F7C73F124451CA0296C437
2346EC6F6C6E9E6A4908AD35F54278332A2BFF347DCC981BB41081056D338C06
C2E9D399B874691C6065DC426BCDDEB7DFE6EB679F4D489473A5FCCC994CBCF7
DEE41E4B406B9DB44B9FEFDA45B0716342221143E4B8EF7FB2BDA565E6CA9696
931E40F5B0612BA68F1E7D839232D04EC06A13B0F9C99399F0E8A3E4060C8817
31E2795EEAF8B21B6F64C8FDF793F7BC2458DD40CECF9C49F5830F92CBE5F07D
1FCFF312719552397D3A85BA3A2229E360B7627055168B13AE1E3E7C134000F0
AD8A8A315AA924601331DA97070E70F2F061CE1F3F3E05D8D5BEDD5FFEA31FF1
91D67CB9620541B198685F5E771D572F59D2ED7A571900524AA230A473CF1E72
26366CE1B496F080C11515833063B4D65A3B39DC32D686F180B6360E2C5BC617
FBF7A70894B384E7795C317B36C31E7A887C10C4DABFEE3AA62E5D4A1004DD34
9FB5828C22FEBD762DE7EEDE5DB25E2615CB18A74C2C80751921509482D61DE7
8E1E65EF2F7E81FFD453545655F51807D6AFAF983D1B0D7CD5D4C4CCC71E4B02
56299510752DA14C2D39B07A35E7ECDE8D048494B1C69D2A6DC7CA8F9BE1004A
15D44D9B16BCD63AF63D60C0B1637CBC7429E2996718515565BC43A4DCC25A42
29C59573E6A067CF4E0A984B5A299590F03C8F62B1C8DE55AB38EBC30F898488
B38F7111E58CAD5B2B93B93CF374A5A5041BB84E17A9C2B044504A8263C7685A
B284B6FDFBBBB980750FAB6177ECFB3E4288D435F65C582CB267C50A721F7C90
0AFCC848E246C65226A0753A06A208DB32104509786DC7969494F8478FF2C17D
F7717CDFBE14109788056AC716BCBDDE8EA330E4C35FFF1AB56B5702389232C9
402E09E5C48034BD564CC009601B0F320C636B38016DADA3A4C46B6DE55F8B17
73FCD34F7B0C4A57D316B06B0D1945ECFAD5AF503B77A2A22806EE808E6CFF64
70446E3A554ABB2EA4B594605D258A1277D25296CD4E3A8AF05A5BD9F9939FD0
FAC927F1BC498BBD59C3CECB28E2EF4F3E49F8EEBB4452528C22A2282A3585C6
236414C55AB7C725523A65014C0B9CB88D03B81B196B1929E1D021FEB16811C7
5A5A92AA6A03B61C702B7F7BE2090A3B76C479DF00B4BE1E3969D3ED826D276C
89940838019B803780712BA1012FA328D5FB9F3B793243478E4CB7CB666CDD28
4BE6E26BAF25F4FD52809A349AF57D4BC6BA9174949AA451194528DB0E0B91A4
2A5B059396DA36784A254DDE5975755CFFD45371B595B25B81039274E976BE57
CE9983528A3D4F3E895728942AAD52E079C927188BC577F000844294EA802C16
9504B4E741109472AD5B0FDCB191B3EAEAA87DFAE9B86E285BF248152A2B3616
ECA6B566725D1D4A293EFAE52F93B6C3339F603CCF8BF37E69513044545C479C
4216865A866102500981F63C94EFA33D0FEDFBB1785E426EE0DCB95CFF9BDF24
E05DEDDA42E6565BA02C89AB6EBA090D342F5B865F2CA28C5F7B42E01B12AEE6
2D19690825EFBAA9C6C07ECB911249A9A550C64A036EBD951FFCF6B7B1950C78
2BC9CBB9F93AE1B60B5A6B82204888593257D5D521A5E4A3E5CB5324B4947842
101857745B6B2D84D30B3924B21D4E766E607D3D3F5CB70EA5359109E6245B39
16F03C8F7C6727DF1C3FCEE84B2E4911CC5AC1F77DBE3B772E52299A972F2757
28A4DFEAA44CDA08EB4ACAB580CBAC3722B9FA7A66AF5F1F9BB0584C9AB02443
39EE12160AFCF9673FA3B8772FD76FD8C0459326A580FBBE9F6AFE7CDF67EABC
792829695EB62C2641ECF36E105B5C61189662C03D518E8800F4BC79CC5AB306
CFF7136DBB005C572AE6F3BCB57831C5AD5B51C0DF162C609621612D642D612D
60AD3365DE3C8AF93C4D8F3FCE804201DF80F48D48B3CFC7C338461408D50BF8
FCAC597C6FE54A8479D372DFA05C02524ABA3A3A78EB9E7B905BB726F7CBC387
7967FE7CFED3DC9CEAEB2DF86CD59E317F3E973CF1442AE3653F656A03D50338
0C2F1F80B628033C71A3A6268E998767DB62D70A5D1D1DBC73EFBDB06D5B37F7
93ADADBCBD604137126E7F648914BABA38EEACE18297401B9C3A047F4F08ACD1
FACD2678E03368CB672CE001155F7CC1DE3BEFE4E0FBEFA71EEA92C87776B2ED
FEFBF11A1BCB2A4100AAB595CD652C9105FFFADD77736AFBF66EE023E0389C6E
81D56BB55E9E103024DED8030F7F065FB6537A89B052D1D6C6C70D0DB4BCF71E
52CA941B15BABA68BCEF3E7C07BC0765C7FAC811DECA90B02F355D1D1DBCD4D0
C0C96DDBBA7D3F2D00C7A0FD28AC5EAFF5E31677EAD3E23AAD5FFB141E38005F
9D328C5D00156D6D34DD761B9FEEDC9968AC98CFD3B87831B9C6C6B800F500DC
3DA75A5BD974EBADFCBBA92921D1D5D1C14BB7DFCEC9AD5B536F63009DB1E6DB
DB60F5EFB57ECCC55CF6E3EE2221EA2F805517C2B7071367015BC824D0515949
CD1B6F30ACAA8ABFDC761B62CB96E49CCA5CAB7A11316A14735E7F9DF3C78E65
434303DF6CD99200F7CDBE03F81ADA4FC19A0D5A2FCD62EDF1EBF45D42DC3212
9E1F0D4387664828E0746525FE8409F88D8D3D023E13016D489C3D6E1CA777EC
8801399A6F07BE80F64E58FBAAD68F96C3D9EBFF81BB84B8F97C7861140C3D1F
1870066067029C05EFA6C90490D99F043E87CE3CAC7D4DEB253D613CE31F9ABB
84B87908BC70010C1D090C3C03D09ECEE932E36C7EB7FF0ABE068E416711D6BC
AEF523BDE1EBD33FB23B84B865704CE2BC0B80B3CF40A22F04CA152805B40147
A13384757FD0FAE13361EBF35FCA3B84B8E51C43E26243C26ADC16982CD0DE5C
264B40C6C039029D511FC1F78B00C042216E390B568F8221E3808A1EC0F6E632
E55C27020E0387A053C1BA37FA08BEDF0420B6440ED67E07068FA37B76B202DD
5DA6A7DEA61538085D1AD66DD4FAA1FEE0E93701803B8598AFE0F94130D8CEB9
C05499B972BFAAEC760ABA04BCB851EB07FA8BA52C0111F7086E176BC5D618FF
06985501B38D5695E90E85B6EB6680965153C24943F35FE17794C2CA8A7B1C01
5267000BD387FB40CE80CB19F0FF8FF899B1ED0AAC612C10572410F6636FEF2B
0251CA02A639B30FB56012AD3B73D97DD65A760D1C0256EB298D668864CF9513
ED5AE17F98412D151886AE050000000049454E44AE426082
}
end
object lblErrorHeader: TLabel
Left = 69
Height = 15
Top = 8
Width = 215
Caption = 'Error occured during program execution:'
ParentColor = False
end
object lblErrorText: TLabel
Left = 80
Height = 56
Top = 24
Width = 393
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
Caption = ' '
ParentColor = False
WordWrap = True
end
object lblLoggerInternalError: TLabel
Left = 10
Height = 14
Top = 80
Width = 242
Caption = 'Logger Internal Error Text Here (hidden by default)'
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
Visible = False
end
end
object PanelDescription: TPanel
Left = 0
Height = 188
Top = 100
Width = 480
Align = alClient
BevelOuter = bvNone
ClientHeight = 188
ClientWidth = 480
TabOrder = 1
object PageControl1: TPageControl
Left = 8
Height = 186
Top = 0
Width = 467
ActivePage = TabSheet1
Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'General'
ClientHeight = 158
ClientWidth = 459
object MemoExceptionInfo: TMemo
Left = 3
Height = 152
Top = 3
Width = 453
Align = alClient
Anchors = []
BorderSpacing.Around = 3
Font.Height = -13
Font.Name = 'Monospace'
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
WordWrap = False
end
end
object TabSheet2: TTabSheet
Caption = 'Call stack'
ClientHeight = 155
ClientWidth = 463
object ListView1: TListView
Left = 3
Height = 151
Top = 3
Width = 430
Align = alClient
BorderSpacing.Around = 3
Columns = <
item
Caption = 'Index'
Width = 40
end
item
Caption = 'Address'
Width = 75
end
item
Caption = 'Line'
Width = 71
end
item
Caption = 'Class'
Width = 150
end
item
Caption = 'Procedure/method'
Width = 150
end
item
Caption = 'Unit'
Width = 150
end>
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
end
end
end
object PanelButtons: TPanel
Left = 0
Height = 32
Top = 288
Width = 480
Align = alBottom
BevelOuter = bvNone
ClientHeight = 32
ClientWidth = 480
TabOrder = 2
object ButtonKill: TButton
Left = 303
Height = 25
Top = 3
Width = 91
Anchors = [akRight, akBottom]
Caption = 'Exit program'
OnClick = ButtonKillClick
TabOrder = 0
end
object ButtonClose: TButton
Left = 399
Height = 25
Top = 3
Width = 74
Anchors = [akRight, akBottom]
Caption = 'Continue'
OnClick = ButtonCloseClick
TabOrder = 1
end
object CheckBoxIgnore: TCheckBox
Left = 10
Height = 19
Top = 6
Width = 133
Anchors = [akLeft, akBottom]
Caption = 'ignore this exception '
TabOrder = 2
end
object ButtonDetails: TButton
Left = 223
Height = 25
Top = 3
Width = 75
Anchors = [akRight, akBottom]
Caption = 'Details'
OnClick = ButtonDetailsClick
TabOrder = 3
end
end
end