frmconfig.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit frmConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmSetup=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label7: TLabel;
    ListBoxFilterText: TListBox;
    ButtonAdd: TButton;
    ButtonMod: TButton;
    ButtonDel: TButton;
    btnDSave: TButton;
    CheckBoxAllowClientDelChr: TCheckBox;
    SpinEditAllowDelChrLvl: TSpinEdit;
    CheckBoxAllowGetBackDelChr: TCheckBox;
    CheckBoxgUseSpecChar: TCheckBox;
    btnGSave: TButton;
    Label1: TLabel;
    CheckBoxAllowCreateCharOpt1: TCheckBox;
    procedure SpinEditAllowDelChrLvlChange(Sender : TObject);
    procedure CheckBoxAllowGetBackDelChrClick(Sender : TObject);
    procedure CheckBoxAllowClientDelChrClick(Sender : TObject);
    procedure CheckBoxgUseSpecCharClick(Sender : TObject);
    procedure btnGSaveClick(Sender : TObject);
    procedure ButtonAddClick(Sender : TObject);
    procedure ButtonDelClick(Sender : TObject);
    procedure ButtonModClick(Sender : TObject);
    procedure ListBoxFilterTextClick(Sender : TObject);
    procedure ListBoxFilterTextDblClick(Sender : TObject);
    procedure btnDSaveClick(Sender : TObject);
    procedure CheckBoxAllowCreateCharOpt1Click(Sender : TObject);
    procedure _PROC_004DA7AC(Sender : TObject);
    procedure _PROC_004DA7CC(Sender : TObject);
    procedure _PROC_004DA9F5(Sender : TObject);
    procedure _PROC_004DAE40(Sender : TObject);
    procedure _PROC_004DAE70(Sender : TObject);
    procedure _PROC_004DAE78(Sender : TObject);
    procedure _PROC_004DAEDD(Sender : TObject);
    procedure _PROC_004DAFAD(Sender : TObject);
    procedure _PROC_004DB0A5(Sender : TObject);
    procedure _PROC_004DB0D4(Sender : TObject);
    procedure _PROC_004DB0DC(Sender : TObject);
    procedure _PROC_004DB162(Sender : TObject);
    procedure _PROC_004DB2D6(Sender : TObject);
    procedure _PROC_004DB3AF(Sender : TObject);
    procedure _PROC_004DB483(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmSetup: TfrmSetup;

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

implementation

{$R *.DFM}

procedure TfrmSetup.SpinEditAllowDelChrLvlChange(Sender : TObject);
begin
(*
004DA7EC   53                     push    ebx
004DA7ED   8BD8                   mov     ebx, eax
004DA7EF   8B8320030000           mov     eax, [ebx+$0320]

* Reference to : TTimerSpeedButton._PROC_004960DC()
|
004DA7F5   E8E2B8FBFF             call    004960DC
004DA7FA   8B15107F4E00           mov     edx, [$004E7F10]
004DA800   8902                   mov     [edx], eax
004DA802   A1107F4E00             mov     eax, dword ptr [$004E7F10]
004DA807   8138FFFF0000           cmp     dword ptr [eax], $0000FFFF
004DA80D   7E1E                   jle     004DA82D
004DA80F   A1107F4E00             mov     eax, dword ptr [$004E7F10]
004DA814   C700FFFF0000           mov     dword ptr [eax], $0000FFFF
004DA81A   8B15107F4E00           mov     edx, [$004E7F10]
004DA820   8B12                   mov     edx, [edx]
004DA822   8B8320030000           mov     eax, [ebx+$0320]

* Reference to : TTimerSpeedButton._PROC_00496194()
|
004DA828   E867B9FBFF             call    00496194
004DA82D   A1107F4E00             mov     eax, dword ptr [$004E7F10]
004DA832   833801                 cmp     dword ptr [eax], +$01
004DA835   7D1E                   jnl     004DA855
004DA837   A1107F4E00             mov     eax, dword ptr [$004E7F10]
004DA83C   C70001000000           mov     dword ptr [eax], $00000001
004DA842   8B15107F4E00           mov     edx, [$004E7F10]
004DA848   8B12                   mov     edx, [edx]
004DA84A   8B8320030000           mov     eax, [ebx+$0320]

* Reference to : TTimerSpeedButton._PROC_00496194()
|
004DA850   E83FB9FBFF             call    00496194
004DA855   8BC3                   mov     eax, ebx

* Reference to : TfrmSetup._PROC_004DA7AC()
|
004DA857   E850FFFFFF             call    004DA7AC
004DA85C   5B                     pop     ebx
004DA85D   C3                     ret

*)
end;

procedure TfrmSetup.CheckBoxAllowGetBackDelChrClick(Sender : TObject);
begin
(*
004DA860   53                     push    ebx
004DA861   8BD8                   mov     ebx, eax
004DA863   8B8324030000           mov     eax, [ebx+$0324]
004DA869   8B10                   mov     edx, [eax]
004DA86B   FF92C8000000           call    dword ptr [edx+$00C8]
004DA871   8B1508834E00           mov     edx, [$004E8308]
004DA877   8802                   mov     [edx], al
004DA879   8BC3                   mov     eax, ebx

* Reference to : TfrmSetup._PROC_004DA7AC()
|
004DA87B   E82CFFFFFF             call    004DA7AC
004DA880   5B                     pop     ebx
004DA881   C3                     ret

*)
end;

procedure TfrmSetup.CheckBoxAllowClientDelChrClick(Sender : TObject);
begin
(*
004DA884   53                     push    ebx
004DA885   8BD8                   mov     ebx, eax
004DA887   8B831C030000           mov     eax, [ebx+$031C]
004DA88D   8B10                   mov     edx, [eax]
004DA88F   FF92C8000000           call    dword ptr [edx+$00C8]
004DA895   8B15747F4E00           mov     edx, [$004E7F74]
004DA89B   8802                   mov     [edx], al
004DA89D   8B15747F4E00           mov     edx, [$004E7F74]
004DA8A3   8A12                   mov     dl, byte ptr [edx]
004DA8A5   8B8320030000           mov     eax, [ebx+$0320]
004DA8AB   8B08                   mov     ecx, [eax]
004DA8AD   FF5164                 call    dword ptr [ecx+$64]
004DA8B0   8BC3                   mov     eax, ebx

* Reference to : TfrmSetup._PROC_004DA7AC()
|
004DA8B2   E8F5FEFFFF             call    004DA7AC
004DA8B7   5B                     pop     ebx
004DA8B8   C3                     ret

*)
end;

procedure TfrmSetup.CheckBoxgUseSpecCharClick(Sender : TObject);
begin
(*
004DA8BC   53                     push    ebx
004DA8BD   8BD8                   mov     ebx, eax
004DA8BF   8B8328030000           mov     eax, [ebx+$0328]
004DA8C5   8B10                   mov     edx, [eax]
004DA8C7   FF92C8000000           call    dword ptr [edx+$00C8]
004DA8CD   8B1590824E00           mov     edx, [$004E8290]
004DA8D3   8802                   mov     [edx], al
004DA8D5   8BC3                   mov     eax, ebx

* Reference to : TfrmSetup._PROC_004DA7AC()
|
004DA8D7   E8D0FEFFFF             call    004DA7AC
004DA8DC   5B                     pop     ebx
004DA8DD   C3                     ret

*)
end;

procedure TfrmSetup.btnGSaveClick(Sender : TObject);
begin
(*
004DA8E0   53                     push    ebx
004DA8E1   56                     push    esi
004DA8E2   8BD8                   mov     ebx, eax
004DA8E4   A1DC7E4E00             mov     eax, dword ptr [$004E7EDC]
004DA8E9   833800                 cmp     dword ptr [eax], +$00
004DA8EC   0F849D000000           jz      004DA98F
004DA8F2   A1107F4E00             mov     eax, dword ptr [$004E7F10]
004DA8F7   8B00                   mov     eax, [eax]
004DA8F9   50                     push    eax
004DA8FA   A1DC7E4E00             mov     eax, dword ptr [$004E7EDC]
004DA8FF   8B00                   mov     eax, [eax]

* Possible String Reference to: 'AllowDelChrLvl'
|
004DA901   B99CA94D00             mov     ecx, $004DA99C

* Possible String Reference to: 'Setup'
|
004DA906   BAB4A94D00             mov     edx, $004DA9B4
004DA90B   8B30                   mov     esi, [eax]
004DA90D   FF560C                 call    dword ptr [esi+$0C]
004DA910   A108834E00             mov     eax, dword ptr [$004E8308]
004DA915   8A00                   mov     al, byte ptr [eax]
004DA917   50                     push    eax
004DA918   A1DC7E4E00             mov     eax, dword ptr [$004E7EDC]
004DA91D   8B00                   mov     eax, [eax]

* Possible String Reference to: 'AllowGetBackDelChr'
|
004DA91F   B9C4A94D00             mov     ecx, $004DA9C4

* Possible String Reference to: 'Setup'
|
004DA924   BAB4A94D00             mov     edx, $004DA9B4
004DA929   8B30                   mov     esi, [eax]
004DA92B   FF5614                 call    dword ptr [esi+$14]
004DA92E   A1747F4E00             mov     eax, dword ptr [$004E7F74]
004DA933   8A00                   mov     al, byte ptr [eax]