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: 'éÜþÐÿëã_^[‹å]Ã'
|
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: 'éŠþÐÿëø]Ã‹Àƒ-T9‰'
|
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: ']Ã‹Àƒ-T9‰'
|
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.