📄 hqscroll.pas
字号:
unit HQScroll;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmHQScroll=class(TForm)
PaintBox1: TPaintBox;
Timer1: TTimer;
Bevel1: TBevel;
Bevel2: TBevel;
Timer2: TTimer;
KeyboardHook1: TKeyboardHook;
FormStorage1: TFormStorage;
PaintBox2: TPaintBox;
PaintBox3: TPaintBox;
PaintBox4: TPaintBox;
OFFS_0325: N.A.;
OFFS_030C: N.A.;
OFFS_0324: N.A.;
procedure PaintBox1Paint(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure WMNCHitTest(Sender : TObject);
procedure WMGetMinMaxInfo(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure Image3Click(Sender : TObject);
procedure Timer2Timer(Sender : TObject);
procedure PaintBox1MouseDown(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure KeyboardHook1HookProc(Sender : TObject);
procedure Image2Click(Sender : TObject);
procedure PaintBox1Click(Sender : TObject);
procedure PaintBox2Paint(Sender : TObject);
procedure PaintBox3Paint(Sender : TObject);
procedure PaintBox4Paint(Sender : TObject);
procedure _PROC_006B9BC0(Sender : TObject);
procedure _PROC_006B9C00(Sender : TObject);
procedure _PROC_006B9CDC(Sender : TObject);
procedure _PROC_006B9D7C(Sender : TObject);
procedure _PROC_006B9D90(Sender : TObject);
procedure _PROC_006B9EB8(Sender : TObject);
procedure _PROC_006B9EC9(Sender : TObject);
procedure _PROC_006BA1E0(Sender : TObject);
procedure _PROC_006BA28C(Sender : TObject);
procedure _PROC_006BA330(Sender : TObject);
procedure _PROC_006BA730(Sender : TObject);
procedure _PROC_006BA760(Sender : TObject);
procedure Proc_006B9D8C(Sender : TObject);
procedure Proc_006B9EC8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmHQScroll: TfrmHQScroll;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmHQScroll.PaintBox1Paint(Sender : TObject);
begin
(*
006BA23C 53 push ebx
006BA23D 56 push esi
006BA23E 8BD8 mov ebx, eax
006BA240 682000CC00 push $00CC0020
006BA245 6A00 push $00
* Reference to field TfrmHQScroll.OFFS_02FC
|
006BA247 8B83FC020000 mov eax, [ebx+$02FC]
006BA24D 50 push eax
* Reference to field TfrmHQScroll.OFFS_02F8
|
006BA24E 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006BA254 E8F39FD6FF call 0042424C
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006BA259 E8EA51D6FF call 0041F448
006BA25E 50 push eax
* Reference to control TfrmHQScroll.PaintBox1 : TPaintBox
|
006BA25F 8BB3D0020000 mov esi, [ebx+$02D0]
* Reference to field TPaintBox.Height : Integer
|
006BA265 8B463C mov eax, [esi+$3C]
006BA268 50 push eax
* Reference to field TPaintBox.Width : Integer
|
006BA269 8B4638 mov eax, [esi+$38]
006BA26C 50 push eax
006BA26D 6A00 push $00
006BA26F 6A00 push $00
* Reference to control TfrmHQScroll.PaintBox1 : TPaintBox
|
006BA271 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TPaintBox.Canvas : TCanvas
|
006BA277 8B8020010000 mov eax, [eax+$0120]
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006BA27D E8C651D6FF call 0041F448
006BA282 50 push eax
* Reference to: gdi32.BitBlt()
|
006BA283 E838E1D4FF call 004083C0
006BA288 5E pop esi
006BA289 5B pop ebx
006BA28A C3 ret
*)
end;
procedure TfrmHQScroll.FormCreate(Sender : TObject);
begin
(*
006B9A14 53 push ebx
006B9A15 56 push esi
006B9A16 57 push edi
006B9A17 83C4F0 add esp, -$10
006B9A1A 8BF0 mov esi, eax
* Reference to pointer to GlobalVar_0078CF10
|
006B9A1C 8B3DDCCA7700 mov edi, [$0077CADC]
* Reference to field TfrmHQScroll.OFFS_0325 : Byte
|
006B9A22 C6862503000000 mov byte ptr [esi+$0325], $00
* Reference to field TfrmHQScroll.OFFS_0320
|
006B9A29 C78620030000FFFFFFFF mov dword ptr [esi+$0320], $FFFFFFFF
006B9A33 33C0 xor eax, eax
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9A35 89861C030000 mov [esi+$031C], eax
006B9A3B 6A09 push $09
006B9A3D 6A00 push $00
006B9A3F 33C9 xor ecx, ecx
006B9A41 B201 mov dl, $01
* Reference to class TCmdtSet
|
006B9A43 A1C8057600 mov eax, dword ptr [$007605C8]
* Reference to: Unit_007605C8.Proc_00760620
|
006B9A48 E8D36B0A00 call 00760620
006B9A4D 8BD8 mov ebx, eax
* Reference to field TfrmHQScroll.OFFS_0318
|
006B9A4F 899E18030000 mov [esi+$0318], ebx
* Reference to field TCmdtSet.OFFS_000C
|
006B9A55 66C7430C0000 mov word ptr [ebx+$0C], $0000
006B9A5B 33C0 xor eax, eax
* Reference to field TCmdtSet.OFFS_0010
|
006B9A5D 894310 mov [ebx+$10], eax
* Reference to field TCmdtSet.OFFS_0014
|
006B9A60 C64314FF mov byte ptr [ebx+$14], $FF
006B9A64 8BC3 mov eax, ebx
* Reference to: Unit_007605C8.Proc_00760B90
|
006B9A66 E825710A00 call 00760B90
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9A6B 89861C030000 mov [esi+$031C], eax
006B9A71 33DB xor ebx, ebx
006B9A73 8B07 mov eax, [edi]
006B9A75 8BD3 mov edx, ebx
* Reference to: Unit_00762200.Proc_0076338C
|
006B9A77 E810990A00 call 0076338C
006B9A7C 85C0 test eax, eax
006B9A7E 7427 jz 006B9AA7
006B9A80 8B07 mov eax, [edi]
006B9A82 8BD3 mov edx, ebx
* Reference to: Unit_00762200.Proc_007633F8
|
006B9A84 E86F990A00 call 007633F8
006B9A89 66890424 mov [esp], ax
006B9A8D 8B07 mov eax, [edi]
006B9A8F 8BD3 mov edx, ebx
* Reference to: Unit_00762200.Proc_0076338C
|
006B9A91 E8F6980A00 call 0076338C
006B9A96 89442404 mov [esp+$04], eax
006B9A9A 8BD4 mov edx, esp
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9A9C 8B861C030000 mov eax, [esi+$031C]
* Reference to: Unit_004AC2A8.Proc_004AC384
|
006B9AA2 E8DD28DFFF call 004AC384
006B9AA7 43 inc ebx
006B9AA8 80FB03 cmp bl, $03
006B9AAB 75C6 jnz 006B9A73
* Reference to field TfrmHQScroll.OFFS_031C
|
006B9AAD 8B861C030000 mov eax, [esi+$031C]
006B9AB3 8378081E cmp dword ptr [eax+$08], +$1E
006B9AB7 7E25 jle 006B9ADE
* Reference to field TfrmHQScroll.OFFS_0318
|
006B9AB9 8B9618030000 mov edx, [esi+$0318]
006B9ABF 8B4A10 mov ecx, [edx+$10]
006B9AC2 51 push ecx
006B9AC3 6A00 push $00
006B9AC5 6A1E push $1E
006B9AC7 6A00 push $00
006B9AC9 6A00 push $00
006B9ACB 8A4A14 mov cl, byte ptr [edx+$14]
* Reference to pointer to GlobalVar_0078CF18
|
006B9ACE 8B15E8D07700 mov edx, [$0077D0E8]
006B9AD4 8B12 mov edx, [edx]
006B9AD6 92 xchg eax, edx
006B9AD7 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_28
|
006B9AD9 FF5328 call dword ptr [ebx+$28]
006B9ADC EB26 jmp 006B9B04
* Reference to field TfrmHQScroll.OFFS_0318
|
006B9ADE 8B9618030000 mov edx, [esi+$0318]
006B9AE4 8B4A10 mov ecx, [edx+$10]
006B9AE7 51 push ecx
006B9AE8 6A00 push $00
* Reference to field GlobalVar_0078CF18.OFFS_0008
|
006B9AEA 668B4808 mov cx, word ptr [eax+$08]
006B9AEE 51 push ecx
006B9AEF 6A00 push $00
006B9AF1 6A00 push $00
006B9AF3 8A4A14 mov cl, byte ptr [edx+$14]
* Reference to pointer to GlobalVar_0078CF18
|
006B9AF6 8B15E8D07700 mov edx, [$0077D0E8]
006B9AFC 8B12 mov edx, [edx]
006B9AFE 92 xchg eax, edx
006B9AFF 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_28
|
006B9B01 FF5328 call dword ptr [ebx+$28]
006B9B04 33C0 xor eax, eax
* Reference to field TfrmHQScroll.OFFS_0304
|
006B9B06 898604030000 mov [esi+$0304], eax
006B9B0C B201 mov dl, $01
* Reference to class TList
|
006B9B0E A150234100 mov eax, dword ptr [$00412350]
* Reference to: system.TObject.Create(TObject;Boolean);
|
006B9B13 E88497D4FF call 0040329C
* Reference to field TfrmHQScroll.OFFS_030C : TList
|
006B9B18 89860C030000 mov [esi+$030C], eax
006B9B1E B201 mov dl, $01
* Reference to class TBitmap
|
006B9B20 A184CF4100 mov eax, dword ptr [$0041CF84]
* Reference to: graphics.TBitmap.Create(TBitmap;boolean);
|
006B9B25 E8B6A1D6FF call 00423CE0
* Reference to field TfrmHQScroll.OFFS_02F8
|
006B9B2A 8986F8020000 mov [esi+$02F8], eax
006B9B30 33C0 xor eax, eax
* Reference to field TfrmHQScroll.OFFS_02FC
|
006B9B32 8986FC020000 mov [esi+$02FC], eax
006B9B38 B202 mov dl, $02
* Reference to field TfrmHQScroll.OFFS_02F8
|
006B9B3A 8B86F8020000 mov eax, [esi+$02F8]
* Reference to: graphics.TBitmap.SetPixelFormat(TBitmap;TPixelFormat);
|
006B9B40 E86BB7D6FF call 004252B0
006B9B45 33C0 xor eax, eax
* Reference to field TfrmHQScroll.OFFS_0308
|
006B9B47 898608030000 mov [esi+$0308], eax
* Reference to field TfrmHQScroll.OFFS_0310
|
006B9B4D C78610030000C8000000 mov dword ptr [esi+$0310], $000000C8
* Reference to field TfrmHQScroll.OFFS_0324 : Byte
|
006B9B57 C6862403000000 mov byte ptr [esi+$0324], $00
006B9B5E 8BC6 mov eax, esi
* Reference to : TfrmHQScroll.Proc_006B9D8C()
|
006B9B60 E827020000 call 006B9D8C
006B9B65 8BC6 mov eax, esi
* Reference to : TfrmHQScroll._PROC_006B9C00()
|
006B9B67 E894000000 call 006B9C00
006B9B6C 83C410 add esp, +$10
006B9B6F 5F pop edi
006B9B70 5E pop esi
006B9B71 5B pop ebx
006B9B72 C3 ret
*)
end;
procedure TfrmHQScroll.FormDestroy(Sender : TObject);
begin
(*
006B9B74 53 push ebx
006B9B75 8BD8 mov ebx, eax
* Reference to field TfrmHQScroll.OFFS_0304
|
006B9B77 8B8304030000 mov eax, [ebx+$0304]
006B9B7D 85C0 test eax, eax
006B9B7F 7405 jz 006B9B86
* Reference to: system.@FreeMem;
|
006B9B81 E8FA8CD4FF call 00402880
006B9B86 8BC3 mov eax, ebx
* Reference to : TfrmHQScroll._PROC_006B9BC0()
|
006B9B88 E833000000 call 006B9BC0
* Reference to field TfrmHQScroll.OFFS_030C : TList
|
006B9B8D 8B830C030000 mov eax, [ebx+$030C]
* Reference to: system.TObject.Free(TObject);
|
006B9B93 E83497D4FF call 004032CC
* Reference to field TfrmHQScroll.OFFS_02F8
|
006B9B98 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: system.TObject.Free(TObject);
|
006B9B9E E82997D4FF call 004032CC
* Reference to field TfrmHQScroll.OFFS_0318
|
006B9BA3 8B8318030000 mov eax, [ebx+$0318]
* Reference to: system.TObject.Free(TObject);
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -