📄 qrprev.pas
字号:
unit QRPrev;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TQRStandardPreview=class(TForm)
StatusBar: TStatusBar;
ToolBar1: TToolBar;
ZoomFit: TToolButton;
Zoom100: TToolButton;
ZoomToWidth: TToolButton;
Separator1: TToolButton;
FirstPage: TToolButton;
PreviousPage: TToolButton;
ToolButton2: TToolButton;
LastPage: TToolButton;
Separator2: TToolButton;
PrintSetup: TToolButton;
Print: TToolButton;
Separator3: TToolButton;
SaveReport: TToolButton;
LoadReport: TToolButton;
Separator4: TToolButton;
Images: TImageList;
ToolButton1: TToolButton;
ExitButton: TSpeedButton;
QRPreview: TQRPreview;
procedure FormClose(Sender : TObject);
procedure ZoomToFitClick(Sender : TObject);
procedure ZoomTo100Click(Sender : TObject);
procedure ZoomToWidthClick(Sender : TObject);
procedure FirstPageClick(Sender : TObject);
procedure PrevPageClick(Sender : TObject);
procedure NextPageClick(Sender : TObject);
procedure LastPageClick(Sender : TObject);
procedure PrintClick(Sender : TObject);
procedure ExitClick(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure SaveClick(Sender : TObject);
procedure PrintSetupClick(Sender : TObject);
procedure LoadClick(Sender : TObject);
procedure QRPreviewPageAvailable(Sender : TObject);
procedure QRPreviewProgressUpdate(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_005099A0(Sender : TObject);
procedure _PROC_00509B74(Sender : TObject);
procedure _PROC_00509C30(Sender : TObject);
procedure _PROC_0050A06D(Sender : TObject);
procedure _PROC_0050A09C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
QRStandardPreview: TQRStandardPreview;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TQRStandardPreview.FormClose(Sender : TObject);
begin
(*
00509988 53 push ebx
00509989 8BD9 mov ebx, ecx
0050998B 8BD0 mov edx, eax
* Reference to field TQRStandardPreview.OFFS_0344
|
0050998D 8B8044030000 mov eax, [eax+$0344]
* Reference to: QRPrntr.TQRPrinter.ClosePreview(TQRPrinter;TWinControl);
|
00509993 E8043A0000 call 0050D39C
00509998 C60302 mov byte ptr [ebx], $02
0050999B 5B pop ebx
0050999C C3 ret
*)
end;
procedure TQRStandardPreview.ZoomToFitClick(Sender : TObject);
begin
(*
00509A7C 53 push ebx
00509A7D 8BD8 mov ebx, eax
* Reference to TApplication instance
|
00509A7F A124835800 mov eax, dword ptr [$00588324]
00509A84 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.ProcessMessages(TApplication);
|
00509A86 E835F6F5FF call 004690C0
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509A8B 8B8340030000 mov eax, [ebx+$0340]
* Reference to: QRPrntr.TQRPreview.ZoomToFit(TQRPreview);
|
00509A91 E80A290000 call 0050C3A0
00509A96 5B pop ebx
00509A97 C3 ret
*)
end;
procedure TQRStandardPreview.ZoomTo100Click(Sender : TObject);
begin
(*
00509A98 53 push ebx
00509A99 8BD8 mov ebx, eax
* Reference to TApplication instance
|
00509A9B A124835800 mov eax, dword ptr [$00588324]
00509AA0 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.ProcessMessages(TApplication);
|
00509AA2 E819F6F5FF call 004690C0
00509AA7 BA64000000 mov edx, $00000064
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509AAC 8B8340030000 mov eax, [ebx+$0340]
* Reference to: QRPrntr.TQRPreview.SetZoom(TQRPreview;Integer);
|
00509AB2 E8C9280000 call 0050C380
00509AB7 5B pop ebx
00509AB8 C3 ret
*)
end;
procedure TQRStandardPreview.ZoomToWidthClick(Sender : TObject);
begin
(*
00509ABC 53 push ebx
00509ABD 8BD8 mov ebx, eax
* Reference to TApplication instance
|
00509ABF A124835800 mov eax, dword ptr [$00588324]
00509AC4 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.ProcessMessages(TApplication);
|
00509AC6 E8F5F5F5FF call 004690C0
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509ACB 8B8340030000 mov eax, [ebx+$0340]
* Reference to: QRPrntr.TQRPreview.ZoomToWidth(TQRPreview);
|
00509AD1 E89E290000 call 0050C474
00509AD6 5B pop ebx
00509AD7 C3 ret
*)
end;
procedure TQRStandardPreview.FirstPageClick(Sender : TObject);
begin
(*
00509AD8 53 push ebx
00509AD9 8BD8 mov ebx, eax
00509ADB BA01000000 mov edx, $00000001
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509AE0 8B8340030000 mov eax, [ebx+$0340]
* Reference to: QRPrntr.TQRPreview.SetPageNumber(TQRPreview;Integer);
|
00509AE6 E835260000 call 0050C120
00509AEB 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.UpdateInfo(TQRStandardPreview);
|
00509AED E8AEFEFFFF call 005099A0
00509AF2 5B pop ebx
00509AF3 C3 ret
*)
end;
procedure TQRStandardPreview.PrevPageClick(Sender : TObject);
begin
(*
00509AF4 53 push ebx
00509AF5 8BD8 mov ebx, eax
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509AF7 8B8340030000 mov eax, [ebx+$0340]
* Reference to field TQRPreview.OFFS_023C
|
00509AFD 8B903C020000 mov edx, [eax+$023C]
00509B03 4A dec edx
* Reference to: QRPrntr.TQRPreview.SetPageNumber(TQRPreview;Integer);
|
00509B04 E817260000 call 0050C120
00509B09 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.UpdateInfo(TQRStandardPreview);
|
00509B0B E890FEFFFF call 005099A0
00509B10 5B pop ebx
00509B11 C3 ret
*)
end;
procedure TQRStandardPreview.NextPageClick(Sender : TObject);
begin
(*
00509B14 53 push ebx
00509B15 8BD8 mov ebx, eax
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509B17 8B8340030000 mov eax, [ebx+$0340]
* Reference to field TQRPreview.OFFS_023C
|
00509B1D 8B903C020000 mov edx, [eax+$023C]
00509B23 42 inc edx
* Reference to: QRPrntr.TQRPreview.SetPageNumber(TQRPreview;Integer);
|
00509B24 E8F7250000 call 0050C120
00509B29 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.UpdateInfo(TQRStandardPreview);
|
00509B2B E870FEFFFF call 005099A0
00509B30 5B pop ebx
00509B31 C3 ret
*)
end;
procedure TQRStandardPreview.LastPageClick(Sender : TObject);
begin
(*
00509B34 53 push ebx
00509B35 8BD8 mov ebx, eax
* Reference to field TQRStandardPreview.OFFS_0344
|
00509B37 8B8344030000 mov eax, [ebx+$0344]
00509B3D 8B506C mov edx, [eax+$6C]
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509B40 8B8340030000 mov eax, [ebx+$0340]
* Reference to: QRPrntr.TQRPreview.SetPageNumber(TQRPreview;Integer);
|
00509B46 E8D5250000 call 0050C120
00509B4B 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.UpdateInfo(TQRStandardPreview);
|
00509B4D E84EFEFFFF call 005099A0
00509B52 5B pop ebx
00509B53 C3 ret
*)
end;
procedure TQRStandardPreview.PrintClick(Sender : TObject);
begin
(*
* Reference to field TQRStandardPreview.OFFS_0344
|
00509B54 8B8044030000 mov eax, [eax+$0344]
* Reference to: QRPrntr.TQRPrinter.Print(TQRPrinter);
|
00509B5A E89D440000 call 0050DFFC
00509B5F C3 ret
*)
end;
procedure TQRStandardPreview.ExitClick(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00509B60 E8CBBFF5FF call 00465B30
00509B65 C3 ret
*)
end;
procedure TQRStandardPreview.FormResize(Sender : TObject);
begin
(*
* Reference to control TQRStandardPreview.QRPreview : TQRPreview
|
00509B68 8B8040030000 mov eax, [eax+$0340]
* Reference to: QRPrntr.TQRPreview.UpdateZoom(TQRPreview);
|
00509B6E E859260000 call 0050C1CC
00509B73 C3 ret
*)
end;
procedure TQRStandardPreview.FormKeyDown(Sender : TObject);
begin
(*
00509B88 55 push ebp
00509B89 8BEC mov ebp, esp
00509B8B 53 push ebx
00509B8C 8BD8 mov ebx, eax
00509B8E 0FB701 movzx eax, word ptr [ecx]
00509B91 83C0E5 add eax, -$1B
00509B94 83F809 cmp eax, +$09
00509B97 0F878E000000 jnbe 00509C2B
00509B9D FF2485A49B5000 jmp dword ptr [$509BA4+eax*4]
00509BA4 229C50002B9C50 and bl, byte ptr [eax+edx*2+$509C2B00]
00509BAB 002B add [ebx], ch
00509BAD 9C pushf
00509BAE 50 push eax
00509BAF 002B add [ebx], ch
00509BB1 9C pushf
00509BB2 50 push eax
00509BB3 002B add [ebx], ch
00509BB5 9C pushf
00509BB6 50 push eax
00509BB7 002B add [ebx], ch
00509BB9 9C pushf
00509BBA 50 push eax
00509BBB 00EC add ah, ch
00509BBD 9B wait
00509BBE 50 push eax
00509BBF 00CC add ah, cl
00509BC1 9B wait
00509BC2 50 push eax
00509BC3 0017 add [edi], dl
00509BC5 9C pushf
00509BC6 50 push eax
00509BC7 000C9C add [esp+ebx*4], cl
00509BCA 50 push eax
00509BCB 00A0309C5000 add [eax+$509C30], ah
00509BD1 3A4508 cmp al, byte ptr [ebp+$08]
00509BD4 750B jnz 00509BE1
00509BD6 8BD3 mov edx, ebx
00509BD8 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.LastPageClick(TQRStandardPreview;TObject);
|
00509BDA E855FFFFFF call 00509B34
00509BDF EB4A jmp 00509C2B
00509BE1 8BD3 mov edx, ebx
00509BE3 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.NextPageClick(TQRStandardPreview;TObject);
|
00509BE5 E82AFFFFFF call 00509B14
00509BEA EB3F jmp 00509C2B
00509BEC A0309C5000 mov al, byte ptr [$00509C30]
00509BF1 3A4508 cmp al, byte ptr [ebp+$08]
00509BF4 750B jnz 00509C01
00509BF6 8BD3 mov edx, ebx
00509BF8 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.FirstPageClick(TQRStandardPreview;TObject);
|
00509BFA E8D9FEFFFF call 00509AD8
00509BFF EB2A jmp 00509C2B
00509C01 8BD3 mov edx, ebx
00509C03 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.PrevPageClick(TQRStandardPreview;TObject);
|
00509C05 E8EAFEFFFF call 00509AF4
00509C0A EB1F jmp 00509C2B
00509C0C 8BD3 mov edx, ebx
00509C0E 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.FirstPageClick(TQRStandardPreview;TObject);
|
00509C10 E8C3FEFFFF call 00509AD8
00509C15 EB14 jmp 00509C2B
00509C17 8BD3 mov edx, ebx
00509C19 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.LastPageClick(TQRStandardPreview;TObject);
|
00509C1B E814FFFFFF call 00509B34
00509C20 EB09 jmp 00509C2B
00509C22 8BD3 mov edx, ebx
00509C24 8BC3 mov eax, ebx
* Reference to: QRPrev.TQRStandardPreview.ExitClick(TQRStandardPreview;TObject);
|
00509C26 E835FFFFFF call 00509B60
00509C2B 5B pop ebx
00509C2C 5D pop ebp
00509C2D C20400 ret $0004
*)
end;
procedure TQRStandardPreview.SaveClick(Sender : TObject);
begin
(*
00509C34 55 push ebp
00509C35 8BEC mov ebp, esp
00509C37 33C9 xor ecx, ecx
00509C39 51 push ecx
00509C3A 51 push ecx
00509C3B 51 push ecx
00509C3C 51 push ecx
00509C3D 51 push ecx
00509C3E 53 push ebx
00509C3F 8BD8 mov ebx, eax
00509C41 33C0 xor eax, eax
00509C43 55 push ebp
* Possible String Reference to: '椤ｏ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -