📄 fund.pas
字号:
unit Fund;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmFund=class(TForm)
PaintBox1: TPaintBox;
PanelJGHQ: TPanel;
PaintBoxJG: TPaintBox;
PanelWeb: TPanel;
EmbeddedWB1: TEmbeddedWB;
Image1: TImage;
Panel1: TPanel;
PaintBox3: TPaintBox;
FatScrollBar1: TFatScrollBar;
TabSet1: TTabSet;
OFFS_03C0: N.A.;
OFFS_03BC: N.A.;
OFFS_0364: N.A.;
OFFS_0365: N.A.;
OFFS_03AC: N.A.;
OFFS_03B0: N.A.;
OFFS_03B4: N.A.;
OFFS_03B8: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure PaintBoxJGPaint(Sender : TObject);
procedure PaintBoxJGMouseDown(Sender : TObject);
procedure PaintBoxJGDblClick(Sender : TObject);
procedure Image1Click(Sender : TObject);
procedure PaintBox3Paint(Sender : TObject);
procedure PaintBox3MouseDown(Sender : TObject);
procedure PaintBox3MouseUp(Sender : TObject);
procedure TabSet1Change(Sender : TObject);
procedure _PROC_0069C1F4(Sender : TObject);
procedure _PROC_0069C328(Sender : TObject);
procedure _PROC_0069C5F5(Sender : TObject);
procedure _PROC_0069C608(Sender : TObject);
procedure _PROC_0069C906(Sender : TObject);
procedure _PROC_0069C920(Sender : TObject);
procedure _PROC_0069CC4C(Sender : TObject);
procedure _PROC_0069CC55(Sender : TObject);
procedure _PROC_0069CED5(Sender : TObject);
procedure _PROC_0069D1FD(Sender : TObject);
procedure _PROC_0069D34C(Sender : TObject);
procedure _PROC_0069D6BC(Sender : TObject);
procedure _PROC_0069D7D4(Sender : TObject);
procedure _PROC_0069D854(Sender : TObject);
procedure _PROC_0069DDC6(Sender : TObject);
procedure _PROC_0069DDE0(Sender : TObject);
procedure _PROC_0069E0EC(Sender : TObject);
procedure _PROC_0069E938(Sender : TObject);
procedure _PROC_0069EA84(Sender : TObject);
procedure _PROC_0069EA98(Sender : TObject);
procedure _PROC_0069EAA0(Sender : TObject);
procedure _PROC_0069EAA4(Sender : TObject);
procedure _PROC_0069EAB8(Sender : TObject);
procedure _PROC_0069EAE0(Sender : TObject);
procedure _PROC_0069EB34(Sender : TObject);
procedure _PROC_0069EB50(Sender : TObject);
procedure _PROC_0069EBEC(Sender : TObject);
procedure _PROC_0069EC1C(Sender : TObject);
procedure Proc_0069C91C(Sender : TObject);
procedure Proc_0069C5E4(Sender : TObject);
procedure Proc_0069C8F5(Sender : TObject);
procedure Proc_0069CED4(Sender : TObject);
procedure Proc_0069CC54(Sender : TObject);
procedure Proc_0069D1FC(Sender : TObject);
procedure Proc_0069C0C0(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmFund: TfrmFund;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmFund.FormCreate(Sender : TObject);
begin
(*
0069D52C 53 push ebx
0069D52D 56 push esi
0069D52E 57 push edi
0069D52F 83C4F0 add esp, -$10
0069D532 8BD8 mov ebx, eax
0069D534 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_0388
|
0069D536 898388030000 mov [ebx+$0388], eax
* Reference to field TfrmFund.OFFS_03C0 : String
|
0069D53C 8D83C0030000 lea eax, [ebx+$03C0]
* Reference to: system.@LStrClr(String;String);
|
0069D542 E8AD6BD6FF call 004040F4
* Reference to field TfrmFund.OFFS_03BC : String
|
0069D547 8D83BC030000 lea eax, [ebx+$03BC]
* Reference to: system.@LStrClr(String;String);
|
0069D54D E8A26BD6FF call 004040F4
0069D552 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_0398
|
0069D554 898398030000 mov [ebx+$0398], eax
0069D55A 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_0390
|
0069D55C 898390030000 mov [ebx+$0390], eax
0069D562 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_038C
|
0069D564 89838C030000 mov [ebx+$038C], eax
0069D56A 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_03A0
|
0069D56C 8983A0030000 mov [ebx+$03A0], eax
0069D572 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_039C
|
0069D574 89839C030000 mov [ebx+$039C], eax
0069D57A 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_03A4
|
0069D57C 8983A4030000 mov [ebx+$03A4], eax
0069D582 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_03AC : Byte
|
0069D584 8983AC030000 mov [ebx+$03AC], eax
0069D58A 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_03B0 : Byte
|
0069D58C 8983B0030000 mov [ebx+$03B0], eax
* Reference to field TfrmFund.OFFS_03BC : String
|
0069D592 8D83BC030000 lea eax, [ebx+$03BC]
0069D598 50 push eax
* Reference to field TfrmFund.OFFS_03C0 : String
|
0069D599 8D8BC0030000 lea ecx, [ebx+$03C0]
0069D59F A1A8D37700 mov eax, dword ptr [$0077D3A8]
0069D5A4 8B00 mov eax, [eax]
0069D5A6 B205 mov dl, $05
* Reference to: Unit_006035CC.Proc_0060454C
|
0069D5A8 E89F6FF6FF call 0060454C
* Reference to field TfrmFund.OFFS_03C0 : String
|
0069D5AD 8B83C0030000 mov eax, [ebx+$03C0]
* Reference to: Unit_00409434.Proc_0040A8BC
|
0069D5B3 E804D3D6FF call 0040A8BC
0069D5B8 84C0 test al, al
0069D5BA 7424 jz 0069D5E0
0069D5BC B201 mov dl, $01
* Reference to control TfrmFund.Image1 : TImage
|
0069D5BE 8B834C030000 mov eax, [ebx+$034C]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
0069D5C4 E89FC3D9FF call 00439968
* Reference to control TfrmFund.Image1 : TImage
|
0069D5C9 8B834C030000 mov eax, [ebx+$034C]
* Reference to field TImage.Picture : TPicture
|
0069D5CF 8B8028010000 mov eax, [eax+$0128]
* Reference to field TfrmFund.OFFS_03C0 : String
|
0069D5D5 8B93C0030000 mov edx, [ebx+$03C0]
* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
0069D5DB E87041D8FF call 00421750
0069D5E0 B20F mov dl, $0F
0069D5E2 8BC3 mov eax, ebx
* Reference to: HJForm.Proc_00750F8C
|
0069D5E4 E8A3390B00 call 00750F8C
0069D5E9 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_0360
|
0069D5EB 898360030000 mov [ebx+$0360], eax
0069D5F1 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_03A8
|
0069D5F3 8983A8030000 mov [ebx+$03A8], eax
0069D5F9 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_037C
|
0069D5FB 89837C030000 mov [ebx+$037C], eax
0069D601 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_0380
|
0069D603 898380030000 mov [ebx+$0380], eax
0069D609 33C0 xor eax, eax
* Reference to field TfrmFund.OFFS_0384
|
0069D60B 898384030000 mov [ebx+$0384], eax
* Reference to control TfrmFund.PanelWeb : TPanel
|
0069D611 8B8344030000 mov eax, [ebx+$0344]
0069D617 50 push eax
* Reference to control TfrmFund.PanelJGHQ : TPanel
|
0069D618 8B833C030000 mov eax, [ebx+$033C]
0069D61E 50 push eax
* Reference to control TfrmFund.EmbeddedWB1 : TEmbeddedWB
|
0069D61F 8B8348030000 mov eax, [ebx+$0348]
0069D625 50 push eax
0069D626 B101 mov cl, $01
0069D628 B201 mov dl, $01
* Reference to class TWorkBench
|
0069D62A A124EC6900 mov eax, dword ptr [$0069EC24]
* Reference to: Unit_0069EC24.Proc_0069ECB0
|
0069D62F E87C160000 call 0069ECB0
0069D634 8BF0 mov esi, eax
* Reference to field TfrmFund.OFFS_0370
|
0069D636 89B370030000 mov [ebx+$0370], esi
* Reference to control TfrmFund.PaintBox1 : TPaintBox
|
0069D63C 8B8B38030000 mov ecx, [ebx+$0338]
0069D642 8BD3 mov edx, ebx
0069D644 8BC6 mov eax, esi
* Reference to: Unit_0069EC24.Proc_0069F1DC
|
0069D646 E8911B0000 call 0069F1DC
0069D64B 8BC3 mov eax, ebx
* Reference to : TfrmFund._PROC_0069D34C()
|
0069D64D E8FAFCFFFF call 0069D34C
0069D652 8BD4 mov edx, esp
* Reference to control TfrmFund.PaintBox3 : TPaintBox
|
0069D654 8BBB54030000 mov edi, [ebx+$0354]
0069D65A 8BC7 mov eax, edi
0069D65C 8B08 mov ecx, [eax]
* Reference to method TPaintBox.GetClientRect()
|
0069D65E FF5140 call dword ptr [ecx+$40]
0069D661 54 push esp
0069D662 8B8F20010000 mov ecx, [edi+$0120]
0069D668 B201 mov dl, $01
* Reference to class TDZHUpDown
|
0069D66A A1AC3D5B00 mov eax, dword ptr [$005B3DAC]
* Reference to: Unit_005B3DAC.Proc_005B3E04
|
0069D66F E89067F1FF call 005B3E04
0069D674 8BF0 mov esi, eax
* Reference to field TfrmFund.OFFS_03CC
|
0069D676 89B3CC030000 mov [ebx+$03CC], esi
* Reference to field TDZHUpDown.OFFS_0024
|
0069D67C 895E24 mov [esi+$24], ebx
* Reference to field TDZHUpDown.OFFS_0020
|
0069D67F C7462050EB6900 mov dword ptr [esi+$20], $0069EB50
* Reference to field TDZHUpDown.OFFS_002C
|
0069D686 895E2C mov [esi+$2C], ebx
* Reference to field TDZHUpDown.OFFS_0028
|
0069D689 C7462834EB6900 mov dword ptr [esi+$28], $0069EB34
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -