buttons.pas

传奇3delphi代码 请自己看吧 包括地图

unit Buttons;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TGlyphList=class(TForm)
    procedure _PROC_00456101(Sender : TObject);
    procedure _PROC_00456150(Sender : TObject);
    procedure _PROC_00456180(Sender : TObject);
    procedure _PROC_004561C0(Sender : TObject);
    procedure _PROC_004561EC(Sender : TObject);
    procedure _PROC_00456214(Sender : TObject);
    procedure _PROC_00456258(Sender : TObject);
    procedure _PROC_00456288(Sender : TObject);
    procedure _PROC_004562E8(Sender : TObject);
    procedure _PROC_00456308(Sender : TObject);
    procedure _PROC_00456314(Sender : TObject);
    procedure _PROC_004563A8(Sender : TObject);
    procedure _PROC_00456404(Sender : TObject);
    procedure _PROC_0045644C(Sender : TObject);
    procedure _PROC_0045647C(Sender : TObject);
    procedure _PROC_004564F4(Sender : TObject);
    procedure _PROC_0045651C(Sender : TObject);
    procedure _PROC_00456AF4(Sender : TObject);
    procedure _PROC_00456BB0(Sender : TObject);
    procedure _PROC_00456C94(Sender : TObject);
    procedure _PROC_00456FA4(Sender : TObject);
    procedure _PROC_00457014(Sender : TObject);
    procedure _PROC_004570CC(Sender : TObject);
    procedure _PROC_00457108(Sender : TObject);
    procedure _PROC_00457350(Sender : TObject);
    procedure _PROC_004573B4(Sender : TObject);
    procedure _PROC_004573E0(Sender : TObject);
    procedure _PROC_00457438(Sender : TObject);
    procedure _PROC_004574D8(Sender : TObject);
    procedure _PROC_004575C4(Sender : TObject);
    procedure _PROC_004575CC(Sender : TObject);
    procedure _PROC_004575E0(Sender : TObject);
    procedure _PROC_004575EC(Sender : TObject);
    procedure _PROC_00457604(Sender : TObject);
    procedure _PROC_00457610(Sender : TObject);
    procedure _PROC_0045763C(Sender : TObject);
    procedure _PROC_00457644(Sender : TObject);
    procedure _PROC_0045767C(Sender : TObject);
    procedure _PROC_004576E8(Sender : TObject);
    procedure _PROC_004576FC(Sender : TObject);
    procedure _PROC_00457710(Sender : TObject);
    procedure _PROC_00457724(Sender : TObject);
    procedure _PROC_00457740(Sender : TObject);
    procedure _PROC_00457754(Sender : TObject);
    procedure _PROC_0045778C(Sender : TObject);
    procedure _PROC_004577D3(Sender : TObject);
    procedure _PROC_004577F8(Sender : TObject);
    procedure _PROC_00457844(Sender : TObject);
    procedure _PROC_004578DC(Sender : TObject);
    procedure _PROC_004578E4(Sender : TObject);
    procedure _PROC_004578EC(Sender : TObject);
    procedure _PROC_00457910(Sender : TObject);
    procedure _PROC_00457958(Sender : TObject);
    procedure _PROC_00457998(Sender : TObject);
    procedure _PROC_00457A28(Sender : TObject);
    procedure _PROC_00457AA0(Sender : TObject);
    procedure _PROC_00457BBB(Sender : TObject);
    procedure _PROC_00457BC0(Sender : TObject);
    procedure _PROC_00457BD4(Sender : TObject);
    procedure _PROC_00457C40(Sender : TObject);
    procedure _PROC_00457C50(Sender : TObject);
    procedure _PROC_00457C5C(Sender : TObject);
    procedure _PROC_00457EE8(Sender : TObject);
    procedure _PROC_00457EFC(Sender : TObject);
    procedure _PROC_00457F10(Sender : TObject);
    procedure _PROC_00457F24(Sender : TObject);
    procedure _PROC_00457F38(Sender : TObject);
    procedure _PROC_00457F58(Sender : TObject);
    procedure _PROC_00457F64(Sender : TObject);
    procedure _PROC_00457F6C(Sender : TObject);
    procedure _PROC_00457F80(Sender : TObject);
    procedure _PROC_00457F94(Sender : TObject);
    procedure _PROC_004580A4(Sender : TObject);
    procedure _PROC_00458120(Sender : TObject);
    procedure _PROC_0045818C(Sender : TObject);
    procedure _PROC_004581A0(Sender : TObject);
    procedure _PROC_004581AC(Sender : TObject);
    procedure _PROC_004581D8(Sender : TObject);
    procedure _PROC_004581EC(Sender : TObject);
    procedure _PROC_00458208(Sender : TObject);
    procedure _PROC_00458298(Sender : TObject);
    procedure _PROC_00458310(Sender : TObject);
    procedure _PROC_0045832C(Sender : TObject);
    procedure _PROC_004583A9(Sender : TObject);
    procedure Buttons.Initialization(Sender : TObject);
    procedure Buttons.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  GlyphList: TGlyphList;

{This file is generated by DeDe Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TGlyphList._PROC_00456101(Sender : TObject);
begin
(*
00456101   8BEC                   mov     ebp, esp
00456103   53                     push    ebx
00456104   56                     push    esi
00456105   84D2                   test    dl, dl
00456107   7408                   jz      00456111
00456109   83C4F0                 add     esp, -$10

* Reference to: System.Proc_0040326C
|
0045610C   E85BD1FAFF             call    0040326C
00456111   8BDA                   mov     ebx, edx
00456113   8BF0                   mov     esi, eax
00456115   8B4508                 mov     eax, [ebp+$08]
00456118   50                     push    eax
00456119   33D2                   xor     edx, edx
0045611B   8BC6                   mov     eax, esi

* Reference to : TCustomImageList._PROC_00437BE4()
|
0045611D   E8C21AFEFF             call    00437BE4
00456122   B201                   mov     dl, $01

* Reference to class TBits
|
00456124   A1FC014100             mov     eax, dword ptr [$004101FC]

* Reference to: System.Proc_00402F3C
|
00456129   E80ECEFAFF             call    00402F3C

* Reference to field TGlyphList.OFFS_0078
|
0045612E   894678                 mov     [esi+$78], eax
00456131   8BC6                   mov     eax, esi
00456133   84DB                   test    bl, bl
00456135   740F                   jz      00456146

* Reference to: System.Proc_004032C4
|
00456137   E888D1FAFF             call    004032C4
0045613C   648F0500000000         pop     dword ptr fs:[$00000000]
00456143   83C40C                 add     esp, +$0C
00456146   8BC6                   mov     eax, esi
00456148   5E                     pop     esi
00456149   5B                     pop     ebx
0045614A   5D                     pop     ebp
0045614B   C20400                 ret     $0004

*)
end;

procedure TGlyphList._PROC_00456150(Sender : TObject);
begin
(*
00456150   53                     push    ebx
00456151   56                     push    esi

* Reference to: System.Proc_004032CC
|
00456152   E875D1FAFF             call    004032CC
00456157   8BDA                   mov     ebx, edx
00456159   8BF0                   mov     esi, eax

* Reference to field TGlyphList.OFFS_0078
|
0045615B   8B4678                 mov     eax, [esi+$78]

* Reference to: System.Proc_00402F6C
|
0045615E   E809CEFAFF             call    00402F6C
00456163   8BD3                   mov     edx, ebx
00456165   80E2FC                 and     dl, $FC
00456168   8BC6                   mov     eax, esi

* Reference to : TCustomImageList._PROC_00437C38()
|
0045616A   E8C91AFEFF             call    00437C38
0045616F   84DB                   test    bl, bl
00456171   7E07                   jle     0045617A
00456173   8BC6                   mov     eax, esi

* Reference to: System.Proc_004032BC
|
00456175   E842D1FAFF             call    004032BC
0045617A   5E                     pop     esi
0045617B   5B                     pop     ebx
0045617C   C3                     ret

*)
end;

procedure TGlyphList._PROC_00456180(Sender : TObject);
begin
(*
00456180   53                     push    ebx
00456181   56                     push    esi
00456182   8BD8                   mov     ebx, eax

* Reference to field TGlyphList.OFFS_0078
|
00456184   8B4378                 mov     eax, [ebx+$78]

* Reference to: Classes.Proc_00412048
|
00456187   E8BCBEFBFF             call    00412048
0045618C   8BF0                   mov     esi, eax

* Reference to field TGlyphList.OFFS_0078
|
0045618E   8B4378                 mov     eax, [ebx+$78]
00456191   3B7004                 cmp     esi, [eax+$04]
00456194   7C18                   jl      004561AE
00456196   33C9                   xor     ecx, ecx
00456198   33D2                   xor     edx, edx
0045619A   8BC3                   mov     eax, ebx

* Reference to : TCustomImageList._PROC_00438064()
|
0045619C   E8C31EFEFF             call    00438064
004561A1   8BF0                   mov     esi, eax

* Reference to field TGlyphList.OFFS_0001
|
004561A3   8D5601                 lea     edx, [esi+$01]

* Reference to field TGlyphList.OFFS_0078
|
004561A6   8B4378                 mov     eax, [ebx+$78]

* Reference to: Classes.Proc_00411F60
|
004561A9   E8B2BDFBFF             call    00411F60
004561AE   B101                   mov     cl, $01
004561B0   8BD6                   mov     edx, esi

* Reference to field TGlyphList.OFFS_0078
|
004561B2   8B4378                 mov     eax, [ebx+$78]

* Reference to: Classes.Proc_00412004
|
004561B5   E84ABEFBFF             call    00412004
004561BA   8BC6                   mov     eax, esi
004561BC   5E                     pop     esi
004561BD   5B                     pop     ebx
004561BE   C3                     ret

*)
end;

procedure TGlyphList._PROC_004561C0(Sender : TObject);
begin
(*
004561C0   53                     push    ebx
004561C1   56                     push    esi
004561C2   57                     push    edi
004561C3   55                     push    ebp
004561C4   8BE9                   mov     ebp, ecx
004561C6   8BFA                   mov     edi, edx
004561C8   8BD8                   mov     ebx, eax
004561CA   8BC3                   mov     eax, ebx

* Reference to : TGlyphList._PROC_00456180()
|
004561CC   E8AFFFFFFF             call    00456180
004561D1   8BF0                   mov     esi, eax
004561D3   55                     push    ebp
004561D4   8BCF                   mov     ecx, edi
004561D6   8BD6                   mov     edx, esi
004561D8   8BC3                   mov     eax, ebx

* Reference to : TCustomImageList._PROC_00438270()
|
004561DA   E89120FEFF             call    00438270
004561DF   FF437C                 inc     dword ptr [ebx+$7C]
004561E2   8BC6                   mov     eax, esi
004561E4   5D                     pop     ebp
004561E5   5F                     pop     edi
004561E6   5E                     pop     esi
004561E7   5B                     pop     ebx
004561E8   C3                     ret

*)
end;

procedure TGlyphList._PROC_004561EC(Sender : TObject);
begin
(*
004561EC   53                     push    ebx
004561ED   56                     push    esi
004561EE   8BF2                   mov     esi, edx
004561F0   8BD8                   mov     ebx, eax
004561F2   8BD6                   mov     edx, esi

* Reference to field TGlyphList.OFFS_0078
|
004561F4   8B4378                 mov     eax, [ebx+$78]

* Reference to: Classes.Proc_00412030
|
004561F7   E834BEFBFF             call    00412030
004561FC   84C0                   test    al, al
004561FE   740F                   jz      0045620F
00456200   FF4B7C                 dec     dword ptr [ebx+$7C]
00456203   33C9                   xor     ecx, ecx
00456205   8BD6                   mov     edx, esi

* Reference to field TGlyphList.OFFS_0078
|
00456207   8B4378                 mov     eax, [ebx+$78]

* Reference to: Classes.Proc_00412004
|
0045620A   E8F5BDFBFF             call    00412004
0045620F   5E                     pop     esi
00456210   5B                     pop     ebx
00456211   C3                     ret

*)
end;

procedure TGlyphList._PROC_00456214(Sender : TObject);
begin
(*
00456214   53                     push    ebx
00456215   56                     push    esi
00456216   84D2                   test    dl, dl
00456218   7408                   jz      00456222
0045621A   83C4F0                 add     esp, -$10

* Reference to: System.Proc_0040326C
|
0045621D   E84AD0FAFF             call    0040326C
00456222   8BDA                   mov     ebx, edx
00456224   8BF0                   mov     esi, eax
00456226   33D2                   xor     edx, edx
00456228   8BC6                   mov     eax, esi

* Reference to: System.Proc_00402F3C
|
0045622A   E80DCDFAFF             call    00402F3C
0045622F   B201                   mov     dl, $01

* Reference to class TList
|
00456231   A140014100             mov     eax, dword ptr [$00410140]

* Reference to: System.Proc_00402F3C
|
00456236   E801CDFAFF             call    00402F3C

* Reference to field TGlyphList.OFFS_0004
|
0045623B   894604                 mov     [esi+$04], eax
0045623E   8BC6                   mov     eax, esi
00456240   84DB                   test    bl, bl
00456242   740F                   jz      00456253

* Reference to: System.Proc_004032C4