📄 rtzhpm.pas
字号:
* Reference to field TFrmZhpm.OFFS_0005
|
005B5B33 8A4005 mov al, byte ptr [eax+$05]
005B5B36 50 push eax
005B5B37 8B03 mov eax, [ebx]
* Reference to : THJForm._PROC_007516C8()
|
005B5B39 E88ABB1900 call 007516C8
005B5B3E 8A5004 mov dl, byte ptr [eax+$04]
* Reference to pointer to GlobalVar_0078CF18
|
005B5B41 A1E8D07700 mov eax, dword ptr [$0077D0E8]
005B5B46 8B00 mov eax, [eax]
005B5B48 59 pop ecx
005B5B49 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_58
|
005B5B4B FF5658 call dword ptr [esi+$58]
005B5B4E 33D2 xor edx, edx
* Reference to control TFrmZhpm.Timer1 : TTimer
|
005B5B50 8B8338030000 mov eax, [ebx+$0338]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
005B5B56 E87599EAFF call 0045F4D0
005B5B5B 5E pop esi
005B5B5C 5B pop ebx
005B5B5D C3 ret
*)
end;
procedure TFrmZhpm._PROC_005B4498(Sender : TObject);
begin
(*
005B4498 55 push ebp
005B4499 8BEC mov ebp, esp
005B449B 83C480 add esp, -$80
005B449E 53 push ebx
005B449F 56 push esi
005B44A0 57 push edi
005B44A1 33DB xor ebx, ebx
005B44A3 895DC0 mov [ebp-$40], ebx
005B44A6 895DE8 mov [ebp-$18], ebx
005B44A9 895DE4 mov [ebp-$1C], ebx
005B44AC 895DD0 mov [ebp-$30], ebx
005B44AF 895DCC mov [ebp-$34], ebx
005B44B2 8BF0 mov esi, eax
005B44B4 8D7DF8 lea edi, [ebp-$08]
005B44B7 A5 movsd
005B44B8 A5 movsd
005B44B9 8BDA mov ebx, edx
005B44BB 33C0 xor eax, eax
005B44BD 55 push ebp
005B44BE 68EF485B00 push $005B48EF
***** TRY
|
005B44C3 64FF30 push dword ptr fs:[eax]
005B44C6 648920 mov fs:[eax], esp
005B44C9 8B4508 mov eax, [ebp+$08]
005B44CC 50 push eax
005B44CD 8B4518 mov eax, [ebp+$18]
005B44D0 8B40FC mov eax, [eax-$04]
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
005B44D3 E874FDE6FF call 0042424C
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
005B44D8 E86BAFE6FF call 0041F448
005B44DD 50 push eax
* Reference to: gdi32.SetTextAlign()
|
005B44DE E84542E5FF call 00408728
005B44E3 83FB04 cmp ebx, +$04
005B44E6 7764 jnbe 005B454C
005B44E8 FF249DEF445B00 jmp dword ptr [$5B44EF+ebx*4]
005B44EF 03455B add eax, [ebp+$5B]
005B44F2 0012 add [edx], dl
005B44F4 45 inc ebp
005B44F5 5B pop ebx
005B44F6 0021 add [ecx], ah
005B44F8 45 inc ebp
005B44F9 5B pop ebx
005B44FA 0030 add [eax], dh
005B44FC 45 inc ebp
005B44FD 5B pop ebx
005B44FE 003F add [edi], bh
005B4500 45 inc ebp
005B4501 5B pop ebx
005B4502 008D45CCBA08 add [ebp+$8BACC45], cl
005B4508 49 dec ecx
005B4509 5B pop ebx
005B450A 00E8 add al, ch
005B450C 7CFC jl 005B450A
005B450E E4FF in al, $FF
005B4510 EB3A jmp 005B454C
005B4512 8D45CC lea eax, [ebp-$34]
* Possible String Reference to: '0.0'
|
005B4515 BA14495B00 mov edx, $005B4914
* Reference to: system.@LStrLAsg;
|
005B451A E86DFCE4FF call 0040418C
005B451F EB2B jmp 005B454C
005B4521 8D45CC lea eax, [ebp-$34]
* Possible String Reference to: '0.00'
|
005B4524 BA20495B00 mov edx, $005B4920
* Reference to: system.@LStrLAsg;
|
005B4529 E85EFCE4FF call 0040418C
005B452E EB1C jmp 005B454C
005B4530 8D45CC lea eax, [ebp-$34]
* Possible String Reference to: '0.000'
|
005B4533 BA30495B00 mov edx, $005B4930
* Reference to: system.@LStrLAsg;
|
005B4538 E84FFCE4FF call 0040418C
005B453D EB0D jmp 005B454C
005B453F 8D45CC lea eax, [ebp-$34]
* Possible String Reference to: '0.0000'
|
005B4542 BA40495B00 mov edx, $005B4940
* Reference to: system.@LStrLAsg;
|
005B4547 E840FCE4FF call 0040418C
005B454C 8D45E4 lea eax, [ebp-$1C]
* Reference to: system.@LStrClr(String;String);
|
005B454F E8A0FBE4FF call 004040F4
005B4554 8D45E8 lea eax, [ebp-$18]
* Reference to: system.@LStrClr(String;String);
|
005B4557 E898FBE4FF call 004040F4
005B455C D94514 fld dword ptr [ebp+$14]
005B455F 83C4F4 add esp, -$0C
005B4562 DB3C24 fstp tbyte ptr [esp]
005B4565 9B wait
005B4566 8D55D0 lea edx, [ebp-$30]
005B4569 8B45CC mov eax, [ebp-$34]
* Reference to: Unit_00409434.Proc_0040BAC4
|
005B456C E85375E5FF call 0040BAC4
005B4571 FF4DF8 dec dword ptr [ebp-$08]
005B4574 8B45D0 mov eax, [ebp-$30]
* Reference to: system.@LStrLen:Integer;
|
005B4577 E814FEE4FF call 00404390
005B457C 85C0 test eax, eax
005B457E 7E13 jle 005B4593
005B4580 BB01000000 mov ebx, $00000001
005B4585 8B55D0 mov edx, [ebp-$30]
005B4588 807C1AFF2E cmp byte ptr [edx+ebx-$01], $2E
005B458D 7404 jz 005B4593
005B458F 43 inc ebx
005B4590 48 dec eax
005B4591 75F2 jnz 005B4585
005B4593 8D45E8 lea eax, [ebp-$18]
005B4596 50 push eax
005B4597 8BCB mov ecx, ebx
005B4599 49 dec ecx
005B459A BA01000000 mov edx, $00000001
005B459F 8B45D0 mov eax, [ebp-$30]
* Reference to: system.@LStrCopy;
|
005B45A2 E8F1FFE4FF call 00404598
005B45A7 8D45E4 lea eax, [ebp-$1C]
005B45AA 50 push eax
005B45AB 8B45D0 mov eax, [ebp-$30]
* Reference to: system.@LStrLen:Integer;
|
005B45AE E8DDFDE4FF call 00404390
005B45B3 8BC8 mov ecx, eax
005B45B5 2BCB sub ecx, ebx
005B45B7 8D5301 lea edx, [ebx+$01]
005B45BA 8B45D0 mov eax, [ebp-$30]
* Reference to: system.@LStrCopy;
|
005B45BD E8D6FFE4FF call 00404598
005B45C2 8B4518 mov eax, [ebp+$18]
005B45C5 8B40FC mov eax, [eax-$04]
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
005B45C8 E87FFCE6FF call 0042424C
005B45CD 8BD8 mov ebx, eax
005B45CF 8B4310 mov eax, [ebx+$10]
* Reference to: graphics.TFont.GetHeight(TFont):Integer;
|
005B45D2 E8C99DE6FF call 0041E3A0
005B45D7 8945E0 mov [ebp-$20], eax
005B45DA 8B4314 mov eax, [ebx+$14]
* Reference to: graphics.TFont.GetHeight(TFont):Integer;
|
005B45DD E8CEA0E6FF call 0041E6B0
005B45E2 8945DC mov [ebp-$24], eax
005B45E5 8B4314 mov eax, [ebx+$14]
* Reference to: graphics.TPen.GetStyle(TPen):TPenStyle;
|
005B45E8 E803A2E6FF call 0041E7F0
005B45ED 8845C6 mov [ebp-$3A], al
005B45F0 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.GetSize(TFont):Integer;
|
005B45F3 E8489BE6FF call 0041E140
005B45F8 8945C8 mov [ebp-$38], eax
005B45FB 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.GetStyle(TFont):TFontStyles;
|
005B45FE E8799BE6FF call 0041E17C
005B4603 8845C7 mov [ebp-$39], al
005B4606 8B430C mov eax, [ebx+$0C]
005B4609 8B5018 mov edx, [eax+$18]
005B460C 8955D8 mov [ebp-$28], edx
005B460F 8B550C mov edx, [ebp+$0C]
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
005B4612 E8A598E6FF call 0041DEBC
005B4617 8B4518 mov eax, [ebp+$18]
005B461A 8B40F8 mov eax, [eax-$08]
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
005B461D E8FEF4E9FF call 00453B20
005B4622 8B400C mov eax, [eax+$0C]
* Reference to: graphics.TFont.GetStyle(TFont):TFontStyles;
|
005B4625 E8529BE6FF call 0041E17C
005B462A 8BD0 mov edx, eax
005B462C 0A1548495B00 or dl, byte ptr [$005B4948]
005B4632 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetStyle(TFont;TFontStyles);
|
005B4635 E84E9BE6FF call 0041E188
005B463A 8D4DEC lea ecx, [ebp-$14]
005B463D 8B55E4 mov edx, [ebp-$1C]
005B4640 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.TextExtent(TCanvas;AnsiString):TSize;
|
005B4642 E8F9ABE6FF call 0041F240
005B4647 6A01 push $01
005B4649 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
005B464B E8F8ADE6FF call 0041F448
005B4650 50 push eax
* Reference to: gdi32.SetBkMode()
|
005B4651 E89240E5FF call 004086E8
005B4656 8B55E8 mov edx, [ebp-$18]
005B4659 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.TextWidth(TCanvas;AnsiString):Integer;
|
005B465B E824ACE6FF call 0041F284
005B4660 8BF0 mov esi, eax
005B4662 8D45C0 lea eax, [ebp-$40]
005B4665 8B4DE4 mov ecx, [ebp-$1C]
005B4668 8B55E8 mov edx, [ebp-$18]
* Reference to: system.@LStrCat3;
|
005B466B E86CFDE4FF call 004043DC
005B4670 8B45C0 mov eax, [ebp-$40]
005B4673 50 push eax
005B4674 8B4DFC mov ecx, [ebp-$04]
005B4677 8B55F8 mov edx, [ebp-$08]
005B467A 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.TextOut(TCanvas;Integer;Integer;AnsiString);
|
005B467C E88FAAE6FF call 0041F110
005B4681 8B430C mov eax, [ebx+$0C]
005B4684 8B5018 mov edx, [eax+$18]
005B4687 8B4310 mov eax, [ebx+$10]
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
005B468A E8199DE6FF call 0041E3A8
005B468F 837D0802 cmp dword ptr [ebp+$08], +$02
005B4693 752B jnz 005B46C0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -