📄 tdbkwin.pas
字号:
* Reference to: graphics.TFont.GetStyle(TFont):TFontStyles;
|
006253A4 E8D38DDFFF call 0041E17C
006253A9 8BD0 mov edx, eax
006253AB 0A15E0576200 or dl, byte ptr [$006257E0]
006253B1 8BC6 mov eax, esi
* Reference to: graphics.TFont.SetStyle(TFont;TFontStyles);
|
006253B3 E8D08DDFFF call 0041E188
006253B8 BA0C000000 mov edx, $0000000C
006253BD 8BC6 mov eax, esi
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
006253BF E8988DDFFF call 0041E15C
006253C4 6A01 push $01
006253C6 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006253C8 E853E7E2FF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006253CD E876A0DFFF call 0041F448
006253D2 50 push eax
* Reference to: gdi32.SetBkMode()
|
006253D3 E81033DEFF call 004086E8
006253D8 8D55B4 lea edx, [ebp-$4C]
006253DB 8BC3 mov eax, ebx
006253DD 8B08 mov ecx, [eax]
* Reference to method TfrmTDBK.GetClientRect()
|
006253DF FF5140 call dword ptr [ecx+$40]
006253E2 8B75B4 mov esi, [ebp-$4C]
006253E5 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
006253E7 E8C840E1FF call 004394B4
006253EC F76DF4 imul dword ptr [ebp-$0C]
006253EF 8945B0 mov [ebp-$50], eax
006253F2 DB45B0 fild dword ptr [ebp-$50]
006253F5 DB8354030000 fild dword ptr [ebx+$0354]
006253FB DEF9 fdivp st(1), st(0)
* Reference to: system.@ROUND;
|
006253FD E8F2D8DDFF call 00402CF4
00625402 03F0 add esi, eax
00625404 8975D4 mov [ebp-$2C], esi
00625407 8D55B4 lea edx, [ebp-$4C]
0062540A 8BC3 mov eax, ebx
0062540C 8B08 mov ecx, [eax]
* Reference to method TfrmTDBK.GetClientRect()
|
0062540E FF5140 call dword ptr [ecx+$40]
00625411 8B75B4 mov esi, [ebp-$4C]
00625414 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
00625416 E89940E1FF call 004394B4
0062541B 8B55F4 mov edx, [ebp-$0C]
0062541E 42 inc edx
0062541F F7EA imul edx
00625421 8945B0 mov [ebp-$50], eax
00625424 DB45B0 fild dword ptr [ebp-$50]
00625427 DB8354030000 fild dword ptr [ebx+$0354]
0062542D DEF9 fdivp st(1), st(0)
* Reference to: system.@ROUND;
|
0062542F E8C0D8DDFF call 00402CF4
00625434 03F0 add esi, eax
00625436 8975DC mov [ebp-$24], esi
00625439 8D55B4 lea edx, [ebp-$4C]
0062543C 8BC3 mov eax, ebx
0062543E 8B08 mov ecx, [eax]
* Reference to method TfrmTDBK.GetClientRect()
|
00625440 FF5140 call dword ptr [ecx+$40]
00625443 8B75B8 mov esi, [ebp-$48]
00625446 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
00625448 E8AB40E1FF call 004394F8
0062544D F76DF0 imul dword ptr [ebp-$10]
00625450 8945B0 mov [ebp-$50], eax
00625453 DB45B0 fild dword ptr [ebp-$50]
00625456 DB8358030000 fild dword ptr [ebx+$0358]
0062545C DEF9 fdivp st(1), st(0)
* Reference to: system.@ROUND;
|
0062545E E891D8DDFF call 00402CF4
00625463 03F0 add esi, eax
00625465 8975D8 mov [ebp-$28], esi
00625468 03B368030000 add esi, [ebx+$0368]
0062546E 4E dec esi
0062546F 8975E0 mov [ebp-$20], esi
00625472 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00625474 E8A7E6E2FF call 00453B20
00625479 8BF0 mov esi, eax
* Reference to field TfrmTDBK.OFFS_0344
|
0062547B 8B8344030000 mov eax, [ebx+$0344]
00625481 668B14F8 mov dx, word ptr [eax+edi*8]
00625485 8D4DFC lea ecx, [ebp-$04]
* Reference to pointer to GlobalVar_0078CF10
|
00625488 A1DCCA7700 mov eax, dword ptr [$0077CADC]
0062548D 8B00 mov eax, [eax]
* Reference to: Unit_00762200.Proc_00762C90
|
0062548F E8FCD71300 call 00762C90
00625494 837DFC00 cmp dword ptr [ebp-$04], +$00
00625498 0F8401030000 jz 0062579F
0062549E A154D37700 mov eax, dword ptr [$0077D354]
006254A3 803800 cmp byte ptr [eax], $00
006254A6 750C jnz 006254B4
006254A8 33D2 xor edx, edx
* Reference to field TfrmTDBK.OFFS_0014
|
006254AA 8B4614 mov eax, [esi+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
006254AD E80692DFFF call 0041E6B8
006254B2 EB0D jmp 006254C1
006254B4 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to field TfrmTDBK.OFFS_0014
|
006254B9 8B4614 mov eax, [esi+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
006254BC E8F791DFFF call 0041E6B8
006254C1 8D55D4 lea edx, [ebp-$2C]
006254C4 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.FillRect(TCanvas;TRect;TRect);
|
006254C6 E85D99DFFF call 0041EE28
006254CB 8D55F8 lea edx, [ebp-$08]
006254CE 8B45FC mov eax, [ebp-$04]
006254D1 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00768124
|
006254D3 E84C2C1400 call 00768124
* Reference to field TfrmTDBK.OFFS_0358
|
006254D8 83BB5803000003 cmp dword ptr [ebx+$0358], +$03
006254DF 7409 jz 006254EA
* Reference to field TfrmTDBK.OFFS_0354
|
006254E1 83BB5403000003 cmp dword ptr [ebx+$0354], +$03
006254E8 7514 jnz 006254FE
006254EA 8B45DC mov eax, [ebp-$24]
006254ED 2B45D4 sub eax, dword ptr [ebp-$2C]
006254F0 40 inc eax
006254F1 B903000000 mov ecx, $00000003
006254F6 99 cdq
006254F7 F7F9 idiv ecx
006254F9 8945EC mov [ebp-$14], eax
006254FC EB12 jmp 00625510
006254FE 8B45DC mov eax, [ebp-$24]
00625501 2B45D4 sub eax, dword ptr [ebp-$2C]
00625504 40 inc eax
00625505 B905000000 mov ecx, $00000005
0062550A 99 cdq
0062550B F7F9 idiv ecx
0062550D 8945EC mov [ebp-$14], eax
00625510 6A02 push $02
00625512 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00625514 E807E6E2FF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00625519 E82A9FDFFF call 0041F448
0062551E 50 push eax
* Reference to: gdi32.SetTextAlign()
|
0062551F E80432DEFF call 00408728
00625524 8B7DD4 mov edi, [ebp-$2C]
00625527 037DEC add edi, [ebp-$14]
0062552A 8B45F8 mov eax, [ebp-$08]
0062552D 50 push eax
0062552E 8B4DD8 mov ecx, [ebp-$28]
00625531 83C102 add ecx, +$02
00625534 8BD7 mov edx, edi
00625536 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.TextOut(TCanvas;Integer;Integer;AnsiString);
|
00625538 E8D39BDFFF call 0041F110
* Reference to field TfrmTDBK.OFFS_034C
|
0062553D 8B8B4C030000 mov ecx, [ebx+$034C]
00625543 8BC1 mov eax, ecx
* Reference to field TfrmTDBK.OFFS_0358
|
00625545 8BBB58030000 mov edi, [ebx+$0358]
0062554B 99 cdq
0062554C F7FF idiv edi
0062554E 3B45F4 cmp eax, [ebp-$0C]
00625551 751D jnz 00625570
00625553 8BC1 mov eax, ecx
00625555 99 cdq
00625556 F7FF idiv edi
00625558 3B55F0 cmp edx, [ebp-$10]
0062555B 7513 jnz 00625570
0062555D 8B45D4 mov eax, [ebp-$2C]
00625560 0345EC add eax, [ebp-$14]
00625563 8945DC mov [ebp-$24], eax
00625566 8D55D4 lea edx, [ebp-$2C]
00625569 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.FillRect(TCanvas;TRect;TRect);
|
0062556B E8F498DFFF call 0041EE64
* Reference to field TfrmTDBK.OFFS_0348
|
00625570 8B8B48030000 mov ecx, [ebx+$0348]
00625576 8BC1 mov eax, ecx
* Reference to field TfrmTDBK.OFFS_0358
|
00625578 8BBB58030000 mov edi, [ebx+$0358]
0062557E 99 cdq
0062557F F7FF idiv edi
00625581 3B45F4 cmp eax, [ebp-$0C]
00625584 0F8581000000 jnz 0062560B
0062558A 8BC1 mov eax, ecx
0062558C 99 cdq
0062558D F7FF idiv edi
0062558F 3B55F0 cmp edx, [ebp-$10]
00625592 7577 jnz 0062560B
00625594 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to field TfrmTDBK.OFFS_0014
|
00625599 8B4614 mov eax, [esi+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
0062559C E81791DFFF call 0041E6B8
006255A1 8B7DD4 mov edi, [ebp-$2C]
006255A4 037DEC add edi, [ebp-$14]
006255A7 897DDC mov [ebp-$24], edi
006255AA 8D55AC lea edx, [ebp-$54]
006255AD 8B45FC mov eax, [ebp-$04]
006255B0 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00768124
|
006255B2 E86D2B1400 call 00768124
006255B7 8B55AC mov edx, [ebp-$54]
006255BA 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.TextWidth(TCanvas;AnsiString):Integer;
|
006255BC E8C39CDFFF call 0041F284
006255C1 8945E4 mov [ebp-$1C], eax
006255C4 8B45E0 mov eax, [ebp-$20]
006255C7 50 push eax
006255C8 8D45C4 lea eax, [ebp-$3C]
006255CB 50 push eax
006255CC 8BC7 mov eax, edi
006255CE 2B45E4 sub eax, dword ptr [ebp-$1C]
006255D1 83E802 sub eax, +$02
006255D4 8BCF mov ecx, edi
006255D6 8B55D8 mov edx, [ebp-$28]
* Reference to: Classes.Proc_00413328
|
006255D9 E84ADDDEFF call 00413328
006255DE 8D55C4 lea edx, [ebp-$3C]
006255E1 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.FillRect(TCanvas;TRect;TRect);
|
006255E3 E87C98DFFF call 0041EE64
006255E8 A154D37700 mov eax, dword ptr [$0077D354]
006255ED 803800 cmp byte ptr [eax], $00
006255F0 750C jnz 006255FE
006255F2 33D2 xor edx, edx
* Reference to field TfrmTDBK.OFFS_0014
|
006255F4 8B4614 mov eax, [esi+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
006255F7 E8BC90DFFF call 0041E6B8
006255FC EB0D jmp 0062560B
006255FE BAFFFFFF00 mov edx, $00FFFFFF
* Reference to field TfrmTDBK.OFFS_0014
|
00625603 8B4614 mov eax, [esi+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
00625606 E8AD90DFFF call 0041E6B8
* Reference to field TfrmTDBK.OFFS_0354
|
0062560B 83BB5403000003 cmp dword ptr [ebx+$0354], +$03
00625612 7D69 jnl 0062567D
00625614 8B7DEC mov edi, [ebp-$14]
00625617 03FF add edi, edi
00625619 037DD4 add edi, [ebp-$2C]
0062561C 8D55F8 lea edx, [ebp-$08]
0062561F 8B45FC mov eax, [ebp-$04]
00625622 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00768084
|
00625624 E85B2A1400 call 00768084
00625629 8B45F8 mov eax, [ebp-$08]
0062562C 50 push ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -