📄 main.pas
字号:
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tmainform=class(TForm)
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
ImageList1: TImageList;
N1: TMenuItem;
N2: TMenuItem;
S1: TMenuItem;
N3: TMenuItem;
U1: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
L1: TMenuItem;
S2: TMenuItem;
N10: TMenuItem;
M1: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
C1: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
G1: TMenuItem;
G2: TMenuItem;
L2: TMenuItem;
R1: TMenuItem;
N15: TMenuItem;
S3: TMenuItem;
C2: TMenuItem;
N16: TMenuItem;
W1: TMenuItem;
G3: TMenuItem;
N17: TMenuItem;
L3: TMenuItem;
S4: TMenuItem;
L4: TMenuItem;
S5: TMenuItem;
H1: TMenuItem;
R2: TMenuItem;
H2: TMenuItem;
L5: TMenuItem;
S6: TMenuItem;
D1: TMenuItem;
H3: TMenuItem;
B1: TMenuItem;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton15: TToolButton;
N19: TMenuItem;
B2: TMenuItem;
N20: TMenuItem;
T1: TMenuItem;
D2: TMenuItem;
procedure ToolButton15Click(Sender : TObject);
procedure N5Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure R3Click(Sender : TObject);
procedure S1Click(Sender : TObject);
procedure D1Click(Sender : TObject);
procedure U1Click(Sender : TObject);
procedure C1Click(Sender : TObject);
procedure N13Click(Sender : TObject);
procedure N14Click(Sender : TObject);
procedure G1Click(Sender : TObject);
procedure N7Click(Sender : TObject);
procedure N8Click(Sender : TObject);
procedure V1Click(Sender : TObject);
procedure L1Click(Sender : TObject);
procedure S2Click(Sender : TObject);
procedure M1Click(Sender : TObject);
procedure N11Click(Sender : TObject);
procedure W1Click(Sender : TObject);
procedure N17Click(Sender : TObject);
procedure N19Click(Sender : TObject);
procedure B2Click(Sender : TObject);
procedure H2Click(Sender : TObject);
procedure L5Click(Sender : TObject);
procedure S6Click(Sender : TObject);
procedure S4Click(Sender : TObject);
procedure L4Click(Sender : TObject);
procedure S5Click(Sender : TObject);
procedure H1Click(Sender : TObject);
procedure G3Click(Sender : TObject);
procedure R1Click(Sender : TObject);
procedure C2Click(Sender : TObject);
procedure N20Click(Sender : TObject);
procedure S3Click(Sender : TObject);
procedure L2Click(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure B1Click(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure ToolButton4Click(Sender : TObject);
procedure ToolButton6Click(Sender : TObject);
procedure ToolButton7Click(Sender : TObject);
procedure ToolButton8Click(Sender : TObject);
procedure ToolButton9Click(Sender : TObject);
procedure ToolButton10Click(Sender : TObject);
procedure ToolButton13Click(Sender : TObject);
procedure ToolButton14Click(Sender : TObject);
procedure ToolButton12Click(Sender : TObject);
procedure H4Click(Sender : TObject);
procedure T1Click(Sender : TObject);
procedure D2Click(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
mainform: Tmainform;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tmainform.ToolButton15Click(Sender : TObject);
begin
(*
00583188 A1A8A05800 mov eax, dword ptr [$0058A0A8]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0058318D E89E29EEFF call 00465B30
* Reference to TApplication instance
|
00583192 A124835800 mov eax, dword ptr [$00588324]
00583197 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.Terminate(TApplication);
|
00583199 E8BA61EEFF call 00469358
0058319E C3 ret
*)
end;
procedure Tmainform.N5Click(Sender : TObject);
begin
(*
005831A0 A1A8A05800 mov eax, dword ptr [$0058A0A8]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
005831A5 E88629EEFF call 00465B30
005831AA C3 ret
*)
end;
procedure Tmainform.N2Click(Sender : TObject);
begin
(*
005831AC 53 push ebx
* Reference to pointer to GlobalVar_00589D90
|
005831AD 8B1DBC815800 mov ebx, [$005881BC]
005831B3 8BCB mov ecx, ebx
* Reference to TApplication instance
|
005831B5 A124835800 mov eax, dword ptr [$00588324]
005831BA 8B00 mov eax, [eax]
* Reference to class Tinfo
|
005831BC 8B152C944D00 mov edx, [$004D942C]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
005831C2 E82560EEFF call 004691EC
005831C7 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
005831C9 E80A2BEEFF call 00465CD8
* Reference to TScreen instance
|
005831CE A194865800 mov eax, dword ptr [$00588694]
005831D3 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005831D5 E8EA3AEEFF call 00466CC4
005831DA 8B13 mov edx, [ebx]
005831DC 2B424C sub eax, dword ptr [edx+$4C]
005831DF B903000000 mov ecx, $00000003
005831E4 99 cdq
005831E5 F7F9 idiv ecx
005831E7 8BD0 mov edx, eax
005831E9 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005831EB E8E854ECFF call 004486D8
* Reference to TScreen instance
|
005831F0 A194865800 mov eax, dword ptr [$00588694]
005831F5 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005831F7 E8D43AEEFF call 00466CD0
005831FC 8BD0 mov edx, eax
005831FE 8B03 mov eax, [ebx]
00583200 2B5048 sub edx, dword ptr [eax+$48]
00583203 D1FA sar edx, 1
00583205 7903 jns 0058320A
00583207 83D200 adc edx, +$00
0058320A 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0058320C E8A354ECFF call 004486B4
00583211 5B pop ebx
00583212 C3 ret
*)
end;
procedure Tmainform.R3Click(Sender : TObject);
begin
(*
* Reference to Tregedit instance
|
00583214 A138845800 mov eax, dword ptr [$00588438]
00583219 8B00 mov eax, [eax]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
0058321B E8B82AEEFF call 00465CD8
* Reference to TScreen instance
|
00583220 A194865800 mov eax, dword ptr [$00588694]
00583225 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
00583227 E8983AEEFF call 00466CC4
* Reference to Tregedit instance
|
0058322C 8B1538845800 mov edx, [$00588438]
00583232 8B12 mov edx, [edx]
00583234 2B424C sub eax, dword ptr [edx+$4C]
00583237 B903000000 mov ecx, $00000003
0058323C 99 cdq
0058323D F7F9 idiv ecx
0058323F 8BD0 mov edx, eax
* Reference to Tregedit instance
|
00583241 A138845800 mov eax, dword ptr [$00588438]
00583246 8B00 mov eax, [eax]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00583248 E88B54ECFF call 004486D8
* Reference to TScreen instance
|
0058324D A194865800 mov eax, dword ptr [$00588694]
00583252 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
00583254 E8773AEEFF call 00466CD0
00583259 8BD0 mov edx, eax
* Reference to Tregedit instance
|
0058325B A138845800 mov eax, dword ptr [$00588438]
00583260 8B00 mov eax, [eax]
00583262 2B5048 sub edx, dword ptr [eax+$48]
00583265 D1FA sar edx, 1
00583267 7903 jns 0058326C
00583269 83D200 adc edx, +$00
* Reference to Tregedit instance
|
0058326C A138845800 mov eax, dword ptr [$00588438]
00583271 8B00 mov eax, [eax]
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00583273 E83C54ECFF call 004486B4
00583278 C3 ret
*)
end;
procedure Tmainform.S1Click(Sender : TObject);
begin
(*
0058327C 53 push ebx
* Reference to pointer to GlobalVar_00589D9C
|
0058327D 8B1D74815800 mov ebx, [$00588174]
00583283 8BCB mov ecx, ebx
* Reference to TApplication instance
|
00583285 A124835800 mov eax, dword ptr [$00588324]
0058328A 8B00 mov eax, [eax]
* Reference to class Tsystemset
|
0058328C 8B1544A74D00 mov edx, [$004DA744]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
00583292 E8555FEEFF call 004691EC
00583297 8B03 mov eax, [ebx]
* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
00583299 E83A2AEEFF call 00465CD8
* Reference to TScreen instance
|
0058329E A194865800 mov eax, dword ptr [$00588694]
005832A3 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
005832A5 E81A3AEEFF call 00466CC4
005832AA 8B13 mov edx, [ebx]
005832AC 2B424C sub eax, dword ptr [edx+$4C]
005832AF B903000000 mov ecx, $00000003
005832B4 99 cdq
005832B5 F7F9 idiv ecx
005832B7 8BD0 mov edx, eax
005832B9 8B03 mov eax, [ebx]
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
005832BB E81854ECFF call 004486D8
* Reference to TScreen instance
|
005832C0 A194865800 mov eax, dword ptr [$00588694]
005832C5 8B00 mov eax, [eax]
* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
005832C7 E8043AEEFF call 00466CD0
005832CC 8BD0 mov edx, eax
005832CE 8B03 mov eax, [ebx]
005832D0 2B5048 sub edx, dword ptr [eax+$48]
005832D3 D1FA sar edx, 1
005832D5 7903 jns 005832DA
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -