2349 lines
81 KiB
ObjectPascal
2349 lines
81 KiB
ObjectPascal
|
unit RM_PrintDlg;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Classes, Graphics,
|
|||
|
|
Controls, Forms, Dialogs, StdCtrls
|
|||
|
|
type
|
|||
|
|
TRMPrintDialogForm=class(TForm)
|
|||
|
|
GroupBox2: TGroupBox;
|
|||
|
|
rdbPrintAll: TRadioButton;
|
|||
|
|
rbdPrintCurPage: TRadioButton;
|
|||
|
|
rbdPrintPapges: TRadioButton;
|
|||
|
|
edtPages: TEdit;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
btnOK: TButton;
|
|||
|
|
btnCancel: TButton;
|
|||
|
|
GroupBox1: TGroupBox;
|
|||
|
|
cmbPrinters: TComboBox;
|
|||
|
|
btnPrinterProp: TButton;
|
|||
|
|
GroupBox3: TGroupBox;
|
|||
|
|
lblCopies: TLabel;
|
|||
|
|
chkCollate: TCheckBox;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
Image1: TImage;
|
|||
|
|
cmbPrintAll: TComboBox;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
imgCollate: TImage;
|
|||
|
|
lblStatus: TLabel;
|
|||
|
|
lblType: TLabel;
|
|||
|
|
lblPosition: TLabel;
|
|||
|
|
lblCommon: TLabel;
|
|||
|
|
Image3: TImage;
|
|||
|
|
Image2: TImage;
|
|||
|
|
chkTaoda: TCheckBox;
|
|||
|
|
GroupBox4: TGroupBox;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
cmbScalePapers: TComboBox;
|
|||
|
|
lblScale: TLabel;
|
|||
|
|
GroupBox5: TGroupBox;
|
|||
|
|
lblPrnOffsetTop: TLabel;
|
|||
|
|
lbllblPrnOffsetLeft: TLabel;
|
|||
|
|
chkColorPrint: TCheckBox;
|
|||
|
|
procedure cmbPrintersDrawItem(Sender : TObject);
|
|||
|
|
procedure FormCreate(Sender : TObject);
|
|||
|
|
procedure btnPrinterPropClick(Sender : TObject);
|
|||
|
|
procedure E2Click(Sender : TObject);
|
|||
|
|
procedure rbdPrintPapgesClick(Sender : TObject);
|
|||
|
|
procedure chkCollateClick(Sender : TObject);
|
|||
|
|
procedure FormClose(Sender : TObject);
|
|||
|
|
procedure cmbPrintersChange(Sender : TObject);
|
|||
|
|
procedure FormShow(Sender : TObject);
|
|||
|
|
procedure FormCloseQuery(Sender : TObject);
|
|||
|
|
procedure _PROC_006F3DA9(Sender : TObject);
|
|||
|
|
procedure _PROC_006F3E78(Sender : TObject);
|
|||
|
|
procedure _PROC_006F3F84(Sender : TObject);
|
|||
|
|
procedure _PROC_006F3FF0(Sender : TObject);
|
|||
|
|
procedure _PROC_006F49ED(Sender : TObject);
|
|||
|
|
procedure _PROC_006F4A38(Sender : TObject);
|
|||
|
|
procedure _PROC_006F4A98(Sender : TObject);
|
|||
|
|
procedure _PROC_006F4C41(Sender : TObject);
|
|||
|
|
procedure _PROC_006F4C70(Sender : TObject);
|
|||
|
|
procedure _PROC_006F4C78(Sender : TObject);
|
|||
|
|
procedure _PROC_006F4CDE(Sender : TObject);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
{ Public declarations }
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
RMPrintDialogForm: TRMPrintDialogForm;
|
|||
|
|
|
|||
|
|
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
{$R *.DFM}
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.cmbPrintersDrawItem(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F470C 55 push ebp
|
|||
|
|
006F470D 8BEC mov ebp, esp
|
|||
|
|
006F470F 83C4C8 add esp, -$38
|
|||
|
|
006F4712 53 push ebx
|
|||
|
|
006F4713 56 push esi
|
|||
|
|
006F4714 57 push edi
|
|||
|
|
006F4715 33DB xor ebx, ebx
|
|||
|
|
006F4717 895DC8 mov [ebp-$38], ebx
|
|||
|
|
006F471A 8B750C mov esi, [ebp+$0C]
|
|||
|
|
006F471D 8D7DEC lea edi, [ebp-$14]
|
|||
|
|
006F4720 A5 movsd
|
|||
|
|
006F4721 A5 movsd
|
|||
|
|
006F4722 A5 movsd
|
|||
|
|
006F4723 A5 movsd
|
|||
|
|
006F4724 894DFC mov [ebp-$04], ecx
|
|||
|
|
006F4727 8BD8 mov ebx, eax
|
|||
|
|
006F4729 33C0 xor eax, eax
|
|||
|
|
006F472B 55 push ebp
|
|||
|
|
006F472C 68F2476F00 push $006F47F2
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
006F4731 64FF30 push dword ptr fs:[eax]
|
|||
|
|
006F4734 648920 mov fs:[eax], esp
|
|||
|
|
006F4737 8D75EC lea esi, [ebp-$14]
|
|||
|
|
006F473A 8D7DDC lea edi, [ebp-$24]
|
|||
|
|
006F473D A5 movsd
|
|||
|
|
006F473E A5 movsd
|
|||
|
|
006F473F A5 movsd
|
|||
|
|
006F4740 A5 movsd
|
|||
|
|
006F4741 8B45DC mov eax, [ebp-$24]
|
|||
|
|
006F4744 83C012 add eax, +$12
|
|||
|
|
006F4747 8945E4 mov [ebp-$1C], eax
|
|||
|
|
006F474A 8B45E0 mov eax, [ebp-$20]
|
|||
|
|
006F474D 83C010 add eax, +$10
|
|||
|
|
006F4750 8945E8 mov [ebp-$18], eax
|
|||
|
|
006F4753 6A00 push $00
|
|||
|
|
006F4755 6A02 push $02
|
|||
|
|
006F4757 8D45DC lea eax, [ebp-$24]
|
|||
|
|
006F475A 50 push eax
|
|||
|
|
|
|||
|
|
* Reference to: user32.OffsetRect()
|
|||
|
|
|
|
|||
|
|
006F475B E83445D1FF call 00408C94
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4760 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Canvas : TCanvas
|
|||
|
|
|
|
|||
|
|
006F4766 8BB008020000 mov esi, [eax+$0208]
|
|||
|
|
006F476C 8D55EC lea edx, [ebp-$14]
|
|||
|
|
006F476F 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TCanvas.FillRect(TCanvas;Windows.TRect;Windows.TRect);
|
|||
|
|
| or: Graphics.TCanvas.FrameRect(TCanvas;Windows.TRect;Windows.TRect);
|
|||
|
|
|
|
|||
|
|
006F4771 E85ED1D3FF call 004318D4
|
|||
|
|
006F4776 6A10 push $10
|
|||
|
|
006F4778 8D45CC lea eax, [ebp-$34]
|
|||
|
|
006F477B 50 push eax
|
|||
|
|
006F477C B912000000 mov ecx, $00000012
|
|||
|
|
006F4781 33D2 xor edx, edx
|
|||
|
|
006F4783 33C0 xor eax, eax
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4785 E8EACDD2FF call 00421574
|
|||
|
|
006F478A 8D45CC lea eax, [ebp-$34]
|
|||
|
|
006F478D 50 push eax
|
|||
|
|
006F478E 6880800000 push $00008080
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.Image1 : TImage
|
|||
|
|
|
|
|||
|
|
006F4793 8B8338030000 mov eax, [ebx+$0338]
|
|||
|
|
|
|||
|
|
* Reference to field TImage.Picture : TPicture
|
|||
|
|
|
|
|||
|
|
006F4799 8B8068010000 mov eax, [eax+$0168]
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: Graphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
| or: Graphics.TPicture.GetMetafile(TPicture):TMetafile;
|
|||
|
|
| or: QGraphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: QGraphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
|
|
|||
|
|
006F479F E8F8F9D3FF call 0043419C
|
|||
|
|
006F47A4 8BC8 mov ecx, eax
|
|||
|
|
006F47A6 8D55DC lea edx, [ebp-$24]
|
|||
|
|
006F47A9 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TCanvas.BrushCopy(TCanvas;Windows.TRect;Windows.TRect;TBitmap;Windows.TRect;Windows.TRect;TColor);
|
|||
|
|
|
|
|||
|
|
006F47AB E85CCCD3FF call 0043140C
|
|||
|
|
006F47B0 8D4DC8 lea ecx, [ebp-$38]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F47B3 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Items : TStrings
|
|||
|
|
|
|
|||
|
|
006F47B9 8B803C020000 mov eax, [eax+$023C]
|
|||
|
|
006F47BF 8B55FC mov edx, [ebp-$04]
|
|||
|
|
006F47C2 8B18 mov ebx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TStrings.Strings [ Index()
|
|||
|
|
|
|
|||
|
|
006F47C4 FF530C call dword ptr [ebx+$0C]
|
|||
|
|
006F47C7 8B45C8 mov eax, [ebp-$38]
|
|||
|
|
006F47CA 50 push eax
|
|||
|
|
006F47CB 8B4DF0 mov ecx, [ebp-$10]
|
|||
|
|
006F47CE 41 inc ecx
|
|||
|
|
006F47CF 8B55EC mov edx, [ebp-$14]
|
|||
|
|
006F47D2 83C218 add edx, +$18
|
|||
|
|
006F47D5 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TCanvas.TextOut(TCanvas;Integer;Integer;AnsiString);
|
|||
|
|
|
|
|||
|
|
006F47D7 E830D4D3FF call 00431C0C
|
|||
|
|
006F47DC 33C0 xor eax, eax
|
|||
|
|
006F47DE 5A pop edx
|
|||
|
|
006F47DF 59 pop ecx
|
|||
|
|
006F47E0 59 pop ecx
|
|||
|
|
006F47E1 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
006F47E4 68F9476F00 push $006F47F9
|
|||
|
|
006F47E9 8D45C8 lea eax, [ebp-$38]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrClr(void;void);
|
|||
|
|
|
|
|||
|
|
006F47EC E8330BD1FF call 00405324
|
|||
|
|
006F47F1 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
006F47F2 E9FD02D1FF jmp 00404AF4
|
|||
|
|
006F47F7 EBF0 jmp 006F47E9
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
006F47F9 5F pop edi
|
|||
|
|
006F47FA 5E pop esi
|
|||
|
|
006F47FB 5B pop ebx
|
|||
|
|
006F47FC 8BE5 mov esp, ebp
|
|||
|
|
006F47FE 5D pop ebp
|
|||
|
|
006F47FF C20800 ret $0008
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.FormCreate(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F44CC 53 push ebx
|
|||
|
|
006F44CD 56 push esi
|
|||
|
|
006F44CE 57 push edi
|
|||
|
|
006F44CF 8BD8 mov ebx, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03AC
|
|||
|
|
|
|
|||
|
|
006F44D1 C683AC03000000 mov byte ptr [ebx+$03AC], $00
|
|||
|
|
006F44D8 8BCB mov ecx, ebx
|
|||
|
|
006F44DA B201 mov dl, $01
|
|||
|
|
|
|||
|
|
* Reference to class TRMSpinEdit
|
|||
|
|
|
|
|||
|
|
006F44DC A148317300 mov eax, dword ptr [$00733148]
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735094()
|
|||
|
|
|
|
|||
|
|
006F44E1 E8AE0B0400 call 00735094
|
|||
|
|
006F44E6 8BF0 mov esi, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0394
|
|||
|
|
|
|
|||
|
|
006F44E8 89B394030000 mov [ebx+$0394], esi
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.GroupBox4 : TGroupBox
|
|||
|
|
|
|
|||
|
|
006F44EE 8B9370030000 mov edx, [ebx+$0370]
|
|||
|
|
006F44F4 8BC6 mov eax, esi
|
|||
|
|
006F44F6 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
|||
|
|
|
|
|||
|
|
006F44F8 FF5168 call dword ptr [ecx+$68]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F44FB 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Width : Integer
|
|||
|
|
|
|
|||
|
|
006F4501 8B5048 mov edx, [eax+$48]
|
|||
|
|
006F4504 52 push edx
|
|||
|
|
006F4505 6A15 push $15
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblScale : TLabel
|
|||
|
|
|
|
|||
|
|
006F4507 8B937C030000 mov edx, [ebx+$037C]
|
|||
|
|
|
|||
|
|
* Reference to field TLabel.Top : Integer
|
|||
|
|
|
|
|||
|
|
006F450D 8B4A44 mov ecx, [edx+$44]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Left : Integer
|
|||
|
|
|
|
|||
|
|
006F4510 8B5040 mov edx, [eax+$40]
|
|||
|
|
006F4513 8BC6 mov eax, esi
|
|||
|
|
006F4515 8B38 mov edi, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
|||
|
|
|
|
|||
|
|
006F4517 FF9784000000 call dword ptr [edi+$0084]
|
|||
|
|
006F451D 6805400000 push $00004005
|
|||
|
|
006F4522 68000000C8 push $C8000000
|
|||
|
|
006F4527 6A00 push $00
|
|||
|
|
006F4529 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F452B E834180400 call 00735D64
|
|||
|
|
006F4530 33C0 xor eax, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0228
|
|||
|
|
|
|
|||
|
|
006F4532 898628020000 mov [esi+$0228], eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_022C
|
|||
|
|
|
|
|||
|
|
006F4538 C7862C02000000000080 mov dword ptr [esi+$022C], $80000000
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0230
|
|||
|
|
|
|
|||
|
|
006F4542 66C78630020000FF3F mov word ptr [esi+$0230], $3FFF
|
|||
|
|
006F454B 8BCB mov ecx, ebx
|
|||
|
|
006F454D B201 mov dl, $01
|
|||
|
|
|
|||
|
|
* Reference to class TRMSpinEdit
|
|||
|
|
|
|
|||
|
|
006F454F A148317300 mov eax, dword ptr [$00733148]
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735094()
|
|||
|
|
|
|
|||
|
|
006F4554 E83B0B0400 call 00735094
|
|||
|
|
006F4559 8BF0 mov esi, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0398
|
|||
|
|
|
|
|||
|
|
006F455B 89B398030000 mov [ebx+$0398], esi
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.GroupBox5 : TGroupBox
|
|||
|
|
|
|
|||
|
|
006F4561 8B9380030000 mov edx, [ebx+$0380]
|
|||
|
|
006F4567 8BC6 mov eax, esi
|
|||
|
|
006F4569 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
|||
|
|
|
|
|||
|
|
006F456B FF5168 call dword ptr [ecx+$68]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.GroupBox5 : TGroupBox
|
|||
|
|
|
|
|||
|
|
006F456E 8B9380030000 mov edx, [ebx+$0380]
|
|||
|
|
|
|||
|
|
* Reference to field TGroupBox.Width : Integer
|
|||
|
|
|
|
|||
|
|
006F4574 8B5248 mov edx, [edx+$48]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblPrnOffsetTop : TLabel
|
|||
|
|
|
|
|||
|
|
006F4577 8B8B84030000 mov ecx, [ebx+$0384]
|
|||
|
|
006F457D 8B7940 mov edi, [ecx+$40]
|
|||
|
|
006F4580 2BD7 sub edx, edi
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblPrnOffsetTop : TLabel
|
|||
|
|
|
|
|||
|
|
006F4582 8B8B84030000 mov ecx, [ebx+$0384]
|
|||
|
|
006F4588 2B5148 sub edx, dword ptr [ecx+$48]
|
|||
|
|
006F458B 83EA0A sub edx, +$0A
|
|||
|
|
006F458E 52 push edx
|
|||
|
|
006F458F 6A15 push $15
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblPrnOffsetTop : TLabel
|
|||
|
|
|
|
|||
|
|
006F4591 8B8384030000 mov eax, [ebx+$0384]
|
|||
|
|
006F4597 8BD7 mov edx, edi
|
|||
|
|
006F4599 035048 add edx, [eax+$48]
|
|||
|
|
006F459C 83C202 add edx, +$02
|
|||
|
|
|
|||
|
|
* Reference to field TLabel.Top : Integer
|
|||
|
|
|
|
|||
|
|
006F459F 8B4844 mov ecx, [eax+$44]
|
|||
|
|
006F45A2 8BC6 mov eax, esi
|
|||
|
|
006F45A4 8B38 mov edi, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
|||
|
|
|
|
|||
|
|
006F45A6 FF9784000000 call dword ptr [edi+$0084]
|
|||
|
|
006F45AC B201 mov dl, $01
|
|||
|
|
006F45AE 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735E2C()
|
|||
|
|
|
|
|||
|
|
006F45B0 E877180400 call 00735E2C
|
|||
|
|
006F45B5 33C0 xor eax, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0228
|
|||
|
|
|
|
|||
|
|
006F45B7 898628020000 mov [esi+$0228], eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_022C
|
|||
|
|
|
|
|||
|
|
006F45BD C7862C020000FEFFFFFF mov dword ptr [esi+$022C], $FFFFFFFE
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0230
|
|||
|
|
|
|
|||
|
|
006F45C7 66C786300200001DC0 mov word ptr [esi+$0230], $C01D
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0248
|
|||
|
|
|
|
|||
|
|
006F45D0 C78648020000CDCCCCCC mov dword ptr [esi+$0248], $CCCCCCCD
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_024C
|
|||
|
|
|
|
|||
|
|
006F45DA C7864C020000CCCCCCCC mov dword ptr [esi+$024C], $CCCCCCCC
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0250
|
|||
|
|
|
|
|||
|
|
006F45E4 66C78650020000FB3F mov word ptr [esi+$0250], $3FFB
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_000C
|
|||
|
|
|
|
|||
|
|
006F45ED C7460C01000000 mov dword ptr [esi+$0C], $00000001
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_021C
|
|||
|
|
|
|
|||
|
|
006F45F4 899E1C020000 mov [esi+$021C], ebx
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0218
|
|||
|
|
|
|
|||
|
|
006F45FA C78618020000384A6F00 mov dword ptr [esi+$0218], $006F4A38
|
|||
|
|
006F4604 8BCB mov ecx, ebx
|
|||
|
|
006F4606 B201 mov dl, $01
|
|||
|
|
|
|||
|
|
* Reference to class TRMSpinEdit
|
|||
|
|
|
|
|||
|
|
006F4608 A148317300 mov eax, dword ptr [$00733148]
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735094()
|
|||
|
|
|
|
|||
|
|
006F460D E8820A0400 call 00735094
|
|||
|
|
006F4612 8BF0 mov esi, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_039C
|
|||
|
|
|
|
|||
|
|
006F4614 89B39C030000 mov [ebx+$039C], esi
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.GroupBox5 : TGroupBox
|
|||
|
|
|
|
|||
|
|
006F461A 8B9380030000 mov edx, [ebx+$0380]
|
|||
|
|
006F4620 8BC6 mov eax, esi
|
|||
|
|
006F4622 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
|||
|
|
|
|
|||
|
|
006F4624 FF5168 call dword ptr [ecx+$68]
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0398
|
|||
|
|
|
|
|||
|
|
006F4627 8B8398030000 mov eax, [ebx+$0398]
|
|||
|
|
006F462D 8B5048 mov edx, [eax+$48]
|
|||
|
|
006F4630 52 push edx
|
|||
|
|
006F4631 6A15 push $15
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lbllblPrnOffsetLeft : TLabel
|
|||
|
|
|
|
|||
|
|
006F4633 8B9388030000 mov edx, [ebx+$0388]
|
|||
|
|
|
|||
|
|
* Reference to field TLabel.Top : Integer
|
|||
|
|
|
|
|||
|
|
006F4639 8B4A44 mov ecx, [edx+$44]
|
|||
|
|
006F463C 8B5040 mov edx, [eax+$40]
|
|||
|
|
006F463F 8BC6 mov eax, esi
|
|||
|
|
006F4641 8B38 mov edi, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
|||
|
|
|
|
|||
|
|
006F4643 FF9784000000 call dword ptr [edi+$0084]
|
|||
|
|
006F4649 B201 mov dl, $01
|
|||
|
|
006F464B 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735E2C()
|
|||
|
|
|
|
|||
|
|
006F464D E8DA170400 call 00735E2C
|
|||
|
|
006F4652 33C0 xor eax, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0228
|
|||
|
|
|
|
|||
|
|
006F4654 898628020000 mov [esi+$0228], eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_022C
|
|||
|
|
|
|
|||
|
|
006F465A C7862C020000FEFFFFFF mov dword ptr [esi+$022C], $FFFFFFFE
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0230
|
|||
|
|
|
|
|||
|
|
006F4664 66C786300200001DC0 mov word ptr [esi+$0230], $C01D
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0248
|
|||
|
|
|
|
|||
|
|
006F466D C78648020000CDCCCCCC mov dword ptr [esi+$0248], $CCCCCCCD
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_024C
|
|||
|
|
|
|
|||
|
|
006F4677 C7864C020000CCCCCCCC mov dword ptr [esi+$024C], $CCCCCCCC
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0250
|
|||
|
|
|
|
|||
|
|
006F4681 66C78650020000FB3F mov word ptr [esi+$0250], $3FFB
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_000C
|
|||
|
|
|
|
|||
|
|
006F468A C7460C02000000 mov dword ptr [esi+$0C], $00000002
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_021C
|
|||
|
|
|
|
|||
|
|
006F4691 899E1C020000 mov [esi+$021C], ebx
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0218
|
|||
|
|
|
|
|||
|
|
006F4697 C78618020000384A6F00 mov dword ptr [esi+$0218], $006F4A38
|
|||
|
|
006F46A1 8BCB mov ecx, ebx
|
|||
|
|
006F46A3 B201 mov dl, $01
|
|||
|
|
|
|||
|
|
* Reference to class TRMSpinEdit
|
|||
|
|
|
|
|||
|
|
006F46A5 A148317300 mov eax, dword ptr [$00733148]
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735094()
|
|||
|
|
|
|
|||
|
|
006F46AA E8E5090400 call 00735094
|
|||
|
|
006F46AF 8BF0 mov esi, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03A8
|
|||
|
|
|
|
|||
|
|
006F46B1 89B3A8030000 mov [ebx+$03A8], esi
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.GroupBox3 : TGroupBox
|
|||
|
|
|
|
|||
|
|
006F46B7 8B9324030000 mov edx, [ebx+$0324]
|
|||
|
|
006F46BD 8BC6 mov eax, esi
|
|||
|
|
006F46BF 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
|||
|
|
|
|
|||
|
|
006F46C1 FF5168 call dword ptr [ecx+$68]
|
|||
|
|
006F46C4 6A40 push $40
|
|||
|
|
006F46C6 6A15 push $15
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblCopies : TLabel
|
|||
|
|
|
|
|||
|
|
006F46C8 8B8328030000 mov eax, [ebx+$0328]
|
|||
|
|
|
|||
|
|
* Reference to field TLabel.Top : Integer
|
|||
|
|
|
|
|||
|
|
006F46CE 8B4844 mov ecx, [eax+$44]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.chkCollate : TCheckBox
|
|||
|
|
|
|
|||
|
|
006F46D1 8B832C030000 mov eax, [ebx+$032C]
|
|||
|
|
|
|||
|
|
* Reference to field TCheckBox.Left : Integer
|
|||
|
|
|
|
|||
|
|
006F46D7 8B5040 mov edx, [eax+$40]
|
|||
|
|
006F46DA 8BC6 mov eax, esi
|
|||
|
|
006F46DC 8B38 mov edi, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
|||
|
|
|
|
|||
|
|
006F46DE FF9784000000 call dword ptr [edi+$0084]
|
|||
|
|
006F46E4 33C0 xor eax, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0228
|
|||
|
|
|
|
|||
|
|
006F46E6 898628020000 mov [esi+$0228], eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_022C
|
|||
|
|
|
|
|||
|
|
006F46EC C7862C02000000000080 mov dword ptr [esi+$022C], $80000000
|
|||
|
|
|
|||
|
|
* Reference to field TRMSpinEdit.OFFS_0230
|
|||
|
|
|
|
|||
|
|
006F46F6 66C78630020000FF3F mov word ptr [esi+$0230], $3FFF
|
|||
|
|
006F46FF 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4701 E852F3FFFF call 006F3A58
|
|||
|
|
006F4706 5F pop edi
|
|||
|
|
006F4707 5E pop esi
|
|||
|
|
006F4708 5B pop ebx
|
|||
|
|
006F4709 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.btnPrinterPropClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4804 53 push ebx
|
|||
|
|
006F4805 8BD8 mov ebx, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03B0
|
|||
|
|
|
|
|||
|
|
006F4807 8B83B0030000 mov eax, [ebx+$03B0]
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrinterCanvas._PROC_00731970()
|
|||
|
|
|
|
|||
|
|
006F480D E85ED10300 call 00731970
|
|||
|
|
006F4812 84C0 test al, al
|
|||
|
|
006F4814 7407 jz 006F481D
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03AC
|
|||
|
|
|
|
|||
|
|
006F4816 C683AC03000001 mov byte ptr [ebx+$03AC], $01
|
|||
|
|
006F481D 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrintDialogForm._PROC_006F3FF0()
|
|||
|
|
|
|
|||
|
|
006F481F E8CCF7FFFF call 006F3FF0
|
|||
|
|
006F4824 5B pop ebx
|
|||
|
|
006F4825 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.E2Click(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4828 B201 mov dl, $01
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.rbdPrintPapges : TRadioButton
|
|||
|
|
|
|
|||
|
|
006F482A 8B8004030000 mov eax, [eax+$0304]
|
|||
|
|
006F4830 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TRadioButton.SetChecked(Boolean)
|
|||
|
|
|
|
|||
|
|
006F4832 FF91CC000000 call dword ptr [ecx+$00CC]
|
|||
|
|
006F4838 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.rbdPrintPapgesClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F483C 8B8008030000 mov eax, [eax+$0308]
|
|||
|
|
006F4842 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TEdit.SetFocus()
|
|||
|
|
|
|
|||
|
|
006F4844 FF92C4000000 call dword ptr [edx+$00C4]
|
|||
|
|
006F484A C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.chkCollateClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrintDialogForm._PROC_006F3F84()
|
|||
|
|
|
|
|||
|
|
006F484C E833F7FFFF call 006F3F84
|
|||
|
|
006F4851 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.FormClose(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.ModalResult : TModalResult
|
|||
|
|
|
|
|||
|
|
006F4854 83B84C02000001 cmp dword ptr [eax+$024C], +$01
|
|||
|
|
006F485B 7411 jz 006F486E
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0390
|
|||
|
|
|
|
|||
|
|
006F485D 8B9090030000 mov edx, [eax+$0390]
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03B0
|
|||
|
|
|
|
|||
|
|
006F4863 8B80B0030000 mov eax, [eax+$03B0]
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrinterCanvas._PROC_00730534()
|
|||
|
|
|
|
|||
|
|
006F4869 E8C6BC0300 call 00730534
|
|||
|
|
006F486E C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.cmbPrintersChange(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4870 53 push ebx
|
|||
|
|
006F4871 8BD8 mov ebx, eax
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4873 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F4879 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F487B FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F4881 85C0 test eax, eax
|
|||
|
|
006F4883 751D jnz 006F48A2
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4885 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F488B 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F488D FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F4893 8BD0 mov edx, eax
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03B0
|
|||
|
|
|
|
|||
|
|
006F4895 8B83B0030000 mov eax, [ebx+$03B0]
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrinterCanvas._PROC_00730534()
|
|||
|
|
|
|
|||
|
|
006F489B E894BC0300 call 00730534
|
|||
|
|
006F48A0 EB1C jmp 006F48BE
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F48A2 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F48A8 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F48AA FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F48B0 8BD0 mov edx, eax
|
|||
|
|
006F48B2 42 inc edx
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03B0
|
|||
|
|
|
|
|||
|
|
006F48B3 8B83B0030000 mov eax, [ebx+$03B0]
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrinterCanvas._PROC_00730534()
|
|||
|
|
|
|
|||
|
|
006F48B9 E876BC0300 call 00730534
|
|||
|
|
006F48BE 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrintDialogForm._PROC_006F3FF0()
|
|||
|
|
|
|
|||
|
|
006F48C0 E82BF7FFFF call 006F3FF0
|
|||
|
|
006F48C5 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrintDialogForm._PROC_006F3E78()
|
|||
|
|
|
|
|||
|
|
006F48C7 E8ACF5FFFF call 006F3E78
|
|||
|
|
006F48CC 5B pop ebx
|
|||
|
|
006F48CD C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.FormShow(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F48D0 53 push ebx
|
|||
|
|
006F48D1 8BD8 mov ebx, eax
|
|||
|
|
|
|||
|
|
* Reference to: Clipbrd.Clipboard:TClipboard;
|
|||
|
|
| or: ComObj.ComClassManager:TComClassManager;
|
|||
|
|
| or: Graphics.GetFileFormats:TFileFormatsList;
|
|||
|
|
| or: Graphics.GetClipboardFormats:TClipboardFormats;
|
|||
|
|
| or: Printers.Printer:TPrinter;
|
|||
|
|
| or: QClipbrd.Clipboard:TClipboard;
|
|||
|
|
|
|
|||
|
|
006F48D3 E808950300 call 0072DDE0
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.Name : TComponentName
|
|||
|
|
|
|
|||
|
|
006F48D8 8B5008 mov edx, [eax+$08]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F48DB 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Items : TStrings
|
|||
|
|
|
|
|||
|
|
006F48E1 8B803C020000 mov eax, [eax+$023C]
|
|||
|
|
006F48E7 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TStrings.Assign(TPersistent)
|
|||
|
|
|
|
|||
|
|
006F48E9 FF5108 call dword ptr [ecx+$08]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F48EC 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Items : TStrings
|
|||
|
|
|
|
|||
|
|
006F48F2 8B803C020000 mov eax, [eax+$023C]
|
|||
|
|
006F48F8 BA01000000 mov edx, $00000001
|
|||
|
|
006F48FD 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TStrings.OFFS_48
|
|||
|
|
|
|
|||
|
|
006F48FF FF5148 call dword ptr [ecx+$48]
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03B0
|
|||
|
|
|
|
|||
|
|
006F4902 8B83B0030000 mov eax, [ebx+$03B0]
|
|||
|
|
006F4908 8B402C mov eax, [eax+$2C]
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0390
|
|||
|
|
|
|
|||
|
|
006F490B 898390030000 mov [ebx+$0390], eax
|
|||
|
|
006F4911 83F801 cmp eax, +$01
|
|||
|
|
006F4914 7F12 jnle 006F4928
|
|||
|
|
006F4916 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4918 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F491E 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F4920 FF91D0000000 call dword ptr [ecx+$00D0]
|
|||
|
|
006F4926 EB11 jmp 006F4939
|
|||
|
|
006F4928 8BD0 mov edx, eax
|
|||
|
|
006F492A 4A dec edx
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F492B 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F4931 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F4933 FF91D0000000 call dword ptr [ecx+$00D0]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4939 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F493F 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F4941 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F4947 85C0 test eax, eax
|
|||
|
|
006F4949 7D10 jnl 006F495B
|
|||
|
|
006F494B 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F494D 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F4953 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F4955 FF91D0000000 call dword ptr [ecx+$00D0]
|
|||
|
|
006F495B 33D2 xor edx, edx
|
|||
|
|
006F495D 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: Forms.TCustomForm.WMClose(TCustomForm;TWMClose;TWMClose);
|
|||
|
|
| or: Forms.TCustomForm.CMRelease(TCustomForm;TMessage;TMessage);
|
|||
|
|
| or: QForms.TCustomForm.SetParent(TCustomForm;TWidgetControl);
|
|||
|
|
|
|
|||
|
|
006F495F E8E8FEFFFF call 006F484C
|
|||
|
|
006F4964 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrintAll : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4966 8B833C030000 mov eax, [ebx+$033C]
|
|||
|
|
006F496C 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F496E FF91D0000000 call dword ptr [ecx+$00D0]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.Label5 : TLabel
|
|||
|
|
|
|
|||
|
|
006F4974 8B8334030000 mov eax, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to field TLabel.Left : Integer
|
|||
|
|
|
|
|||
|
|
006F497A 8B5040 mov edx, [eax+$40]
|
|||
|
|
006F497D 035048 add edx, [eax+$48]
|
|||
|
|
006F4980 83C20B add edx, +$0B
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrintAll : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4983 8B833C030000 mov eax, [ebx+$033C]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
|||
|
|
|
|
|||
|
|
006F4989 E8AA33D9FF call 00487D38
|
|||
|
|
006F498E 83CAFF or edx, -$01
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4991 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
006F4997 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F4999 FF91D0000000 call dword ptr [ecx+$00D0]
|
|||
|
|
006F499F 33D2 xor edx, edx
|
|||
|
|
006F49A1 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrintDialogForm.cmbPrintersChange()
|
|||
|
|
|
|
|||
|
|
006F49A3 E8C8FEFFFF call 006F4870
|
|||
|
|
006F49A8 DB83A0030000 fild dword ptr [ebx+$03A0]
|
|||
|
|
006F49AE D835E8496F00 fdiv dword ptr [$006F49E8]
|
|||
|
|
006F49B4 83C4F4 add esp, -$0C
|
|||
|
|
006F49B7 DB3C24 fstp tbyte ptr [esp]
|
|||
|
|
006F49BA 9B wait
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0398
|
|||
|
|
|
|
|||
|
|
006F49BB 8B8398030000 mov eax, [ebx+$0398]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F49C1 E89E130400 call 00735D64
|
|||
|
|
006F49C6 DB83A4030000 fild dword ptr [ebx+$03A4]
|
|||
|
|
006F49CC D835E8496F00 fdiv dword ptr [$006F49E8]
|
|||
|
|
006F49D2 83C4F4 add esp, -$0C
|
|||
|
|
006F49D5 DB3C24 fstp tbyte ptr [esp]
|
|||
|
|
006F49D8 9B wait
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_039C
|
|||
|
|
|
|
|||
|
|
006F49D9 8B839C030000 mov eax, [ebx+$039C]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F49DF E880130400 call 00735D64
|
|||
|
|
006F49E4 5B pop ebx
|
|||
|
|
006F49E5 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm.FormCloseQuery(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4AAC 55 push ebp
|
|||
|
|
006F4AAD 8BEC mov ebp, esp
|
|||
|
|
006F4AAF 51 push ecx
|
|||
|
|
006F4AB0 B904000000 mov ecx, $00000004
|
|||
|
|
006F4AB5 6A00 push $00
|
|||
|
|
006F4AB7 6A00 push $00
|
|||
|
|
006F4AB9 49 dec ecx
|
|||
|
|
006F4ABA 75F9 jnz 006F4AB5
|
|||
|
|
006F4ABC 874DFC xchg [ebp-$04], ecx
|
|||
|
|
006F4ABF 53 push ebx
|
|||
|
|
006F4AC0 56 push esi
|
|||
|
|
006F4AC1 57 push edi
|
|||
|
|
006F4AC2 894DFC mov [ebp-$04], ecx
|
|||
|
|
006F4AC5 8BD8 mov ebx, eax
|
|||
|
|
006F4AC7 33C0 xor eax, eax
|
|||
|
|
006F4AC9 55 push ebp
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
|||
|
|
|
|
|||
|
|
006F4ACA 68134C6F00 push $006F4C13
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
006F4ACF 64FF30 push dword ptr fs:[eax]
|
|||
|
|
006F4AD2 648920 mov fs:[eax], esp
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.ModalResult : TModalResult
|
|||
|
|
|
|
|||
|
|
006F4AD5 83BB4C02000001 cmp dword ptr [ebx+$024C], +$01
|
|||
|
|
006F4ADC 0F850E010000 jnz 006F4BF0
|
|||
|
|
006F4AE2 8D55F4 lea edx, [ebp-$0C]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4AE5 8BB308030000 mov esi, [ebx+$0308]
|
|||
|
|
006F4AEB 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
006F4AED E8FE3AD9FF call 004885F0
|
|||
|
|
006F4AF2 8B45F4 mov eax, [ebp-$0C]
|
|||
|
|
006F4AF5 8D55F8 lea edx, [ebp-$08]
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
|||
|
|
|
|
|||
|
|
006F4AF8 E8EF5DD1FF call 0040A8EC
|
|||
|
|
006F4AFD 8B55F8 mov edx, [ebp-$08]
|
|||
|
|
006F4B00 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F4B02 E8193BD9FF call 00488620
|
|||
|
|
006F4B07 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4B0A 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
006F4B10 E8DB3AD9FF call 004885F0
|
|||
|
|
006F4B15 8B45F0 mov eax, [ebp-$10]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrLen(String):Integer;
|
|||
|
|
| or: System.@DynArrayLength;
|
|||
|
|
| or: System.DynArraySize(Pointer):Integer;
|
|||
|
|
| or: Variants.DynArraySize(Pointer):Integer;
|
|||
|
|
|
|
|||
|
|
006F4B18 E8D70AD1FF call 004055F4
|
|||
|
|
006F4B1D 85C0 test eax, eax
|
|||
|
|
006F4B1F 7E2D jle 006F4B4E
|
|||
|
|
006F4B21 8D55EC lea edx, [ebp-$14]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4B24 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
006F4B2A E8C13AD9FF call 004885F0
|
|||
|
|
006F4B2F 8B45EC mov eax, [ebp-$14]
|
|||
|
|
006F4B32 8A00 mov al, byte ptr [eax]
|
|||
|
|
006F4B34 04CF add al, -$31
|
|||
|
|
006F4B36 2C09 sub al, $09
|
|||
|
|
006F4B38 7214 jb 006F4B4E
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4B3A 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
006F4B40 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TEdit.SetFocus()
|
|||
|
|
|
|
|||
|
|
006F4B42 FF92C4000000 call dword ptr [edx+$00C4]
|
|||
|
|
006F4B48 8B45FC mov eax, [ebp-$04]
|
|||
|
|
006F4B4B C60000 mov byte ptr [eax], $00
|
|||
|
|
006F4B4E 8D55E8 lea edx, [ebp-$18]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4B51 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
006F4B57 E8943AD9FF call 004885F0
|
|||
|
|
006F4B5C 8B45E8 mov eax, [ebp-$18]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrLen(String):Integer;
|
|||
|
|
| or: System.@DynArrayLength;
|
|||
|
|
| or: System.DynArraySize(Pointer):Integer;
|
|||
|
|
| or: Variants.DynArraySize(Pointer):Integer;
|
|||
|
|
|
|
|||
|
|
006F4B5F E8900AD1FF call 004055F4
|
|||
|
|
006F4B64 8BF8 mov edi, eax
|
|||
|
|
006F4B66 85FF test edi, edi
|
|||
|
|
006F4B68 0F8E82000000 jle 006F4BF0
|
|||
|
|
006F4B6E BE01000000 mov esi, $00000001
|
|||
|
|
006F4B73 8D55E4 lea edx, [ebp-$1C]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4B76 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
006F4B7C E86F3AD9FF call 004885F0
|
|||
|
|
006F4B81 8B45E4 mov eax, [ebp-$1C]
|
|||
|
|
006F4B84 8A4430FF mov al, byte ptr [eax+esi-$01]
|
|||
|
|
006F4B88 04D0 add al, -$30
|
|||
|
|
006F4B8A 2C0A sub al, $0A
|
|||
|
|
006F4B8C 725E jb 006F4BEC
|
|||
|
|
006F4B8E 8D55E0 lea edx, [ebp-$20]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4B91 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
006F4B97 E8543AD9FF call 004885F0
|
|||
|
|
006F4B9C 8B45E0 mov eax, [ebp-$20]
|
|||
|
|
006F4B9F 807C30FF2C cmp byte ptr [eax+esi-$01], $2C
|
|||
|
|
006F4BA4 7446 jz 006F4BEC
|
|||
|
|
006F4BA6 8D55DC lea edx, [ebp-$24]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.edtPages : TEdit
|
|||
|
|
|
|
|||
|
|
006F4BA9 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
006F4BAF E83C3AD9FF call 004885F0
|
|||
|
|
006F4BB4 8B45DC mov eax, [ebp-$24]
|
|||
|
|
006F4BB7 807C30FF2D cmp byte ptr [eax+esi-$01], $2D
|
|||
|
|
006F4BBC 742E jz 006F4BEC
|
|||
|
|
006F4BBE 6A10 push $10
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'Page Number Setting Error!'
|
|||
|
|
|
|
|||
|
|
006F4BC0 BA244C6F00 mov edx, $006F4C24
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F3DA9(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F3DA9 8BEC mov ebp, esp
|
|||
|
|
006F3DAB 83C4F8 add esp, -$08
|
|||
|
|
006F3DAE 53 push ebx
|
|||
|
|
006F3DAF 56 push esi
|
|||
|
|
006F3DB0 57 push edi
|
|||
|
|
006F3DB1 894DF8 mov [ebp-$08], ecx
|
|||
|
|
006F3DB4 8955FC mov [ebp-$04], edx
|
|||
|
|
006F3DB7 8BD8 mov ebx, eax
|
|||
|
|
006F3DB9 8B7D08 mov edi, [ebp+$08]
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0394
|
|||
|
|
|
|
|||
|
|
006F3DBC 8B8394030000 mov eax, [ebx+$0394]
|
|||
|
|
|
|||
|
|
* Reference to: AdaptReq.TMultiRecordActionRequestImpl.GetFieldValues(TMultiRecordActionRequestImpl):TActionFieldValuesImpl;
|
|||
|
|
| or: ComCtrls.TCustomTabControl.RowCount(TCustomTabControl):Integer;
|
|||
|
|
| or: ComCtrls.TTreeNode.GetHandle(TTreeNode):HWND;
|
|||
|
|
| or: ComCtrls.TCustomTreeView.GetIndent(TCustomTreeView):Integer;
|
|||
|
|
| or: ComCtrls.TListItem.GetHandle(TListItem):HWND;
|
|||
|
|
| or: ComCtrls.TCustomListView.GetSelCount(TCustomListView):Integer;
|
|||
|
|
|
|
|||
|
|
006F3DC2 E851200400 call 00735E18
|
|||
|
|
006F3DC7 8907 mov [edi], eax
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3DC9 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
006F3DCF 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3DD1 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3DD7 48 dec eax
|
|||
|
|
006F3DD8 7D0B jnl 006F3DE5
|
|||
|
|
006F3DDA C707FFFFFFFF mov dword ptr [edi], $FFFFFFFF
|
|||
|
|
006F3DE0 E989000000 jmp 006F3E6E
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3DE5 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F3DEB 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3DED FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3DF3 85C0 test eax, eax
|
|||
|
|
006F3DF5 7504 jnz 006F3DFB
|
|||
|
|
006F3DF7 33F6 xor esi, esi
|
|||
|
|
006F3DF9 EB11 jmp 006F3E0C
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3DFB 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F3E01 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3E03 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3E09 8BF0 mov esi, eax
|
|||
|
|
006F3E0B 46 inc esi
|
|||
|
|
|
|||
|
|
* Reference to: Clipbrd.Clipboard:TClipboard;
|
|||
|
|
| or: ComObj.ComClassManager:TComClassManager;
|
|||
|
|
| or: Graphics.GetFileFormats:TFileFormatsList;
|
|||
|
|
| or: Graphics.GetClipboardFormats:TClipboardFormats;
|
|||
|
|
| or: Printers.Printer:TPrinter;
|
|||
|
|
| or: QClipbrd.Clipboard:TClipboard;
|
|||
|
|
|
|
|||
|
|
006F3E0C E8CF9F0300 call 0072DDE0
|
|||
|
|
006F3E11 8BD6 mov edx, esi
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F3E13 E8C8B60300 call 0072F4E0
|
|||
|
|
006F3E18 8BF0 mov esi, eax
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3E1A 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
006F3E20 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3E22 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3E28 8BD0 mov edx, eax
|
|||
|
|
006F3E2A 4A dec edx
|
|||
|
|
006F3E2B 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F3E2D E89AB20300 call 0072F0CC
|
|||
|
|
006F3E32 8907 mov [edi], eax
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3E34 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
006F3E3A 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3E3C FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3E42 8BD0 mov edx, eax
|
|||
|
|
006F3E44 4A dec edx
|
|||
|
|
006F3E45 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F3E47 E820B00300 call 0072EE6C
|
|||
|
|
006F3E4C 8B55FC mov edx, [ebp-$04]
|
|||
|
|
006F3E4F 8902 mov [edx], eax
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3E51 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
006F3E57 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3E59 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3E5F 8BD0 mov edx, eax
|
|||
|
|
006F3E61 4A dec edx
|
|||
|
|
006F3E62 8BC6 mov eax, esi
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F3E64 E89BB00300 call 0072EF04
|
|||
|
|
006F3E69 8B55F8 mov edx, [ebp-$08]
|
|||
|
|
006F3E6C 8902 mov [edx], eax
|
|||
|
|
006F3E6E 5F pop edi
|
|||
|
|
006F3E6F 5E pop esi
|
|||
|
|
006F3E70 5B pop ebx
|
|||
|
|
006F3E71 59 pop ecx
|
|||
|
|
006F3E72 59 pop ecx
|
|||
|
|
006F3E73 5D pop ebp
|
|||
|
|
006F3E74 C20400 ret $0004
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F3E78(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F3E78 55 push ebp
|
|||
|
|
006F3E79 8BEC mov ebp, esp
|
|||
|
|
006F3E7B 83C4F0 add esp, -$10
|
|||
|
|
006F3E7E 53 push ebx
|
|||
|
|
006F3E7F 56 push esi
|
|||
|
|
006F3E80 57 push edi
|
|||
|
|
006F3E81 33D2 xor edx, edx
|
|||
|
|
006F3E83 8955F0 mov [ebp-$10], edx
|
|||
|
|
006F3E86 8955F4 mov [ebp-$0C], edx
|
|||
|
|
006F3E89 8BD8 mov ebx, eax
|
|||
|
|
006F3E8B 33C0 xor eax, eax
|
|||
|
|
006F3E8D 55 push ebp
|
|||
|
|
006F3E8E 68743F6F00 push $006F3F74
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
006F3E93 64FF30 push dword ptr fs:[eax]
|
|||
|
|
006F3E96 648920 mov fs:[eax], esp
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3E99 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Items : TStrings
|
|||
|
|
|
|
|||
|
|
006F3E9F 8B803C020000 mov eax, [eax+$023C]
|
|||
|
|
006F3EA5 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TStrings.OFFS_44
|
|||
|
|
|
|
|||
|
|
006F3EA7 FF5244 call dword ptr [edx+$44]
|
|||
|
|
006F3EAA 8D55F4 lea edx, [ebp-$0C]
|
|||
|
|
006F3EAD B80EB70000 mov eax, $0000B70E
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F3EB2 E8E5440800 call 0077839C
|
|||
|
|
006F3EB7 8B55F4 mov edx, [ebp-$0C]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3EBA 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Items : TStrings
|
|||
|
|
|
|
|||
|
|
006F3EC0 8B803C020000 mov eax, [eax+$023C]
|
|||
|
|
006F3EC6 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TStrings.Add(string)
|
|||
|
|
|
|
|||
|
|
006F3EC8 FF5138 call dword ptr [ecx+$38]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3ECB 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F3ED1 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3ED3 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3ED9 85C0 test eax, eax
|
|||
|
|
006F3EDB 7504 jnz 006F3EE1
|
|||
|
|
006F3EDD 33F6 xor esi, esi
|
|||
|
|
006F3EDF EB11 jmp 006F3EF2
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3EE1 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F3EE7 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3EE9 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F3EEF 8BF0 mov esi, eax
|
|||
|
|
006F3EF1 46 inc esi
|
|||
|
|
006F3EF2 85F6 test esi, esi
|
|||
|
|
006F3EF4 7C53 jl 006F3F49
|
|||
|
|
|
|||
|
|
* Reference to: Clipbrd.Clipboard:TClipboard;
|
|||
|
|
| or: ComObj.ComClassManager:TComClassManager;
|
|||
|
|
| or: Graphics.GetFileFormats:TFileFormatsList;
|
|||
|
|
| or: Graphics.GetClipboardFormats:TClipboardFormats;
|
|||
|
|
| or: Printers.Printer:TPrinter;
|
|||
|
|
| or: QClipbrd.Clipboard:TClipboard;
|
|||
|
|
|
|
|||
|
|
006F3EF6 E8E59E0300 call 0072DDE0
|
|||
|
|
006F3EFB 8BD6 mov edx, esi
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F3EFD E8DEB50300 call 0072F4E0
|
|||
|
|
006F3F02 8945F8 mov [ebp-$08], eax
|
|||
|
|
006F3F05 8B45F8 mov eax, [ebp-$08]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F3F08 E813A20300 call 0072E120
|
|||
|
|
006F3F0D 8BF0 mov esi, eax
|
|||
|
|
006F3F0F 83EE02 sub esi, +$02
|
|||
|
|
006F3F12 85F6 test esi, esi
|
|||
|
|
006F3F14 7C33 jl 006F3F49
|
|||
|
|
006F3F16 46 inc esi
|
|||
|
|
006F3F17 C745FC00000000 mov dword ptr [ebp-$04], $00000000
|
|||
|
|
006F3F1E 8D4DF0 lea ecx, [ebp-$10]
|
|||
|
|
006F3F21 8B45F8 mov eax, [ebp-$08]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.VCLComObject : Pointer
|
|||
|
|
|
|
|||
|
|
006F3F24 8B4020 mov eax, [eax+$20]
|
|||
|
|
006F3F27 8B55FC mov edx, [ebp-$04]
|
|||
|
|
006F3F2A 8B38 mov edi, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TPointer.OFFS_0C
|
|||
|
|
|
|
|||
|
|
006F3F2C FF570C call dword ptr [edi+$0C]
|
|||
|
|
006F3F2F 8B55F0 mov edx, [ebp-$10]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3F32 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
|
|||
|
|
* Reference to field TComboBox.Items : TStrings
|
|||
|
|
|
|
|||
|
|
006F3F38 8B803C020000 mov eax, [eax+$023C]
|
|||
|
|
006F3F3E 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TStrings.Add(string)
|
|||
|
|
|
|
|||
|
|
006F3F40 FF5138 call dword ptr [ecx+$38]
|
|||
|
|
006F3F43 FF45FC inc dword ptr [ebp-$04]
|
|||
|
|
006F3F46 4E dec esi
|
|||
|
|
006F3F47 75D5 jnz 006F3F1E
|
|||
|
|
006F3F49 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbScalePapers : TComboBox
|
|||
|
|
|
|
|||
|
|
006F3F4B 8B8378030000 mov eax, [ebx+$0378]
|
|||
|
|
006F3F51 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F3F53 FF91D0000000 call dword ptr [ecx+$00D0]
|
|||
|
|
006F3F59 33C0 xor eax, eax
|
|||
|
|
006F3F5B 5A pop edx
|
|||
|
|
006F3F5C 59 pop ecx
|
|||
|
|
006F3F5D 59 pop ecx
|
|||
|
|
006F3F5E 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
006F3F61 687B3F6F00 push $006F3F7B
|
|||
|
|
006F3F66 8D45F0 lea eax, [ebp-$10]
|
|||
|
|
006F3F69 BA02000000 mov edx, $00000002
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
|||
|
|
|
|
|||
|
|
006F3F6E E8D513D1FF call 00405348
|
|||
|
|
006F3F73 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
006F3F74 E97B0BD1FF jmp 00404AF4
|
|||
|
|
006F3F79 EBEB jmp 006F3F66
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
006F3F7B 5F pop edi
|
|||
|
|
006F3F7C 5E pop esi
|
|||
|
|
006F3F7D 5B pop ebx
|
|||
|
|
006F3F7E 8BE5 mov esp, ebp
|
|||
|
|
006F3F80 5D pop ebp
|
|||
|
|
006F3F81 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F3F84(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F3F84 53 push ebx
|
|||
|
|
006F3F85 8BD8 mov ebx, eax
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.chkCollate : TCheckBox
|
|||
|
|
|
|
|||
|
|
006F3F87 8B832C030000 mov eax, [ebx+$032C]
|
|||
|
|
006F3F8D 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TCheckBox.GetChecked()
|
|||
|
|
|
|
|||
|
|
006F3F8F FF92C8000000 call dword ptr [edx+$00C8]
|
|||
|
|
006F3F95 84C0 test al, al
|
|||
|
|
006F3F97 742B jz 006F3FC4
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.Image2 : TImage
|
|||
|
|
|
|
|||
|
|
006F3F99 8B8368030000 mov eax, [ebx+$0368]
|
|||
|
|
|
|||
|
|
* Reference to field TImage.Picture : TPicture
|
|||
|
|
|
|
|||
|
|
006F3F9F 8B8068010000 mov eax, [eax+$0168]
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: Graphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
| or: Graphics.TPicture.GetMetafile(TPicture):TMetafile;
|
|||
|
|
| or: QGraphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: QGraphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
|
|
|||
|
|
006F3FA5 E8F201D4FF call 0043419C
|
|||
|
|
006F3FAA 50 push eax
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.imgCollate : TImage
|
|||
|
|
|
|
|||
|
|
006F3FAB 8B8350030000 mov eax, [ebx+$0350]
|
|||
|
|
|
|||
|
|
* Reference to field TImage.Picture : TPicture
|
|||
|
|
|
|
|||
|
|
006F3FB1 8B8068010000 mov eax, [eax+$0168]
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: Graphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
| or: Graphics.TPicture.GetMetafile(TPicture):TMetafile;
|
|||
|
|
| or: QGraphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: QGraphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
|
|
|||
|
|
006F3FB7 E8E001D4FF call 0043419C
|
|||
|
|
006F3FBC 5A pop edx
|
|||
|
|
006F3FBD 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TPicture.Assign(TPersistent)
|
|||
|
|
|
|
|||
|
|
006F3FBF FF5108 call dword ptr [ecx+$08]
|
|||
|
|
006F3FC2 5B pop ebx
|
|||
|
|
006F3FC3 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to control Label11 : N.A.
|
|||
|
|
|
|
|||
|
|
006F3FC4 8B8364030000 mov eax, [ebx+$0364]
|
|||
|
|
|
|||
|
|
* Reference to field N.A..OFFS_0168
|
|||
|
|
|
|
|||
|
|
006F3FCA 8B8068010000 mov eax, [eax+$0168]
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: Graphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
| or: Graphics.TPicture.GetMetafile(TPicture):TMetafile;
|
|||
|
|
| or: QGraphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: QGraphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
|
|
|||
|
|
006F3FD0 E8C701D4FF call 0043419C
|
|||
|
|
006F3FD5 50 push eax
|
|||
|
|
|
|||
|
|
* Reference to control v1PRTOrderQty : N.A.
|
|||
|
|
|
|
|||
|
|
006F3FD6 8B8350030000 mov eax, [ebx+$0350]
|
|||
|
|
|
|||
|
|
* Reference to field N.A..OFFS_0168
|
|||
|
|
|
|
|||
|
|
006F3FDC 8B8068010000 mov eax, [eax+$0168]
|
|||
|
|
|
|||
|
|
* Reference to: Graphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: Graphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
| or: Graphics.TPicture.GetMetafile(TPicture):TMetafile;
|
|||
|
|
| or: QGraphics.TPicture.GetBitmap(TPicture):TBitmap;
|
|||
|
|
| or: QGraphics.TPicture.GetIcon(TPicture):TIcon;
|
|||
|
|
|
|
|||
|
|
006F3FE2 E8B501D4FF call 0043419C
|
|||
|
|
006F3FE7 5A pop edx
|
|||
|
|
006F3FE8 8B08 mov ecx, [eax]
|
|||
|
|
006F3FEA FF5108 call dword ptr [ecx+$08]
|
|||
|
|
006F3FED 5B pop ebx
|
|||
|
|
006F3FEE C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F3FF0(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F3FF0 55 push ebp
|
|||
|
|
006F3FF1 8BEC mov ebp, esp
|
|||
|
|
006F3FF3 B905000000 mov ecx, $00000005
|
|||
|
|
006F3FF8 6A00 push $00
|
|||
|
|
006F3FFA 6A00 push $00
|
|||
|
|
006F3FFC 49 dec ecx
|
|||
|
|
006F3FFD 75F9 jnz 006F3FF8
|
|||
|
|
006F3FFF 51 push ecx
|
|||
|
|
006F4000 53 push ebx
|
|||
|
|
006F4001 8BD8 mov ebx, eax
|
|||
|
|
006F4003 33C0 xor eax, eax
|
|||
|
|
006F4005 55 push ebp
|
|||
|
|
006F4006 68B4446F00 push $006F44B4
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
006F400B 64FF30 push dword ptr fs:[eax]
|
|||
|
|
006F400E 648920 mov fs:[eax], esp
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblType : TLabel
|
|||
|
|
|
|
|||
|
|
006F4011 8B8358030000 mov eax, [ebx+$0358]
|
|||
|
|
006F4017 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F4019 E80246D9FF call 00488620
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblPosition : TLabel
|
|||
|
|
|
|
|||
|
|
006F401E 8B835C030000 mov eax, [ebx+$035C]
|
|||
|
|
006F4024 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F4026 E8F545D9FF call 00488620
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblCommon : TLabel
|
|||
|
|
|
|
|||
|
|
006F402B 8B8360030000 mov eax, [ebx+$0360]
|
|||
|
|
006F4031 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F4033 E8E845D9FF call 00488620
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblStatus : TLabel
|
|||
|
|
|
|
|||
|
|
006F4038 8B8354030000 mov eax, [ebx+$0354]
|
|||
|
|
006F403E 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F4040 E8DB45D9FF call 00488620
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F4045 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F404B 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F404D FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F4053 85C0 test eax, eax
|
|||
|
|
006F4055 7504 jnz 006F405B
|
|||
|
|
006F4057 33C0 xor eax, eax
|
|||
|
|
006F4059 EB0F jmp 006F406A
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.cmbPrinters : TComboBox
|
|||
|
|
|
|
|||
|
|
006F405B 8B831C030000 mov eax, [ebx+$031C]
|
|||
|
|
006F4061 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TComboBox.ItemIndex()
|
|||
|
|
|
|
|||
|
|
006F4063 FF92CC000000 call dword ptr [edx+$00CC]
|
|||
|
|
006F4069 40 inc eax
|
|||
|
|
006F406A 85C0 test eax, eax
|
|||
|
|
006F406C 0F8C27040000 jl 006F4499
|
|||
|
|
006F4072 8D45F4 lea eax, [ebp-$0C]
|
|||
|
|
006F4075 50 push eax
|
|||
|
|
006F4076 6A00 push $00
|
|||
|
|
006F4078 6A00 push $00
|
|||
|
|
006F407A 6A02 push $02
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03B0
|
|||
|
|
|
|
|||
|
|
006F407C 8B83B0030000 mov eax, [ebx+$03B0]
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrinterCanvas._PROC_0072FFE0()
|
|||
|
|
|
|
|||
|
|
006F4082 E859BF0300 call 0072FFE0
|
|||
|
|
006F4087 50 push eax
|
|||
|
|
|
|||
|
|
* Reference to: winspool.GetPrinterA()
|
|||
|
|
|
|
|||
|
|
006F4088 E81F78D4FF call 0043B8AC
|
|||
|
|
006F408D 8B45F4 mov eax, [ebp-$0C]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4090 E827EBD0FF call 00402BBC
|
|||
|
|
006F4095 8945FC mov [ebp-$04], eax
|
|||
|
|
006F4098 33D2 xor edx, edx
|
|||
|
|
006F409A 55 push ebp
|
|||
|
|
006F409B 6892446F00 push $006F4492
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
006F40A0 64FF32 push dword ptr fs:[edx]
|
|||
|
|
006F40A3 648922 mov fs:[edx], esp
|
|||
|
|
006F40A6 8D45F8 lea eax, [ebp-$08]
|
|||
|
|
006F40A9 50 push eax
|
|||
|
|
006F40AA 8B45F4 mov eax, [ebp-$0C]
|
|||
|
|
006F40AD 50 push eax
|
|||
|
|
006F40AE 8B45FC mov eax, [ebp-$04]
|
|||
|
|
006F40B1 50 push eax
|
|||
|
|
006F40B2 6A02 push $02
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03B0
|
|||
|
|
|
|
|||
|
|
006F40B4 8B83B0030000 mov eax, [ebx+$03B0]
|
|||
|
|
|
|||
|
|
* Reference to : TRMPrinterCanvas._PROC_0072FFE0()
|
|||
|
|
|
|
|||
|
|
006F40BA E821BF0300 call 0072FFE0
|
|||
|
|
006F40BF 50 push eax
|
|||
|
|
|
|||
|
|
* Reference to: winspool.GetPrinterA()
|
|||
|
|
|
|
|||
|
|
006F40C0 E8E777D4FF call 0043B8AC
|
|||
|
|
006F40C5 85C0 test eax, eax
|
|||
|
|
006F40C7 0F84AC030000 jz 006F4479
|
|||
|
|
006F40CD 8D45EC lea eax, [ebp-$14]
|
|||
|
|
006F40D0 8B55FC mov edx, [ebp-$04]
|
|||
|
|
006F40D3 8B5210 mov edx, [edx+$10]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrFromPChar(String;String;PAnsiChar);
|
|||
|
|
| or: System.@WStrFromPChar(WideString;WideString;PAnsiChar);
|
|||
|
|
|
|
|||
|
|
006F40D6 E85114D1FF call 0040552C
|
|||
|
|
006F40DB 8B55EC mov edx, [ebp-$14]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblType : TLabel
|
|||
|
|
|
|
|||
|
|
006F40DE 8B8358030000 mov eax, [ebx+$0358]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F40E4 E83745D9FF call 00488620
|
|||
|
|
006F40E9 8D45E8 lea eax, [ebp-$18]
|
|||
|
|
006F40EC 8B55FC mov edx, [ebp-$04]
|
|||
|
|
006F40EF 8B520C mov edx, [edx+$0C]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrFromPChar(String;String;PAnsiChar);
|
|||
|
|
| or: System.@WStrFromPChar(WideString;WideString;PAnsiChar);
|
|||
|
|
|
|
|||
|
|
006F40F2 E83514D1FF call 0040552C
|
|||
|
|
006F40F7 8B55E8 mov edx, [ebp-$18]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblPosition : TLabel
|
|||
|
|
|
|
|||
|
|
006F40FA 8B835C030000 mov eax, [ebx+$035C]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F4100 E81B45D9FF call 00488620
|
|||
|
|
006F4105 8D45E4 lea eax, [ebp-$1C]
|
|||
|
|
006F4108 8B55FC mov edx, [ebp-$04]
|
|||
|
|
006F410B 8B5214 mov edx, [edx+$14]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrFromPChar(String;String;PAnsiChar);
|
|||
|
|
| or: System.@WStrFromPChar(WideString;WideString;PAnsiChar);
|
|||
|
|
|
|
|||
|
|
006F410E E81914D1FF call 0040552C
|
|||
|
|
006F4113 8B55E4 mov edx, [ebp-$1C]
|
|||
|
|
|
|||
|
|
* Reference to control TRMPrintDialogForm.lblCommon : TLabel
|
|||
|
|
|
|
|||
|
|
006F4116 8B8360030000 mov eax, [ebx+$0360]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F411C E8FF44D9FF call 00488620
|
|||
|
|
006F4121 8B45FC mov eax, [ebp-$04]
|
|||
|
|
006F4124 83784C00 cmp dword ptr [eax+$4C], +$00
|
|||
|
|
006F4128 760F jbe 006F4139
|
|||
|
|
006F412A 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F412D B810B70000 mov eax, $0000B710
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4132 E865420800 call 0077839C
|
|||
|
|
006F4137 EB0D jmp 006F4146
|
|||
|
|
006F4139 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F413C B811B70000 mov eax, $0000B711
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4141 E856420800 call 0077839C
|
|||
|
|
006F4146 8B45FC mov eax, [ebp-$04]
|
|||
|
|
006F4149 8B4048 mov eax, [eax+$48]
|
|||
|
|
006F414C 85C0 test eax, eax
|
|||
|
|
006F414E 0F84BF020000 jz 006F4413
|
|||
|
|
006F4154 3D00080000 cmp eax, $00000800
|
|||
|
|
006F4159 0F8FA4000000 jnle 006F4203
|
|||
|
|
006F415F 0F84E1010000 jz 006F4346
|
|||
|
|
006F4165 83F820 cmp eax, +$20
|
|||
|
|
006F4168 7F5A jnle 006F41C4
|
|||
|
|
006F416A 0F847C010000 jz 006F42EC
|
|||
|
|
006F4170 83F810 cmp eax, +$10
|
|||
|
|
006F4173 0F879A020000 jnbe 006F4413
|
|||
|
|
006F4179 FF248580416F00 jmp dword ptr [$6F4180+eax*4]
|
|||
|
|
006F4180 13446F00 adc eax, [edi+ebp*2+$00]
|
|||
|
|
006F4184 9D pop
|
|||
|
|
006F4185 43 inc ebx
|
|||
|
|
006F4186 6F outsd
|
|||
|
|
006F4187 00B6426F0013 add [esi+$13006F42], dh
|
|||
|
|
006F418D 44 inc esp
|
|||
|
|
006F418E 6F outsd
|
|||
|
|
006F418F 00AC436F001344 add [ebx+eax*2+$4413006F], ch
|
|||
|
|
006F4196 6F outsd
|
|||
|
|
006F4197 0013 add [ebx], dl
|
|||
|
|
006F4199 44 inc esp
|
|||
|
|
006F419A 6F outsd
|
|||
|
|
006F419B 0013 add [ebx], dl
|
|||
|
|
006F419D 44 inc esp
|
|||
|
|
006F419E 6F outsd
|
|||
|
|
006F419F 006A43 add [edx+$43], ch
|
|||
|
|
006F41A2 6F outsd
|
|||
|
|
006F41A3 0013 add [ebx], dl
|
|||
|
|
006F41A5 44 inc esp
|
|||
|
|
006F41A6 6F outsd
|
|||
|
|
006F41A7 0013 add [ebx], dl
|
|||
|
|
006F41A9 44 inc esp
|
|||
|
|
006F41AA 6F outsd
|
|||
|
|
006F41AB 0013 add [ebx], dl
|
|||
|
|
006F41AD 44 inc esp
|
|||
|
|
006F41AE 6F outsd
|
|||
|
|
006F41AF 0013 add [ebx], dl
|
|||
|
|
006F41B1 44 inc esp
|
|||
|
|
006F41B2 6F outsd
|
|||
|
|
006F41B3 0013 add [ebx], dl
|
|||
|
|
006F41B5 44 inc esp
|
|||
|
|
006F41B6 6F outsd
|
|||
|
|
006F41B7 0013 add [ebx], dl
|
|||
|
|
006F41B9 44 inc esp
|
|||
|
|
006F41BA 6F outsd
|
|||
|
|
006F41BB 0013 add [ebx], dl
|
|||
|
|
006F41BD 44 inc esp
|
|||
|
|
006F41BE 6F outsd
|
|||
|
|
006F41BF 007C436F add [ebx+eax*2+$6F], bh
|
|||
|
|
006F41C3 003D00010000 add [$00000100], bh
|
|||
|
|
006F41C9 7F1D jnle 006F41E8
|
|||
|
|
006F41CB 0F8409010000 jz 006F42DA
|
|||
|
|
006F41D1 83E840 sub eax, +$40
|
|||
|
|
006F41D4 0F84B4010000 jz 006F438E
|
|||
|
|
006F41DA 83E840 sub eax, +$40
|
|||
|
|
006F41DD 0F843F010000 jz 006F4322
|
|||
|
|
006F41E3 E92B020000 jmp 006F4413
|
|||
|
|
006F41E8 2D00020000 sub eax, $00000200
|
|||
|
|
006F41ED 0F849F000000 jz 006F4292
|
|||
|
|
006F41F3 2D00020000 sub eax, $00000200
|
|||
|
|
006F41F8 0F84BD010000 jz 006F43BB
|
|||
|
|
006F41FE E910020000 jmp 006F4413
|
|||
|
|
006F4203 3D00000200 cmp eax, $00020000
|
|||
|
|
006F4208 7F49 jnle 006F4253
|
|||
|
|
006F420A 0F84C9010000 jz 006F43D9
|
|||
|
|
006F4210 3D00400000 cmp eax, $00004000
|
|||
|
|
006F4215 7F21 jnle 006F4238
|
|||
|
|
006F4217 0F84AD010000 jz 006F43CA
|
|||
|
|
006F421D 2D00100000 sub eax, $00001000
|
|||
|
|
006F4222 0F84E8000000 jz 006F4310
|
|||
|
|
006F4228 2D00100000 sub eax, $00001000
|
|||
|
|
006F422D 0F84C4010000 jz 006F43F7
|
|||
|
|
006F4233 E9DB010000 jmp 006F4413
|
|||
|
|
006F4238 2D00800000 sub eax, $00008000
|
|||
|
|
006F423D 0F8485000000 jz 006F42C8
|
|||
|
|
006F4243 2D00800000 sub eax, $00008000
|
|||
|
|
006F4248 0F84B8010000 jz 006F4406
|
|||
|
|
006F424E E9C0010000 jmp 006F4413
|
|||
|
|
006F4253 3D00001000 cmp eax, $00100000
|
|||
|
|
006F4258 7F21 jnle 006F427B
|
|||
|
|
006F425A 0F8488010000 jz 006F43E8
|
|||
|
|
006F4260 2D00000400 sub eax, $00040000
|
|||
|
|
006F4265 0F8493000000 jz 006F42FE
|
|||
|
|
006F426B 2D00000400 sub eax, $00040000
|
|||
|
|
006F4270 0F84E2000000 jz 006F4358
|
|||
|
|
006F4276 E998010000 jmp 006F4413
|
|||
|
|
006F427B 2D00002000 sub eax, $00200000
|
|||
|
|
006F4280 0F84AE000000 jz 006F4334
|
|||
|
|
006F4286 2D00002000 sub eax, $00200000
|
|||
|
|
006F428B 7417 jz 006F42A4
|
|||
|
|
006F428D E981010000 jmp 006F4413
|
|||
|
|
006F4292 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4295 B8F1B60000 mov eax, $0000B6F1
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F429A E8FD400800 call 0077839C
|
|||
|
|
006F429F E96F010000 jmp 006F4413
|
|||
|
|
006F42A4 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F42A7 B8F2B60000 mov eax, $0000B6F2
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F42AC E8EB400800 call 0077839C
|
|||
|
|
006F42B1 E95D010000 jmp 006F4413
|
|||
|
|
006F42B6 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F42B9 B8F3B60000 mov eax, $0000B6F3
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F42BE E8D9400800 call 0077839C
|
|||
|
|
006F42C3 E94B010000 jmp 006F4413
|
|||
|
|
006F42C8 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F42CB B8F4B60000 mov eax, $0000B6F4
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F42D0 E8C7400800 call 0077839C
|
|||
|
|
006F42D5 E939010000 jmp 006F4413
|
|||
|
|
006F42DA 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F42DD B8F5B60000 mov eax, $0000B6F5
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F42E2 E8B5400800 call 0077839C
|
|||
|
|
006F42E7 E927010000 jmp 006F4413
|
|||
|
|
006F42EC 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F42EF B8F6B60000 mov eax, $0000B6F6
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F42F4 E8A3400800 call 0077839C
|
|||
|
|
006F42F9 E915010000 jmp 006F4413
|
|||
|
|
006F42FE 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4301 B8F7B60000 mov eax, $0000B6F7
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4306 E891400800 call 0077839C
|
|||
|
|
006F430B E903010000 jmp 006F4413
|
|||
|
|
006F4310 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4313 B8F8B60000 mov eax, $0000B6F8
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4318 E87F400800 call 0077839C
|
|||
|
|
006F431D E9F1000000 jmp 006F4413
|
|||
|
|
006F4322 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4325 B8F9B60000 mov eax, $0000B6F9
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F432A E86D400800 call 0077839C
|
|||
|
|
006F432F E9DF000000 jmp 006F4413
|
|||
|
|
006F4334 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4337 B8FAB60000 mov eax, $0000B6FA
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F433C E85B400800 call 0077839C
|
|||
|
|
006F4341 E9CD000000 jmp 006F4413
|
|||
|
|
006F4346 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4349 B8FBB60000 mov eax, $0000B6FB
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F434E E849400800 call 0077839C
|
|||
|
|
006F4353 E9BB000000 jmp 006F4413
|
|||
|
|
006F4358 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F435B B8FCB60000 mov eax, $0000B6FC
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4360 E837400800 call 0077839C
|
|||
|
|
006F4365 E9A9000000 jmp 006F4413
|
|||
|
|
006F436A 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F436D B871F70000 mov eax, $0000F771
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4372 E825400800 call 0077839C
|
|||
|
|
006F4377 E997000000 jmp 006F4413
|
|||
|
|
006F437C 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F437F B8FEB60000 mov eax, $0000B6FE
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4384 E813400800 call 0077839C
|
|||
|
|
006F4389 E985000000 jmp 006F4413
|
|||
|
|
006F438E 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4391 B8FFB60000 mov eax, $0000B6FF
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4396 E801400800 call 0077839C
|
|||
|
|
006F439B EB76 jmp 006F4413
|
|||
|
|
006F439D 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F43A0 B800B70000 mov eax, $0000B700
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F43A5 E8F23F0800 call 0077839C
|
|||
|
|
006F43AA EB67 jmp 006F4413
|
|||
|
|
006F43AC 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F43AF B801B70000 mov eax, $0000B701
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F43B4 E8E33F0800 call 0077839C
|
|||
|
|
006F43B9 EB58 jmp 006F4413
|
|||
|
|
006F43BB 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F43BE B802B70000 mov eax, $0000B702
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F43C3 E8D43F0800 call 0077839C
|
|||
|
|
006F43C8 EB49 jmp 006F4413
|
|||
|
|
006F43CA 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F43CD B803B70000 mov eax, $0000B703
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F43D2 E8C53F0800 call 0077839C
|
|||
|
|
006F43D7 EB3A jmp 006F4413
|
|||
|
|
006F43D9 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F43DC B804B70000 mov eax, $0000B704
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F43E1 E8B63F0800 call 0077839C
|
|||
|
|
006F43E6 EB2B jmp 006F4413
|
|||
|
|
006F43E8 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F43EB B805B70000 mov eax, $0000B705
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F43F0 E8A73F0800 call 0077839C
|
|||
|
|
006F43F5 EB1C jmp 006F4413
|
|||
|
|
006F43F7 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F43FA B8F2B60000 mov eax, $0000B6F2
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F43FF E8983F0800 call 0077839C
|
|||
|
|
006F4404 EB0D jmp 006F4413
|
|||
|
|
006F4406 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
006F4409 B807B70000 mov eax, $0000B707
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F440E E8893F0800 call 0077839C
|
|||
|
|
006F4413 8B45FC mov eax, [ebp-$04]
|
|||
|
|
006F4416 83784C00 cmp dword ptr [eax+$4C], +$00
|
|||
|
|
006F441A 764F jbe 006F446B
|
|||
|
|
006F441C 8B45F0 mov eax, [ebp-$10]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrLen(String):Integer;
|
|||
|
|
| or: System.@DynArrayLength;
|
|||
|
|
| or: System.DynArraySize(Pointer):Integer;
|
|||
|
|
| or: Variants.DynArraySize(Pointer):Integer;
|
|||
|
|
|
|
|||
|
|
006F441F E8D011D1FF call 004055F4
|
|||
|
|
006F4424 85C0 test eax, eax
|
|||
|
|
006F4426 7E0D jle 006F4435
|
|||
|
|
006F4428 8D45F0 lea eax, [ebp-$10]
|
|||
|
|
006F442B BAC8446F00 mov edx, $006F44C8
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrCat;
|
|||
|
|
|
|
|||
|
|
006F4430 E8C711D1FF call 004055FC
|
|||
|
|
006F4435 8D45E0 lea eax, [ebp-$20]
|
|||
|
|
006F4438 50 push eax
|
|||
|
|
006F4439 8D55DC lea edx, [ebp-$24]
|
|||
|
|
006F443C B808B70000 mov eax, $0000B708
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4441 E8563F0800 call 0077839C
|
|||
|
|
006F4446 8B45DC mov eax, [ebp-$24]
|
|||
|
|
006F4449 8B55FC mov edx, [ebp-$04]
|
|||
|
|
006F444C 8B524C mov edx, [edx+$4C]
|
|||
|
|
006F444F 8955D4 mov [ebp-$2C], edx
|
|||
|
|
006F4452 C645D800 mov byte ptr [ebp-$28], $00
|
|||
|
|
006F4456 8D55D4 lea edx, [ebp-$2C]
|
|||
|
|
006F4459 33C9 xor ecx, ecx
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F445B E82487D1FF call 0040CB84
|
|||
|
|
006F4460 8B55E0 mov edx, [ebp-$20]
|
|||
|
|
006F4463 8D45F0 lea eax, [ebp-$10]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrCat;
|
|||
|
|
|
|
|||
|
|
006F4466 E89111D1FF call 004055FC
|
|||
|
|
|
|||
|
|
* Reference to control Label9 : TLabel
|
|||
|
|
|
|
|||
|
|
006F446B 8B8354030000 mov eax, [ebx+$0354]
|
|||
|
|
006F4471 8B55F0 mov edx, [ebp-$10]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
|||
|
|
|
|
|||
|
|
006F4474 E8A741D9FF call 00488620
|
|||
|
|
006F4479 33C0 xor eax, eax
|
|||
|
|
006F447B 5A pop edx
|
|||
|
|
006F447C 59 pop ecx
|
|||
|
|
006F447D 59 pop ecx
|
|||
|
|
006F447E 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
006F4481 6899446F00 push $006F4499
|
|||
|
|
006F4486 8B55F4 mov edx, [ebp-$0C]
|
|||
|
|
006F4489 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to: System.@FreeMem(Pointer):Integer;
|
|||
|
|
|
|
|||
|
|
006F448C E85BE7D0FF call 00402BEC
|
|||
|
|
006F4491 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
006F4492 E95D06D1FF jmp 00404AF4
|
|||
|
|
006F4497 EBED jmp 006F4486
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
006F4499 33C0 xor eax, eax
|
|||
|
|
006F449B 5A pop edx
|
|||
|
|
006F449C 59 pop ecx
|
|||
|
|
006F449D 59 pop ecx
|
|||
|
|
006F449E 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
006F44A1 68BB446F00 push $006F44BB
|
|||
|
|
006F44A6 8D45DC lea eax, [ebp-$24]
|
|||
|
|
006F44A9 BA06000000 mov edx, $00000006
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
|||
|
|
|
|
|||
|
|
006F44AE E8950ED1FF call 00405348
|
|||
|
|
006F44B3 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
006F44B4 E93B06D1FF jmp 00404AF4
|
|||
|
|
006F44B9 EBEB jmp 006F44A6
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
006F44BB 5B pop ebx
|
|||
|
|
006F44BC 8BE5 mov esp, ebp
|
|||
|
|
006F44BE 5D pop ebp
|
|||
|
|
006F44BF C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F49ED(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F49ED 8BEC mov ebp, esp
|
|||
|
|
006F49EF 53 push ebx
|
|||
|
|
006F49F0 56 push esi
|
|||
|
|
006F49F1 57 push edi
|
|||
|
|
006F49F2 33D2 xor edx, edx
|
|||
|
|
006F49F4 55 push ebp
|
|||
|
|
006F49F5 68214A6F00 push $006F4A21
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
006F49FA 64FF32 push dword ptr fs:[edx]
|
|||
|
|
006F49FD 648922 mov fs:[edx], esp
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_0394
|
|||
|
|
|
|
|||
|
|
006F4A00 8B8094030000 mov eax, [eax+$0394]
|
|||
|
|
|
|||
|
|
* Reference to: AdaptReq.TMultiRecordActionRequestImpl.GetFieldValues(TMultiRecordActionRequestImpl):TActionFieldValuesImpl;
|
|||
|
|
| or: ComCtrls.TCustomTabControl.RowCount(TCustomTabControl):Integer;
|
|||
|
|
| or: ComCtrls.TTreeNode.GetHandle(TTreeNode):HWND;
|
|||
|
|
| or: ComCtrls.TCustomTreeView.GetIndent(TCustomTreeView):Integer;
|
|||
|
|
| or: ComCtrls.TListItem.GetHandle(TListItem):HWND;
|
|||
|
|
| or: ComCtrls.TCustomListView.GetSelCount(TCustomListView):Integer;
|
|||
|
|
|
|
|||
|
|
006F4A06 E80D140400 call 00735E18
|
|||
|
|
006F4A0B 8BD8 mov ebx, eax
|
|||
|
|
006F4A0D 83FB01 cmp ebx, +$01
|
|||
|
|
006F4A10 7D05 jnl 006F4A17
|
|||
|
|
006F4A12 BB01000000 mov ebx, $00000001
|
|||
|
|
006F4A17 33C0 xor eax, eax
|
|||
|
|
006F4A19 5A pop edx
|
|||
|
|
006F4A1A 59 pop ecx
|
|||
|
|
006F4A1B 59 pop ecx
|
|||
|
|
006F4A1C 648910 mov fs:[eax], edx
|
|||
|
|
006F4A1F EB0F jmp 006F4A30
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleAnyException;
|
|||
|
|
|
|
|||
|
|
006F4A21 E91AFED0FF jmp 00404840
|
|||
|
|
006F4A26 BB64000000 mov ebx, $00000064
|
|||
|
|
|
|||
|
|
* Reference to: System.@DoneExcept;
|
|||
|
|
|
|
|||
|
|
006F4A2B E83C02D1FF call 00404C6C
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
006F4A30 8BC3 mov eax, ebx
|
|||
|
|
006F4A32 5F pop edi
|
|||
|
|
006F4A33 5E pop esi
|
|||
|
|
006F4A34 5B pop ebx
|
|||
|
|
006F4A35 5D pop ebp
|
|||
|
|
006F4A36 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F4A38(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4A38 53 push ebx
|
|||
|
|
006F4A39 8BD8 mov ebx, eax
|
|||
|
|
006F4A3B 837A0C02 cmp dword ptr [edx+$0C], +$02
|
|||
|
|
006F4A3F 751E jnz 006F4A5F
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_039C
|
|||
|
|
|
|
|||
|
|
006F4A41 8B839C030000 mov eax, [ebx+$039C]
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735C1C()
|
|||
|
|
|
|
|||
|
|
006F4A47 E8D0110400 call 00735C1C
|
|||
|
|
006F4A4C D80D804A6F00 fmul dword ptr [$006F4A80]
|
|||
|
|
|
|||
|
|
* Reference to: System.@ROUND;
|
|||
|
|
|
|
|||
|
|
006F4A52 E885E7D0FF call 004031DC
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03A4
|
|||
|
|
|
|
|||
|
|
006F4A57 8983A4030000 mov [ebx+$03A4], eax
|
|||
|
|
006F4A5D 5B pop ebx
|
|||
|
|
006F4A5E C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to control Label15 : N.A.
|
|||
|
|
|
|
|||
|
|
006F4A5F 8B8398030000 mov eax, [ebx+$0398]
|
|||
|
|
|
|||
|
|
* Reference to : TRxUpDown._PROC_00735C1C()
|
|||
|
|
|
|
|||
|
|
006F4A65 E8B2110400 call 00735C1C
|
|||
|
|
006F4A6A D80D804A6F00 fmul dword ptr [$006F4A80]
|
|||
|
|
|
|||
|
|
* Reference to: System.@ROUND;
|
|||
|
|
|
|
|||
|
|
006F4A70 E867E7D0FF call 004031DC
|
|||
|
|
|
|||
|
|
* Reference to control Label1 : N.A.
|
|||
|
|
|
|
|||
|
|
006F4A75 8983A0030000 mov [ebx+$03A0], eax
|
|||
|
|
006F4A7B 5B pop ebx
|
|||
|
|
006F4A7C C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F4A98(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4A98 C4F4 les esi, sp
|
|||
|
|
006F4A9A DB3C24 fstp tbyte ptr [esp]
|
|||
|
|
006F4A9D 9B wait
|
|||
|
|
|
|||
|
|
* Reference to field TRMPrintDialogForm.OFFS_03A8
|
|||
|
|
|
|
|||
|
|
006F4A9E 8B80A8030000 mov eax, [eax+$03A8]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
006F4AA4 E8BB120400 call 00735D64
|
|||
|
|
006F4AA9 5A pop edx
|
|||
|
|
006F4AAA C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F4C41(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4C41 8BEC mov ebp, esp
|
|||
|
|
006F4C43 33C0 xor eax, eax
|
|||
|
|
006F4C45 55 push ebp
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-T9<54>'
|
|||
|
|
|
|
|||
|
|
006F4C46 68654C6F00 push $006F4C65
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
006F4C4B 64FF30 push dword ptr fs:[eax]
|
|||
|
|
006F4C4E 648920 mov fs:[eax], esp
|
|||
|
|
006F4C51 FF0554398900 inc dword ptr [$00893954]
|
|||
|
|
006F4C57 33C0 xor eax, eax
|
|||
|
|
006F4C59 5A pop edx
|
|||
|
|
006F4C5A 59 pop ecx
|
|||
|
|
006F4C5B 59 pop ecx
|
|||
|
|
006F4C5C 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ']Ë<><C38B>-T9<54>'
|
|||
|
|
|
|
|||
|
|
006F4C5F 686C4C6F00 push $006F4C6C
|
|||
|
|
006F4C64 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
006F4C65 E98AFED0FF jmp 00404AF4
|
|||
|
|
006F4C6A EBF8 jmp 006F4C64
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
006F4C6C 5D pop ebp
|
|||
|
|
006F4C6D C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F4C70(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4C70 832D5439890001 sub dword ptr [$00893954], +$01
|
|||
|
|
006F4C77 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F4C78(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4C78 C44C6F00 les ecx, [edi+ebp*2+$00]
|
|||
|
|
006F4C7C 0000 add [eax], al
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMPrintDialogForm._PROC_006F4CDE(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
006F4CDE 48 dec eax
|
|||
|
|
006F4CDF 0050D4 add [eax-$2C], dl
|
|||
|
|
006F4CE2 42 inc edx
|
|||
|
|
006F4CE3 0084D042007CD0 add [eax+edx*8+$D07C0042], al
|
|||
|
|
006F4CEA 42 inc edx
|
|||
|
|
006F4CEB 0058D4 add [eax-$2C], bl
|
|||
|
|
006F4CEE 42 inc edx
|
|||
|
|
006F4CEF 00F4 add ah, dh
|
|||
|
|
006F4CF1 52 push edx
|
|||
|
|
006F4CF2 6F outsd
|
|||
|
|
006F4CF3 0008 add [eax], cl
|
|||
|
|
006F4CF5 96 xchg eax, esi
|
|||
|
|
006F4CF6 48 dec eax
|
|||
|
|
006F4CF7 000496 add [esi+edx*4], al
|
|||
|
|
006F4CFA 48 dec eax
|
|||
|
|
006F4CFB 00D4 add ah, dl
|
|||
|
|
006F4CFD 96 xchg eax, esi
|
|||
|
|
006F4CFE 48 dec eax
|
|||
|
|
006F4CFF 000C79 add [ecx+edi*2], cl
|
|||
|
|
006F4D02 48 dec eax
|
|||
|
|
006F4D03 007880 add [eax-$80], bh
|
|||
|
|
006F4D06 48 dec eax
|
|||
|
|
006F4D07 00DC add ah, bl
|
|||
|
|
006F4D09 7F48 jnle 006F4D53
|
|||
|
|
006F4D0B 001489 add [ecx+ecx*4], dl
|
|||
|
|
006F4D0E 48 dec eax
|
|||
|
|
006F4D0F 00547848 add [eax+edi*2+$48], dl
|
|||
|
|
006F4D13 005878 add [eax+$78], bl
|
|||
|
|
006F4D16 48 dec eax
|
|||
|
|
006F4D17 0010 add [eax], dl
|
|||
|
|
006F4D19 A948003CA9 test eax, $A93C0048
|
|||
|
|
006F4D1E 48 dec eax
|
|||
|
|
006F4D1F 00C0 add al, al
|
|||
|
|
006F4D21 834800D0 or dword ptr [eax+$00], -$30
|
|||
|
|
006F4D25 7948 jns 006F4D6F
|
|||
|
|
006F4D27 004C8548 add [ebp+eax*4+$48], cl
|
|||
|
|
006F4D2B 00C4 add ah, al
|
|||
|
|
006F4D2D 844800 test [eax+$00], cl
|
|||
|
|
006F4D30 D88748008486 fadd dword ptr [edi+$86840048]
|
|||
|
|
006F4D36 48 dec eax
|
|||
|
|
006F4D37 000499 add [ecx+ebx*4], al
|
|||
|
|
006F4D3A 48 dec eax
|
|||
|
|
006F4D3B 00C0 add al, al
|
|||
|
|
006F4D3D A94800D48A test eax, $8AD40048
|
|||
|
|
006F4D42 48 dec eax
|
|||
|
|
006F4D43 00808B480084 add [eax+$8400488B], al
|
|||
|
|
006F4D49 7B48 jnp 006F4D93
|
|||
|
|
006F4D4B 00608B add [eax-$75], ah
|
|||
|
|
006F4D4E 48 dec eax
|
|||
|
|
006F4D4F 008C566F000C54 add [esi+edx*2+$540C006F], cl
|
|||
|
|
006F4D56 52 push edx
|
|||
|
|
006F4D57 4D dec ebp
|
|||
|
|
006F4D58 50 push eax
|
|||
|
|
006F4D59 61 popa
|
|||
|
|
006F4D5A 676549 dec ecx
|
|||
|
|
006F4D5D 6D insd
|
|||
|
|
006F4D5E 61 popa
|
|||
|
|
006F4D5F 67658D4000 lea eax, gs:[bx+si+$00]
|
|||
|
|
006F4D64 684D6F0007 push $07006F4D
|
|||
|
|
006F4D69 0C54 or al, $54
|
|||
|
|
006F4D6B 52 push edx
|
|||
|
|
006F4D6C 4D dec ebp
|
|||
|
|
006F4D6D 50 push eax
|
|||
|
|
006F4D6E 61 popa
|
|||
|
|
006F4D6F 676549 dec ecx
|
|||
|
|
006F4D72 6D insd
|
|||
|
|
006F4D73 61 popa
|
|||
|
|
006F4D74 6765C44C6F les ecx, gs:[si+$6F]
|
|||
|
|
006F4D79 00EC add ah, ch
|
|||
|
|
006F4D7B 2E44 inc esp
|
|||
|
|
006F4D7D 0022 add [edx], ah
|
|||
|
|
006F4D7F 000C52 add [edx+edx*2], cl
|
|||
|
|
006F4D82 4D dec ebp
|
|||
|
|
006F4D83 5F pop edi
|
|||
|
|
006F4D84 50 push eax
|
|||
|
|
006F4D85 61 popa
|
|||
|
|
006F4D86 676553 push ebx
|
|||
|
|
006F4D89 657475 jz 006F4E01
|
|||
|
|
006F4D8C 7000 jo 006F4D8E
|
|||
|
|
006F4D8E 0090DC4D6F00 add [eax+$6F4DDC], dl
|
|||
|
|
006F4D94 0000 add [eax], al
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|