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:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:

unit Unit2;

interface

uses
  acSBUtils {
    T:TacScrollWnd, A:RefreshTreeScrolls},
  CommCtrl,
  sMessages {
    A:SM_ALPHACMD, A:AC_CTRLHANDLED, A:AC_REMOVESKIN, A:AC_SETNEWSKIN,
    A:AC_REFRESH, A:AC_ENDPARENTUPDATE},
  sCommonData {
    T:TsCommonData, T:TsBoundLabel, A:TsCommonData.Loaded, A:.TsCommonData,
    A:TsCommonData.Create, A:TsCommonData.SetSkinSection, A:.TsBoundLabel,
    A:TsBoundLabel.Create, A:TsCommonData.Skinned,
    A:TsCommonData.GetSkinManager, A:CommonWndProc,
    A:TsCommonData.GetUpdating, A:TsCommonData.SetUpdating,
    A:TsBoundLabel.AlignLabel},
  sConst {
    A:COC_TsTreeView},
  ComCtrls {
    T:TTreeView, A:.TTreeView, A:TCustomTreeView.CreateNode,
    A:TCustomTreeView.CreateNodes, A:TCustomTreeView.CreateParams,
    A:TCustomTreeView.CreateWnd, A:TCustomTreeView.CustomDraw,
    A:TCustomTreeView.CustomDrawItem, A:TCustomTreeView.DestroyWnd,
    A:TCustomTreeView.GetDragImages, A:TCustomTreeView.GetImageIndex,
    A:TCustomTreeView.GetSelectedIndex, A:TCustomTreeView.IsCustomDrawn,
    A:TCustomTreeView.Notification, A:TCustomTreeView.SetDragMode,
    A:TCustomTreeView.Select, A:TCustomTreeView.Select,
    A:TCustomTreeView.Select, A:TCustomTreeView.Deselect,
    A:TCustomTreeView.Subselect, A:TCustomTreeView.ClearSelection,
    A:TCustomTreeView.FindNextToSelect, A:TCustomTreeView.Create,
    A:TCustomTreeView.Destroy, A:TCustomTreeView.Loaded,
    A:TCustomTreeView.WndProc},
  Dialogs,
  Forms,
  Controls {
    A:TWinControl.AssignTo, A:TWinControl.AdjustClientRect,
    A:TWinControl.AlignControls, A:TWinControl.CanAutoSize,
    A:TWinControl.CanResize, A:TWinControl.ConstrainedResize,
    A:TWinControl.CreateHandle, A:TWinControl.CreateWindowHandle,
    A:TWinControl.CustomAlignInsertBefore,
    A:TWinControl.CustomAlignPosition, A:TWinControl.DefineProperties,
    A:TWinControl.DestroyWindowHandle, A:TWinControl.GetClientOrigin,
    A:TWinControl.GetClientRect, A:TWinControl.GetControlExtents,
    A:TWinControl.GetDeviceContext, A:TWinControl.PaintWindow,
    A:TWinControl.ReadState, A:TWinControl.SetParentBackground,
    A:TWinControl.ShowControl, A:TWinControl.DefaultHandler,
    A:TWinControl.Invalidate, A:TWinControl.Repaint,
    A:TWinControl.SetBounds, A:TWinControl.SetFocus, A:TWinControl.Update,
    A:TControl.GetAction, A:TControl.GetEnabled, A:TControl.GetFloating,
    A:TControl.GetFloatingDockSiteClass, A:TControl.SetAutoSize,
    A:TControl.SetEnabled, A:TControl.SetName, A:TControl.SetParent,
    A:TControl.SetParentBiDiMode, A:TControl.SetBiDiMode,
    A:TControl.InitiateAction, A:TControl.SetColor, A:TControl.Perform,
    A:CM_VISIBLECHANGED, A:CM_ENABLEDCHANGED, A:CM_SHOWINGCHANGED,
    A:TControl.SetVisible, A:CM_BIDIMODECHANGED},
  Graphics {
    A:TFont.SetColor, A:clWindow, A:clWindowText},
  Classes {
    T:TComponent, A:TComponent.UpdateRegistry, A:TComponent.ValidateRename,
    A:TComponent.WriteState, A:TComponent.QueryInterface,
    A:TComponent.BeforeDestruction, A:TComponent.SafeCallException,
    A:TPersistent.Assign},
  SysUtils {
    A:FreeAndNil},
  Messages {
    T:TMessage, A:WM_NCPAINT, A:WM_MOVE, A:WM_SIZE, A:WM_WINDOWPOSCHANGED},
  Windows;

  {System {
    A:TObject.Dispatch, A:TObject.NewInstance, A:TObject.FreeInstance,
    A:TObject.AfterConstruction, A:True, T:String, T:AnsiString,
    A:@ClassCreate, A:@AfterConstruction, A:Assigned, A:@BeforeDestruction,
    A:@ClassDestroy, A:Exit, T:LongWord, A:False, A:@HandleFinally;   }

type
  TsTreeView=class (ComCtrls.TTreeView)
  private
    FCommonData: sCommonData.TsCommonData;
    FBoundLabel: sCommonData.TsBoundLabel;
  protected
    procedure WndProc (Self: TsTreeView; var Message: Messages.TMessage);
      override{; virtual};
    procedure Loaded (Self: TsTreeView); override{; virtual};
  public
    ListSW: acSBUtils.TacScrollWnd;
    constructor Create (Self: TsTreeView; _Dv_: boolean;
      AOwner: Classes.TComponent); override{; virtual};
    destructor Destroy (Self: TsTreeView; _Dv_: boolean); override{;
      virtual};
    procedure AfterConstruction (Self: TsTreeView); override{; virtual};
  published
    property BoundLabel:sCommonData.TsBoundLabel read FBoundLabel{0xC6}
      write FBoundLabel{0xC6};
    property SkinData:sCommonData.TsCommonData read FCommonData{0xC5}
      write FCommonData{0xC5};
  end;

procedure Finalization;

procedure sTreeView;


implementation

uses
  sSkinManager,
  sSkinProps {
    A:s_Edit},
  sAlphaGraph,
  Math,
  sGraphUtils,
  acUtils,
  sStyleSimply,
  sVclUtils {
    A:ControlIsReady},
  sMaskData;

var
  _DV_2: -$80000000..$7FFFFFFF;

procedure TsTreeView.AfterConstruction (Self: TsTreeView);
begin
   00000000 : 53                            PUSH EBX
   00000001 : 8B D8                         MOV EBX,EAX
   00000003 : 8B C3                         MOV EAX,EBX
   00000005 : E8(00 00 00 00                CALL TObject.AfterConstruction{0x83}
   0000000A : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000010 : E8(00 00 00 00                CALL TsCommonData.Loaded{0x10}
   00000015 : 5B                            POP EBX
   00000016 : C3                            RET NEAR
end;

constructor TsTreeView.Create (Self: TsTreeView; _Dv_: boolean;
  AOwner: Classes.TComponent);
begin
   00000000 : 55                            PUSH EBP
   00000001 : 8B EC                         MOV EBP,ESP
   00000003 : 51                            PUSH ECX
   00000004 : 53                            PUSH EBX
   00000005 : 56                            PUSH ESI
   00000006 : 84 D2                         TEST DL,DL
   00000008 : 74 08                         JE +8; (0x12)
   0000000A : 83 C4 F0                      ADD ESP,-16
   0000000D : E8(00 00 00 00                CALL @ClassCreate{0x87}
   00000012 : 88 55 FF                      MOV BYTE PTR [EBP-1{_Dv_}],DL
   00000015 : 8B D8                         MOV EBX,EAX
   00000017 : 33 D2                         XOR EDX,EDX
   00000019 : 8B C3                         MOV EAX,EBX
   0000001B : E8(00 00 00 00                CALL TCustomTreeView.Create{0x35}
   00000020 : 6A 01                         PUSH $01
   00000022 : 8B CB                         MOV ECX,EBX
   00000024 : B2 01                         MOV DL,$01
   00000026 : A1(00 00 00 00                MOV EAX,DWORD PTR [_Dn_TsCommonData{0x11}]
   0000002B : E8(00 00 00 00                CALL TsCommonData.Create{0x12}
   00000030 : 8B F0                         MOV ESI,EAX
   00000032 : 89 B3 38 03 00 00             MOV DWORD PTR [EBX+824],ESI
   00000038 : C7 46 3C 60 00 00 00          MOV DWORD PTR [ESI+60],$00000060
   0000003F : 83 7E 08 00                   CMP DWORD PTR [ESI+8],0
   00000043 : 75 0C                         JNE +12; (0x51)
   00000045 : 8B C6                         MOV EAX,ESI
   00000047 : BA(94 00 00 00                MOV EDX,TsTreeView.Create{0xB8}+148
   0000004C : E8(00 00 00 00                CALL TsCommonData.SetSkinSection{0x13}
   00000051 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000057 : 50                            PUSH EAX
   00000058 : 8B CB                         MOV ECX,EBX
   0000005A : B2 01                         MOV DL,$01
   0000005C : A1(00 00 00 00                MOV EAX,DWORD PTR [_Dn_TsBoundLabel{0x14}]
   00000061 : E8(00 00 00 00                CALL TsBoundLabel.Create{0x15}
   00000066 : 89 83 3C 03 00 00             MOV DWORD PTR [EBX+828],EAX
   0000006C : 8B C3                         MOV EAX,EBX
   0000006E : 80 7D FF 00                   CMP BYTE PTR [EBP-1{_Dv_}],$00
   00000072 : 74 0F                         JE +15; (0x83)
   00000074 : E8(00 00 00 00                CALL @AfterConstruction{0x88}
   00000079 : 64 8F 05 00 00 00 00          POP DWORD PTR FS:[$00000000]
   00000080 : 83 C4 0C                      ADD ESP,12
   00000083 : 8B C3                         MOV EAX,EBX
   00000085 : 5E                            POP ESI
   00000086 : 5B                            POP EBX
   00000087 : 59                            POP ECX
   00000088 : 5D                            POP EBP
   00000089 : C3                            RET NEAR
   0000008A : 00 00                         ADD BYTE PTR [EAX],AL
   0000008C : FF FF                         ? EDI
   0000008E : FF FF                         ? EDI
   00000090 : 04 00                         ADD AL,$00
   00000092 : 00 00                         ADD BYTE PTR [EAX],AL
   00000094 : 45                            INC EBP
   00000095 : 44                            INC ESP
   00000096 : 49                            DEC ECX
   00000097 : 54                            PUSH ESP
   00000098 : 00 00                         ADD BYTE PTR [EAX],AL
   0000009A : 00 00                         ADD BYTE PTR [EAX],AL
end;

destructor TsTreeView.Destroy (Self: TsTreeView; _Dv_: boolean);
begin
   00000000 : 53                            PUSH EBX
   00000001 : 56                            PUSH ESI
   00000002 : E8(00 00 00 00                CALL @BeforeDestruction{0x8A}
   00000007 : 8B DA                         MOV EBX,EDX
   00000009 : 8B F0                         MOV ESI,EAX
   0000000B : 83 BE 40 03 00 00 00          CMP DWORD PTR [ESI+832],0
   00000012 : 74 0B                         JE +11; (0x1F)
   00000014 : 8D 86 40 03 00 00             LEA EAX,DWORD PTR [ESI+832]
   0000001A : E8(00 00 00 00                CALL FreeAndNil{0x76}
   0000001F : 8D 86 3C 03 00 00             LEA EAX,DWORD PTR [ESI+828]
   00000025 : E8(00 00 00 00                CALL FreeAndNil{0x76}
   0000002A : 83 BE 38 03 00 00 00          CMP DWORD PTR [ESI+824],0
   00000031 : 74 0B                         JE +11; (0x3E)
   00000033 : 8D 86 38 03 00 00             LEA EAX,DWORD PTR [ESI+824]
   00000039 : E8(00 00 00 00                CALL FreeAndNil{0x76}
   0000003E : 8B D3                         MOV EDX,EBX
   00000040 : 80 E2 FC                      AND DL,$FC
   00000043 : 8B C6                         MOV EAX,ESI
   00000045 : E8(00 00 00 00                CALL TCustomTreeView.Destroy{0x36}
   0000004A : 84 DB                         TEST BL,BL
   0000004C : 7E 07                         JLE +7; (0x55)
   0000004E : 8B C6                         MOV EAX,ESI
   00000050 : E8(00 00 00 00                CALL @ClassDestroy{0x8B}
   00000055 : 5E                            POP ESI
   00000056 : 5B                            POP EBX
   00000057 : C3                            RET NEAR
end;

procedure TsTreeView.Loaded (Self: TsTreeView);
begin
   00000000 : 53                            PUSH EBX
   00000001 : 56                            PUSH ESI
   00000002 : 8B D8                         MOV EBX,EAX
   00000004 : 8B C3                         MOV EAX,EBX
   00000006 : E8(00 00 00 00                CALL TCustomTreeView.Loaded{0x37}
   0000000B : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000011 : E8(00 00 00 00                CALL TsCommonData.Loaded{0x10}
   00000016 : 33 D2                         XOR EDX,EDX
   00000018 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   0000001E : E8(00 00 00 00                CALL TsCommonData.Skinned{0x16}
   00000023 : 84 C0                         TEST AL,AL
   00000025 : 74 5D                         JE +93; (0x84)
   00000027 : 8B B3 38 03 00 00             MOV ESI,DWORD PTR [EBX+824]
   0000002D : 80 7E 0D 00                   CMP BYTE PTR [ESI+13],$00
   00000031 : 75 22                         JNE +34; (0x55)
   00000033 : 8B C6                         MOV EAX,ESI
   00000035 : E8(00 00 00 00                CALL TsCommonData.GetSkinManager{0x17}
   0000003A : 8B 80 84 00 00 00             MOV EAX,DWORD PTR [EAX+132]
   00000040 : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   00000046 : 6B 52 18 13                   IMUL DWORD PTR [EDX+24],$13
   0000004A : 8B 54 D0 08                   MOV EDX,DWORD PTR [EAX+8*EDX+8]
   0000004E : 8B C3                         MOV EAX,EBX
   00000050 : E8(00 00 00 00                CALL TControl.SetColor{0x61}
   00000055 : 8B B3 38 03 00 00             MOV ESI,DWORD PTR [EBX+824]
   0000005B : 80 7E 0C 00                   CMP BYTE PTR [ESI+12],$00
   0000005F : 75 23                         JNE +35; (0x84)
   00000061 : 8B C6                         MOV EAX,ESI
   00000063 : E8(00 00 00 00                CALL TsCommonData.GetSkinManager{0x17}
   00000068 : 8B 80 84 00 00 00             MOV EAX,DWORD PTR [EAX+132]
   0000006E : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   00000074 : 6B 52 18 13                   IMUL DWORD PTR [EDX+24],$13
   00000078 : 8B 54 D0 10                   MOV EDX,DWORD PTR [EAX+8*EDX+16]
   0000007C : 8B 43 68                      MOV EAX,DWORD PTR [EBX+104]
   0000007F : E8(00 00 00 00                CALL TFont.SetColor{0x69}
   00000084 : 8D 93 40 03 00 00             LEA EDX,DWORD PTR [EBX+832]
   0000008A : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000090 : E8(00 00 00 00                CALL RefreshTreeScrolls{0x4}
   00000095 : 5E                            POP ESI
   00000096 : 5B                            POP EBX
   00000097 : C3                            RET NEAR
end;

procedure TsTreeView.WndProc (Self: TsTreeView;var Message: Messages.TMessage);
begin
   00000000 : 53                            PUSH EBX
   00000001 : 56                            PUSH ESI
   00000002 : 57                            PUSH EDI
   00000003 : 8B F2                         MOV ESI,EDX
   00000005 : 8B D8                         MOV EBX,EAX
   00000007 : 8B 06                         MOV EAX,DWORD PTR [ESI]
   00000009 : 8B 15(00 00 00 00             MOV EDX,DWORD PTR [SM_ALPHACMD{0x7}]
   0000000F : 3B 02                         CMP EAX,DWORD PTR [EDX]
   00000011 : 0F 85 AB 01 00 00             JNE +427; (0x1C2)
   00000017 : 0F B7 46 06                   MOVZX EAX,WORD PTR [ESI+6]
   0000001B : 83 F8 07                      CMP EAX,7
   0000001E : 0F 87 9E 01 00 00             JA +414; (0x1C2)
   00000024 : FF 24 85(2B 00 00 00          JMP DWORD PTR [4*EAX+TsTreeView.WndProc{0xC1}+43],NEAR
   0000002B : C2 01 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   0000002F : C6 00 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   00000033 : 57 00 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   00000037 : EC 00 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   0000003B : C2 01 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   0000003F : C2 01 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   00000043 : 91 01 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   00000047 : 4B 00 00 00                   K1 TsTreeView.WndProc{0xC1} ?
   0000004B : C7 46 08 01 00 00 00          MOV DWORD PTR [ESI+8],$00000001
   00000052 : E9 71 02 00 00                JMP +625; (0x2C8)
   00000057 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   0000005D : E8(00 00 00 00                CALL TsCommonData.GetSkinManager{0x17}
   00000062 : 3B 46 08                      CMP EAX,DWORD PTR [ESI+8]
   00000065 : 0F 85 57 01 00 00             JNE +343; (0x1C2)
   0000006B : 83 BB 40 03 00 00 00          CMP DWORD PTR [EBX+832],0
   00000072 : 74 0B                         JE +11; (0x7F)
   00000074 : 8D 83 40 03 00 00             LEA EAX,DWORD PTR [EBX+832]
   0000007A : E8(00 00 00 00                CALL FreeAndNil{0x76}
   0000007F : 8B C6                         MOV EAX,ESI
   00000081 : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   00000087 : E8(00 00 00 00                CALL CommonWndProc{0x18}
   0000008C : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000092 : 80 78 0D 00                   CMP BYTE PTR [EAX+13],$00
   00000096 : 75 0C                         JNE +12; (0xA4)
   00000098 : BA 05 00 00 FF                MOV EDX,$FF000005
   0000009D : 8B C3                         MOV EAX,EBX
   0000009F : E8(00 00 00 00                CALL TControl.SetColor{0x61}
   000000A4 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   000000AA : 80 78 0C 00                   CMP BYTE PTR [EAX+12],$00
   000000AE : 0F 85 14 02 00 00             JNE +532; (0x2C8)
   000000B4 : BA 08 00 00 FF                MOV EDX,$FF000008
   000000B9 : 8B 43 68                      MOV EAX,DWORD PTR [EBX+104]
   000000BC : E8(00 00 00 00                CALL TFont.SetColor{0x69}
   000000C1 : E9 02 02 00 00                JMP +514; (0x2C8)
   000000C6 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   000000CC : E8(00 00 00 00                CALL TsCommonData.GetSkinManager{0x17}
   000000D1 : 3B 46 08                      CMP EAX,DWORD PTR [ESI+8]
   000000D4 : 0F 85 E8 00 00 00             JNE +232; (0x1C2)
   000000DA : 8B C6                         MOV EAX,ESI
   000000DC : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   000000E2 : E8(00 00 00 00                CALL CommonWndProc{0x18}
   000000E7 : E9 DC 01 00 00                JMP +476; (0x2C8)
   000000EC : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   000000F2 : E8(00 00 00 00                CALL TsCommonData.GetSkinManager{0x17}
   000000F7 : 3B 46 08                      CMP EAX,DWORD PTR [ESI+8]
   000000FA : 0F 85 C2 00 00 00             JNE +194; (0x1C2)
   00000100 : 8B C6                         MOV EAX,ESI
   00000102 : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   00000108 : E8(00 00 00 00                CALL CommonWndProc{0x18}
   0000010D : 33 D2                         XOR EDX,EDX
   0000010F : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000115 : E8(00 00 00 00                CALL TsCommonData.Skinned{0x16}
   0000011A : 84 C0                         TEST AL,AL
   0000011C : 74 5D                         JE +93; (0x17B)
   0000011E : 8B B3 38 03 00 00             MOV ESI,DWORD PTR [EBX+824]
   00000124 : 80 7E 0D 00                   CMP BYTE PTR [ESI+13],$00
   00000128 : 75 22                         JNE +34; (0x14C)
   0000012A : 8B C6                         MOV EAX,ESI
   0000012C : E8(00 00 00 00                CALL TsCommonData.GetSkinManager{0x17}
   00000131 : 8B 80 84 00 00 00             MOV EAX,DWORD PTR [EAX+132]
   00000137 : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   0000013D : 6B 52 18 13                   IMUL DWORD PTR [EDX+24],$13
   00000141 : 8B 54 D0 08                   MOV EDX,DWORD PTR [EAX+8*EDX+8]
   00000145 : 8B C3                         MOV EAX,EBX
   00000147 : E8(00 00 00 00                CALL TControl.SetColor{0x61}
   0000014C : 8B B3 38 03 00 00             MOV ESI,DWORD PTR [EBX+824]
   00000152 : 80 7E 0C 00                   CMP BYTE PTR [ESI+12],$00
   00000156 : 75 23                         JNE +35; (0x17B)
   00000158 : 8B C6                         MOV EAX,ESI
   0000015A : E8(00 00 00 00                CALL TsCommonData.GetSkinManager{0x17}
   0000015F : 8B 80 84 00 00 00             MOV EAX,DWORD PTR [EAX+132]
   00000165 : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   0000016B : 6B 52 18 13                   IMUL DWORD PTR [EDX+24],$13
   0000016F : 8B 54 D0 10                   MOV EDX,DWORD PTR [EAX+8*EDX+16]
   00000173 : 8B 43 68                      MOV EAX,DWORD PTR [EBX+104]
   00000176 : E8(00 00 00 00                CALL TFont.SetColor{0x69}
   0000017B : 8D 93 40 03 00 00             LEA EDX,DWORD PTR [EBX+832]
   00000181 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000187 : E8(00 00 00 00                CALL RefreshTreeScrolls{0x4}
   0000018C : E9 37 01 00 00                JMP +311; (0x2C8)
   00000191 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000197 : E8(00 00 00 00                CALL TsCommonData.GetUpdating{0x19}
   0000019C : 84 C0                         TEST AL,AL
   0000019E : 74 22                         JE +34; (0x1C2)
   000001A0 : 33 D2                         XOR EDX,EDX
   000001A2 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   000001A8 : E8(00 00 00 00                CALL TsCommonData.SetUpdating{0x1A}
   000001AD : 6A 00                         PUSH $00
   000001AF : 33 C9                         XOR ECX,ECX
   000001B1 : BA 85 00 00 00                MOV EDX,$00000085
   000001B6 : 8B C3                         MOV EAX,EBX
   000001B8 : E8(00 00 00 00                CALL TControl.Perform{0x62}
   000001BD : E9 06 01 00 00                JMP +262; (0x2C8)
   000001C2 : 8B C3                         MOV EAX,EBX
   000001C4 : E8(00 00 00 00                CALL ControlIsReady{0x99}
   000001C9 : 84 C0                         TEST AL,AL
   000001CB : 75 0B                         JNE +11; (0x1D8)
   000001CD : 8B D6                         MOV EDX,ESI
   000001CF : 8B C3                         MOV EAX,EBX
   000001D1 : E8(00 00 00 00                CALL TCustomTreeView.WndProc{0x38}
   000001D6 : EB 62                         JMP +98; (0x23A)
   000001D8 : 8B BB 38 03 00 00             MOV EDI,DWORD PTR [EBX+824]
   000001DE : 85 FF                         TEST EDI,EDI
   000001E0 : 74 28                         JE +40; (0x20A)
   000001E2 : 33 D2                         XOR EDX,EDX
   000001E4 : 8B C7                         MOV EAX,EDI
   000001E6 : E8(00 00 00 00                CALL TsCommonData.Skinned{0x16}
   000001EB : 84 C0                         TEST AL,AL
   000001ED : 74 1B                         JE +27; (0x20A)
   000001EF : 8B 06                         MOV EAX,DWORD PTR [ESI]
   000001F1 : 83 E8 03                      SUB EAX,3
   000001F4 : 74 0A                         JE +10; (0x200)
   000001F6 : 05 F8 4F FF FF                ADD EAX,$FFFF4FF8
   000001FB : 83 E8 02                      SUB EAX,2
   000001FE : 73 0A                         JNB +10; (0x20A)
   00000200 : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000206 : C6 40 29 01                   MOV BYTE PTR [EAX+41],$01
   0000020A : 8B C6                         MOV EAX,ESI
   0000020C : 8B 93 38 03 00 00             MOV EDX,DWORD PTR [EBX+824]
   00000212 : E8(00 00 00 00                CALL CommonWndProc{0x18}
   00000217 : 8B D6                         MOV EDX,ESI
   00000219 : 8B C3                         MOV EAX,EBX
   0000021B : E8(00 00 00 00                CALL TCustomTreeView.WndProc{0x38}
   00000220 : 8B 06                         MOV EAX,DWORD PTR [ESI]
   00000222 : 2D 19 B0 00 00                SUB EAX,$0000B019
   00000227 : 75 11                         JNE +17; (0x23A)
   00000229 : 8D 93 40 03 00 00             LEA EDX,DWORD PTR [EBX+832]
   0000022F : 8B 83 38 03 00 00             MOV EAX,DWORD PTR [EBX+824]
   00000235 : E8(00 00 00 00                CALL RefreshTreeScrolls{0x4}
   0000023A : 8B BB 3C 03 00 00             MOV EDI,DWORD PTR [EBX+828]
   00000240 : 85 FF                         TEST EDI,EDI
   00000242 : 0F 84 80 00 00 00             JE +128; (0x2C8)
   00000248 : 83 7F 1C 00                   CMP DWORD PTR [EDI+28],0
   0000024C : 74 7A                         JE +122; (0x2C8)
   0000024E : 8B 06                         MOV EAX,DWORD PTR [ESI]
   00000250 : 3D 0B B0 00 00                CMP EAX,$0000B00B
   00000255 : 7F 0E                         JG +14; (0x265)
   00000257 : 74 23                         JE +35; (0x27C)
   00000259 : 83 E8 05                      SUB EAX,5
   0000025C : 74 15                         JE +21; (0x273)
   0000025E : 83 E8 42                      SUB EAX,66
   00000261 : 74 10                         JE +16; (0x273)
   00000263 : EB 63                         JMP +99; (0x2C8)
   00000265 : 2D 0C B0 00 00                SUB EAX,$0000B00C
   0000026A : 74 28                         JE +40; (0x294)
   0000026C : 83 E8 30                      SUB EAX,48
   0000026F : 74 41                         JE +65; (0x2B2)
   00000271 : EB 55                         JMP +85; (0x2C8)
   00000273 : 8B C7                         MOV EAX,EDI
   00000275 : E8(00 00 00 00                CALL TsBoundLabel.AlignLabel{0x1B}
   0000027A : EB 4C                         JMP +76; (0x2C8)
   0000027C : 8B 47 1C                      MOV EAX,DWORD PTR [EDI+28]
   0000027F : 8A 53 57                      MOV DL,BYTE PTR [EBX+87]
   00000282 : E8(00 00 00 00                CALL TControl.SetVisible{0x66}
   00000287 : 8B 83 3C 03 00 00             MOV EAX,DWORD PTR [EBX+828]
   0000028D : E8(00 00 00 00                CALL TsBoundLabel.AlignLabel{0x1B}
   00000292 : EB 34                         JMP +52; (0x2C8)
   00000294 : 8B C3                         MOV EAX,EBX
   00000296 : 8B 10                         MOV EDX,DWORD PTR [EAX]
   00000298 : FF 52 50                      CALL DWORD PTR [EDX+80],NEAR
   0000029B : 8B D0                         MOV EDX,EAX
   0000029D : 8B 47 1C                      MOV EAX,DWORD PTR [EDI+28]
   000002A0 : 8B 08                         MOV ECX,DWORD PTR [EAX]
   000002A2 : FF 51 64                      CALL DWORD PTR [ECX+100],NEAR
   000002A5 : 8B 83 3C 03 00 00             MOV EAX,DWORD PTR [EBX+828]
   000002AB : E8(00 00 00 00                CALL TsBoundLabel.AlignLabel{0x1B}
   000002B0 : EB 16                         JMP +22; (0x2C8)
   000002B2 : 8B 47 1C                      MOV EAX,DWORD PTR [EDI+28]
   000002B5 : 8A 53 5F                      MOV DL,BYTE PTR [EBX+95]
   000002B8 : 8B 08                         MOV ECX,DWORD PTR [EAX]
   000002BA : FF 51 70                      CALL DWORD PTR [ECX+112],NEAR
   000002BD : 8B 83 3C 03 00 00             MOV EAX,DWORD PTR [EBX+828]
   000002C3 : E8(00 00 00 00                CALL TsBoundLabel.AlignLabel{0x1B}
   000002C8 : 5F                            POP EDI
   000002C9 : 5E                            POP ESI
   000002CA : 5B                            POP EBX
   000002CB : C3                            RET NEAR
end;

procedure Finalization;
begin
   00000000 : 55                            PUSH EBP
   00000001 : 8B EC                         MOV EBP,ESP
   00000003 : 33 C0                         XOR EAX,EAX
   00000005 : 55                            PUSH EBP
   00000006 : 68(25 00 00 00                PUSH Finalization{0xC4}+37
   0000000B : 64 FF 30                      PUSH DWORD PTR FS:[EAX]
   0000000E : 64 89 20                      MOV DWORD PTR FS:[EAX],ESP
   00000011 : FF 05(00 00 00 00             INC DWORD PTR [_DV_2{0xAC}]
   00000017 : 33 C0                         XOR EAX,EAX
   00000019 : 5A                            POP EDX
   0000001A : 59                            POP ECX
   0000001B : 59                            POP ECX
   0000001C : 64 89 10                      MOV DWORD PTR FS:[EAX],EDX
   0000001F : 68(2C 00 00 00                PUSH Finalization{0xC4}+44
   00000024 : C3                            RET NEAR
   00000025 : E9(00 00 00 00                JMP @HandleFinally{0x8F}
   0000002A : EB F8                         JMP -8; (0x24)
   0000002C : 5D                            POP EBP
   0000002D : C3                            RET NEAR
end;

procedure sTreeView;
begin
   00000000 : 83 2D(00 00 00 00 01          SUB DWORD PTR [_DV_2{0xAC}],1
   00000007 : C3(                           RET NEAR
end;

end.


  [Error] Unit2.pas(83): Declaration of 'WndProc' differs from previous declaration
  [Error] Unit2.pas(85): Declaration of 'Loaded' differs from previous declaration
  [Error] Unit2.pas(88): Declaration of 'Create' differs from previous declaration
  [Error] Unit2.pas(90): Declaration of 'Destroy' differs from previous declaration
  [Error] Unit2.pas(92): Declaration of 'AfterConstruction' differs from previous declaration
  [Error] Unit2.pas(100): Identifier expected but 'FINALIZATION' found
  [Error] Unit2.pas(102): Statement expected but 'PROCEDURE' found
  [Error] Unit2.pas(105): ';' expected but 'IMPLEMENTATION' found
  [Error] Unit2.pas(83): Unsatisfied forward or external declaration: 'TsTreeView.WndProc'
  [Error] Unit2.pas(85): Unsatisfied forward or external declaration: 'TsTreeView.Loaded'
  [Error] Unit2.pas(88): Unsatisfied forward or external declaration: 'TsTreeView.Create'
  [Error] Unit2.pas(90): Unsatisfied forward or external declaration: 'TsTreeView.Destroy'
  [Error] Unit2.pas(92): Unsatisfied forward or external declaration: 'TsTreeView.AfterConstruction'
  [Fatal Error] Project1.dpr(6): Could not compile used unit '..\..\..\Dokumente und                                                                   Einstellungen\Siderun'r\Eigene Dateien\delphi\Unit2.pas'