📄 jerect.pas
字号:
unit JERect;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmJE=class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Bevel1: TBevel;
StatusBar1: TStatusBar;
RxGradientCaption1: TRxGradientCaption;
OFFS_031C: N.A.;
OFFS_031D: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormPaint(Sender : TObject);
procedure FormMouseDown(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure MaskEdit1Exit(Sender : TObject);
procedure MaskEdit2Exit(Sender : TObject);
procedure Label5Click(Sender : TObject);
procedure Label4Click(Sender : TObject);
procedure _PROC_00635C24(Sender : TObject);
procedure _PROC_006361AC(Sender : TObject);
procedure _PROC_00636268(Sender : TObject);
procedure _PROC_00636ABC(Sender : TObject);
procedure _PROC_00636AEC(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmJE: TfrmJE;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmJE.FormCreate(Sender : TObject);
begin
(*
00635B64 53 push ebx
00635B65 56 push esi
00635B66 57 push edi
00635B67 55 push ebp
00635B68 8BF0 mov esi, eax
00635B6A 33C9 xor ecx, ecx
00635B6C BBB0A57700 mov ebx, $0077A5B0
00635B71 33D2 xor edx, edx
00635B73 8BC3 mov eax, ebx
00635B75 8D3CC9 lea edi, [ecx+ecx*8]
00635B78 8D3CBE lea edi, [esi+edi*4]
00635B7B 8B28 mov ebp, [eax]
00635B7D 89AC9720030000 mov [edi+edx*4+$0320], ebp
00635B84 42 inc edx
00635B85 83C004 add eax, +$04
00635B88 83FA09 cmp edx, +$09
00635B8B 75E8 jnz 00635B75
00635B8D 41 inc ecx
00635B8E 83C324 add ebx, +$24
00635B91 83F909 cmp ecx, +$09
00635B94 75DB jnz 00635B71
* Reference to field TfrmJE.OFFS_031C : Byte
|
00635B96 C6861C03000000 mov byte ptr [esi+$031C], $00
* Reference to field TfrmJE.OFFS_031D : Byte
|
00635B9D C6861D03000000 mov byte ptr [esi+$031D], $00
* Reference to field TfrmJE.OFFS_02FC
|
00635BA4 C786FC02000009000000 mov dword ptr [esi+$02FC], $00000009
* Reference to field TfrmJE.OFFS_0300
|
00635BAE C786000300001E000000 mov dword ptr [esi+$0300], $0000001E
* Reference to field TfrmJE.OFFS_0304
|
00635BB8 C7860403000004000000 mov dword ptr [esi+$0304], $00000004
* Reference to field TfrmJE.OFFS_0308
|
00635BC2 C786080300001E000000 mov dword ptr [esi+$0308], $0000001E
* Reference to field TfrmJE.OFFS_02FC
|
00635BCC 8B86FC020000 mov eax, [esi+$02FC]
00635BD2 D1F8 sar eax, 1
00635BD4 7903 jns 00635BD9
00635BD6 83D000 adc eax, +$00
* Reference to field TfrmJE.OFFS_030C
|
00635BD9 89860C030000 mov [esi+$030C], eax
* Reference to field TfrmJE.OFFS_02FC
|
00635BDF 8B86FC020000 mov eax, [esi+$02FC]
00635BE5 D1F8 sar eax, 1
00635BE7 7903 jns 00635BEC
00635BE9 83D000 adc eax, +$00
* Reference to field TfrmJE.OFFS_0310
|
00635BEC 898610030000 mov [esi+$0310], eax
* Reference to field TfrmJE.OFFS_0300
|
00635BF2 8B9600030000 mov edx, [esi+$0300]
00635BF8 0FAF96FC020000 imul edx, [esi+$02FC]
* Reference to field TfrmJE.OFFS_0304
|
00635BFF 8B8604030000 mov eax, [esi+$0304]
00635C05 03C0 add eax, eax
00635C07 03D0 add edx, eax
00635C09 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.SetClientWidth(TCustomForm;Integer);
|
00635C0B E834D4E1FF call 00453044
00635C10 6800009040 push $40900000
00635C15 8BC6 mov eax, esi
* Reference to : TfrmJE._PROC_00635C24()
|
00635C17 E808000000 call 00635C24
00635C1C 5D pop ebp
00635C1D 5F pop edi
00635C1E 5E pop esi
00635C1F 5B pop ebx
00635C20 C3 ret
*)
end;
procedure TfrmJE.FormPaint(Sender : TObject);
begin
(*
00635D84 55 push ebp
00635D85 8BEC mov ebp, esp
00635D87 83C4D0 add esp, -$30
00635D8A 53 push ebx
00635D8B 56 push esi
00635D8C 57 push edi
00635D8D 33C9 xor ecx, ecx
00635D8F 894DF0 mov [ebp-$10], ecx
00635D92 8BD8 mov ebx, eax
00635D94 33C0 xor eax, eax
00635D96 55 push ebp
00635D97 689E616300 push $0063619E
***** TRY
|
00635D9C 64FF30 push dword ptr fs:[eax]
00635D9F 648920 mov fs:[eax], esp
00635DA2 6A01 push $01
00635DA4 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00635DA6 E875DDE1FF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00635DAB E89896DEFF call 0041F448
00635DB0 50 push eax
* Reference to: gdi32.SetBkMode()
|
00635DB1 E83229DDFF call 004086E8
00635DB6 6A06 push $06
00635DB8 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00635DBA E861DDE1FF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00635DBF E88496DEFF call 0041F448
00635DC4 50 push eax
* Reference to: gdi32.SetTextAlign()
|
00635DC5 E85E29DDFF call 00408728
00635DCA 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00635DCC E84FDDE1FF call 00453B20
* Reference to field TfrmJE.Tag : Longint
|
00635DD1 8B400C mov eax, [eax+$0C]
00635DD4 BA10000000 mov edx, $00000010
* Reference to: graphics.TFont.SetHeight(TFont;Integer);
|
00635DD9 E8C682DEFF call 0041E0A4
00635DDE 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00635DE0 E83BDDE1FF call 00453B20
* Reference to field TfrmJE.Tag : Longint
|
00635DE5 8B400C mov eax, [eax+$0C]
* Reference to: graphics.TFont.GetStyle(TFont):TFontStyles;
|
00635DE8 E88F83DEFF call 0041E17C
00635DED 0A05AC616300 or al, byte ptr [$006361AC]
00635DF3 50 push eax
00635DF4 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00635DF6 E825DDE1FF call 00453B20
* Reference to field TfrmJE.Tag : Longint
|
00635DFB 8B400C mov eax, [eax+$0C]
00635DFE 5A pop edx
* Reference to: graphics.TFont.SetStyle(TFont;TFontStyles);
|
00635DFF E88483DEFF call 0041E188
* Reference to field TfrmJE.OFFS_02FC
|
00635E04 8B83FC020000 mov eax, [ebx+$02FC]
00635E0A 48 dec eax
00635E0B 85C0 test eax, eax
00635E0D 0F8C75030000 jl 00636188
00635E13 40 inc eax
00635E14 8945E4 mov [ebp-$1C], eax
00635E17 C745FC00000000 mov dword ptr [ebp-$04], $00000000
* Reference to field TfrmJE.OFFS_02FC
|
00635E1E 8B83FC020000 mov eax, [ebx+$02FC]
00635E24 48 dec eax
00635E25 85C0 test eax, eax
00635E27 0F8C4F030000 jl 0063617C
00635E2D 40 inc eax
00635E2E 8945E0 mov [ebp-$20], eax
00635E31 C745F800000000 mov dword ptr [ebp-$08], $00000000
00635E38 8B7DFC mov edi, [ebp-$04]
* Reference to field TfrmJE.OFFS_0300
|
00635E3B 8B8300030000 mov eax, [ebx+$0300]
00635E41 0FAFF8 imul edi, eax
00635E44 03BB04030000 add edi, [ebx+$0304]
00635E4A 8B55F8 mov edx, [ebp-$08]
00635E4D 0FAFD0 imul edx, eax
00635E50 039308030000 add edx, [ebx+$0308]
00635E56 8955F4 mov [ebp-$0C], edx
00635E59 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00635E5B E8C0DCE1FF call 00453B20
00635E60 8BF0 mov esi, eax
* Reference to field TfrmJE.OFFS_030C
|
00635E62 8B830C030000 mov eax, [ebx+$030C]
00635E68 3B45FC cmp eax, [ebp-$04]
00635E6B 750F jnz 00635E7C
* Reference to field TfrmJE.OFFS_0310
|
00635E6D 8B8310030000 mov eax, [ebx+$0310]
00635E73 3B45F8 cmp eax, [ebp-$08]
00635E76 0F84AE000000 jz 00635F2A
00635E7C BAFFFFFF00 mov edx, $00FFFFFF
* Reference to field TfrmJE.OFFS_0010
|
00635E81 8B4610 mov eax, [esi+$10]
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
00635E84 E81F85DEFF call 0041E3A8
00635E89 8B4DF4 mov ecx, [ebp-$0C]
00635E8C 8BD7 mov edx, edi
00635E8E 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.MoveTo(TCanvas;Integer;Integer);
|
00635E90 E86B90DEFF call 0041EF00
* Reference to field TfrmJE.OFFS_0300
|
00635E95 8B9300030000 mov edx, [ebx+$0300]
00635E9B 03D7 add edx, edi
00635E9D 8B4DF4 mov ecx, [ebp-$0C]
00635EA0 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.LineTo(TCanvas;Integer;Integer);
|
00635EA2 E8F98FDEFF call 0041EEA0
00635EA7 8B4DF4 mov ecx, [ebp-$0C]
00635EAA 8BD7 mov edx, edi
00635EAC 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.MoveTo(TCanvas;Integer;Integer);
|
00635EAE E84D90DEFF call 0041EF00
00635EB3 8B4DF4 mov ecx, [ebp-$0C]
00635EB6 038B00030000 add ecx, [ebx+$0300]
00635EBC 8BD7 mov edx, edi
00635EBE 8BC6 mov eax, esi
* Reference to: graphics.TCanvas.LineTo(TCanvas;Integer;Integer);
|
00635EC0 E8DB8FDEFF call 0041EEA0
00635EC5 33D2 xor edx, edx
* Reference to field TfrmJE.OFFS_0010
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -