menus.pas

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

unit Menus;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TPopupMenu=class(TForm)
    procedure Menus.Initialization(Sender : TObject);
    procedure Menus.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PopupMenu: TPopupMenu;

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

implementation

{$R *.DFM}

procedure TPopupMenu.Menus.Initialization(Sender : TObject);
begin
(*
0043F468   55                     push    ebp
0043F469   8BEC                   mov     ebp, esp
0043F46B   51                     push    ecx
0043F46C   832DC837500001         sub     dword ptr [$005037C8], +$01
0043F473   734F                   jnb     0043F4C4
0043F475   B864F34300             mov     eax, $0043F364

* Reference to: System.Proc_00403ABC
|
0043F47A   E83D46FCFF             call    00403ABC

* Reference to class TMenuItem
|
0043F47F   A1EC954300             mov     eax, dword ptr [$004395EC]
0043F484   8945FC                 mov     [ebp-$04], eax
0043F487   8D45FC                 lea     eax, [ebp-$04]
0043F48A   33D2                   xor     edx, edx

* Reference to: Classes.Proc_0041135C
|
0043F48C   E8CB1EFDFF             call    0041135C
0043F491   B201                   mov     dl, $01

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

* Reference to: System.Proc_00402F3C
|
0043F498   E89F3AFCFF             call    00402F3C

* Reference to GlobalVar_005037CC
|
0043F49D   A3CC375000             mov     dword ptr [$005037CC], eax
0043F4A2   B201                   mov     dl, $01

* Reference to class TPopupList
|
0043F4A4   A158A04300             mov     eax, dword ptr [$0043A058]

* Reference to: System.Proc_00402F3C
|
0043F4A9   E88E3AFCFF             call    00402F3C

* Reference to GlobalVar_005037C0
|
0043F4AE   A3C0375000             mov     dword ptr [$005037C0], eax
0043F4B3   B201                   mov     dl, $01

* Reference to class TMenuItemStack
|
0043F4B5   A1C4A04300             mov     eax, dword ptr [$0043A0C4]

* Reference to: Unit_00420C90.Proc_00420D68
|
0043F4BA   E8A918FEFF             call    00420D68

* Reference to GlobalVar_005037C4
|
0043F4BF   A3C4375000             mov     dword ptr [$005037C4], eax
0043F4C4   59                     pop     ecx
0043F4C5   5D                     pop     ebp
0043F4C6   C3                     ret

*)
end;

procedure TPopupMenu.Menus.Finalization(Sender : TObject);
begin
(*
0043F3F8   55                     push    ebp
0043F3F9   8BEC                   mov     ebp, esp
0043F3FB   33C0                   xor     eax, eax
0043F3FD   55                     push    ebp

* Possible String Reference to: '