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

📄 extctrls.pas

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TPanel=class(TForm)
    procedure _PROC_0044C49C(Sender : TObject);
    procedure _PROC_0044C9AA(Sender : TObject);
    procedure _PROC_0044CA38(Sender : TObject);
    procedure _PROC_0044CB04(Sender : TObject);
    procedure _PROC_0044CB64(Sender : TObject);
    procedure _PROC_0044CBF4(Sender : TObject);
    procedure _PROC_0044CC6A(Sender : TObject);
    procedure _PROC_0044CC77(Sender : TObject);
    procedure _PROC_0044CC8A(Sender : TObject);
    procedure _PROC_0044CCE4(Sender : TObject);
    procedure _PROC_0044CDA4(Sender : TObject);
    procedure _PROC_0044CE3C(Sender : TObject);
    procedure _PROC_0044CEA8(Sender : TObject);
    procedure _PROC_0044CEC0(Sender : TObject);
    procedure _PROC_0044CED0(Sender : TObject);
    procedure _PROC_0044CEE8(Sender : TObject);
    procedure _PROC_0044CF00(Sender : TObject);
    procedure _PROC_0044D013(Sender : TObject);
    procedure _PROC_0044D01C(Sender : TObject);
    procedure _PROC_0044D080(Sender : TObject);
    procedure _PROC_0044D115(Sender : TObject);
    procedure _PROC_0044D204(Sender : TObject);
    procedure _PROC_0044D244(Sender : TObject);
    procedure _PROC_0044D4E7(Sender : TObject);
    procedure _PROC_0044D51C(Sender : TObject);
    procedure _PROC_0044D554(Sender : TObject);
    procedure _PROC_0044D5C8(Sender : TObject);
    procedure _PROC_0044D654(Sender : TObject);
    procedure _PROC_0044D664(Sender : TObject);
    procedure _PROC_0044D674(Sender : TObject);
    procedure _PROC_0044D68C(Sender : TObject);
    procedure _PROC_0044D6A0(Sender : TObject);
    procedure _PROC_0044D734(Sender : TObject);
    procedure _PROC_0044D78C(Sender : TObject);
    procedure _PROC_0044D7A0(Sender : TObject);
    procedure _PROC_0044D7A8(Sender : TObject);
    procedure _PROC_0044D7D4(Sender : TObject);
    procedure _PROC_0044D7E8(Sender : TObject);
    procedure _PROC_0044D8E8(Sender : TObject);
    procedure _PROC_0044D920(Sender : TObject);
    procedure _PROC_0044DB2D(Sender : TObject);
    procedure _PROC_0044DB50(Sender : TObject);
    procedure _PROC_0044DB5F(Sender : TObject);
    procedure _PROC_0044DB74(Sender : TObject);
    procedure _PROC_0044DCA8(Sender : TObject);
    procedure ExtCtrls.Finalization(Sender : TObject);
    procedure ExtCtrls.Initialization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Panel: TPanel;

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

implementation

{$R *.DFM}

procedure TPanel._PROC_0044C49C(Sender : TObject);
begin
(*
0044C49C   7365                   jnb     0044C503
0044C49E   44                     inc     esp
0044C49F   6F                     outsd
0044C4A0   636B4D                 arpl    [ebx+$4D], bp
0044C4A3   61                     popa
0044C4A4   6E                     outsb
0044C4A5   61                     popa
0044C4A6   67657200               jb      0044C4AA
0044C4AA   104000                 adc     [eax+$00], al
0044C4AD   44                     inc     esp
0044C4AE   0100                   add     [eax], eax
0044C4B0   FFC8                   dec     eax
0044C4B2   0D43000100             or      eax, $00010043
0044C4B7   0000                   add     [eax], al

0044C4B9   0000                   add     [eax], al

0044C4BB   008000000000           add     [eax+$0000], al
0044C4C1   1800                   sbb     [eax], al
0044C4C3   08446F63               or      [edi+ebp*2+$63], al
0044C4C7   6B536974               imul    edx, [ebx+$69], $74
0044C4CB   657475                 jz      0044C543
0044C4CE   42                     inc     edx
0044C4CF   006A00                 add     [edx+$00], ch
0044C4D2   00FF                   add     bh, bh
0044C4D4   6A00                   push    $00
0044C4D6   00FF                   add     bh, bh
0044C4D8   0100                   add     [eax], eax
0044C4DA   0000                   add     [eax], al

0044C4DC   0000                   add     [eax], al

0044C4DE   0080F4FFFFFF           add     [eax+$FFFFFFF4], al
0044C4E4   1900                   sbb     [eax], eax
0044C4E6   0A447261               or      al, byte ptr [edx+esi*2+$61]
0044C4EA   6743                   inc     ebx
0044C4EC   7572                   jnz     0044C560
0044C4EE   736F                   jnb     0044C55F
0044C4F0   728C                   jb      0044C47E
0044C4F2   7942                   jns     0044C536
0044C4F4   008B0000FF8B           add     [ebx+$8BFF0000], cl
0044C4FA   0000                   add     [eax], al

0044C4FC   FF01                   inc     dword ptr [ecx]
0044C4FE   0000                   add     [eax], al

0044C500   0000                   add     [eax], al

0044C502   0000                   add     [eax], al

0044C504   800000                 add     byte ptr [eax], $00
0044C507   0000                   add     [eax], al

0044C509   1A00                   sbb     al, byte ptr [eax]
0044C50B   08447261               or      [edx+esi*2+$61], al
0044C50F   674B                   dec     ebx
0044C511   696E6458794200         imul    ebp, [esi+$64], $00427958
0044C518   4D                     dec     ebp
0044C519   0000                   add     [eax], al

0044C51B   FF5800                 call    [eax+$00]
0044C51E   00FE                   add     dh, bh
0044C520   0100                   add     [eax], eax
0044C522   0000                   add     [eax], al

0044C524   0000                   add     [eax], al

0044C526   008000000000           add     [eax+$0000], al
0044C52C   1B00                   sbb     eax, [eax]
0044C52E   08447261               or      [edx+esi*2+$61], al
0044C532   674D                   dec     ebp
0044C534   6F                     outsd
0044C535   64650010               add     gs:[eax], dl
0044C539   40                     inc     eax
0044C53A   004C0000               add     [eax+eax+$00], cl
0044C53E   FE5C                   DB  $FE, $5C  //      
0044C540   0000                   add     [eax], al

0044C542   FE0CDF                 dec     byte ptr [edi+ebx*8]
0044C545   42                     inc     edx
0044C546   0000                   add     [eax], al

0044C548   0000                   add     [eax], al

0044C54A   800100                 add     byte ptr [ecx], $00
0044C54D   0000                   add     [eax], al

0044C54F   1C00                   sbb     al, $00
0044C551   07                     pop     es
0044C552   45                     inc     ebp
0044C553   6E                     outsb
0044C554   61                     popa
0044C555   626C6564               bound   ebp, qword ptr [ebp+$64]
0044C559   0010                   add     [eax], dl
0044C55B   40                     inc     eax
0044C55C   00050200FF05           add     [$05FF0002], al
0044C562   0200                   add     al, byte ptr [eax]
0044C564   FF01                   inc     dword ptr [ecx]
0044C566   0000                   add     [eax], al

*)
end;

procedure TPanel._PROC_0044C9AA(Sender : TObject);
begin
(*
0044C9AA   70DC                   jo      0044C988
0044C9AC   FB                     sti
0044C9AD   40                     inc     eax
0044C9AE   00E0                   add     al, ah
0044C9B0   0000                   add     [eax], al

*)
end;

procedure TPanel._PROC_0044CA38(Sender : TObject);
begin
(*
0044CA38   6E                     outsb
0044CA39   44                     inc     esp
0044CA3A   6F                     outsd
0044CA3B   636B8D                 arpl    [ebx-$73], bp
0044CA3E   40                     inc     eax
0044CA3F   00558B                 add     [ebp-$75], dl
0044CA42   EC                     in      al, dx
0044CA43   83C4D8                 add     esp, -$28
0044CA46   53                     push    ebx
0044CA47   8B5D08                 mov     ebx, [ebp+$08]
0044CA4A   8B5BFC                 mov     ebx, [ebx-$04]
0044CA4D   8B4308                 mov     eax, [ebx+$08]
0044CA50   8945F8                 mov     [ebp-$08], eax
0044CA53   8B4304                 mov     eax, [ebx+$04]
0044CA56   8945FC                 mov     [ebp-$04], eax
0044CA59   8B03                   mov     eax, [ebx]
0044CA5B   8945F0                 mov     [ebp-$10], eax
0044CA5E   8B430C                 mov     eax, [ebx+$0C]
0044CA61   8945F4                 mov     [ebp-$0C], eax
0044CA64   8B4508                 mov     eax, [ebp+$08]
0044CA67   8B50F4                 mov     edx, [eax-$0C]
0044CA6A   8B4508                 mov     eax, [ebp+$08]
0044CA6D   8B40F8                 mov     eax, [eax-$08]
0044CA70   8B4010                 mov     eax, [eax+$10]

* Reference to : TIcon._PROC_0041A24C()
|
0044CA73   E8D4D7FCFF             call    0041A24C
0044CA78   8B45F0                 mov     eax, [ebp-$10]
0044CA7B   8945D8                 mov     [ebp-$28], eax
0044CA7E   8B45F4                 mov     eax, [ebp-$0C]
0044CA81   8945DC                 mov     [ebp-$24], eax
0044CA84   8B03                   mov     eax, [ebx]
0044CA86   8945E0                 mov     [ebp-$20], eax
0044CA89   8B4304                 mov     eax, [ebx+$04]
0044CA8C   8945E4                 mov     [ebp-$1C], eax
0044CA8F   8B45F8                 mov     eax, [ebp-$08]
0044CA92   8945E8                 mov     [ebp-$18], eax
0044CA95   8B45FC                 mov     eax, [ebp-$04]
0044CA98   8945EC                 mov     [ebp-$14], eax
0044CA9B   8D55D8                 lea     edx, [ebp-$28]
0044CA9E   8B4508                 mov     eax, [ebp+$08]
0044CAA1   8B40F8                 mov     eax, [eax-$08]
0044CAA4   B902000000             mov     ecx, $00000002

* Reference to: Graphics.Proc_0041A9D8
|
0044CAA9   E82ADFFCFF             call    0041A9D8
0044CAAE   8B4508                 mov     eax, [ebp+$08]
0044CAB1   8B500C                 mov     edx, [eax+$0C]
0044CAB4   8B4508                 mov     eax, [ebp+$08]
0044CAB7   8B40F8                 mov     eax, [eax-$08]
0044CABA   8B4010                 mov     eax, [eax+$10]

* Reference to : TIcon._PROC_0041A24C()
|
0044CABD   E88AD7FCFF             call    0041A24C
0044CAC2   FF4DF0                 dec     dword ptr [ebp-$10]
0044CAC5   8B45F8                 mov     eax, [ebp-$08]
0044CAC8   8945D8                 mov     [ebp-$28], eax
0044CACB   8B45FC                 mov     eax, [ebp-$04]
0044CACE   8945DC                 mov     [ebp-$24], eax
0044CAD1   8B4308                 mov     eax, [ebx+$08]
0044CAD4   8945E0                 mov     [ebp-$20], eax
0044CAD7   8B430C                 mov     eax, [ebx+$0C]
0044CADA   8945E4                 mov     [ebp-$1C], eax
0044CADD   8B45F0                 mov     eax, [ebp-$10]
0044CAE0   8945E8                 mov     [ebp-$18], eax
0044CAE3   8B45F4                 mov     eax, [ebp-$0C]
0044CAE6   8945EC                 mov     [ebp-$14], eax
0044CAE9   8D55D8                 lea     edx, [ebp-$28]
0044CAEC   8B4508                 mov     eax, [ebp+$08]
0044CAEF   8B40F8                 mov     eax, [eax-$08]
0044CAF2   B902000000             mov     ecx, $00000002

* Reference to: Graphics.Proc_0041A9D8
|
0044CAF7   E8DCDEFCFF             call    0041A9D8
0044CAFC   5B                     pop     ebx
0044CAFD   8BE5                   mov     esp, ebp
0044CAFF   5D                     pop     ebp
0044CB00   C3                     ret

*)
end;

procedure TPanel._PROC_0044CB04(Sender : TObject);
begin
(*
0044CB04   55                     push    ebp
0044CB05   8BEC                   mov     ebp, esp
0044CB07   83C4F4                 add     esp, -$0C
0044CB0A   53                     push    ebx
0044CB0B   894DF4                 mov     [ebp-$0C], ecx
0044CB0E   8955FC                 mov     [ebp-$04], edx

⌨️ 快捷键说明

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