📄 tdbkwin.pas
字号:
006250ED 56 push esi
006250EE 57 push edi
006250EF 55 push ebp
006250F0 83C4B0 add esp, -$50
006250F3 8BD8 mov ebx, eax
006250F5 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
006250F7 E8FC43E1FF call 004394F8
006250FC 99 cdq
006250FD F7BB58030000 idiv dword ptr [ebx+$0358]
00625103 89442404 mov [esp+$04], eax
00625107 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
00625109 E8A643E1FF call 004394B4
* Reference to field TfrmTDBK.OFFS_0354
|
0062510E 8BB354030000 mov esi, [ebx+$0354]
00625114 99 cdq
00625115 F7FE idiv esi
00625117 89442408 mov [esp+$08], eax
0062511B 8B442404 mov eax, [esp+$04]
0062511F 2B8368030000 sub eax, dword ptr [ebx+$0368]
00625125 8944240C mov [esp+$0C], eax
00625129 8B442408 mov eax, [esp+$08]
0062512D 2B836C030000 sub eax, dword ptr [ebx+$036C]
00625133 89442410 mov [esp+$10], eax
00625137 4E dec esi
00625138 85F6 test esi, esi
0062513A 0F8C6D010000 jl 006252AD
00625140 46 inc esi
00625141 89742414 mov [esp+$14], esi
00625145 C7042400000000 mov dword ptr [esp], $00000000
* Reference to field TfrmTDBK.OFFS_0358
|
0062514C 8B8358030000 mov eax, [ebx+$0358]
00625152 48 dec eax
00625153 85C0 test eax, eax
00625155 0F8C45010000 jl 006252A0
0062515B 40 inc eax
0062515C 89442418 mov [esp+$18], eax
00625160 33FF xor edi, edi
00625162 8B3424 mov esi, [esp]
00625165 0FAFB358030000 imul esi, [ebx+$0358]
0062516C 03F7 add esi, edi
0062516E 8D54243C lea edx, [esp+$3C]
00625172 8BC3 mov eax, ebx
00625174 8B08 mov ecx, [eax]
* Reference to method TfrmTDBK.GetClientRect()
|
00625176 FF5140 call dword ptr [ecx+$40]
00625179 8B6C243C mov ebp, [esp+$3C]
0062517D 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
0062517F E83043E1FF call 004394B4
00625184 F72C24 imul dword ptr [esp]
00625187 8944244C mov [esp+$4C], eax
0062518B DB44244C fild dword ptr [esp+$4C]
0062518F DB8354030000 fild dword ptr [ebx+$0354]
00625195 DEF9 fdivp st(1), st(0)
* Reference to: system.@TRUNC;
|
00625197 E864DBDDFF call 00402D00
0062519C 03E8 add ebp, eax
0062519E 896C241C mov [esp+$1C], ebp
006251A2 8D54243C lea edx, [esp+$3C]
006251A6 8BC3 mov eax, ebx
006251A8 8B08 mov ecx, [eax]
* Reference to method TfrmTDBK.GetClientRect()
|
006251AA FF5140 call dword ptr [ecx+$40]
006251AD 8B6C2440 mov ebp, [esp+$40]
006251B1 8BC3 mov eax, ebx
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
006251B3 E84043E1FF call 004394F8
006251B8 F7EF imul edi
006251BA 8944244C mov [esp+$4C], eax
006251BE DB44244C fild dword ptr [esp+$4C]
006251C2 DB8358030000 fild dword ptr [ebx+$0358]
006251C8 DEF9 fdivp st(1), st(0)
* Reference to: system.@TRUNC;
|
006251CA E831DBDDFF call 00402D00
006251CF 03E8 add ebp, eax
006251D1 896C2420 mov [esp+$20], ebp
006251D5 8B44241C mov eax, [esp+$1C]
006251D9 03442408 add eax, [esp+$08]
006251DD 83C002 add eax, +$02
006251E0 89442424 mov [esp+$24], eax
006251E4 8B442420 mov eax, [esp+$20]
006251E8 03442404 add eax, [esp+$04]
006251EC 83C002 add eax, +$02
006251EF 89442428 mov [esp+$28], eax
006251F3 8B44241C mov eax, [esp+$1C]
006251F7 8944242C mov [esp+$2C], eax
006251FB 8B442420 mov eax, [esp+$20]
006251FF 038368030000 add eax, [ebx+$0368]
00625205 89442430 mov [esp+$30], eax
* Reference to field TfrmTDBK.OFFS_0344
|
00625209 8B8344030000 mov eax, [ebx+$0344]
0062520F 8B44F004 mov eax, [eax+esi*8+$04]
00625213 85C0 test eax, eax
00625215 7461 jz 00625278
* Reference to field TfrmTDBK.OFFS_0344
|
00625217 8B9344030000 mov edx, [ebx+$0344]
0062521D 8BE8 mov ebp, eax
* Reference to field TfrmTDBK.OFFS_0350
|
0062521F 8B8350030000 mov eax, [ebx+$0350]
00625225 3BF0 cmp esi, eax
00625227 7D6C jnl 00625295
* Reference to field TfrmTDBK.OFFS_0340
|
00625229 8B9340030000 mov edx, [ebx+$0340]
0062522F 0FAF9354030000 imul edx, [ebx+$0354]
00625236 0FAF9358030000 imul edx, [ebx+$0358]
0062523D 03D6 add edx, esi
0062523F 3BC2 cmp eax, edx
00625241 7E0B jle 0062524E
00625243 B201 mov dl, $01
00625245 8BC5 mov eax, ebp
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00625247 E81C47E1FF call 00439968
0062524C EB09 jmp 00625257
0062524E 33D2 xor edx, edx
00625250 8BC5 mov eax, ebp
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00625252 E81147E1FF call 00439968
00625257 8B542410 mov edx, [esp+$10]
0062525B 8BC5 mov eax, ebp
* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
0062525D E82640E1FF call 00439288
00625262 8B54242C mov edx, [esp+$2C]
00625266 8BC5 mov eax, ebp
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
00625268 E8D73FE1FF call 00439244
0062526D 8B542430 mov edx, [esp+$30]
00625271 8BC5 mov eax, ebp
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
00625273 E8EC3FE1FF call 00439264
* Reference to field TfrmTDBK.OFFS_0344
|
00625278 8B8344030000 mov eax, [ebx+$0344]
0062527E 8B44F004 mov eax, [eax+esi*8+$04]
00625282 85C0 test eax, eax
00625284 740F jz 00625295
* Reference to field TfrmTDBK.OFFS_0344
|
00625286 8B9344030000 mov edx, [ebx+$0344]
0062528C 8B54240C mov edx, [esp+$0C]
* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
00625290 E81340E1FF call 004392A8
00625295 47 inc edi
00625296 FF4C2418 dec dword ptr [esp+$18]
0062529A 0F85C2FEFFFF jnz 00625162
006252A0 FF0424 inc dword ptr [esp]
006252A3 FF4C2414 dec dword ptr [esp+$14]
006252A7 0F859FFEFFFF jnz 0062514C
006252AD 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_006252BC()
|
006252AF E808000000 call 006252BC
006252B4 83C450 add esp, +$50
006252B7 5D pop ebp
006252B8 5F pop edi
006252B9 5E pop esi
006252BA 5B pop ebx
006252BB C3 ret
*)
end;
procedure TfrmTDBK._PROC_006252BC(Sender : TObject);
begin
(*
006252BC 53 push ebx
006252BD 56 push esi
006252BE 57 push edi
006252BF 8BD8 mov ebx, eax
* Reference to field TfrmTDBK.OFFS_0340
|
006252C1 8B8340030000 mov eax, [ebx+$0340]
006252C7 8BF0 mov esi, eax
* Reference to field TfrmTDBK.OFFS_0354
|
006252C9 8B9354030000 mov edx, [ebx+$0354]
006252CF 0FAFF2 imul esi, edx
* Reference to field TfrmTDBK.OFFS_0358
|
006252D2 8B8B58030000 mov ecx, [ebx+$0358]
006252D8 0FAFF1 imul esi, ecx
006252DB 8BF8 mov edi, eax
006252DD 47 inc edi
006252DE 0FAFFA imul edi, edx
006252E1 0FAFF9 imul edi, ecx
006252E4 4F dec edi
006252E5 2BFE sub edi, esi
006252E7 7C16 jl 006252FF
006252E9 47 inc edi
* Reference to field TfrmTDBK.OFFS_0350
|
006252EA 3BB350030000 cmp esi, [ebx+$0350]
006252F0 7D09 jnl 006252FB
006252F2 8BD6 mov edx, esi
006252F4 8BC3 mov eax, ebx
* Reference to : TfrmTDBK._PROC_00625304()
|
006252F6 E809000000 call 00625304
006252FB 46 inc esi
006252FC 4F dec edi
006252FD 75EB jnz 006252EA
006252FF 5F pop edi
00625300 5E pop esi
00625301 5B pop ebx
00625302 C3 ret
*)
end;
procedure TfrmTDBK._PROC_00625304(Sender : TObject);
begin
(*
00625304 55 push ebp
00625305 8BEC mov ebp, esp
00625307 83C4A0 add esp, -$60
0062530A 53 push ebx
0062530B 56 push esi
0062530C 57 push edi
0062530D 33C9 xor ecx, ecx
0062530F 894DA8 mov [ebp-$58], ecx
00625312 894DAC mov [ebp-$54], ecx
00625315 894DF8 mov [ebp-$08], ecx
00625318 8BFA mov edi, edx
0062531A 8BD8 mov ebx, eax
0062531C 33C0 xor eax, eax
0062531E 55 push ebp
0062531F 68C2576200 push $006257C2
***** TRY
|
00625324 64FF30 push dword ptr fs:[eax]
00625327 648920 mov fs:[eax], esp
* Reference to field TfrmTDBK.OFFS_0340
|
0062532A 8B8340030000 mov eax, [ebx+$0340]
00625330 F7AB54030000 imul dword ptr [ebx+$0354]
* Reference to field TfrmTDBK.OFFS_0358
|
00625336 8B8B58030000 mov ecx, [ebx+$0358]
0062533C F7E9 imul ecx
0062533E 50 push eax
0062533F 8BC7 mov eax, edi
00625341 5A pop edx
00625342 2BC2 sub eax, edx
00625344 99 cdq
00625345 F7F9 idiv ecx
00625347 8945F4 mov [ebp-$0C], eax
* Reference to field TfrmTDBK.OFFS_0340
|
0062534A 8B8340030000 mov eax, [ebx+$0340]
00625350 F7AB54030000 imul dword ptr [ebx+$0354]
00625356 F7AB58030000 imul dword ptr [ebx+$0358]
0062535C 50 push eax
0062535D 8BC7 mov eax, edi
0062535F 5A pop edx
00625360 2BC2 sub eax, edx
00625362 99 cdq
00625363 F7F9 idiv ecx
00625365 8955F0 mov [ebp-$10], edx
00625368 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
0062536A E8B1E7E2FF call 00453B20
* Reference to field TfrmTDBK.Tag : Longint
|
0062536F 8B700C mov esi, [eax+$0C]
00625372 A154D37700 mov eax, dword ptr [$0077D354]
00625377 803800 cmp byte ptr [eax], $00
0062537A 750E jnz 0062538A
0062537C BAFFFF0000 mov edx, $0000FFFF
00625381 8BC6 mov eax, esi
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
00625383 E8348BDFFF call 0041DEBC
00625388 EB0C jmp 00625396
0062538A BA80808000 mov edx, $00808080
0062538F 8BC6 mov eax, esi
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
00625391 E8268BDFFF call 0041DEBC
* Possible String Reference to: '宋体'
|
00625396 BAD8576200 mov edx, $006257D8
0062539B 8BC6 mov eax, esi
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
0062539D E8428DDFFF call 0041E0E4
006253A2 8BC6 mov eax, esi
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -