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

📄 dialogs.pas

📁 传奇3delphi代码 请自己看吧 包括地图
💻 PAS
📖 第 1 页 / 共 3 页
字号:
unit Dialogs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TMessageForm=class(TForm)
    procedure _PROC_0044DF7C(Sender : TObject);
    procedure _PROC_0044DF94(Sender : TObject);
    procedure _PROC_0044E039(Sender : TObject);
    procedure _PROC_0044E5A9(Sender : TObject);
    procedure _PROC_0044E5C8(Sender : TObject);
    procedure _PROC_0044E5EC(Sender : TObject);
    procedure _PROC_0044E6A0(Sender : TObject);
    procedure _PROC_0044E6AC(Sender : TObject);
    procedure _PROC_0044E6BF(Sender : TObject);
    procedure _PROC_0044E6C4(Sender : TObject);
    procedure _PROC_0044E819(Sender : TObject);
    procedure Dialogs.Initialization(Sender : TObject);
    procedure Dialogs.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  MessageForm: TMessageForm;

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

implementation

{$R *.DFM}

procedure TMessageForm._PROC_0044DF7C(Sender : TObject);
begin
(*

* Reference to TApplication instance
|
0044DF7C   8B15342D5000           mov     edx, [$00502D34]
0044DF82   8B12                   mov     edx, [edx]

* Reference to field TMessageForm.OFFS_0150
|
0044DF84   8B8050010000           mov     eax, [eax+$0150]
0044DF8A   92                     xchg    eax, edx

* Reference to : TApplication._PROC_0044A884()
|
0044DF8B   E8F4C8FFFF             call    0044A884
0044DF90   C3                     ret

*)
end;

procedure TMessageForm._PROC_0044DF94(Sender : TObject);
begin
(*
0044DF94   FFFF                   DB  $FF, $FF  //      
0044DF96   FFFF                   DB  $FF, $FF  //      
0044DF98   0300                   add     eax, [eax]
0044DF9A   0000                   add     [eax], al

*)
end;

procedure TMessageForm._PROC_0044E039(Sender : TObject);
begin
(*
0044E039   8BEC                   mov     ebp, esp
0044E03B   83C490                 add     esp, -$70
0044E03E   53                     push    ebx
0044E03F   56                     push    esi
0044E040   57                     push    edi
0044E041   33DB                   xor     ebx, ebx
0044E043   895D90                 mov     [ebp-$70], ebx
0044E046   895D94                 mov     [ebp-$6C], ebx
0044E049   895D98                 mov     [ebp-$68], ebx
0044E04C   895D9C                 mov     [ebp-$64], ebx
0044E04F   66894DF9               mov     [ebp-$07], cx
0044E053   8855FB                 mov     [ebp-$05], dl
0044E056   8945FC                 mov     [ebp-$04], eax
0044E059   33C0                   xor     eax, eax
0044E05B   55                     push    ebp
0044E05C   6877E54400             push    $0044E577

***** TRY
|
0044E061   64FF30                 push    dword ptr fs:[eax]
0044E064   648920                 mov     fs:[eax], esp

* Reference to TApplication instance
|
0044E067   8B0D342D5000           mov     ecx, [$00502D34]
0044E06D   8B09                   mov     ecx, [ecx]
0044E06F   B201                   mov     dl, $01

* Reference to class TMessageForm
|
0044E071   A1A0DD4400             mov     eax, dword ptr [$0044DDA0]

* Reference to: Dialogs.Proc_0044DF04
|
0044E076   E889FEFFFF             call    0044DF04
0044E07B   8945F4                 mov     [ebp-$0C], eax

* Reference to TApplication instance
|
0044E07E   A1342D5000             mov     eax, dword ptr [$00502D34]
0044E083   8B00                   mov     eax, [eax]

* Reference to field TApplication.OFFS_0028
|
0044E085   8A5028                 mov     dl, byte ptr [eax+$28]
0044E088   8B45F4                 mov     eax, [ebp-$0C]
0044E08B   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TMessageForm.OFFS_68
|
0044E08D   FF5168                 call    dword ptr [ecx+$68]
0044E090   B203                   mov     dl, $03
0044E092   8B45F4                 mov     eax, [ebp-$0C]

* Reference to : TApplication._PROC_004449A4()
|
0044E095   E80A69FFFF             call    004449A4
0044E09A   8B45F4                 mov     eax, [ebp-$0C]

* Reference to : TApplication._PROC_00444C60()
|
0044E09D   E8BE6BFFFF             call    00444C60
0044E0A2   8B55F4                 mov     edx, [ebp-$0C]

* Reference to field TMessageForm.OFFS_0058
|
0044E0A5   8B5258                 mov     edx, [edx+$58]

* Reference to : TIcon._PROC_0041AB98()
|
0044E0A8   E8EBCAFCFF             call    0041AB98
0044E0AD   8B45F4                 mov     eax, [ebp-$0C]

* Reference to : TApplication._PROC_00444C60()
|
0044E0B0   E8AB6BFFFF             call    00444C60
0044E0B5   8D55EC                 lea     edx, [ebp-$14]

* Reference to: Dialogs.Proc_0044DD4C
|
0044E0B8   E88FFCFFFF             call    0044DD4C
0044E0BD   6A04                   push    $04
0044E0BF   8B5DEC                 mov     ebx, [ebp-$14]
0044E0C2   53                     push    ebx
0044E0C3   6A08                   push    $08

* Reference to: kernel32.MulDiv()
|
0044E0C5   E8CE9AFBFF             call    00407B98
0044E0CA   8945E8                 mov     [ebp-$18], eax
0044E0CD   6A08                   push    $08
0044E0CF   8B75F0                 mov     esi, [ebp-$10]
0044E0D2   56                     push    esi
0044E0D3   6A08                   push    $08

* Reference to: kernel32.MulDiv()
|
0044E0D5   E8BE9AFBFF             call    00407B98
0044E0DA   8945E4                 mov     [ebp-$1C], eax
0044E0DD   6A04                   push    $04
0044E0DF   53                     push    ebx
0044E0E0   6A0A                   push    $0A

* Reference to: kernel32.MulDiv()
|
0044E0E2   E8B19AFBFF             call    00407B98
0044E0E7   8945E0                 mov     [ebp-$20], eax
0044E0EA   6A08                   push    $08
0044E0EC   56                     push    esi
0044E0ED   6A0A                   push    $0A

* Reference to: kernel32.MulDiv()
|
0044E0EF   E8A49AFBFF             call    00407B98
0044E0F4   8945DC                 mov     [ebp-$24], eax
0044E0F7   6A04                   push    $04
0044E0F9   53                     push    ebx
0044E0FA   6A32                   push    $32

* Reference to: kernel32.MulDiv()
|
0044E0FC   E8979AFBFF             call    00407B98
0044E101   8945D8                 mov     [ebp-$28], eax
0044E104   33DB                   xor     ebx, ebx
0044E106   BE20385000             mov     esi, $00503820
0044E10B   C745B4500B5000         mov     dword ptr [ebp-$4C], $00500B50
0044E112   8BC3                   mov     eax, ebx
0044E114   3C0F                   cmp     al, $0F
0044E116   7707                   jnbe    0044E11F
0044E118   83E07F                 and     eax, +$7F
0044E11B   0FA345F9               bt      [ebp-$07], eax
0044E11F   7368                   jnb     0044E189
0044E121   833E00                 cmp     dword ptr [esi], +$00
0044E124   7559                   jnz     0044E17F
0044E126   6A00                   push    $00
0044E128   8D45A0                 lea     eax, [ebp-$60]
0044E12B   50                     push    eax
0044E12C   33C9                   xor     ecx, ecx
0044E12E   33D2                   xor     edx, edx
0044E130   33C0                   xor     eax, eax

* Reference to: Classes.Proc_00411014
|
0044E132   E8DD2EFCFF             call    00411014
0044E137   8B45F4                 mov     eax, [ebp-$0C]

* Reference to: Controls.Proc_0042E1E8
|
0044E13A   E8A900FEFF             call    0042E1E8
0044E13F   0D20040000             or      eax, $00000420
0044E144   50                     push    eax
0044E145   8D45A0                 lea     eax, [ebp-$60]
0044E148   50                     push    eax
0044E149   6AFF                   push    $FF
0044E14B   8D559C                 lea     edx, [ebp-$64]
0044E14E   8B45B4                 mov     eax, [ebp-$4C]
0044E151   8B00                   mov     eax, [eax]

* Reference to: System.Proc_00406B50
|
0044E153   E8F889FBFF             call    00406B50
0044E158   8B459C                 mov     eax, [ebp-$64]

* Reference to: System.Proc_00404198
|
0044E15B   E83860FBFF             call    00404198
0044E160   50                     push    eax
0044E161   8B45F4                 mov     eax, [ebp-$0C]

* Reference to : TApplication._PROC_00444C60()
|
0044E164   E8F76AFFFF             call    00444C60

* Reference to: Graphics.Proc_0041AC78
|
0044E169   E80ACBFCFF             call    0041AC78
0044E16E   50                     push    eax

* Reference to: user32.DrawTextA()
|
0044E16F   E8FC9DFBFF             call    00407F70
0044E174   8B45A8                 mov     eax, [ebp-$58]
0044E177   2B45A0                 sub     eax, dword ptr [ebp-$60]
0044E17A   83C008                 add     eax, +$08
0044E17D   8906                   mov     [esi], eax
0044E17F   8B06                   mov     eax, [esi]
0044E181   3B45D8                 cmp     eax, [ebp-$28]
0044E184   7E03                   jle     0044E189
0044E186   8945D8                 mov     [ebp-$28], eax
0044E189   43                     inc     ebx
0044E18A   8345B404               add     dword ptr [ebp-$4C], +$04
0044E18E   83C604                 add     esi, +$04
0044E191   80FB0B                 cmp     bl, $0B
0044E194   0F8578FFFFFF           jnz     0044E112
0044E19A   6A08                   push    $08
0044E19C   8B45F0                 mov     eax, [ebp-$10]
0044E19F   50                     push    eax
0044E1A0   6A0E                   push    $0E

* Reference to: kernel32.MulDiv()
|
0044E1A2   E8F199FBFF             call    00407B98
0044E1A7   8945D4                 mov     [ebp-$2C], eax
0044E1AA   6A04                   push    $04
0044E1AC   8B45EC                 mov     eax, [ebp-$14]
0044E1AF   50                     push    eax
0044E1B0   6A04                   push    $04

* Reference to: kernel32.MulDiv()
|
0044E1B2   E8E199FBFF             call    00407B98
0044E1B7   8945D0                 mov     [ebp-$30], eax
0044E1BA   6A00                   push    $00

* Reference to TScreen instance
|
0044E1BC   A19C2F5000             mov     eax, dword ptr [$00502F9C]
0044E1C1   8B00                   mov     eax, [eax]

* Reference to : TApplication._PROC_00448234()
|
0044E1C3   E86CA0FFFF             call    00448234
0044E1C8   D1F8                   sar     eax, 1
0044E1CA   7903                   jns     0044E1CF
0044E1CC   83D000                 adc     eax, +$00
0044E1CF   50                     push    eax
0044E1D0   6A00                   push    $00
0044E1D2   6A00                   push    $00
0044E1D4   8D45A0                 lea     eax, [ebp-$60]
0044E1D7   50                     push    eax

* Reference to: user32.SetRect()
|
0044E1D8   E8DBA0FBFF             call    004082B8
0044E1DD   8B45F4                 mov     eax, [ebp-$0C]

* Reference to: Controls.Proc_0042E1E8
|
0044E1E0   E80300FEFF             call    0042E1E8
0044E1E5   0D50040000             or      eax, $00000450
0044E1EA   50                     push    eax
0044E1EB   8D45A0                 lea     eax, [ebp-$60]
0044E1EE   50                     push    eax
0044E1EF   8B45FC                 mov     eax, [ebp-$04]

* Reference to: System.Proc_00403FD4
|
0044E1F2   E8DD5DFBFF             call    00403FD4
0044E1F7   40                     inc     eax
0044E1F8   50                     push    eax
0044E1F9   8B45FC                 mov     eax, [ebp-$04]

* Reference to: System.Proc_00404198
|
0044E1FC   E8975FFBFF             call    00404198
0044E201   50                     push    eax
0044E202   8B45F4                 mov     eax, [ebp-$0C]

* Reference to : TApplication._PROC_00444C60()
|
0044E205   E8566AFFFF             call    00444C60

* Reference to: Graphics.Proc_0041AC78
|
0044E20A   E869CAFCFF             call    0041AC78
0044E20F   50                     push    eax

* Reference to: user32.DrawTextA()
|
0044E210   E85B9DFBFF             call    00407F70
0044E215   33C0                   xor     eax, eax
0044E217   8A45FB                 mov     al, byte ptr [ebp-$05]
0044E21A   8B3C85100B5000         mov     edi, [$500B10+eax*4]
0044E221   8B45A8                 mov     eax, [ebp-$58]
0044E224   8945CC                 mov     [ebp-$34], eax
0044E227   8B45AC                 mov     eax, [ebp-$54]
0044E22A   8945C8                 mov     [ebp-$38], eax
0044E22D   85FF                   test    edi, edi
0044E22F   7416                   jz      0044E247
0044E231   8B45E0                 mov     eax, [ebp-$20]
0044E234   83C020                 add     eax, +$20
0044E237   0145CC                 add     [ebp-$34], eax
0044E23A   837DC820               cmp     dword ptr [ebp-$38], +$20
0044E23E   7D07                   jnl     0044E247
0044E240   C745C820000000         mov     dword ptr [ebp-$38], $00000020
0044E247   33C0                   xor     eax, eax
0044E249   33DB                   xor     ebx, ebx
0044E24B   8BD3                   mov     edx, ebx
0044E24D   80FA0F                 cmp     dl, $0F
0044E250   7707                   jnbe    0044E259
0044E252   83E27F                 and     edx, +$7F
0044E255   0FA355F9               bt      [ebp-$07], edx
0044E259   7301                   jnb     0044E25C
0044E25B   40                     inc     eax
0044E25C   43                     inc     ebx
0044E25D   80FB0B                 cmp     bl, $0B
0044E260   75E9                   jnz     0044E24B
0044E262   33F6                   xor     esi, esi
0044E264   85C0                   test    eax, eax
0044E266   740C                   jz      0044E274
0044E268   8B75D8                 mov     esi, [ebp-$28]
0044E26B   0FAFF0                 imul    esi, eax
0044E26E   48                     dec     eax
0044E26F   F76DD0                 imul    dword ptr [ebp-$30] 
0044E272   03F0                   add     esi, eax
0044E274   8BD6                   mov     edx, esi
0044E276   8B45CC                 mov     eax, [ebp-$34]

* Reference to: Unit_0044DD0C.Proc_0044DD44
|
0044E279   E8C6FAFFFF             call    0044DD44
0044E27E   8BD0                   mov     edx, eax
0044E280   8B45E8                 mov     eax, [ebp-$18]
0044E283   03C0                   add     eax, eax
0044E285   03D0                   add     edx, eax
0044E287   8B45F4                 mov     eax, [ebp-$0C]

* Reference to : TApplication._PROC_00444184()
|
0044E28A   E8F55EFFFF             call    00444184
0044E28F   8B55C8                 mov     edx, [ebp-$38]
0044E292   0355D4                 add     edx, [ebp-$2C]
0044E295   0355DC                 add     edx, [ebp-$24]
0044E298   8B45E4                 mov     eax, [ebp-$1C]
0044E29B   03C0                   add     eax, eax
0044E29D   03D0                   add     edx, eax
0044E29F   8B45F4                 mov     eax, [ebp-$0C]

⌨️ 快捷键说明

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