⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 graphics.pas

📁 vc遊戲可做參考.............
💻 PAS
📖 第 1 页 / 共 3 页
字号:

* Reference to: Classes.Proc_00411EB0
|
0041DE5D   E84E40FFFF             call    00411EB0
0041DE62   33C0                   xor     eax, eax
0041DE64   5A                     pop     edx
0041DE65   59                     pop     ecx
0041DE66   59                     pop     ecx
0041DE67   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[Y]脨U嬱QSV塃鼖E鼉xX'
|
0041DE6A   687FDE4100             push    $0041DE7F
0041DE6F   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TIcon._PROC_0041AB70()
|
0041DE72   E8F9CCFFFF             call    0041AB70
0041DE77   C3                     ret


* Reference to: System.Proc_0040368C
|
0041DE78   E90F58FEFF             jmp     0040368C
0041DE7D   EBF0                   jmp     0041DE6F

****** END
|
0041DE7F   5B                     pop     ebx
0041DE80   59                     pop     ecx
0041DE81   5D                     pop     ebp
0041DE82   C3                     ret

*)
end;

procedure TBitmapCanvas._PROC_0041DE84(Sender : TObject);
begin
(*
0041DE84   55                     push    ebp
0041DE85   8BEC                   mov     ebp, esp
0041DE87   51                     push    ecx
0041DE88   53                     push    ebx
0041DE89   56                     push    esi
0041DE8A   8945FC                 mov     [ebp-$04], eax
0041DE8D   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_0058
|
0041DE90   83785800               cmp     dword ptr [eax+$58], +$00
0041DE94   0F84D0000000           jz      0041DF6A
0041DE9A   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Graphics.Proc_0041A984
|
0041DE9D   E8E2CAFFFF             call    0041A984
0041DEA2   33C0                   xor     eax, eax
0041DEA4   55                     push    ebp
0041DEA5   6863DF4100             push    $0041DF63

***** TRY
|
0041DEAA   64FF30                 push    dword ptr fs:[eax]
0041DEAD   648920                 mov     fs:[eax], esp
0041DEB0   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_0058
|
0041DEB3   8B4058                 mov     eax, [eax+$58]

* Reference to : TBitmapCanvas._PROC_0041F134()
|
0041DEB6   E879120000             call    0041F134
0041DEBB   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_0058
|
0041DEBE   8B4058                 mov     eax, [eax+$58]
0041DEC1   8B4020                 mov     eax, [eax+$20]
0041DEC4   8B4008                 mov     eax, [eax+$08]

* Reference to : TBitmapCanvas._PROC_0041DD00()
|
0041DEC7   E834FEFFFF             call    0041DD00
0041DECC   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_0058
|
0041DECF   8B4058                 mov     eax, [eax+$58]

* Reference to : TBitmapCanvas._PROC_0041F1A4()
|
0041DED2   E8CD120000             call    0041F1A4
0041DED7   6A00                   push    $00

* Reference to: gdi32.CreateCompatibleDC()
|
0041DED9   E8A29DFEFF             call    00407C80
0041DEDE   8BD8                   mov     ebx, eax
0041DEE0   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_0058
|
0041DEE3   8B4058                 mov     eax, [eax+$58]
0041DEE6   8B4020                 mov     eax, [eax+$20]
0041DEE9   8B7008                 mov     esi, [eax+$08]
0041DEEC   85F6                   test    esi, esi
0041DEEE   740F                   jz      0041DEFF
0041DEF0   56                     push    esi
0041DEF1   53                     push    ebx

* Reference to: gdi32.SelectObject()
|
0041DEF2   E8F99EFEFF             call    00407DF0
0041DEF7   8B55FC                 mov     edx, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_005C
|
0041DEFA   89425C                 mov     [edx+$5C], eax
0041DEFD   EB08                   jmp     0041DF07
0041DEFF   8B45FC                 mov     eax, [ebp-$04]
0041DF02   33D2                   xor     edx, edx

* Reference to field TBitmapCanvas.OFFS_005C
|
0041DF04   89505C                 mov     [eax+$5C], edx
0041DF07   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_0058
|
0041DF0A   8B4058                 mov     eax, [eax+$58]
0041DF0D   8B4020                 mov     eax, [eax+$20]
0041DF10   8B7010                 mov     esi, [eax+$10]
0041DF13   85F6                   test    esi, esi
0041DF15   7417                   jz      0041DF2E
0041DF17   6AFF                   push    $FF
0041DF19   56                     push    esi
0041DF1A   53                     push    ebx

* Reference to: gdi32.SelectPalette()
|
0041DF1B   E8D89EFEFF             call    00407DF8
0041DF20   8B55FC                 mov     edx, [ebp-$04]

* Reference to field TBitmapCanvas.OFFS_0060
|
0041DF23   894260                 mov     [edx+$60], eax
0041DF26   53                     push    ebx

* Reference to: gdi32.RealizePalette()
|
0041DF27   E89C9EFEFF             call    00407DC8
0041DF2C   EB08                   jmp     0041DF36
0041DF2E   8B45FC                 mov     eax, [ebp-$04]
0041DF31   33D2                   xor     edx, edx

* Reference to field TBitmapCanvas.OFFS_0060
|
0041DF33   895060                 mov     [eax+$60], edx
0041DF36   8BD3                   mov     edx, ebx
0041DF38   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Graphics.Proc_0041ACF8
|
0041DF3B   E8B8CDFFFF             call    0041ACF8
0041DF40   8B55FC                 mov     edx, [ebp-$04]
0041DF43   A190065000             mov     eax, dword ptr [$00500690]

* Reference to: Classes.Proc_00411E14
|
0041DF48   E8C73EFFFF             call    00411E14
0041DF4D   33C0                   xor     eax, eax
0041DF4F   5A                     pop     edx
0041DF50   59                     pop     ecx
0041DF51   59                     pop     ecx
0041DF52   648910                 mov     fs:[eax], edx

****** FINALLY
|
0041DF55   686ADF4100             push    $0041DF6A
0041DF5A   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TIcon._PROC_0041AB70()
|
0041DF5D   E80ECCFFFF             call    0041AB70
0041DF62   C3                     ret


* Reference to: System.Proc_0040368C
|
0041DF63   E92457FEFF             jmp     0040368C
0041DF68   EBF0                   jmp     0041DF5A

****** END
|
0041DF6A   5E                     pop     esi
0041DF6B   5B                     pop     ebx
0041DF6C   59                     pop     ecx
0041DF6D   5D                     pop     ebp
0041DF6E   C3                     ret

*)
end;

procedure TBitmapCanvas._PROC_0041DF70(Sender : TObject);
begin
(*
0041DF70   FF4004                 inc     dword ptr [eax+$04]
0041DF73   C3                     ret

*)
end;

procedure TBitmapCanvas._PROC_0041DF74(Sender : TObject);
begin
(*
0041DF74   53                     push    ebx
0041DF75   8BD8                   mov     ebx, eax
0041DF77   85DB                   test    ebx, ebx
0041DF79   7416                   jz      0041DF91
0041DF7B   FF4B04                 dec     dword ptr [ebx+$04]

* Reference to field TBitmapCanvas.OFFS_0004
|
0041DF7E   837B0400               cmp     dword ptr [ebx+$04], +$00
0041DF82   750D                   jnz     0041DF91
0041DF84   8BC3                   mov     eax, ebx
0041DF86   8B10                   mov     edx, [eax]
0041DF88   FF12                   call    dword ptr [edx]
0041DF8A   8BC3                   mov     eax, ebx

* Reference to: System.Proc_00402F6C
|
0041DF8C   E8DB4FFEFF             call    00402F6C
0041DF91   5B                     pop     ebx
0041DF92   C3                     ret

*)
end;

procedure TBitmapCanvas._PROC_0041DF94(Sender : TObject);
begin
(*
0041DF94   53                     push    ebx
0041DF95   56                     push    esi

* Reference to: System.Proc_004032CC
|
0041DF96   E83153FEFF             call    004032CC
0041DF9B   8BDA                   mov     ebx, edx
0041DF9D   8BF0                   mov     esi, eax

* Reference to field TBitmapCanvas.OFFS_0014
|
0041DF9F   8B4614                 mov     eax, [esi+$14]
0041DFA2   85C0                   test    eax, eax
0041DFA4   7413                   jz      0041DFB9

* Reference to : TBitmapCanvas._PROC_0041DD00()
|
0041DFA6   E855FDFFFF             call    0041DD00

* Reference to field TBitmapCanvas.OFFS_0014
|
0041DFAB   8B4614                 mov     eax, [esi+$14]
0041DFAE   50                     push    eax

* Reference to: gdi32.DeleteObject()
|
0041DFAF   E81C9DFEFF             call    00407CD0
0041DFB4   33C0                   xor     eax, eax

* Reference to field TBitmapCanvas.OFFS_0014
|
0041DFB6   894614                 mov     [esi+$14], eax
0041DFB9   8BC6                   mov     eax, esi
0041DFBB   8B10                   mov     edx, [eax]
0041DFBD   FF12                   call    dword ptr [edx]

* Reference to field TBitmapCanvas.OFFS_0064
|
0041DFBF   8B4664                 mov     eax, [esi+$64]
0041DFC2   85C0                   test    eax, eax
0041DFC4   7406                   jz      0041DFCC
0041DFC6   50                     push    eax

* Reference to: kernel32.CloseHandle()
|
0041DFC7   E8FC99FEFF             call    004079C8

* Reference to field TBitmapCanvas.OFFS_006C
|
0041DFCC   8D466C                 lea     eax, [esi+$6C]

* Reference to: Unit_004088DC.Proc_0040E28C
|
0041DFCF   E8B802FFFF             call    0040E28C
0041DFD4   8BD3                   mov     edx, ebx
0041DFD6   80E2FC                 and     dl, $FC
0041DFD9   8BC6                   mov     eax, esi

* Reference to: System.Proc_00402F5C
|
0041DFDB   E87C4FFEFF             call    00402F5C
0041DFE0   84DB                   test    bl, bl
0041DFE2   7E07                   jle     0041DFEB
0041DFE4   8BC6                   mov     eax, esi

* Reference to: System.Proc_004032BC
|
0041DFE6   E8D152FEFF             call    004032BC
0041DFEB   5E                     pop     esi
0041DFEC   5B                     pop     ebx
0041DFED   C3                     ret

*)
end;

procedure TBitmapCanvas._PROC_0041DFF0(Sender : TObject);
begin
(*
0041DFF0   53                     push    ebx
0041DFF1   8BD8                   mov     ebx, eax

* Reference to field TBitmapCanvas.OFFS_0008
|
0041DFF3   8B4308                 mov     eax, [ebx+$08]
0041DFF6   85C0                   test    eax, eax
0041DFF8   7413                   jz      0041E00D

* Reference to field TBitmapCanvas.OFFS_0014
|
0041DFFA   3B4314                 cmp     eax, [ebx+$14]
0041DFFD   740E                   jz      0041E00D

* Reference to : TBitmapCanvas._PROC_0041DD00()
|
0041DFFF   E8FCFCFFFF             call    0041DD00

* Reference to field TBitmapCanvas.OFFS_0008
|
0041E004   8B4308                 mov     eax, [ebx+$08]
0041E007   50                     push    eax

* Reference to: gdi32.DeleteObject()
|
0041E008   E8C39CFEFF             call    00407CD0

* Reference to field TBitmapCanvas.OFFS_000C
|
0041E00D   8B430C                 mov     eax, [ebx+$0C]
0041E010   85C0                   test    eax, eax
0041E012   7413                   jz      0041E027

* Reference to : TBitmapCanvas._PROC_0041DD00()
|

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -