📄 fbd.pas
字号:
unit Fbd;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFbd_Prd=class(TForm)
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
Label1: TLabel;
ComboBox1: TComboBox;
Button1: TBitBtn;
Button2: TBitBtn;
Label3: TLabel;
ComboBox2: TComboBox;
RxGradientCaption1: TRxGradientCaption;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Para1: TLabel;
para2: TLabel;
para3: TLabel;
para4: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit4: TSpinEdit;
TabSheet2: TTabSheet;
para5: TLabel;
para6: TLabel;
para7: TLabel;
para8: TLabel;
SpinEdit5: TSpinEdit;
SpinEdit6: TSpinEdit;
SpinEdit7: TSpinEdit;
SpinEdit8: TSpinEdit;
OFFS_0378: N.A.;
procedure Button1Click(Sender : TObject);
procedure SpinEditChange(Sender : TObject);
procedure ComboBox2Change(Sender : TObject);
procedure CheckBoxClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_00552567(Sender : TObject);
procedure _PROC_005527A0(Sender : TObject);
procedure _PROC_00552A7C(Sender : TObject);
procedure _PROC_00553118(Sender : TObject);
procedure _PROC_00553148(Sender : TObject);
procedure Proc_005524A4(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Fbd_Prd: TFbd_Prd;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFbd_Prd.Button1Click(Sender : TObject);
begin
(*
00552284 53 push ebx
00552285 56 push esi
00552286 8BD8 mov ebx, eax
00552288 33C0 xor eax, eax
* Reference to field TFbd_Prd.OFFS_037C
|
0055228A 89837C030000 mov [ebx+$037C], eax
* Reference to control TFbd_Prd.CheckBox1 : TCheckBox
|
00552290 8B83D4020000 mov eax, [ebx+$02D4]
00552296 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00552298 FF92B4000000 call dword ptr [edx+$00B4]
0055229E 84C0 test al, al
005522A0 7406 jz 005522A8
005522A2 FF837C030000 inc dword ptr [ebx+$037C]
* Reference to control TFbd_Prd.CheckBox2 : TCheckBox
|
005522A8 8B83D8020000 mov eax, [ebx+$02D8]
005522AE 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
005522B0 FF92B4000000 call dword ptr [edx+$00B4]
005522B6 84C0 test al, al
005522B8 7407 jz 005522C1
005522BA 83837C03000002 add dword ptr [ebx+$037C], +$02
* Reference to control TFbd_Prd.CheckBox3 : TCheckBox
|
005522C1 8B83DC020000 mov eax, [ebx+$02DC]
005522C7 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
005522C9 FF92B4000000 call dword ptr [edx+$00B4]
005522CF 84C0 test al, al
005522D1 7407 jz 005522DA
005522D3 83837C03000004 add dword ptr [ebx+$037C], +$04
* Reference to control TFbd_Prd.CheckBox4 : TCheckBox
|
005522DA 8B83E0020000 mov eax, [ebx+$02E0]
005522E0 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
005522E2 FF92B4000000 call dword ptr [edx+$00B4]
005522E8 84C0 test al, al
005522EA 7407 jz 005522F3
005522EC 83837C03000008 add dword ptr [ebx+$037C], +$08
* Reference to control TFbd_Prd.CheckBox5 : TCheckBox
|
005522F3 8B83E4020000 mov eax, [ebx+$02E4]
005522F9 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
005522FB FF92B4000000 call dword ptr [edx+$00B4]
00552301 84C0 test al, al
00552303 7407 jz 0055230C
00552305 83837C03000010 add dword ptr [ebx+$037C], +$10
* Reference to control TFbd_Prd.CheckBox6 : TCheckBox
|
0055230C 8B83E8020000 mov eax, [ebx+$02E8]
00552312 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00552314 FF92B4000000 call dword ptr [edx+$00B4]
0055231A 84C0 test al, al
0055231C 7407 jz 00552325
0055231E 83837C03000020 add dword ptr [ebx+$037C], +$20
* Reference to control TFbd_Prd.CheckBox7 : TCheckBox
|
00552325 8B83EC020000 mov eax, [ebx+$02EC]
0055232B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
0055232D FF92B4000000 call dword ptr [edx+$00B4]
00552333 84C0 test al, al
00552335 7407 jz 0055233E
00552337 83837C03000040 add dword ptr [ebx+$037C], +$40
* Reference to control TFbd_Prd.CheckBox8 : TCheckBox
|
0055233E 8B83F0020000 mov eax, [ebx+$02F0]
00552344 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00552346 FF92B4000000 call dword ptr [edx+$00B4]
0055234C 84C0 test al, al
0055234E 740A jz 0055235A
00552350 81837C03000080000000 add dword ptr [ebx+$037C], $00000080
* Reference to control TFbd_Prd.CheckBox9 : TCheckBox
|
0055235A 8B83F4020000 mov eax, [ebx+$02F4]
00552360 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00552362 FF92B4000000 call dword ptr [edx+$00B4]
00552368 84C0 test al, al
0055236A 740A jz 00552376
0055236C 81837C03000000010000 add dword ptr [ebx+$037C], $00000100
* Reference to field TFbd_Prd.OFFS_037C
|
00552376 83BB7C03000004 cmp dword ptr [ebx+$037C], +$04
0055237D 7D1E jnl 0055239D
0055237F 6A04 push $04
00552381 6A10 push $10
* Possible String Reference to: '错误'
|
00552383 6888245500 push $00552488
* Possible String Reference to: '没有可用的使用周期'
|
00552388 6890245500 push $00552490
0055238D 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0055238F E8F4D9EEFF call 0043FD88
00552394 50 push eax
* Reference to: user32.MessageBoxExA()
|
00552395 E87668EBFF call 00408C10
0055239A 5E pop esi
0055239B 5B pop ebx
0055239C C3 ret
* Reference to control FoundFiles : N.A.
|
0055239D 8B83EC020000 mov eax, [ebx+$02EC]
005523A3 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
005523A5 FF92B4000000 call dword ptr [edx+$00B4]
005523AB 84C0 test al, al
005523AD 7427 jz 005523D6
* Reference to control Button2 : TBitBtn
|
005523AF 8BB3FC020000 mov esi, [ebx+$02FC]
005523B5 8BC6 mov eax, esi
* Reference to: stdctrls.TCustomEdit.ClearSelection(TCustomEdit);
|
005523B7 E804E8EDFF call 00430BC0
005523BC 8BD0 mov edx, eax
* Reference to field TBitBtn.ClicksDisabled : Boolean
|
005523BE 8B86F0010000 mov eax, [esi+$01F0]
005523C4 8B08 mov ecx, [eax]
* Possible reference to virtual method TBoolean.OFFS_18
|
005523C6 FF5118 call dword ptr [ecx+$18]
005523C9 8A00 mov al, byte ptr [eax]
005523CB 888378030000 mov [ebx+$0378], al
005523D1 E9A3000000 jmp 00552479
* Reference to control RichEdit1 : N.A.
|
005523D6 8B83F4020000 mov eax, [ebx+$02F4]
005523DC 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
005523DE FF92B4000000 call dword ptr [edx+$00B4]
005523E4 84C0 test al, al
005523E6 740C jz 005523F4
005523E8 C6837803000008 mov byte ptr [ebx+$0378], $08
005523EF E985000000 jmp 00552479
* Reference to control Panel3 : N.A.
|
005523F4 8B83F0020000 mov eax, [ebx+$02F0]
005523FA 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
005523FC FF92B4000000 call dword ptr [edx+$00B4]
00552402 84C0 test al, al
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -