📄 hqscroll.pas
字号:
(*
006BA53C 55 push ebp
006BA53D 8BEC mov ebp, esp
006BA53F B801000000 mov eax, $00000001
006BA544 5D pop ebp
006BA545 C20800 ret $0008
*)
end;
procedure TfrmHQScroll.Image2Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006BA548 E86FBBD9FF call 004560BC
006BA54D C3 ret
*)
end;
procedure TfrmHQScroll.PaintBox1Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006BA560 E857BBD9FF call 004560BC
006BA565 C3 ret
*)
end;
procedure TfrmHQScroll.PaintBox2Paint(Sender : TObject);
begin
(*
006BA568 53 push ebx
006BA569 56 push esi
006BA56A 57 push edi
006BA56B 55 push ebp
006BA56C 83C4F0 add esp, -$10
006BA56F 8BF0 mov esi, eax
006BA571 8B2D58D37700 mov ebp, [$0077D358]
006BA577 8BD4 mov edx, esp
* Reference to control TfrmHQScroll.PaintBox2 : TPaintBox
|
006BA579 8B9EEC020000 mov ebx, [esi+$02EC]
006BA57F 8BC3 mov eax, ebx
006BA581 8B08 mov ecx, [eax]
* Reference to method TPaintBox.GetClientRect()
|
006BA583 FF5140 call dword ptr [ecx+$40]
006BA586 54 push esp
006BA587 8B4500 mov eax, [ebp+$00]
* Reference to field TPaintBox.OFFS_0720
|
006BA58A 8B8020070000 mov eax, [eax+$0720]
006BA590 8B8028010000 mov eax, [eax+$0128]
* Reference to: graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
006BA596 E8B570D6FF call 00421650
006BA59B 8BC8 mov ecx, eax
* Reference to field TPaintBox.Canvas : TCanvas
|
006BA59D 8B8320010000 mov eax, [ebx+$0120]
006BA5A3 5A pop edx
* Reference to: graphics.TCanvas.StretchDraw(TCanvas;TRect;TRect;TGraphic);
|
006BA5A4 E8FF4AD6FF call 0041F0A8
006BA5A9 B201 mov dl, $01
* Reference to class TBitmap
|
006BA5AB A184CF4100 mov eax, dword ptr [$0041CF84]
* Reference to: graphics.TBitmap.Create(TBitmap;boolean);
|
006BA5B0 E82B97D6FF call 00423CE0
006BA5B5 8BD8 mov ebx, eax
006BA5B7 8B4500 mov eax, [ebp+$00]
* Reference to field TBitmap.OFFS_06D0
|
006BA5BA 8B80D0060000 mov eax, [eax+$06D0]
006BA5C0 8B5038 mov edx, [eax+$38]
006BA5C3 8BC3 mov eax, ebx
006BA5C5 8B08 mov ecx, [eax]
* Reference to method TBitmap.SetWidth(Integer)
|
006BA5C7 FF5140 call dword ptr [ecx+$40]
006BA5CA 8B4500 mov eax, [ebp+$00]
* Reference to field TBitmap.OFFS_06D0
|
006BA5CD 8B80D0060000 mov eax, [eax+$06D0]
006BA5D3 8B503C mov edx, [eax+$3C]
006BA5D6 8BC3 mov eax, ebx
006BA5D8 8B08 mov ecx, [eax]
* Reference to method TBitmap.SetHeight(Integer)
|
006BA5DA FF5134 call dword ptr [ecx+$34]
006BA5DD 682000CC00 push $00CC0020
006BA5E2 6A00 push $00
006BA5E4 6A00 push $00
006BA5E6 8B4500 mov eax, [ebp+$00]
* Reference to field TBitmap.OFFS_06D0
|
006BA5E9 8BB8D0060000 mov edi, [eax+$06D0]
006BA5EF 8BC7 mov eax, edi
* Reference to: extctrls.TImage.GetCanvas(TImage):TCanvas;
|
006BA5F1 E82E46DAFF call 0045EC24
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006BA5F6 E84D4ED6FF call 0041F448
006BA5FB 50 push eax
006BA5FC 8B473C mov eax, [edi+$3C]
006BA5FF 50 push eax
006BA600 8B4738 mov eax, [edi+$38]
006BA603 50 push eax
006BA604 6A01 push $01
006BA606 6A00 push $00
006BA608 8BC3 mov eax, ebx
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006BA60A E83D9CD6FF call 0042424C
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006BA60F E8344ED6FF call 0041F448
006BA614 50 push eax
* Reference to: gdi32.BitBlt()
|
006BA615 E8A6DDD4FF call 004083C0
006BA61A B201 mov dl, $01
006BA61C 8BC3 mov eax, ebx
006BA61E 8B08 mov ecx, [eax]
* Reference to method TBitmap.SetTransparent(Boolean)
|
006BA620 FF513C call dword ptr [ecx+$3C]
006BA623 BAFFFFFF00 mov edx, $00FFFFFF
006BA628 8BC3 mov eax, ebx
* Reference to: graphics.TBitmap.SetTransparentColor(TBitmap;TColor);
|
006BA62A E8E9ADD6FF call 00425418
006BA62F 53 push ebx
* Reference to control TfrmHQScroll.PaintBox2 : TPaintBox
|
006BA630 8B86EC020000 mov eax, [esi+$02EC]
* Reference to field TPaintBox.Canvas : TCanvas
|
006BA636 8B8020010000 mov eax, [eax+$0120]
006BA63C B902000000 mov ecx, $00000002
006BA641 33D2 xor edx, edx
* Reference to: graphics.TCanvas.Draw(TCanvas;Integer;Integer;TGraphic);
|
006BA643 E8A446D6FF call 0041ECEC
006BA648 8BC3 mov eax, ebx
* Reference to: system.TObject.Free(TObject);
|
006BA64A E87D8CD4FF call 004032CC
006BA64F 83C410 add esp, +$10
006BA652 5D pop ebp
006BA653 5F pop edi
006BA654 5E pop esi
006BA655 5B pop ebx
006BA656 C3 ret
*)
end;
procedure TfrmHQScroll.PaintBox3Paint(Sender : TObject);
begin
(*
006BA658 53 push ebx
006BA659 56 push esi
006BA65A 83C4F0 add esp, -$10
006BA65D 8BD8 mov ebx, eax
006BA65F 8BD4 mov edx, esp
* Reference to control TfrmHQScroll.PaintBox3 : TPaintBox
|
006BA661 8BB3F0020000 mov esi, [ebx+$02F0]
006BA667 8BC6 mov eax, esi
006BA669 8B08 mov ecx, [eax]
* Reference to method TPaintBox.GetClientRect()
|
006BA66B FF5140 call dword ptr [ecx+$40]
006BA66E 54 push esp
* Reference to THJ32Main instance
|
006BA66F A158D37700 mov eax, dword ptr [$0077D358]
006BA674 8B00 mov eax, [eax]
* Reference to control THJ32Main.Image2 : TImage
|
006BA676 8B8020070000 mov eax, [eax+$0720]
* Reference to field TImage.Picture : TPicture
|
006BA67C 8B8028010000 mov eax, [eax+$0128]
* Reference to: graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
006BA682 E8C96FD6FF call 00421650
006BA687 8BC8 mov ecx, eax
* Reference to field TPaintBox.Canvas : TCanvas
|
006BA689 8B8620010000 mov eax, [esi+$0120]
006BA68F 5A pop edx
* Reference to: graphics.TCanvas.StretchDraw(TCanvas;TRect;TRect;TGraphic);
|
006BA690 E8134AD6FF call 0041F0A8
006BA695 6A02 push $02
006BA697 6A00 push $00
006BA699 6A01 push $01
* Reference to control TfrmHQScroll.PaintBox3 : TPaintBox
|
006BA69B 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to field TPaintBox.Canvas : TCanvas
|
006BA6A1 8B9020010000 mov edx, [eax+$0120]
* Reference to THJ32Main instance
|
006BA6A7 A158D37700 mov eax, dword ptr [$0077D358]
006BA6AC 8B00 mov eax, [eax]
* Reference to control THJ32Main.ImageList2 : TImageList
|
006BA6AE 8B80B4060000 mov eax, [eax+$06B4]
006BA6B4 33C9 xor ecx, ecx
* Reference to: imglist.TCustomImageList.Draw(TCustomImageList;TCanvas;Integer;Integer;Integer;Boolean);
|
006BA6B6 E8D5C0D8FF call 00446790
006BA6BB 83C410 add esp, +$10
006BA6BE 5E pop esi
006BA6BF 5B pop ebx
006BA6C0 C3 ret
*)
end;
procedure TfrmHQScroll.PaintBox4Paint(Sender : TObject);
begin
(*
006BA6C4 53 push ebx
006BA6C5 56 push esi
006BA6C6 83C4F0 add esp, -$10
006BA6C9 8BD8 mov ebx, eax
006BA6CB 8BD4 mov edx, esp
* Reference to control TfrmHQScroll.PaintBox4 : TPaintBox
|
006BA6CD 8BB3F4020000 mov esi, [ebx+$02F4]
006BA6D3 8BC6 mov eax, esi
006BA6D5 8B08 mov ecx, [eax]
* Reference to method TPaintBox.GetClientRect()
|
006BA6D7 FF5140 call dword ptr [ecx+$40]
006BA6DA 54 push esp
* Reference to THJ32Main instance
|
006BA6DB A158D37700 mov eax, dword ptr [$0077D358]
006BA6E0 8B00 mov eax, [eax]
* Reference to control THJ32Main.Image2 : TImage
|
006BA6E2 8B8020070000 mov eax, [eax+$0720]
* Reference to field TImage.Picture : TPicture
|
006BA6E8 8B8028010000 mov eax, [eax+$0128]
* Reference to: graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
006BA6EE E85D6FD6FF call 00421650
006BA6F3 8BC8 mov ecx, eax
* Reference to field TPaintBox.Canvas : TCanvas
|
006BA6F5 8B8620010000 mov eax, [esi+$0120]
006BA6FB 5A pop edx
* Reference to: graphics.TCanvas.StretchDraw(TCanvas;TRect;TRect;TGraphic);
|
006BA6FC E8A749D6FF call 0041F0A8
006BA701 6A02 push $02
006BA703 6A03 push $03
006BA705 6A01 push $01
* Reference to control TfrmHQScroll.PaintBox4 : TPaintBox
|
006BA707 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to field TPaintBox.Canvas : TCanvas
|
006BA70D 8B9020010000 mov edx, [eax+$0120]
* Reference to THJ32Main instance
|
006BA713 A158D37700 mov eax, dword ptr [$0077D358]
006BA718 8B00 mov eax, [eax]
* Reference to control THJ32Main.ImageList2 : TImageList
|
006BA71A 8B80B4060000 mov eax, [eax+$06B4]
006BA720 33C9 xor ecx, ecx
* Reference to: imglist.TCustomImageList.Draw(TCustomImageList;TCanvas;Integer;Integer;Integer;Boolean);
|
006BA722 E869C0D8FF call 00446790
006BA727 83C410 add esp, +$10
006BA72A 5E pop esi
006BA72B 5B pop ebx
006BA72C C3 ret
*)
end;
procedure TfrmHQScroll._PROC_006B9BC0(Sender : TObject);
begin
(*
006B9BC0 53 push ebx
006B9BC1 56 push esi
006B9BC2 57 push edi
006B9BC3 8BF8 mov edi, eax
006B9BC5 8B870C030000 mov eax, [edi+$030C]
* Reference to field TfrmHQScroll.Name : TComponentName
|
006B9BCB 8B5808 mov ebx, [eax+$08]
006B9BCE 4B dec ebx
006B9BCF 85DB test ebx, ebx
006B9BD1 7C1D jl 006B9BF0
006B9BD3 43 inc ebx
006B9BD4 33F6 xor esi, esi
006B9BD6 8B870C030000 mov eax, [edi+$030C]
006B9BDC 8BD6 mov edx, esi
* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
006B9BDE E841A4D5FF call 00414024
006B9BE3 85C0 test eax, eax
006B9BE5 7405 jz 006B9BEC
* Reference to: system.@FreeMem;
|
006B9BE7 E8948CD4FF call 00402880
006B9BEC 46 inc esi
006B9BED 4B dec ebx
006B9BEE 75E6 jnz 006B9BD6
006B9BF0 8B870C030000 mov eax, [edi+$030C]
006B9BF6 8B10 mov edx, [eax]
* Reference to method TfrmHQScroll.Assign(TPersistent)
|
006B9BF8 FF5208 call dword ptr [edx+$08]
006B9BFB 5F pop edi
006B9BFC 5E pop esi
006B9BFD 5B pop ebx
006B9BFE C3 ret
*)
end;
procedure TfrmHQScroll._PROC_006B9C00(Sender : TObject);
begin
(*
006B9C00 53 push ebx
006B9C01 56 push esi
006B9C02 57 push edi
006B9C03 8BD8 mov ebx, eax
* Reference to control TfrmHQScroll.PaintBox1 : TPaintBox
|
006B9C05 8B83D0020000 mov eax, [ebx+$02D0]
006B9C0B DB4038 fild dword ptr [eax+$38]
006B9C0E DB8310030000 fild dword ptr [ebx+$0310]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -