📄 graphics.pas
字号:
unit Graphics;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TBitmapCanvas=class(TForm)
procedure _PROC_0041DD00(Sender : TObject);
procedure _PROC_0041DD7C(Sender : TObject);
procedure _PROC_0041DDB8(Sender : TObject);
procedure _PROC_0041DDE4(Sender : TObject);
procedure _PROC_0041DE84(Sender : TObject);
procedure _PROC_0041DF70(Sender : TObject);
procedure _PROC_0041DF74(Sender : TObject);
procedure _PROC_0041DF94(Sender : TObject);
procedure _PROC_0041DFF0(Sender : TObject);
procedure _PROC_0041E03C(Sender : TObject);
procedure _PROC_0041E0F8(Sender : TObject);
procedure _PROC_0041E144(Sender : TObject);
procedure _PROC_0041E7A0(Sender : TObject);
procedure _PROC_0041E804(Sender : TObject);
procedure _PROC_0041EA10(Sender : TObject);
procedure _PROC_0041EA78(Sender : TObject);
procedure _PROC_0041EAB4(Sender : TObject);
procedure _PROC_0041EBA4(Sender : TObject);
procedure _PROC_0041EC64(Sender : TObject);
procedure _PROC_0041EC88(Sender : TObject);
procedure _PROC_0041EC94(Sender : TObject);
procedure _PROC_0041ECB0(Sender : TObject);
procedure _PROC_0041EEFB(Sender : TObject);
procedure _PROC_0041EF08(Sender : TObject);
procedure _PROC_0041EF34(Sender : TObject);
procedure _PROC_0041EF64(Sender : TObject);
procedure _PROC_0041EF7C(Sender : TObject);
procedure _PROC_0041EFBC(Sender : TObject);
procedure _PROC_0041EFE0(Sender : TObject);
procedure _PROC_0041F00C(Sender : TObject);
procedure _PROC_0041F01C(Sender : TObject);
procedure _PROC_0041F030(Sender : TObject);
procedure _PROC_0041F04C(Sender : TObject);
procedure _PROC_0041F060(Sender : TObject);
procedure _PROC_0041F0A8(Sender : TObject);
procedure _PROC_0041F0B0(Sender : TObject);
procedure _PROC_0041F124(Sender : TObject);
procedure _PROC_0041F134(Sender : TObject);
procedure _PROC_0041F144(Sender : TObject);
procedure _PROC_0041F1A4(Sender : TObject);
procedure _PROC_0041F25C(Sender : TObject);
procedure _PROC_0041F2E0(Sender : TObject);
procedure _PROC_0041F304(Sender : TObject);
procedure _PROC_0041F364(Sender : TObject);
procedure _PROC_0041F464(Sender : TObject);
procedure _PROC_0041F48C(Sender : TObject);
procedure _PROC_0041F9A0(Sender : TObject);
procedure _PROC_0041FA10(Sender : TObject);
procedure _PROC_0041FAD4(Sender : TObject);
procedure _PROC_0041FC0C(Sender : TObject);
procedure _PROC_0041FC60(Sender : TObject);
procedure _PROC_0041FCE0(Sender : TObject);
procedure _PROC_0041FDB4(Sender : TObject);
procedure _PROC_0041FE04(Sender : TObject);
procedure _PROC_0041FE58(Sender : TObject);
procedure _PROC_0041FE60(Sender : TObject);
procedure _PROC_0042013D(Sender : TObject);
procedure _PROC_004201DC(Sender : TObject);
procedure _PROC_0042020C(Sender : TObject);
procedure _PROC_00420224(Sender : TObject);
procedure _PROC_00420278(Sender : TObject);
procedure _PROC_004202A8(Sender : TObject);
procedure _PROC_00420308(Sender : TObject);
procedure _PROC_00420344(Sender : TObject);
procedure _PROC_0042034C(Sender : TObject);
procedure _PROC_00420360(Sender : TObject);
procedure _PROC_00420374(Sender : TObject);
procedure _PROC_00420388(Sender : TObject);
procedure _PROC_0042039C(Sender : TObject);
procedure _PROC_00420414(Sender : TObject);
procedure _PROC_004204C8(Sender : TObject);
procedure _PROC_00420580(Sender : TObject);
procedure _PROC_004205F4(Sender : TObject);
procedure _PROC_0042060C(Sender : TObject);
procedure _PROC_00420624(Sender : TObject);
procedure _PROC_00420628(Sender : TObject);
procedure _PROC_00420640(Sender : TObject);
procedure _PROC_0042066C(Sender : TObject);
procedure _PROC_00420680(Sender : TObject);
procedure _PROC_00420694(Sender : TObject);
procedure _PROC_004206CC(Sender : TObject);
procedure _PROC_00420710(Sender : TObject);
procedure _PROC_0042077D(Sender : TObject);
procedure _PROC_004207E7(Sender : TObject);
procedure _PROC_00420818(Sender : TObject);
procedure _PROC_00420844(Sender : TObject);
procedure _PROC_00420850(Sender : TObject);
procedure _PROC_0042085C(Sender : TObject);
procedure _PROC_00420910(Sender : TObject);
procedure _PROC_00420A10(Sender : TObject);
procedure _PROC_00420A88(Sender : TObject);
procedure Graphics.Finalization(Sender : TObject);
procedure Graphics.Initialization(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
BitmapCanvas: TBitmapCanvas;
{This file is generated by DeDe Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TBitmapCanvas._PROC_0041DD00(Sender : TObject);
begin
(*
0041DD00 55 push ebp
0041DD01 8BEC mov ebp, esp
0041DD03 51 push ecx
0041DD04 53 push ebx
0041DD05 56 push esi
0041DD06 8945FC mov [ebp-$04], eax
0041DD09 837DFC00 cmp dword ptr [ebp-$04], +$00
0041DD0D 7468 jz 0041DD77
0041DD0F A190065000 mov eax, dword ptr [$00500690]
* Reference to: Classes.Proc_00411E9C
|
0041DD14 E88341FFFF call 00411E9C
0041DD19 8BF0 mov esi, eax
0041DD1B 33C9 xor ecx, ecx
0041DD1D 55 push ebp
0041DD1E 6870DD4100 push $0041DD70
***** TRY
|
0041DD23 64FF31 push dword ptr fs:[ecx]
0041DD26 648921 mov fs:[ecx], esp
0041DD29 8B5E08 mov ebx, [esi+$08]
0041DD2C 4B dec ebx
0041DD2D 83FB00 cmp ebx, +$00
0041DD30 7C26 jl 0041DD58
0041DD32 8BD3 mov edx, ebx
0041DD34 8BC6 mov eax, esi
* Reference to: Classes.Proc_00411ADC
|
0041DD36 E8A13DFFFF call 00411ADC
0041DD3B 8B5058 mov edx, [eax+$58]
0041DD3E 85D2 test edx, edx
0041DD40 7410 jz 0041DD52
0041DD42 8B5220 mov edx, [edx+$20]
0041DD45 8B5208 mov edx, [edx+$08]
0041DD48 3B55FC cmp edx, [ebp-$04]
0041DD4B 7505 jnz 0041DD52
* Reference to : TBitmapCanvas._PROC_0041DDE4()
|
0041DD4D E892000000 call 0041DDE4
0041DD52 4B dec ebx
0041DD53 83FBFF cmp ebx, -$01
0041DD56 75DA jnz 0041DD32
0041DD58 33C0 xor eax, eax
0041DD5A 5A pop edx
0041DD5B 59 pop ecx
0041DD5C 59 pop ecx
0041DD5D 648910 mov fs:[eax], edx
****** FINALLY
|
0041DD60 6877DD4100 push $0041DD77
0041DD65 A190065000 mov eax, dword ptr [$00500690]
* Reference to: Classes.Proc_00411F00
|
0041DD6A E89141FFFF call 00411F00
0041DD6F C3 ret
* Reference to: System.Proc_0040368C
|
0041DD70 E91759FEFF jmp 0040368C
0041DD75 EBEE jmp 0041DD65
****** END
|
0041DD77 5E pop esi
0041DD78 5B pop ebx
0041DD79 59 pop ecx
0041DD7A 5D pop ebp
0041DD7B C3 ret
*)
end;
procedure TBitmapCanvas._PROC_0041DD7C(Sender : TObject);
begin
(*
0041DD7C 53 push ebx
0041DD7D 56 push esi
0041DD7E 57 push edi
0041DD7F 84D2 test dl, dl
0041DD81 7408 jz 0041DD8B
0041DD83 83C4F0 add esp, -$10
* Reference to: System.Proc_0040326C
|
0041DD86 E8E154FEFF call 0040326C
0041DD8B 8BF1 mov esi, ecx
0041DD8D 8BDA mov ebx, edx
0041DD8F 8BF8 mov edi, eax
0041DD91 33D2 xor edx, edx
0041DD93 8BC7 mov eax, edi
* Reference to : TIcon._PROC_0041A680()
|
0041DD95 E8E6C8FFFF call 0041A680
0041DD9A 897758 mov [edi+$58], esi
0041DD9D 8BC7 mov eax, edi
0041DD9F 84DB test bl, bl
0041DDA1 740F jz 0041DDB2
* Reference to: System.Proc_004032C4
|
0041DDA3 E81C55FEFF call 004032C4
0041DDA8 648F0500000000 pop dword ptr fs:[$00000000]
0041DDAF 83C40C add esp, +$0C
0041DDB2 8BC7 mov eax, edi
0041DDB4 5F pop edi
0041DDB5 5E pop esi
0041DDB6 5B pop ebx
0041DDB7 C3 ret
*)
end;
procedure TBitmapCanvas._PROC_0041DDB8(Sender : TObject);
begin
(*
0041DDB8 53 push ebx
0041DDB9 56 push esi
* Reference to: System.Proc_004032CC
|
0041DDBA E80D55FEFF call 004032CC
0041DDBF 8BDA mov ebx, edx
0041DDC1 8BF0 mov esi, eax
0041DDC3 8BC6 mov eax, esi
* Reference to : TBitmapCanvas._PROC_0041DDE4()
|
0041DDC5 E81A000000 call 0041DDE4
0041DDCA 8BD3 mov edx, ebx
0041DDCC 80E2FC and dl, $FC
0041DDCF 8BC6 mov eax, esi
* Reference to: Graphics.Proc_0041A744
|
0041DDD1 E86EC9FFFF call 0041A744
0041DDD6 84DB test bl, bl
0041DDD8 7E07 jle 0041DDE1
0041DDDA 8BC6 mov eax, esi
* Reference to: System.Proc_004032BC
|
0041DDDC E8DB54FEFF call 004032BC
0041DDE1 5E pop esi
0041DDE2 5B pop ebx
0041DDE3 C3 ret
*)
end;
procedure TBitmapCanvas._PROC_0041DDE4(Sender : TObject);
begin
(*
0041DDE4 55 push ebp
0041DDE5 8BEC mov ebp, esp
0041DDE7 51 push ecx
0041DDE8 53 push ebx
0041DDE9 8945FC mov [ebp-$04], eax
0041DDEC 8B45FC mov eax, [ebp-$04]
* Reference to field TBitmapCanvas.OFFS_0004
|
0041DDEF 83780400 cmp dword ptr [eax+$04], +$00
0041DDF3 0F8486000000 jz 0041DE7F
0041DDF9 8B45FC mov eax, [ebp-$04]
* Reference to: Graphics.Proc_0041A984
|
0041DDFC E883CBFFFF call 0041A984
0041DE01 33D2 xor edx, edx
0041DE03 55 push ebp
0041DE04 6878DE4100 push $0041DE78
***** TRY
|
0041DE09 64FF32 push dword ptr fs:[edx]
0041DE0C 648922 mov fs:[edx], esp
0041DE0F 8B45FC mov eax, [ebp-$04]
* Reference to field TBitmapCanvas.OFFS_005C
|
0041DE12 8B405C mov eax, [eax+$5C]
0041DE15 85C0 test eax, eax
0041DE17 740D jz 0041DE26
0041DE19 50 push eax
0041DE1A 8B45FC mov eax, [ebp-$04]
* Reference to field TBitmapCanvas.OFFS_0004
|
0041DE1D 8B4004 mov eax, [eax+$04]
0041DE20 50 push eax
* Reference to: gdi32.SelectObject()
|
0041DE21 E8CA9FFEFF call 00407DF0
0041DE26 8B45FC mov eax, [ebp-$04]
* Reference to field TBitmapCanvas.OFFS_0060
|
0041DE29 8B4060 mov eax, [eax+$60]
0041DE2C 85C0 test eax, eax
0041DE2E 740F jz 0041DE3F
0041DE30 6AFF push $FF
0041DE32 50 push eax
0041DE33 8B45FC mov eax, [ebp-$04]
* Reference to field TBitmapCanvas.OFFS_0004
|
0041DE36 8B4004 mov eax, [eax+$04]
0041DE39 50 push eax
* Reference to: gdi32.SelectPalette()
|
0041DE3A E8B99FFEFF call 00407DF8
0041DE3F 8B45FC mov eax, [ebp-$04]
* Reference to field TBitmapCanvas.OFFS_0004
|
0041DE42 8B5804 mov ebx, [eax+$04]
0041DE45 33D2 xor edx, edx
0041DE47 8B45FC mov eax, [ebp-$04]
* Reference to: Graphics.Proc_0041ACF8
|
0041DE4A E8A9CEFFFF call 0041ACF8
0041DE4F 53 push ebx
* Reference to: gdi32.DeleteDC()
|
0041DE50 E86B9EFEFF call 00407CC0
0041DE55 8B55FC mov edx, [ebp-$04]
0041DE58 A190065000 mov eax, dword ptr [$00500690]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -