prefconfig.pas

BLUE源码 BLUE源码 BLUE源码

unit PrefConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmPrefConfig=class(TForm)
    GroupBoxServer: TGroupBox;
    EditServerCheckTimeOut: TSpinEdit;
    LabelCheckTimeOut: TLabel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    LabelSendBlockSize: TLabel;
    Label3: TLabel;
    EditSendBlockSize: TSpinEdit;
    ButtonOK: TButton;
    procedure EditServerCheckTimeOutChange(Sender : TObject);
    procedure EditSendBlockSizeChange(Sender : TObject);
    procedure ButtonOKClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmPrefConfig: TfrmPrefConfig;

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

implementation

{$R *.DFM}

procedure TfrmPrefConfig.EditServerCheckTimeOutChange(Sender : TObject);
begin
(*
00487B58   53                     push    ebx
00487B59   8BD8                   mov     ebx, eax
00487B5B   80BB1C03000000         cmp     byte ptr [ebx+$031C], $00
00487B62   741A                   jz      00487B7E
00487B64   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to : TTimerSpeedButton._PROC_0048551C()
|
00487B6A   E8ADD9FFFF             call    0048551C
00487B6F   69C0E8030000           imul    eax, eax, $000003E8
00487B75   8B1554314C00           mov     edx, [$004C3154]
00487B7B   89423E                 mov     [edx+$3E], eax
00487B7E   5B                     pop     ebx
00487B7F   C3                     ret

*)
end;

procedure TfrmPrefConfig.EditSendBlockSizeChange(Sender : TObject);
begin
(*
00487B80   53                     push    ebx
00487B81   8BD8                   mov     ebx, eax
00487B83   80BB1C03000000         cmp     byte ptr [ebx+$031C], $00
00487B8A   7417                   jz      00487BA3
00487B8C   8B8314030000           mov     eax, [ebx+$0314]

* Reference to : TTimerSpeedButton._PROC_0048551C()
|
00487B92   E885D9FFFF             call    0048551C
00487B97   8B1554314C00           mov     edx, [$004C3154]
00487B9D   8982FA0D0300           mov     [edx+$30DFA], eax
00487BA3   5B                     pop     ebx
00487BA4   C3                     ret

*)
end;

procedure TfrmPrefConfig.ButtonOKClick(Sender : TObject);
begin
(*
00487BA8   53                     push    ebx
00487BA9   56                     push    esi
00487BAA   57                     push    edi
00487BAB   8BD8                   mov     ebx, eax
00487BAD   8B3554314C00           mov     esi, [$004C3154]
00487BB3   8B463E                 mov     eax, [esi+$3E]
00487BB6   50                     push    eax
00487BB7   8B5618                 mov     edx, [esi+$18]
00487BBA   8B86020E0300           mov     eax, [esi+$30E02]

* Possible String Reference to: 'ServerCheckTimeOut'
|
00487BC0   B9F87B4800             mov     ecx, $00487BF8
00487BC5   8B38                   mov     edi, [eax]
00487BC7   FF570C                 call    dword ptr [edi+$0C]
00487BCA   8B86FA0D0300           mov     eax, [esi+$30DFA]
00487BD0   50                     push    eax
00487BD1   8B5618                 mov     edx, [esi+$18]
00487BD4   8B86020E0300           mov     eax, [esi+$30E02]

* Possible String Reference to: 'ClientSendBlockSize'
|
00487BDA   B9147C4800             mov     ecx, $00487C14
00487BDF   8B30                   mov     esi, [eax]
00487BE1   FF560C                 call    dword ptr [esi+$0C]
00487BE4   8BC3                   mov     eax, ebx

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00487BE6   E821BFFDFF             call    00463B0C
00487BEB   5F                     pop     edi
00487BEC   5E                     pop     esi
00487BED   5B                     pop     ebx
00487BEE   C3                     ret

*)
end;

end.