📄 gxt.pas
字号:
unit Gxt;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmGxt=class(TForm)
MainMenu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
MtmXinYun: TMenuItem;
A1: TMenuItem;
A2: TMenuItem;
A3: TMenuItem;
MtmXinXi: TMenuItem;
A4: TMenuItem;
A5: TMenuItem;
A6: TMenuItem;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Shape9: TShape;
Shape10: TShape;
Shape11: TShape;
Shape12: TShape;
Shape13: TShape;
Shape14: TShape;
Shape15: TShape;
Shape16: TShape;
Shape17: TShape;
Label1: TLabel;
LabstkName: TLabel;
Label4: TLabel;
Label5: TLabel;
LabZgb: TLabel;
LabLtgb: TLabel;
Label8: TLabel;
LabLtsz: TLabel;
LabMggjj: TLabel;
Label11: TLabel;
LabMgjz: TLabel;
Label13: TLabel;
LabMgsy: TLabel;
Label15: TLabel;
LabGj: TLabel;
Label17: TLabel;
Shape18: TShape;
LabX: TLabel;
LabAvg20: TLabel;
LabAvg10: TLabel;
LabY: TLabel;
Label59: TLabel;
Label58: TLabel;
Label57: TLabel;
Label56: TLabel;
Label55: TLabel;
Label54: TLabel;
Label52: TLabel;
Label51: TLabel;
Label50: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Shape19: TShape;
PalImage: TPanel;
Image: TPanel;
Shape20: TShape;
Shape21: TShape;
Shape22: TShape;
Label23: TLabel;
LabType: TLabel;
LabXX: TLabel;
LabYName: TLabel;
LabXName: TLabel;
Label3: TLabel;
LabXY: TLabel;
N26: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
Label53: TLabel;
Label6: TLabel;
PopupMenu: TPopupMenu;
LabAvg05: TLabel;
LabZdt1: TLabel;
LabZdt20: TLabel;
LabZdt5: TLabel;
ImgJiSu: TImage;
LabJiSu60: TLabel;
LabZdt60: TLabel;
LabRiskHint: TLabel;
OFFS_0530: N.A.;
OFFS_04F2: N.A.;
OFFS_04F3: N.A.;
OFFS_04F0: N.A.;
OFFS_04F1: N.A.;
OFFS_04F4: N.A.;
OFFS_04F8: N.A.;
OFFS_04E0: N.A.;
OFFS_04FC: N.A.;
procedure FormKeyDown(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure mRTBkxsXY(Sender : TObject);
procedure mRTZxxsXY(Sender : TObject);
procedure mRTBkxsXX(Sender : TObject);
procedure mRTZxxsXX(Sender : TObject);
procedure ImageMouseMove(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure ImageDblClick(Sender : TObject);
procedure ImageClick(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure JiSu1Click(Sender : TObject);
procedure JiSu5Click(Sender : TObject);
procedure JiSu20Click(Sender : TObject);
procedure JiSu60Click(Sender : TObject);
procedure NatureZBClick(Sender : TObject);
procedure LogZBClick(Sender : TObject);
procedure GPXXTClick(Sender : TObject);
procedure KPXXTClick(Sender : TObject);
procedure SKXXTClick(Sender : TObject);
procedure JPXWTClick(Sender : TObject);
procedure ZPXYTClick(Sender : TObject);
procedure CWSXClick(Sender : TObject);
procedure AllAGClick(Sender : TObject);
procedure PopupMenuPopup(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure _PROC_0062C530(Sender : TObject);
procedure _PROC_0062C621(Sender : TObject);
procedure _PROC_0062C71C(Sender : TObject);
procedure _PROC_0062C728(Sender : TObject);
procedure _PROC_0062C779(Sender : TObject);
procedure _PROC_0062C800(Sender : TObject);
procedure _PROC_0062C834(Sender : TObject);
procedure _PROC_0062C86D(Sender : TObject);
procedure _PROC_0062C918(Sender : TObject);
procedure _PROC_0062C970(Sender : TObject);
procedure _PROC_0062CA08(Sender : TObject);
procedure _PROC_0062CAE1(Sender : TObject);
procedure _PROC_0062CB84(Sender : TObject);
procedure _PROC_0062CBCC(Sender : TObject);
procedure _PROC_0062D518(Sender : TObject);
procedure _PROC_0062E1D9(Sender : TObject);
procedure _PROC_0062E1E6(Sender : TObject);
procedure _PROC_0062E31B(Sender : TObject);
procedure _PROC_0062E3E2(Sender : TObject);
procedure _PROC_0062E434(Sender : TObject);
procedure _PROC_0062E6FC(Sender : TObject);
procedure _PROC_0062EA28(Sender : TObject);
procedure _PROC_0062EB54(Sender : TObject);
procedure _PROC_0062EBB0(Sender : TObject);
procedure _PROC_0062F7A8(Sender : TObject);
procedure _PROC_0062F7C8(Sender : TObject);
procedure _PROC_0062F7F8(Sender : TObject);
procedure Proc_0062C620(Sender : TObject);
procedure Proc_0062DC38(Sender : TObject);
procedure Proc_0062F800(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmGxt: TFrmGxt;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmGxt.FormKeyDown(Sender : TObject);
begin
(*
0062DC68 55 push ebp
0062DC69 8BEC mov ebp, esp
0062DC6B 53 push ebx
0062DC6C 56 push esi
0062DC6D 8BF0 mov esi, eax
0062DC6F 0FB701 movzx eax, word ptr [ecx]
0062DC72 83F825 cmp eax, +$25
0062DC75 7F79 jnle 0062DCF0
0062DC77 0F84C5000000 jz 0062DD42
0062DC7D 83C0F3 add eax, -$0D
0062DC80 83F817 cmp eax, +$17
0062DC83 0F870D050000 jnbe 0062E196
0062DC89 FF248590DC6200 jmp dword ptr [$62DC90+eax*4]
0062DC90 28DD sub ch, bl
0062DC92 6200 bound eax, qword ptr [eax]
0062DC94 96 xchg eax, esi
0062DC95 E162 loope +$62
0062DC97 0096E1620096 add [esi+$960062E1], dl
0062DC9D E162 loope +$62
0062DC9F 0096E1620096 add [esi+$960062E1], dl
0062DCA5 E162 loope +$62
0062DCA7 0096E1620096 add [esi+$960062E1], dl
0062DCAD E162 loope +$62
0062DCAF 0096E1620096 add [esi+$960062E1], dl
0062DCB5 E162 loope +$62
0062DCB7 0096E1620096 add [esi+$960062E1], dl
0062DCBD E162 loope +$62
0062DCBF 0096E1620096 add [esi+$960062E1], dl
0062DCC5 E162 loope +$62
0062DCC7 0036 add [esi], dh
0062DCC9 DD6200 frstor ???? ptr [edx+$00]
0062DCCC 96 xchg eax, esi
0062DCCD E162 loope +$62
0062DCCF 0096E1620096 add [esi+$960062E1], dl
0062DCD5 E162 loope +$62
0062DCD7 0096E1620096 add [esi+$960062E1], dl
0062DCDD E162 loope +$62
0062DCDF 00D2 add dl, dl
0062DCE1 DD6200 frstor ???? ptr [edx+$00]
0062DCE4 E2DD loop -$23
0062DCE6 6200 bound eax, qword ptr [eax]
0062DCE8 F2 repne
0062DCE9 DD6200 frstor ???? ptr [edx+$00]
0062DCEC 02DE add bl, dh
0062DCEE 6200 bound eax, qword ptr [eax]
0062DCF0 83F842 cmp eax, +$42
0062DCF3 7F1E jnle 0062DD13
0062DCF5 0F8417010000 jz 0062DE12
0062DCFB 83E826 sub eax, +$26
0062DCFE 0F8486000000 jz 0062DD8A
0062DD04 48 dec eax
0062DD05 745F jz 0062DD66
0062DD07 48 dec eax
0062DD08 0F84A0000000 jz 0062DDAE
0062DD0E E983040000 jmp 0062E196
0062DD13 83E876 sub eax, +$76
0062DD16 0F841A010000 jz 0062DE36
0062DD1C 48 dec eax
0062DD1D 0F841F010000 jz 0062DE42
0062DD23 E96E040000 jmp 0062E196
0062DD28 8BD6 mov edx, esi
0062DD2A 8BC6 mov eax, esi
* Reference to : TFrmGxt.ImageDblClick()
|
0062DD2C E8BF190000 call 0062F6F0
0062DD31 E960040000 jmp 0062E196
0062DD36 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0062DD38 E87F83E2FF call 004560BC
0062DD3D E954040000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DD42 8B86E8040000 mov eax, [esi+$04E8]
0062DD48 80785C00 cmp byte ptr [eax+$5C], $00
0062DD4C 750E jnz 0062DD5C
0062DD4E 33C9 xor ecx, ecx
0062DD50 B201 mov dl, $01
* Reference to: Unit_007524C4.Proc_00757198
|
0062DD52 E841941200 call 00757198
0062DD57 E93A040000 jmp 0062E196
* Reference to: Unit_007524C4.Proc_00757070
|
0062DD5C E80F931200 call 00757070
0062DD61 E930040000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DD66 8B86E8040000 mov eax, [esi+$04E8]
0062DD6C 80785C00 cmp byte ptr [eax+$5C], $00
0062DD70 750E jnz 0062DD80
0062DD72 B101 mov cl, $01
0062DD74 B201 mov dl, $01
* Reference to: Unit_007524C4.Proc_00757198
|
0062DD76 E81D941200 call 00757198
0062DD7B E916040000 jmp 0062E196
* Reference to: Unit_007524C4.Proc_007570B8
|
0062DD80 E833931200 call 007570B8
0062DD85 E90C040000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DD8A 8B86E8040000 mov eax, [esi+$04E8]
0062DD90 80785C00 cmp byte ptr [eax+$5C], $00
0062DD94 750E jnz 0062DDA4
0062DD96 B102 mov cl, $02
0062DD98 B201 mov dl, $01
* Reference to: Unit_007524C4.Proc_00757198
|
0062DD9A E8F9931200 call 00757198
0062DD9F E9F2030000 jmp 0062E196
* Reference to: Unit_007524C4.Proc_00757104
|
0062DDA4 E85B931200 call 00757104
0062DDA9 E9E8030000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DDAE 8B86E8040000 mov eax, [esi+$04E8]
0062DDB4 80785C00 cmp byte ptr [eax+$5C], $00
0062DDB8 750E jnz 0062DDC8
0062DDBA B103 mov cl, $03
0062DDBC B201 mov dl, $01
* Reference to: Unit_007524C4.Proc_00757198
|
0062DDBE E8D5931200 call 00757198
0062DDC3 E9CE030000 jmp 0062E196
* Reference to: Unit_007524C4.Proc_0075714C
|
0062DDC8 E87F931200 call 0075714C
0062DDCD E9C4030000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DDD2 8B86E8040000 mov eax, [esi+$04E8]
* Reference to: Unit_007524C4.Proc_00755538
|
0062DDD8 E85B771200 call 00755538
0062DDDD E9B4030000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DDE2 8B86E8040000 mov eax, [esi+$04E8]
* Reference to: Unit_007524C4.Proc_0075556C
|
0062DDE8 E87F771200 call 0075556C
0062DDED E9A4030000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DDF2 8B86E8040000 mov eax, [esi+$04E8]
* Reference to: Unit_007524C4.Proc_00754B8C
|
0062DDF8 E88F6D1200 call 00754B8C
0062DDFD E994030000 jmp 0062E196
* Reference to field TFrmGxt.OFFS_04E8
|
0062DE02 8B86E8040000 mov eax, [esi+$04E8]
* Reference to: Unit_007524C4.Proc_00754B98
|
0062DE08 E88B6D1200 call 00754B98
0062DE0D E984030000 jmp 0062E196
0062DE12 F6450804 test byte ptr [ebp+$08], $04
0062DE16 0F847A030000 jz 0062E196
0062DE1C B928000000 mov ecx, $00000028
0062DE21 BA3C000000 mov edx, $0000003C
* Reference to control TFrmGxt.PopupMenu : TPopupMenu
|
0062DE26 8B86BC040000 mov eax, [esi+$04BC]
0062DE2C 8B18 mov ebx, [eax]
* Reference to method TPopupMenu.Popup(Integer,Integer)
|
0062DE2E FF5340 call dword ptr [ebx+$40]
0062DE31 E960030000 jmp 0062E196
0062DE36 8BC6 mov eax, esi
* Reference to : TFrmGxt._PROC_0062C970()
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -