📄 jphis.pas
字号:
unit JPHis;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmJPHis=class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
ListBox1: TListBox;
Label2: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure AHListBox1Click(Sender : TObject);
procedure ListBox1MeasureItem(Sender : TObject);
procedure ListBox1DrawItem(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure _PROC_006B3959(Sender : TObject);
procedure _PROC_006B3DAC(Sender : TObject);
procedure _PROC_006B3DDC(Sender : TObject);
procedure Proc_006B3804(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmJPHis: TfrmJPHis;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmJPHis.AHListBox1Click(Sender : TObject);
begin
(*
006B3A88 55 push ebp
006B3A89 8BEC mov ebp, esp
006B3A8B 6A00 push $00
006B3A8D 53 push ebx
006B3A8E 8BD8 mov ebx, eax
006B3A90 33C0 xor eax, eax
006B3A92 55 push ebp
006B3A93 68FB3A6B00 push $006B3AFB
***** TRY
|
006B3A98 64FF30 push dword ptr fs:[eax]
006B3A9B 648920 mov fs:[eax], esp
* Reference to control TfrmJPHis.ListBox1 : TListBox
|
006B3A9E 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: stdctrls.TCustomListBox.GetItemIndex(TCustomListBox):Integer;
|
006B3AA4 E8C3F1D7FF call 00432C6C
006B3AA9 40 inc eax
006B3AAA 7439 jz 006B3AE5
* Reference to control TfrmJPHis.Memo1 : TMemo
|
006B3AAC 8B83D8020000 mov eax, [ebx+$02D8]
006B3AB2 8B10 mov edx, [eax]
* Reference to method TMemo.Clear()
|
006B3AB4 FF92CC000000 call dword ptr [edx+$00CC]
* Reference to control TfrmJPHis.ListBox1 : TListBox
|
006B3ABA 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: stdctrls.TCustomListBox.GetItemIndex(TCustomListBox):Integer;
|
006B3AC0 E8A7F1D7FF call 00432C6C
006B3AC5 8BD0 mov edx, eax
006B3AC7 8D4DFC lea ecx, [ebp-$04]
006B3ACA 8BC3 mov eax, ebx
* Reference to : TfrmJPHis.Proc_006B3804()
|
006B3ACC E833FDFFFF call 006B3804
006B3AD1 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmJPHis.Memo1 : TMemo
|
006B3AD4 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to field TMemo.Lines : TStrings
|
006B3ADA 8B8008020000 mov eax, [eax+$0208]
006B3AE0 8B08 mov ecx, [eax]
* Reference to method TStrings.Add(string)
|
006B3AE2 FF5134 call dword ptr [ecx+$34]
006B3AE5 33C0 xor eax, eax
006B3AE7 5A pop edx
006B3AE8 59 pop ecx
006B3AE9 59 pop ecx
006B3AEA 648910 mov fs:[eax], edx
****** FINALLY
|
006B3AED 68023B6B00 push $006B3B02
006B3AF2 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006B3AF5 E8FA05D5FF call 004040F4
006B3AFA C3 ret
* Reference to: system.@HandleFinally;
|
006B3AFB E92CFFD4FF jmp 00403A2C
006B3B00 EBF0 jmp 006B3AF2
****** END
|
006B3B02 5B pop ebx
006B3B03 59 pop ecx
006B3B04 5D pop ebp
006B3B05 C3 ret
*)
end;
procedure TfrmJPHis.ListBox1MeasureItem(Sender : TObject);
begin
(*
006B3B08 55 push ebp
006B3B09 8BEC mov ebp, esp
006B3B0B 8B4508 mov eax, [ebp+$08]
006B3B0E C7001C000000 mov dword ptr [eax], $0000001C
006B3B14 5D pop ebp
006B3B15 C20400 ret $0004
*)
end;
procedure TfrmJPHis.ListBox1DrawItem(Sender : TObject);
begin
(*
006B3B18 55 push ebp
006B3B19 8BEC mov ebp, esp
006B3B1B 83C4D8 add esp, -$28
006B3B1E 53 push ebx
006B3B1F 56 push esi
006B3B20 57 push edi
006B3B21 33DB xor ebx, ebx
006B3B23 895DF8 mov [ebp-$08], ebx
006B3B26 8B750C mov esi, [ebp+$0C]
006B3B29 8D7DE8 lea edi, [ebp-$18]
006B3B2C 51 push ecx
006B3B2D B904000000 mov ecx, $00000004
006B3B32 F3 rep
006B3B33 A5 movsd
006B3B34 59 pop ecx
006B3B35 894DFC mov [ebp-$04], ecx
006B3B38 8BF0 mov esi, eax
006B3B3A 33C0 xor eax, eax
006B3B3C 55 push ebp
006B3B3D 68783C6B00 push $006B3C78
***** TRY
|
006B3B42 64FF30 push dword ptr fs:[eax]
006B3B45 648920 mov fs:[eax], esp
006B3B48 56 push esi
006B3B49 8D75E8 lea esi, [ebp-$18]
006B3B4C 8D7DD8 lea edi, [ebp-$28]
006B3B4F B904000000 mov ecx, $00000004
006B3B54 F3 rep
006B3B55 A5 movsd
006B3B56 5E pop esi
* Reference to control StopButton : N.A.
|
006B3B57 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field N.A..OFFS_01F8
|
006B3B5D 8B98F8010000 mov ebx, [eax+$01F8]
006B3B63 BAFFFFFF00 mov edx, $00FFFFFF
006B3B68 8B4310 mov eax, [ebx+$10]
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
006B3B6B E838A8D6FF call 0041E3A8
006B3B70 33D2 xor edx, edx
006B3B72 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
006B3B75 E842A3D6FF call 0041DEBC
* Possible String Reference to: '宋体'
|
006B3B7A BA903C6B00 mov edx, $006B3C90
006B3B7F 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
006B3B82 E85DA5D6FF call 0041E0E4
006B3B87 BA0A000000 mov edx, $0000000A
006B3B8C 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
006B3B8F E8C8A5D6FF call 0041E15C
006B3B94 F6450801 test byte ptr [ebp+$08], $01
006B3B98 747C jz 006B3C16
006B3B9A 6A0C push $0C
006B3B9C 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006B3B9E E87DFFD9FF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006B3BA3 E8A0B8D6FF call 0041F448
006B3BA8 50 push eax
* Reference to: gdi32.GetDeviceCaps()
|
006B3BA9 E8B249D5FF call 00408560
006B3BAE 83F810 cmp eax, +$10
006B3BB1 7D0D jnl 006B3BC0
006B3BB3 BAFFFFFF00 mov edx, $00FFFFFF
006B3BB8 8B430C mov eax, [ebx+$0C]
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
006B3BBB E8FCA2D6FF call 0041DEBC
* Reference to control StopButton : N.A.
|
006B3BC0 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field N.A..OFFS_01F8
|
006B3BC6 8B80F8010000 mov eax, [eax+$01F8]
006B3BCC 8B4010 mov eax, [eax+$10]
006B3BCF BA0D000080 mov edx, $8000000D
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
006B3BD4 E8CFA7D6FF call 0041E3A8
* Reference to control StopButton : N.A.
|
006B3BD9 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field N.A..OFFS_01F8
|
006B3BDF 8BB8F8010000 mov edi, [eax+$01F8]
006B3BE5 8BC7 mov eax, edi
006B3BE7 B944000000 mov ecx, $00000044
006B3BEC BA0D000080 mov edx, $8000000D
* Reference to: Unit_005636A4.Proc_00563738
|
006B3BF1 E842FBEAFF call 00563738
006B3BF6 8BD0 mov edx, eax
006B3BF8 8B4714 mov eax, [edi+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
006B3BFB E8B8AAD6FF call 0041E6B8
006B3C00 8D55E8 lea edx, [ebp-$18]
* Reference to control StopButton : N.A.
|
006B3C03 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field N.A..OFFS_01F8
|
006B3C09 8B80F8010000 mov eax, [eax+$01F8]
* Reference to: graphics.TCanvas.Ellipse(TCanvas;TRect;TRect);overload;
|
006B3C0F E828B4D6FF call 0041F03C
006B3C14 EB17 jmp 006B3C2D
006B3C16 BAFFFFFF00 mov edx, $00FFFFFF
006B3C1B 8B4314 mov eax, [ebx+$14]
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
006B3C1E E895AAD6FF call 0041E6B8
006B3C23 8D55E8 lea edx, [ebp-$18]
006B3C26 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.Ellipse(TCanvas;TRect;TRect);overload;
|
006B3C28 E80FB4D6FF call 0041F03C
006B3C2D 8D4DF8 lea ecx, [ebp-$08]
* Reference to control StopButton : N.A.
|
006B3C30 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field N.A..OFFS_01F0
|
006B3C36 8B80F0010000 mov eax, [eax+$01F0]
006B3C3C 8B55FC mov edx, [ebp-$04]
006B3C3F 8B30 mov esi, [eax]
006B3C41 FF560C call dword ptr [esi+$0C]
006B3C44 B201 mov dl, $01
006B3C46 8B4314 mov eax, [ebx+$14]
* Reference to: graphics.TBrush.SetStyle(TBrush;TBrushStyle);
|
006B3C49 E8AAABD6FF call 0041E7F8
006B3C4E 8B45F8 mov eax, [ebp-$08]
006B3C51 50 push eax
006B3C52 8B4DDC mov ecx, [ebp-$24]
006B3C55 83C102 add ecx, +$02
006B3C58 8B55D8 mov edx, [ebp-$28]
006B3C5B 8BC3 mov eax, ebx
* Reference to: graphics.TCanvas.TextOut(TCanvas;Integer;Integer;AnsiString);
|
006B3C5D E8AEB4D6FF call 0041F110
006B3C62 33C0 xor eax, eax
006B3C64 5A pop edx
006B3C65 59 pop ecx
006B3C66 59 pop ecx
006B3C67 648910 mov fs:[eax], edx
****** FINALLY
|
006B3C6A 687F3C6B00 push $006B3C7F
006B3C6F 8D45F8 lea eax, [ebp-$08]
* Reference to: system.@LStrClr(String;String);
|
006B3C72 E87D04D5FF call 004040F4
006B3C77 C3 ret
* Reference to: system.@HandleFinally;
|
006B3C78 E9AFFDD4FF jmp 00403A2C
006B3C7D EBF0 jmp 006B3C6F
****** END
|
006B3C7F 5F pop edi
006B3C80 5E pop esi
006B3C81 5B pop ebx
006B3C82 8BE5 mov esp, ebp
006B3C84 5D pop ebp
006B3C85 C20800 ret $0008
*)
end;
procedure TfrmJPHis.Button1Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B3C98 E81F24DAFF call 004560BC
006B3C9D C3 ret
*)
end;
procedure TfrmJPHis.FormClose(Sender : TObject);
begin
(*
006B3CA0 C60102 mov byte ptr [ecx], $02
006B3CA3 C3 ret
*)
end;
procedure TfrmJPHis.FormDestroy(Sender : TObject);
begin
(*
006B3CA4 53 push ebx
006B3CA5 8BD8 mov ebx, eax
006B3CA7 A1D0D47700 mov eax, dword ptr [$0077D4D0]
006B3CAC 33D2 xor edx, edx
006B3CAE 8910 mov [eax], edx
* Reference to control TfrmJPHis.CheckBox1 : TCheckBox
|
006B3CB0 8B83E8020000 mov eax, [ebx+$02E8]
006B3CB6 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006B3CB8 FF92B4000000 call dword ptr [edx+$00B4]
006B3CBE 84C0 test al, al
006B3CC0 7410 jz 006B3CD2
* Reference to THJ32Main instance
|
006B3CC2 A158D37700 mov eax, dword ptr [$0077D358]
006B3CC7 8B00 mov eax, [eax]
* Reference to field THJ32Main.OFFS_08B4 : Byte
|
006B3CC9 C680B408000000 mov byte ptr [eax+$08B4], $00
006B3CD0 EB0E jmp 006B3CE0
* Reference to THJ32Main instance
|
006B3CD2 A158D37700 mov eax, dword ptr [$0077D358]
006B3CD7 8B00 mov eax, [eax]
* Reference to field THJ32Main.OFFS_08B4 : Byte
|
006B3CD9 C680B408000001 mov byte ptr [eax+$08B4], $01
* Reference to control TfrmJPHis.CheckBox2 : TCheckBox
|
006B3CE0 8B83EC020000 mov eax, [ebx+$02EC]
006B3CE6 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006B3CE8 FF92B4000000 call dword ptr [edx+$00B4]
006B3CEE 84C0 test al, al
006B3CF0 7410 jz 006B3D02
* Reference to THJ32Main instance
|
006B3CF2 A158D37700 mov eax, dword ptr [$0077D358]
006B3CF7 8B00 mov eax, [eax]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -