📄 rtzhpm.pas
字号:
005B4695 8B4DFC mov ecx, [ebp-$04]
005B4698 8B7DF0 mov edi, [ebp-$10]
005B469B 03CF add ecx, edi
005B469D 49 dec ecx
005B469E 8B55F8 mov edx, [ebp-$08]
005B46A1 2B55EC sub edx, dword ptr [ebp-$14]
005B46A4 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.MoveTo(TCanvas;Integer;Integer);
|
005B46A6 E855A8E6FF call 0041EF00
005B46AB 8B4DFC mov ecx, [ebp-$04]
005B46AE 03CF add ecx, edi
005B46B0 49 dec ecx
005B46B1 8B55F8 mov edx, [ebp-$08]
005B46B4 83EA02 sub edx, +$02
005B46B7 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.LineTo(TCanvas;Integer;Integer);
|
005B46B9 E8E2A7E6FF call 0041EEA0
005B46BE EB2D jmp 005B46ED
005B46C0 8B4DFC mov ecx, [ebp-$04]
005B46C3 8B7DF0 mov edi, [ebp-$10]
005B46C6 03CF add ecx, edi
005B46C8 49 dec ecx
005B46C9 8B55F8 mov edx, [ebp-$08]
005B46CC 03D6 add edx, esi
005B46CE 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.MoveTo(TCanvas;Integer;Integer);
|
005B46D0 E82BA8E6FF call 0041EF00
005B46D5 8B4DFC mov ecx, [ebp-$04]
005B46D8 03CF add ecx, edi
005B46DA 49 dec ecx
005B46DB 8B55F8 mov edx, [ebp-$08]
005B46DE 03D6 add edx, esi
005B46E0 0355EC add edx, [ebp-$14]
005B46E3 83EA02 sub edx, +$02
005B46E6 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.LineTo(TCanvas;Integer;Integer);
|
005B46E8 E8B3A7E6FF call 0041EEA0
005B46ED C745F40A000000 mov dword ptr [ebp-$0C], $0000000A
005B46F4 C745D40A000000 mov dword ptr [ebp-$2C], $0000000A
005B46FB 8B550C mov edx, [ebp+$0C]
005B46FE 8B4314 mov eax, [ebx+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
005B4701 E8B29FE6FF call 0041E6B8
005B4706 8B550C mov edx, [ebp+$0C]
005B4709 8B4310 mov eax, [ebx+$10]
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
005B470C E8979CE6FF call 0041E3A8
005B4711 8B45F8 mov eax, [ebp-$08]
005B4714 2BC6 sub eax, esi
005B4716 2B45EC sub eax, dword ptr [ebp-$14]
005B4719 83E802 sub eax, +$02
005B471C 8BF0 mov esi, eax
005B471E 8B45F4 mov eax, [ebp-$0C]
005B4721 B903000000 mov ecx, $00000003
005B4726 99 cdq
005B4727 F7F9 idiv ecx
005B4729 8BF8 mov edi, eax
005B472B 8B55E8 mov edx, [ebp-$18]
005B472E 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.TextHeight(TCanvas;AnsiString):Integer;
|
005B4730 E86BABE6FF call 0041F2A0
005B4735 B903000000 mov ecx, $00000003
005B473A 99 cdq
005B473B F7F9 idiv ecx
005B473D 0145FC add [ebp-$04], eax
005B4740 807D1000 cmp byte ptr [ebp+$10], $00
005B4744 0F858D000000 jnz 005B47D7
005B474A 8D4D98 lea ecx, [ebp-$68]
005B474D 8B55FC mov edx, [ebp-$04]
005B4750 03D7 add edx, edi
005B4752 8BC6 mov eax, esi
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B4754 E8B7EBE5FF call 00413310
005B4759 8B4598 mov eax, [ebp-$68]
005B475C 8945A0 mov [ebp-$60], eax
005B475F 8B459C mov eax, [ebp-$64]
005B4762 8945A4 mov [ebp-$5C], eax
005B4765 8D4D90 lea ecx, [ebp-$70]
005B4768 8B55FC mov edx, [ebp-$04]
005B476B 03D7 add edx, edi
005B476D 8BC6 mov eax, esi
005B476F 2B45D4 sub eax, dword ptr [ebp-$2C]
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B4772 E899EBE5FF call 00413310
005B4777 8B4590 mov eax, [ebp-$70]
005B477A 8945A8 mov [ebp-$58], eax
005B477D 8B4594 mov eax, [ebp-$6C]
005B4780 8945AC mov [ebp-$54], eax
005B4783 8B45D4 mov eax, [ebp-$2C]
005B4786 D1F8 sar eax, 1
005B4788 7903 jns 005B478D
005B478A 83D000 adc eax, +$00
005B478D 50 push eax
005B478E 8BC6 mov eax, esi
005B4790 5A pop edx
005B4791 2BC2 sub eax, edx
005B4793 8D4D88 lea ecx, [ebp-$78]
005B4796 8B55FC mov edx, [ebp-$04]
005B4799 0355F4 add edx, [ebp-$0C]
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B479C E86FEBE5FF call 00413310
005B47A1 8B4588 mov eax, [ebp-$78]
005B47A4 8945B0 mov [ebp-$50], eax
005B47A7 8B458C mov eax, [ebp-$74]
005B47AA 8945B4 mov [ebp-$4C], eax
005B47AD 8D4D80 lea ecx, [ebp-$80]
005B47B0 8B55FC mov edx, [ebp-$04]
005B47B3 03D7 add edx, edi
005B47B5 8BC6 mov eax, esi
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B47B7 E854EBE5FF call 00413310
005B47BC 8B4580 mov eax, [ebp-$80]
005B47BF 8945B8 mov [ebp-$48], eax
005B47C2 8B4584 mov eax, [ebp-$7C]
005B47C5 8945BC mov [ebp-$44], eax
005B47C8 8D55A0 lea edx, [ebp-$60]
005B47CB B903000000 mov ecx, $00000003
005B47D0 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.Polygon(TCanvas;arrayofTPoint;arrayofTPoint;0..-1);
|
005B47D2 E8ADA7E6FF call 0041EF84
005B47D7 807D1002 cmp byte ptr [ebp+$10], $02
005B47DB 0F859C000000 jnz 005B487D
005B47E1 8B45D4 mov eax, [ebp-$2C]
005B47E4 D1F8 sar eax, 1
005B47E6 7903 jns 005B47EB
005B47E8 83D000 adc eax, +$00
005B47EB 50 push eax
005B47EC 8BC6 mov eax, esi
005B47EE 5A pop edx
005B47EF 2BC2 sub eax, edx
005B47F1 8D4D98 lea ecx, [ebp-$68]
005B47F4 8B55FC mov edx, [ebp-$04]
005B47F7 03D7 add edx, edi
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B47F9 E812EBE5FF call 00413310
005B47FE 8B4598 mov eax, [ebp-$68]
005B4801 8945A0 mov [ebp-$60], eax
005B4804 8B459C mov eax, [ebp-$64]
005B4807 8945A4 mov [ebp-$5C], eax
005B480A 8D4D90 lea ecx, [ebp-$70]
005B480D 8B55FC mov edx, [ebp-$04]
005B4810 0355F4 add edx, [ebp-$0C]
005B4813 8BC6 mov eax, esi
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B4815 E8F6EAE5FF call 00413310
005B481A 8B4590 mov eax, [ebp-$70]
005B481D 8945A8 mov [ebp-$58], eax
005B4820 8B4594 mov eax, [ebp-$6C]
005B4823 8945AC mov [ebp-$54], eax
005B4826 8D4D88 lea ecx, [ebp-$78]
005B4829 8B55FC mov edx, [ebp-$04]
005B482C 0355F4 add edx, [ebp-$0C]
005B482F 8BC6 mov eax, esi
005B4831 2B45D4 sub eax, dword ptr [ebp-$2C]
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B4834 E8D7EAE5FF call 00413310
005B4839 8B4588 mov eax, [ebp-$78]
005B483C 8945B0 mov [ebp-$50], eax
005B483F 8B458C mov eax, [ebp-$74]
005B4842 8945B4 mov [ebp-$4C], eax
005B4845 8B45D4 mov eax, [ebp-$2C]
005B4848 D1F8 sar eax, 1
005B484A 7903 jns 005B484F
005B484C 83D000 adc eax, +$00
005B484F 50 push eax
005B4850 8BC6 mov eax, esi
005B4852 5A pop edx
005B4853 2BC2 sub eax, edx
005B4855 8D4D80 lea ecx, [ebp-$80]
005B4858 8B55FC mov edx, [ebp-$04]
005B485B 03D7 add edx, edi
* Reference to: classes.Point(Integer;Integer):TPoint;
|
005B485D E8AEEAE5FF call 00413310
005B4862 8B4580 mov eax, [ebp-$80]
005B4865 8945B8 mov [ebp-$48], eax
005B4868 8B4584 mov eax, [ebp-$7C]
005B486B 8945BC mov [ebp-$44], eax
005B486E 8D55A0 lea edx, [ebp-$60]
005B4871 B903000000 mov ecx, $00000003
005B4876 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.Polygon(TCanvas;arrayofTPoint;arrayofTPoint;0..-1);
|
005B4878 E807A7E6FF call 0041EF84
005B487D 8B55E0 mov edx, [ebp-$20]
005B4880 8B4310 mov eax, [ebx+$10]
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
005B4883 E8209BE6FF call 0041E3A8
005B4888 8B55DC mov edx, [ebp-$24]
005B488B 8B4314 mov eax, [ebx+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
005B488E E8259EE6FF call 0041E6B8
005B4893 8B55C8 mov edx, [ebp-$38]
005B4896 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
005B4899 E8BE98E6FF call 0041E15C
005B489E 8A55C7 mov dl, byte ptr [ebp-$39]
005B48A1 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetStyle(TFont;TFontStyles);
|
005B48A4 E8DF98E6FF call 0041E188
005B48A9 8B55D8 mov edx, [ebp-$28]
005B48AC 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
005B48AF E80896E6FF call 0041DEBC
005B48B4 8A55C6 mov dl, byte ptr [ebp-$3A]
005B48B7 8B4314 mov eax, [ebx+$14]
* Reference to: graphics.TBrush.SetStyle(TBrush;TBrushStyle);
|
005B48BA E8399FE6FF call 0041E7F8
005B48BF 33C0 xor eax, eax
005B48C1 5A pop edx
005B48C2 59 pop ecx
005B48C3 59 pop ecx
005B48C4 648910 mov fs:[eax], edx
****** FINALLY
|
005B48C7 68F6485B00 push $005B48F6
005B48CC 8D45C0 lea eax, [ebp-$40]
* Reference to: system.@LStrClr(String;String);
|
005B48CF E820F8E4FF call 004040F4
005B48D4 8D45CC lea eax, [ebp-$34]
005B48D7 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
005B48DC E837F8E4FF call 00404118
005B48E1 8D45E4 lea eax, [ebp-$1C]
005B48E4 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
005B48E9 E82AF8E4FF call 00404118
005B48EE C3 ret
* Reference to: system.@HandleFinally;
|
005B48EF E938F1E4FF jmp 00403A2C
005B48F4 EBD6 jmp 005B48CC
****** END
|
005B48F6 5F pop edi
005B48F7 5E pop esi
005B48F8 5B pop ebx
005B48F9 8BE5 mov esp, ebp
005B48FB 5D pop ebp
005B48FC C21000 ret $0010
*)
end;
procedure TFrmZhpm._PROC_005B494D(Sender : TObject);
begin
(*
005B494D 8BEC mov ebp, esp
005B494F 81C478FFFFFF add esp, $FFFFFF78
005B4955 53 push ebx
005B4956 56 push esi
005B4957 57 push edi
005B4958 33D2 xor edx, edx
005B495A 895584 mov [ebp-$7C], edx
005B495D 895588 mov [ebp-$78], edx
005B4960 89558C mov [ebp-$74], edx
005B4963 8955F0 mov [ebp-$10], edx
005B4966 8955EC mov [ebp-$14], edx
005B4969 8955C4 mov [ebp-$3C], edx
005B496C 8945F8 mov [ebp-$08], eax
005B496F 33C0 xor eax, eax
005B4971 55 push ebp
* Possible String Reference to: '閒驿⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -