Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myChuangpin/YSYF/RM_PageSetup.pas

4291 lines
142 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit RM_PageSetup;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TRMPageSetupForm=class(TForm)
btnOK: TButton;
btnCancel: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
GroupBox2: TGroupBox;
imgLandScape: TImage;
imgPortrait: TImage;
rdbPortrait: TRadioButton;
rdbLandscape: TRadioButton;
GroupBox1: TGroupBox;
chkPrintToPrevPage: TCheckBox;
TabSheet4: TTabSheet;
chkUnlimitedHeight: TCheckBox;
cmbPaperNames: TComboBox;
lblPaperWidth: TLabel;
lblPaperHeight: TLabel;
lblPaperSize: TLabel;
lstBinNames: TListBox;
lblPaperTray: TLabel;
grbPreview: TGroupBox;
lblPrinterName: TLabel;
cmbPrinterNames: TComboBox;
chkDoublePass: TCheckBox;
chkTaoda: TCheckBox;
chkColorPrint: TCheckBox;
Label9: TLabel;
edtTitle: TEdit;
chkNewPage: TCheckBox;
GroupBox5: TGroupBox;
lblColCount: TLabel;
lblColGap: TLabel;
GroupBox3: TGroupBox;
lblMarginTop: TLabel;
lblMarginBottom: TLabel;
lblMarginLeft: TLabel;
lblMarginRight: TLabel;
chkConvertNulls: TCheckBox;
chkPageMode: TCheckBox;
procedure FormCreate(Sender : TObject);
procedure cmbPrinterNamesChange(Sender : TObject);
procedure cmbPaperNamesChange(Sender : TObject);
procedure rdbPortraitClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure edtTitleExit(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure btnOKClick(Sender : TObject);
procedure lstBinNamesClick(Sender : TObject);
procedure _PROC_006F5350(Sender : TObject);
procedure _PROC_006F5380(Sender : TObject);
procedure _PROC_006F568F(Sender : TObject);
procedure _PROC_006F56D0(Sender : TObject);
procedure _PROC_006F5A53(Sender : TObject);
procedure _PROC_006F5A60(Sender : TObject);
procedure _PROC_006F5AD0(Sender : TObject);
procedure _PROC_006F5BC4(Sender : TObject);
procedure _PROC_006F64C8(Sender : TObject);
procedure _PROC_006F6525(Sender : TObject);
procedure _PROC_006F6594(Sender : TObject);
procedure _PROC_006F6B29(Sender : TObject);
procedure _PROC_006F6B40(Sender : TObject);
procedure _PROC_006F6B57(Sender : TObject);
procedure _PROC_006F6B6E(Sender : TObject);
procedure _PROC_006F6B85(Sender : TObject);
procedure _PROC_006F6B9C(Sender : TObject);
procedure _PROC_006F6BB3(Sender : TObject);
procedure _PROC_006F6BCA(Sender : TObject);
procedure _PROC_006F6C91(Sender : TObject);
procedure _PROC_006F6CC0(Sender : TObject);
procedure _PROC_006F6CC8(Sender : TObject);
procedure _PROC_006F6D2E(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
RMPageSetupForm: TRMPageSetupForm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TRMPageSetupForm.FormCreate(Sender : TObject);
begin
(*
006F5DCC 53 push ebx
006F5DCD 56 push esi
006F5DCE 57 push edi
006F5DCF 83C4F0 add esp, -$10
006F5DD2 8BD8 mov ebx, eax
006F5DD4 33C0 xor eax, eax
* Reference to field TRMPageSetupForm.OFFS_03A8
|
006F5DD6 8983A8030000 mov [ebx+$03A8], eax
006F5DDC 8BC3 mov eax, ebx
* Reference to : TRMPageSetupForm._PROC_006F56D0()
|
006F5DDE E8EDF8FFFF call 006F56D0
006F5DE3 B201 mov dl, $01
* Reference to class TRMPageSetting
|
006F5DE5 A108DD7200 mov eax, dword ptr [$0072DD08]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
006F5DEA E82DE5D0FF call 0040431C
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5DEF 89839C030000 mov [ebx+$039C], eax
006F5DF5 8BCB mov ecx, ebx
006F5DF7 B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F5DF9 A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F5DFE E891F20300 call 00735094
006F5E03 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03B4
|
006F5E05 89B3B4030000 mov [ebx+$03B4], esi
* Reference to control TRMPageSetupForm.TabSheet1 : TTabSheet
|
006F5E0B 8B9304030000 mov edx, [ebx+$0304]
006F5E11 8BC6 mov eax, esi
006F5E13 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F5E15 FF5168 call dword ptr [ecx+$68]
006F5E18 6A56 push $56
006F5E1A 6A15 push $15
006F5E1C 8D542408 lea edx, [esp+$08]
* Reference to control TRMPageSetupForm.lblPaperWidth : TLabel
|
006F5E20 8B8338030000 mov eax, [ebx+$0338]
* Reference to: Controls.TControl.GetBoundsRect(TControl):Windows.TRect;
|
006F5E26 E86521D9FF call 00487F90
006F5E2B 8B542410 mov edx, [esp+$10]
006F5E2F 83C202 add edx, +$02
* Reference to control TRMPageSetupForm.lblPaperWidth : TLabel
|
006F5E32 8B8338030000 mov eax, [ebx+$0338]
* Reference to field TLabel.Top : Integer
|
006F5E38 8B4844 mov ecx, [eax+$44]
006F5E3B 8BC6 mov eax, esi
006F5E3D 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F5E3F FF9784000000 call dword ptr [edi+$0084]
006F5E45 B201 mov dl, $01
006F5E47 8BC6 mov eax, esi
* Reference to : TRxUpDown._PROC_00735E2C()
|
006F5E49 E8DEFF0300 call 00735E2C
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F5E4E 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F5E54 C786C8010000C8646F00 mov dword ptr [esi+$01C8], $006F64C8
* Reference to field TRMSpinEdit.OFFS_026C
|
006F5E5E 899E6C020000 mov [esi+$026C], ebx
* Reference to field TRMSpinEdit.OFFS_0268
|
006F5E64 C78668020000C8646F00 mov dword ptr [esi+$0268], $006F64C8
* Reference to field TRMSpinEdit.OFFS_0274
|
006F5E6E 899E74020000 mov [esi+$0274], ebx
* Reference to field TRMSpinEdit.OFFS_0270
|
006F5E74 C78670020000C8646F00 mov dword ptr [esi+$0270], $006F64C8
006F5E7E 8BCB mov ecx, ebx
006F5E80 B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F5E82 A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F5E87 E808F20300 call 00735094
006F5E8C 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03B0
|
006F5E8E 89B3B0030000 mov [ebx+$03B0], esi
* Reference to control TRMPageSetupForm.TabSheet1 : TTabSheet
|
006F5E94 8B9304030000 mov edx, [ebx+$0304]
006F5E9A 8BC6 mov eax, esi
006F5E9C 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F5E9E FF5168 call dword ptr [ecx+$68]
006F5EA1 6A56 push $56
006F5EA3 6A15 push $15
* Reference to control TRMPageSetupForm.lblPaperHeight : TLabel
|
006F5EA5 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TLabel.Top : Integer
|
006F5EAB 8B4844 mov ecx, [eax+$44]
* Reference to field TRMPageSetupForm.OFFS_03B4
|
006F5EAE 8B83B4030000 mov eax, [ebx+$03B4]
006F5EB4 8B5040 mov edx, [eax+$40]
006F5EB7 8BC6 mov eax, esi
006F5EB9 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F5EBB FF9784000000 call dword ptr [edi+$0084]
006F5EC1 B201 mov dl, $01
006F5EC3 8BC6 mov eax, esi
* Reference to : TRxUpDown._PROC_00735E2C()
|
006F5EC5 E862FF0300 call 00735E2C
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F5ECA 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F5ED0 C786C8010000C8646F00 mov dword ptr [esi+$01C8], $006F64C8
* Reference to field TRMSpinEdit.OFFS_026C
|
006F5EDA 899E6C020000 mov [esi+$026C], ebx
* Reference to field TRMSpinEdit.OFFS_0268
|
006F5EE0 C78668020000C8646F00 mov dword ptr [esi+$0268], $006F64C8
* Reference to field TRMSpinEdit.OFFS_0274
|
006F5EEA 899E74020000 mov [esi+$0274], ebx
* Reference to field TRMSpinEdit.OFFS_0270
|
006F5EF0 C78670020000C8646F00 mov dword ptr [esi+$0270], $006F64C8
006F5EFA 8BCB mov ecx, ebx
006F5EFC B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F5EFE A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F5F03 E88CF10300 call 00735094
006F5F08 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03B8
|
006F5F0A 89B3B8030000 mov [ebx+$03B8], esi
* Reference to control TRMPageSetupForm.GroupBox3 : TGroupBox
|
006F5F10 8B937C030000 mov edx, [ebx+$037C]
006F5F16 8BC6 mov eax, esi
006F5F18 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F5F1A FF5168 call dword ptr [ecx+$68]
* Reference to control TRMPageSetupForm.GroupBox3 : TGroupBox
|
006F5F1D 8B837C030000 mov eax, [ebx+$037C]
* Reference to field TGroupBox.Width : Integer
|
006F5F23 8B4048 mov eax, [eax+$48]
006F5F26 83E878 sub eax, +$78
006F5F29 83E804 sub eax, +$04
006F5F2C 50 push eax
006F5F2D 6A15 push $15
* Reference to control TRMPageSetupForm.lblMarginTop : TLabel
|
006F5F2F 8B8380030000 mov eax, [ebx+$0380]
* Reference to field TLabel.Top : Integer
|
006F5F35 8B4844 mov ecx, [eax+$44]
006F5F38 BA78000000 mov edx, $00000078
006F5F3D 8BC6 mov eax, esi
006F5F3F 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F5F41 FF9784000000 call dword ptr [edi+$0084]
006F5F47 B201 mov dl, $01
006F5F49 8BC6 mov eax, esi
* Reference to : TRxUpDown._PROC_00735E2C()
|
006F5F4B E8DCFE0300 call 00735E2C
006F5F50 33C0 xor eax, eax
* Reference to field TRMSpinEdit.OFFS_0228
|
006F5F52 898628020000 mov [esi+$0228], eax
* Reference to field TRMSpinEdit.OFFS_022C
|
006F5F58 C7862C020000FEFFFFFF mov dword ptr [esi+$022C], $FFFFFFFE
* Reference to field TRMSpinEdit.OFFS_0230
|
006F5F62 66C786300200001DC0 mov word ptr [esi+$0230], $C01D
* Reference to field TRMSpinEdit.OFFS_0248
|
006F5F6B C78648020000CDCCCCCC mov dword ptr [esi+$0248], $CCCCCCCD
* Reference to field TRMSpinEdit.OFFS_024C
|
006F5F75 C7864C020000CCCCCCCC mov dword ptr [esi+$024C], $CCCCCCCC
* Reference to field TRMSpinEdit.OFFS_0250
|
006F5F7F 66C78650020000FB3F mov word ptr [esi+$0250], $3FFB
* Reference to field TRMSpinEdit.OFFS_0274
|
006F5F88 899E74020000 mov [esi+$0274], ebx
* Reference to field TRMSpinEdit.OFFS_0270
|
006F5F8E C7867002000024656F00 mov dword ptr [esi+$0270], $006F6524
* Reference to field TRMSpinEdit.OFFS_026C
|
006F5F98 899E6C020000 mov [esi+$026C], ebx
* Reference to field TRMSpinEdit.OFFS_0268
|
006F5F9E C7866802000024656F00 mov dword ptr [esi+$0268], $006F6524
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F5FA8 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F5FAE C786C801000024656F00 mov dword ptr [esi+$01C8], $006F6524
006F5FB8 8BCB mov ecx, ebx
006F5FBA B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F5FBC A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F5FC1 E8CEF00300 call 00735094
006F5FC6 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03BC
|
006F5FC8 89B3BC030000 mov [ebx+$03BC], esi
* Reference to control TRMPageSetupForm.GroupBox3 : TGroupBox
|
006F5FCE 8B937C030000 mov edx, [ebx+$037C]
006F5FD4 8BC6 mov eax, esi
006F5FD6 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F5FD8 FF5168 call dword ptr [ecx+$68]
* Reference to field TRMPageSetupForm.OFFS_03B8
|
006F5FDB 8B83B8030000 mov eax, [ebx+$03B8]
006F5FE1 8B5048 mov edx, [eax+$48]
006F5FE4 52 push edx
006F5FE5 6A15 push $15
* Reference to control TRMPageSetupForm.lblMarginBottom : TLabel
|
006F5FE7 8B9384030000 mov edx, [ebx+$0384]
* Reference to field TLabel.Top : Integer
|
006F5FED 8B4A44 mov ecx, [edx+$44]
006F5FF0 8B5040 mov edx, [eax+$40]
006F5FF3 8BC6 mov eax, esi
006F5FF5 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F5FF7 FF9784000000 call dword ptr [edi+$0084]
006F5FFD B201 mov dl, $01
006F5FFF 8BC6 mov eax, esi
* Reference to : TRxUpDown._PROC_00735E2C()
|
006F6001 E826FE0300 call 00735E2C
006F6006 33C0 xor eax, eax
* Reference to field TRMSpinEdit.OFFS_0228
|
006F6008 898628020000 mov [esi+$0228], eax
* Reference to field TRMSpinEdit.OFFS_022C
|
006F600E C7862C020000FEFFFFFF mov dword ptr [esi+$022C], $FFFFFFFE
* Reference to field TRMSpinEdit.OFFS_0230
|
006F6018 66C786300200001DC0 mov word ptr [esi+$0230], $C01D
* Reference to field TRMSpinEdit.OFFS_0248
|
006F6021 C78648020000CDCCCCCC mov dword ptr [esi+$0248], $CCCCCCCD
* Reference to field TRMSpinEdit.OFFS_024C
|
006F602B C7864C020000CCCCCCCC mov dword ptr [esi+$024C], $CCCCCCCC
* Reference to field TRMSpinEdit.OFFS_0250
|
006F6035 66C78650020000FB3F mov word ptr [esi+$0250], $3FFB
* Reference to field TRMSpinEdit.OFFS_0274
|
006F603E 899E74020000 mov [esi+$0274], ebx
* Reference to field TRMSpinEdit.OFFS_0270
|
006F6044 C7867002000024656F00 mov dword ptr [esi+$0270], $006F6524
* Reference to field TRMSpinEdit.OFFS_026C
|
006F604E 899E6C020000 mov [esi+$026C], ebx
* Reference to field TRMSpinEdit.OFFS_0268
|
006F6054 C7866802000024656F00 mov dword ptr [esi+$0268], $006F6524
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F605E 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F6064 C786C801000024656F00 mov dword ptr [esi+$01C8], $006F6524
006F606E 8BCB mov ecx, ebx
006F6070 B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F6072 A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F6077 E818F00300 call 00735094
006F607C 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03C0
|
006F607E 89B3C0030000 mov [ebx+$03C0], esi
* Reference to control TRMPageSetupForm.GroupBox3 : TGroupBox
|
006F6084 8B937C030000 mov edx, [ebx+$037C]
006F608A 8BC6 mov eax, esi
006F608C 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F608E FF5168 call dword ptr [ecx+$68]
* Reference to field TRMPageSetupForm.OFFS_03B8
|
006F6091 8B83B8030000 mov eax, [ebx+$03B8]
006F6097 8B5048 mov edx, [eax+$48]
006F609A 52 push edx
006F609B 6A15 push $15
* Reference to control TRMPageSetupForm.lblMarginLeft : TLabel
|
006F609D 8B9388030000 mov edx, [ebx+$0388]
* Reference to field TLabel.Top : Integer
|
006F60A3 8B4A44 mov ecx, [edx+$44]
006F60A6 8B5040 mov edx, [eax+$40]
006F60A9 8BC6 mov eax, esi
006F60AB 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F60AD FF9784000000 call dword ptr [edi+$0084]
006F60B3 B201 mov dl, $01
006F60B5 8BC6 mov eax, esi
* Reference to : TRxUpDown._PROC_00735E2C()
|
006F60B7 E870FD0300 call 00735E2C
006F60BC 33C0 xor eax, eax
* Reference to field TRMSpinEdit.OFFS_0228
|
006F60BE 898628020000 mov [esi+$0228], eax
* Reference to field TRMSpinEdit.OFFS_022C
|
006F60C4 C7862C020000FEFFFFFF mov dword ptr [esi+$022C], $FFFFFFFE
* Reference to field TRMSpinEdit.OFFS_0230
|
006F60CE 66C786300200001DC0 mov word ptr [esi+$0230], $C01D
* Reference to field TRMSpinEdit.OFFS_0248
|
006F60D7 C78648020000CDCCCCCC mov dword ptr [esi+$0248], $CCCCCCCD
* Reference to field TRMSpinEdit.OFFS_024C
|
006F60E1 C7864C020000CCCCCCCC mov dword ptr [esi+$024C], $CCCCCCCC
* Reference to field TRMSpinEdit.OFFS_0250
|
006F60EB 66C78650020000FB3F mov word ptr [esi+$0250], $3FFB
* Reference to field TRMSpinEdit.OFFS_0274
|
006F60F4 899E74020000 mov [esi+$0274], ebx
* Reference to field TRMSpinEdit.OFFS_0270
|
006F60FA C7867002000024656F00 mov dword ptr [esi+$0270], $006F6524
* Reference to field TRMSpinEdit.OFFS_026C
|
006F6104 899E6C020000 mov [esi+$026C], ebx
* Reference to field TRMSpinEdit.OFFS_0268
|
006F610A C7866802000024656F00 mov dword ptr [esi+$0268], $006F6524
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F6114 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F611A C786C801000024656F00 mov dword ptr [esi+$01C8], $006F6524
006F6124 8BCB mov ecx, ebx
006F6126 B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F6128 A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F612D E862EF0300 call 00735094
006F6132 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03C4
|
006F6134 89B3C4030000 mov [ebx+$03C4], esi
* Reference to control TRMPageSetupForm.GroupBox3 : TGroupBox
|
006F613A 8B937C030000 mov edx, [ebx+$037C]
006F6140 8BC6 mov eax, esi
006F6142 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F6144 FF5168 call dword ptr [ecx+$68]
* Reference to field TRMPageSetupForm.OFFS_03B8
|
006F6147 8B83B8030000 mov eax, [ebx+$03B8]
006F614D 8B5048 mov edx, [eax+$48]
006F6150 52 push edx
006F6151 6A15 push $15
* Reference to control TRMPageSetupForm.lblMarginRight : TLabel
|
006F6153 8B938C030000 mov edx, [ebx+$038C]
* Reference to field TLabel.Top : Integer
|
006F6159 8B4A44 mov ecx, [edx+$44]
006F615C 8B5040 mov edx, [eax+$40]
006F615F 8BC6 mov eax, esi
006F6161 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F6163 FF9784000000 call dword ptr [edi+$0084]
006F6169 B201 mov dl, $01
006F616B 8BC6 mov eax, esi
* Reference to : TRxUpDown._PROC_00735E2C()
|
006F616D E8BAFC0300 call 00735E2C
006F6172 33C0 xor eax, eax
* Reference to field TRMSpinEdit.OFFS_0228
|
006F6174 898628020000 mov [esi+$0228], eax
* Reference to field TRMSpinEdit.OFFS_022C
|
006F617A C7862C020000FEFFFFFF mov dword ptr [esi+$022C], $FFFFFFFE
* Reference to field TRMSpinEdit.OFFS_0230
|
006F6184 66C786300200001DC0 mov word ptr [esi+$0230], $C01D
* Reference to field TRMSpinEdit.OFFS_0248
|
006F618D C78648020000CDCCCCCC mov dword ptr [esi+$0248], $CCCCCCCD
* Reference to field TRMSpinEdit.OFFS_024C
|
006F6197 C7864C020000CCCCCCCC mov dword ptr [esi+$024C], $CCCCCCCC
* Reference to field TRMSpinEdit.OFFS_0250
|
006F61A1 66C78650020000FB3F mov word ptr [esi+$0250], $3FFB
* Reference to field TRMSpinEdit.OFFS_0274
|
006F61AA 899E74020000 mov [esi+$0274], ebx
* Reference to field TRMSpinEdit.OFFS_0270
|
006F61B0 C7867002000024656F00 mov dword ptr [esi+$0270], $006F6524
* Reference to field TRMSpinEdit.OFFS_026C
|
006F61BA 899E6C020000 mov [esi+$026C], ebx
* Reference to field TRMSpinEdit.OFFS_0268
|
006F61C0 C7866802000024656F00 mov dword ptr [esi+$0268], $006F6524
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F61CA 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F61D0 C786C801000024656F00 mov dword ptr [esi+$01C8], $006F6524
006F61DA 8BCB mov ecx, ebx
006F61DC B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F61DE A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F61E3 E8ACEE0300 call 00735094
006F61E8 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03C8
|
006F61EA 89B3C8030000 mov [ebx+$03C8], esi
* Reference to control TRMPageSetupForm.GroupBox5 : TGroupBox
|
006F61F0 8B9370030000 mov edx, [ebx+$0370]
006F61F6 8BC6 mov eax, esi
006F61F8 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F61FA FF5168 call dword ptr [ecx+$68]
* Reference to field TRMPageSetupForm.OFFS_03B8
|
006F61FD 8B83B8030000 mov eax, [ebx+$03B8]
006F6203 8B5048 mov edx, [eax+$48]
006F6206 52 push edx
006F6207 6A15 push $15
* Reference to control TRMPageSetupForm.lblColCount : TLabel
|
006F6209 8B9374030000 mov edx, [ebx+$0374]
* Reference to field TLabel.Top : Integer
|
006F620F 8B4A44 mov ecx, [edx+$44]
006F6212 8B5040 mov edx, [eax+$40]
006F6215 8BC6 mov eax, esi
006F6217 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F6219 FF9784000000 call dword ptr [edi+$0084]
006F621F 33C0 xor eax, eax
* Reference to field TRMSpinEdit.OFFS_0228
|
006F6221 898628020000 mov [esi+$0228], eax
* Reference to field TRMSpinEdit.OFFS_022C
|
006F6227 C7862C02000000000080 mov dword ptr [esi+$022C], $80000000
* Reference to field TRMSpinEdit.OFFS_0230
|
006F6231 66C78630020000FF3F mov word ptr [esi+$0230], $3FFF
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F623A 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F6240 C786C801000024656F00 mov dword ptr [esi+$01C8], $006F6524
006F624A 8BCB mov ecx, ebx
006F624C B201 mov dl, $01
* Reference to class TRMSpinEdit
|
006F624E A148317300 mov eax, dword ptr [$00733148]
* Reference to : TRxUpDown._PROC_00735094()
|
006F6253 E83CEE0300 call 00735094
006F6258 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_03CC
|
006F625A 89B3CC030000 mov [ebx+$03CC], esi
* Reference to control TRMPageSetupForm.GroupBox5 : TGroupBox
|
006F6260 8B9370030000 mov edx, [ebx+$0370]
006F6266 8BC6 mov eax, esi
006F6268 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_68
|
006F626A FF5168 call dword ptr [ecx+$68]
* Reference to field TRMPageSetupForm.OFFS_03C8
|
006F626D 8B83C8030000 mov eax, [ebx+$03C8]
006F6273 8B5048 mov edx, [eax+$48]
006F6276 52 push edx
006F6277 6A15 push $15
* Reference to control TRMPageSetupForm.lblColGap : TLabel
|
006F6279 8B9378030000 mov edx, [ebx+$0378]
* Reference to field TLabel.Top : Integer
|
006F627F 8B4A44 mov ecx, [edx+$44]
006F6282 8B5040 mov edx, [eax+$40]
006F6285 8BC6 mov eax, esi
006F6287 8B38 mov edi, [eax]
* Possible reference to virtual method TRMSpinEdit.OFFS_0084
|
006F6289 FF9784000000 call dword ptr [edi+$0084]
006F628F B201 mov dl, $01
006F6291 8BC6 mov eax, esi
* Reference to : TRxUpDown._PROC_00735E2C()
|
006F6293 E894FB0300 call 00735E2C
006F6298 33C0 xor eax, eax
* Reference to field TRMSpinEdit.OFFS_0228
|
006F629A 898628020000 mov [esi+$0228], eax
* Reference to field TRMSpinEdit.OFFS_022C
|
006F62A0 C7862C020000FEFFFFFF mov dword ptr [esi+$022C], $FFFFFFFE
* Reference to field TRMSpinEdit.OFFS_0230
|
006F62AA 66C786300200001DC0 mov word ptr [esi+$0230], $C01D
* Reference to field TRMSpinEdit.OFFS_0248
|
006F62B3 C78648020000CDCCCCCC mov dword ptr [esi+$0248], $CCCCCCCD
* Reference to field TRMSpinEdit.OFFS_024C
|
006F62BD C7864C020000CCCCCCCC mov dword ptr [esi+$024C], $CCCCCCCC
* Reference to field TRMSpinEdit.OFFS_0250
|
006F62C7 66C78650020000FB3F mov word ptr [esi+$0250], $3FFB
* Reference to field TRMSpinEdit.OFFS_01CC
|
006F62D0 899ECC010000 mov [esi+$01CC], ebx
* Reference to field TRMSpinEdit.OFFS_01C8
|
006F62D6 C786C801000024656F00 mov dword ptr [esi+$01C8], $006F6524
006F62E0 891D5C398900 mov [$0089395C], ebx
006F62E6 8BCB mov ecx, ebx
006F62E8 B201 mov dl, $01
* Reference to class TRMPageImage
|
006F62EA A1784C6F00 mov eax, dword ptr [$006F4C78]
|
006F62EF E800F0FFFF call 006F52F4
006F62F4 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_0398
|
006F62F6 89B398030000 mov [ebx+$0398], esi
006F62FC 8BD6 mov edx, esi
* Reference to control TRMPageSetupForm.grbPreview : TGroupBox
|
006F62FE 8B834C030000 mov eax, [ebx+$034C]
* Reference to: Controls.TWinControl.InsertControl(TWinControl;TControl);
|
006F6304 E81B58D9FF call 0048BB24
* Reference to field TRMPageSetupForm.OFFS_0398
|
006F6309 8BB398030000 mov esi, [ebx+$0398]
006F630F BA05000000 mov edx, $00000005
006F6314 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
006F6316 E81D1AD9FF call 00487D38
006F631B BA14000000 mov edx, $00000014
006F6320 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
006F6322 E8351AD9FF call 00487D5C
* Reference to control TRMPageSetupForm.grbPreview : TGroupBox
|
006F6327 8B834C030000 mov eax, [ebx+$034C]
* Reference to field TGroupBox.Width : Integer
|
006F632D 8B5048 mov edx, [eax+$48]
006F6330 83EA0A sub edx, +$0A
006F6333 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetWidth(TControl;Integer);
|
006F6335 E84A1AD9FF call 00487D84
* Reference to control TRMPageSetupForm.grbPreview : TGroupBox
|
006F633A 8B834C030000 mov eax, [ebx+$034C]
* Reference to field TGroupBox.Height : Integer
|
006F6340 8B504C mov edx, [eax+$4C]
006F6343 83EA1E sub edx, +$1E
006F6346 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
006F6348 E85B1AD9FF call 00487DA8
* Reference to control TRMPageSetupForm.TabSheet1 : TTabSheet
|
006F634D 8B9304030000 mov edx, [ebx+$0304]
* Reference to control TRMPageSetupForm.PageControl1 : TPageControl
|
006F6353 8B8300030000 mov eax, [ebx+$0300]
* Reference to: ComCtrls.TPageControl.SetActivePage(TPageControl;TTabSheet);
|
006F6359 E80273D6FF call 0045D660
006F635E 83C410 add esp, +$10
006F6361 5F pop edi
006F6362 5E pop esi
006F6363 5B pop ebx
006F6364 C3 ret
*)
end;
procedure TRMPageSetupForm.cmbPrinterNamesChange(Sender : TObject);
begin
(*
|
006F63D0 E8F7F6FFFF call 006F5ACC
006F63D5 C3 ret
*)
end;
procedure TRMPageSetupForm.cmbPaperNamesChange(Sender : TObject);
begin
(*
006F63D8 53 push ebx
006F63D9 56 push esi
006F63DA 57 push edi
006F63DB 8BD8 mov ebx, eax
* Reference to control TRMPageSetupForm.cmbPaperNames : TComboBox
|
006F63DD 8B8334030000 mov eax, [ebx+$0334]
006F63E3 8B10 mov edx, [eax]
* Reference to method TComboBox.ItemIndex()
|
006F63E5 FF92CC000000 call dword ptr [edx+$00CC]
006F63EB 8BF0 mov esi, eax
006F63ED 85F6 test esi, esi
006F63EF 0F8C90000000 jl 006F6485
006F63F5 8BD6 mov edx, esi
* Reference to field TRMPageSetupForm.OFFS_03A4
|
006F63F7 8B83A4030000 mov eax, [ebx+$03A4]
|
006F63FD E8CA8C0300 call 0072F0CC
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6402 8B939C030000 mov edx, [ebx+$039C]
006F6408 6689420C mov [edx+$0C], ax
* Reference to control TRMPageSetupForm.cmbPaperNames : TComboBox
|
006F640C 8B8334030000 mov eax, [ebx+$0334]
* Reference to field TComboBox.Items : TStrings
|
006F6412 8B803C020000 mov eax, [eax+$023C]
006F6418 8B10 mov edx, [eax]
* Reference to method TStrings.Count()
|
006F641A FF5214 call dword ptr [edx+$14]
006F641D 48 dec eax
006F641E 3BF0 cmp esi, eax
006F6420 745C jz 006F647E
* Reference to field TRMPageSetupForm.OFFS_03A4
|
006F6422 8BBBA4030000 mov edi, [ebx+$03A4]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6428 8B839C030000 mov eax, [ebx+$039C]
006F642E 80781800 cmp byte ptr [eax+$18], $00
006F6432 7526 jnz 006F645A
006F6434 8BD6 mov edx, esi
006F6436 8BC7 mov eax, edi
|
006F6438 E82F8A0300 call 0072EE6C
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F643D 8B939C030000 mov edx, [ebx+$039C]
006F6443 894210 mov [edx+$10], eax
006F6446 8BD6 mov edx, esi
006F6448 8BC7 mov eax, edi
|
006F644A E8B58A0300 call 0072EF04
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F644F 8B939C030000 mov edx, [ebx+$039C]
006F6455 894214 mov [edx+$14], eax
006F6458 EB24 jmp 006F647E
006F645A 8BD6 mov edx, esi
006F645C 8BC7 mov eax, edi
|
006F645E E8A18A0300 call 0072EF04
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6463 8B939C030000 mov edx, [ebx+$039C]
006F6469 894210 mov [edx+$10], eax
006F646C 8BD6 mov edx, esi
006F646E 8BC7 mov eax, edi
|
006F6470 E8F7890300 call 0072EE6C
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6475 8B939C030000 mov edx, [ebx+$039C]
006F647B 894214 mov [edx+$14], eax
006F647E 8BC3 mov eax, ebx
* Reference to : TRMPageSetupForm._PROC_006F5BC4()
|
006F6480 E83FF7FFFF call 006F5BC4
006F6485 5F pop edi
006F6486 5E pop esi
006F6487 5B pop ebx
006F6488 C3 ret
*)
end;
procedure TRMPageSetupForm.rdbPortraitClick(Sender : TObject);
begin
(*
006F648C 53 push ebx
006F648D 8BD8 mov ebx, eax
* Reference to control TRMPageSetupForm.rdbPortrait : TRadioButton
|
006F648F 8B831C030000 mov eax, [ebx+$031C]
006F6495 8B10 mov edx, [eax]
* Reference to method TRadioButton.GetChecked()
|
006F6497 FF92C8000000 call dword ptr [edx+$00C8]
006F649D 84C0 test al, al
006F649F 740F jz 006F64B0
006F64A1 33D2 xor edx, edx
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F64A3 8B839C030000 mov eax, [ebx+$039C]
|
006F64A9 E882B60300 call 00731B30
006F64AE EB0D jmp 006F64BD
006F64B0 B201 mov dl, $01
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F64B2 8B839C030000 mov eax, [ebx+$039C]
|
006F64B8 E873B60300 call 00731B30
006F64BD 8BC3 mov eax, ebx
* Reference to : TRMPageSetupForm._PROC_006F5BC4()
|
006F64BF E800F7FFFF call 006F5BC4
006F64C4 5B pop ebx
006F64C5 C3 ret
*)
end;
procedure TRMPageSetupForm.FormShow(Sender : TObject);
begin
(*
006F6368 53 push ebx
006F6369 8BD8 mov ebx, eax
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F636B 8B839C030000 mov eax, [ebx+$039C]
006F6371 83784C01 cmp dword ptr [eax+$4C], +$01
006F6375 7D0A jnl 006F6381
006F6377 BA01000000 mov edx, $00000001
|
006F637C E8A7B70300 call 00731B28
* 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;
|
006F6381 E85A7A0300 call 0072DDE0
006F6386 8B5008 mov edx, [eax+$08]
* Reference to control TRMPageSetupForm.cmbPrinterNames : TComboBox
|
006F6389 8B8354030000 mov eax, [ebx+$0354]
* Reference to field TComboBox.Items : TStrings
|
006F638F 8B803C020000 mov eax, [eax+$023C]
006F6395 8B08 mov ecx, [eax]
* Reference to method TStrings.Assign(TPersistent)
|
006F6397 FF5108 call dword ptr [ecx+$08]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F639A 8B83AC030000 mov eax, [ebx+$03AC]
006F63A0 8B502C mov edx, [eax+$2C]
* Reference to control TRMPageSetupForm.cmbPrinterNames : TComboBox
|
006F63A3 8B8354030000 mov eax, [ebx+$0354]
006F63A9 8B08 mov ecx, [eax]
* Reference to method TComboBox.ItemIndex()
|
006F63AB FF91D0000000 call dword ptr [ecx+$00D0]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F63B1 8B839C030000 mov eax, [ebx+$039C]
006F63B7 8B5004 mov edx, [eax+$04]
* Reference to control TRMPageSetupForm.edtTitle : TEdit
|
006F63BA 8B8368030000 mov eax, [ebx+$0368]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
006F63C0 E85B22D9FF call 00488620
006F63C5 8BC3 mov eax, ebx
|
006F63C7 E800F7FFFF call 006F5ACC
006F63CC 5B pop ebx
006F63CD C3 ret
*)
end;
procedure TRMPageSetupForm.FormCloseQuery(Sender : TObject);
begin
(*
006F65E0 55 push ebp
006F65E1 8BEC mov ebp, esp
006F65E3 83C4A8 add esp, -$58
006F65E6 53 push ebx
006F65E7 56 push esi
006F65E8 57 push edi
006F65E9 33DB xor ebx, ebx
006F65EB 895DAC mov [ebp-$54], ebx
006F65EE 895DA8 mov [ebp-$58], ebx
006F65F1 8BD8 mov ebx, eax
006F65F3 33C0 xor eax, eax
006F65F5 55 push ebp
* Possible String Reference to: '<27> <20><><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
006F65F6 68CF686F00 push $006F68CF
***** TRY
|
006F65FB 64FF30 push dword ptr fs:[eax]
006F65FE 648920 mov fs:[eax], esp
* Reference to field TRMPageSetupForm.ModalResult : TModalResult
|
006F6601 83BB4C02000001 cmp dword ptr [ebx+$024C], +$01
006F6608 0F85A6020000 jnz 006F68B4
006F660E 33C9 xor ecx, ecx
006F6610 55 push ebp
006F6611 68AA686F00 push $006F68AA
***** TRY
|
006F6616 64FF31 push dword ptr fs:[ecx]
006F6619 648921 mov fs:[ecx], esp
* Reference to control TRMPageSetupForm.cmbPrinterNames : TComboBox
|
006F661C 8B8354030000 mov eax, [ebx+$0354]
006F6622 8B10 mov edx, [eax]
* Reference to method TComboBox.ItemIndex()
|
006F6624 FF92CC000000 call dword ptr [edx+$00CC]
006F662A 8BD0 mov edx, eax
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F662C 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730534()
|
006F6632 E8FD9E0300 call 00730534
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6637 8B839C030000 mov eax, [ebx+$039C]
006F663D 8B5014 mov edx, [eax+$14]
006F6640 52 push edx
006F6641 8B501C mov edx, [eax+$1C]
006F6644 52 push edx
006F6645 8A5018 mov dl, byte ptr [eax+$18]
006F6648 52 push edx
006F6649 6A00 push $00
006F664B 8B4810 mov ecx, [eax+$10]
006F664E 0FB7500C movzx edx, word ptr [eax+$0C]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F6652 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00731838()
|
006F6658 E8DBB10300 call 00731838
006F665D 8D55C8 lea edx, [ebp-$38]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F6660 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730EA4()
|
006F6666 E839A80300 call 00730EA4
006F666B 8D55C0 lea edx, [ebp-$40]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F666E 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730DA4()
|
006F6674 E82BA70300 call 00730DA4
006F6679 8B45C0 mov eax, [ebp-$40]
006F667C 50 push eax
006F667D 8D55B0 lea edx, [ebp-$50]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F6680 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730D24()
|
006F6686 E899A60300 call 00730D24
006F668B 8B45B0 mov eax, [ebp-$50]
006F668E 5A pop edx
* Reference to : TRMPageSetupForm._PROC_006F6594()
|
006F668F E800FFFFFF call 006F6594
006F6694 DD5DF8 fstp qword ptr [ebp-$08]
006F6697 9B wait
006F6698 8D55C0 lea edx, [ebp-$40]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F669B 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730DA4()
|
006F66A1 E8FEA60300 call 00730DA4
006F66A6 8B45C4 mov eax, [ebp-$3C]
006F66A9 50 push eax
|
006F66AA E851770300 call 0072DE00
006F66AF 8D55B0 lea edx, [ebp-$50]
* Reference to : TRMPrinterCanvas._PROC_00730D24()
|
006F66B2 E86DA60300 call 00730D24
006F66B7 8B45B4 mov eax, [ebp-$4C]
006F66BA 5A pop edx
* Reference to : TRMPageSetupForm._PROC_006F6594()
|
006F66BB E8D4FEFFFF call 006F6594
006F66C0 DD5DF0 fstp qword ptr [ebp-$10]
006F66C3 9B wait
006F66C4 8D55C0 lea edx, [ebp-$40]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F66C7 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730DA4()
|
006F66CD E8D2A60300 call 00730DA4
006F66D2 8B45C0 mov eax, [ebp-$40]
006F66D5 50 push eax
006F66D6 8D55B0 lea edx, [ebp-$50]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F66D9 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730D24()
|
006F66DF E840A60300 call 00730D24
006F66E4 8B45B8 mov eax, [ebp-$48]
006F66E7 5A pop edx
* Reference to : TRMPageSetupForm._PROC_006F6594()
|
006F66E8 E8A7FEFFFF call 006F6594
006F66ED DD5DE8 fstp qword ptr [ebp-$18]
006F66F0 9B wait
006F66F1 8D55C0 lea edx, [ebp-$40]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F66F4 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730DA4()
|
006F66FA E8A5A60300 call 00730DA4
006F66FF 8B45C4 mov eax, [ebp-$3C]
006F6702 50 push eax
006F6703 8D55B0 lea edx, [ebp-$50]
* Reference to field TRMPageSetupForm.OFFS_03AC
|
006F6706 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TRMPrinterCanvas._PROC_00730D24()
|
006F670C E813A60300 call 00730D24
006F6711 8B45BC mov eax, [ebp-$44]
006F6714 5A pop edx
* Reference to : TRMPageSetupForm._PROC_006F6594()
|
006F6715 E87AFEFFFF call 006F6594
006F671A DD5DE0 fstp qword ptr [ebp-$20]
006F671D 9B wait
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F671E 8B939C030000 mov edx, [ebx+$039C]
006F6724 DD4228 fld qword ptr [edx+$28]
006F6727 DC5DF8 fcomp qword ptr [ebp-$08]
006F672A DFE0 fstsw ax
006F672C 9E sahf
006F672D 7225 jb 006F6754
006F672F DD4230 fld qword ptr [edx+$30]
006F6732 DC5DF0 fcomp qword ptr [ebp-$10]
006F6735 DFE0 fstsw ax
006F6737 9E sahf
006F6738 721A jb 006F6754
006F673A DD4238 fld qword ptr [edx+$38]
006F673D DC5DE8 fcomp qword ptr [ebp-$18]
006F6740 DFE0 fstsw ax
006F6742 9E sahf
006F6743 720F jb 006F6754
006F6745 DD4240 fld qword ptr [edx+$40]
006F6748 DC5DE0 fcomp qword ptr [ebp-$20]
006F674B DFE0 fstsw ax
006F674D 9E sahf
006F674E 0F834C010000 jnb 006F68A0
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6754 8B939C030000 mov edx, [ebx+$039C]
006F675A DD4228 fld qword ptr [edx+$28]
006F675D DC65F8 fsub qword ptr [ebp-$08]
006F6760 DB2DE0686F00 fld tbyte ptr [$006F68E0]
006F6766 DED9 fcompp
006F6768 DFE0 fstsw ax
006F676A 9E sahf
006F676B 773D jnbe 006F67AA
006F676D DD4230 fld qword ptr [edx+$30]
006F6770 DC65F0 fsub qword ptr [ebp-$10]
006F6773 DB2DE0686F00 fld tbyte ptr [$006F68E0]
006F6779 DED9 fcompp
006F677B DFE0 fstsw ax
006F677D 9E sahf
006F677E 772A jnbe 006F67AA
006F6780 DD4238 fld qword ptr [edx+$38]
006F6783 DC65E8 fsub qword ptr [ebp-$18]
006F6786 DB2DE0686F00 fld tbyte ptr [$006F68E0]
006F678C DED9 fcompp
006F678E DFE0 fstsw ax
006F6790 9E sahf
006F6791 7717 jnbe 006F67AA
006F6793 DD4240 fld qword ptr [edx+$40]
006F6796 DC65E0 fsub qword ptr [ebp-$20]
006F6799 DB2DE0686F00 fld tbyte ptr [$006F68E0]
006F679F DED9 fcompp
006F67A1 DFE0 fstsw ax
006F67A3 9E sahf
006F67A4 0F86F6000000 jbe 006F68A0
006F67AA 6A34 push $34
006F67AC 8D55AC lea edx, [ebp-$54]
006F67AF B84DB90000 mov eax, $0000B94D
|
006F67B4 E8E31B0800 call 0077839C
006F67B9 8B45AC mov eax, [ebp-$54]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
006F67BC E833F0D0FF call 004057F4
006F67C1 50 push eax
006F67C2 8D55A8 lea edx, [ebp-$58]
006F67C5 B89DB00000 mov eax, $0000B09D
|
006F67CA E8CD1B0800 call 0077839C
006F67CF 8B45A8 mov eax, [ebp-$58]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
006F67D2 E81DF0D0FF call 004057F4
006F67D7 8BD0 mov edx, eax
*)
end;
procedure TRMPageSetupForm.edtTitleExit(Sender : TObject);
begin
(*
006F68F0 55 push ebp
006F68F1 8BEC mov ebp, esp
006F68F3 6A00 push $00
006F68F5 53 push ebx
006F68F6 8BD8 mov ebx, eax
006F68F8 33C0 xor eax, eax
006F68FA 55 push ebp
006F68FB 6849696F00 push $006F6949
***** TRY
|
006F6900 64FF30 push dword ptr fs:[eax]
006F6903 648920 mov fs:[eax], esp
* Reference to field TRMPageSetupForm.ActiveControl : TWinControl
|
006F6906 8B8320020000 mov eax, [ebx+$0220]
* Reference to control TRMPageSetupForm.btnCancel : TButton
|
006F690C 3B83FC020000 cmp eax, [ebx+$02FC]
006F6912 741F jz 006F6933
006F6914 8D55FC lea edx, [ebp-$04]
* Reference to control TRMPageSetupForm.edtTitle : TEdit
|
006F6917 8B8368030000 mov eax, [ebx+$0368]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
006F691D E8CE1CD9FF call 004885F0
006F6922 8B55FC mov edx, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6925 8B839C030000 mov eax, [ebx+$039C]
006F692B 83C004 add eax, +$04
* Reference to: System.@LStrAsg(void;void;void;void);
|
006F692E E845EAD0FF call 00405378
006F6933 33C0 xor eax, eax
006F6935 5A pop edx
006F6936 59 pop ecx
006F6937 59 pop ecx
006F6938 648910 mov fs:[eax], edx
****** FINALLY
|
006F693B 6850696F00 push $006F6950
006F6940 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
006F6943 E8DCE9D0FF call 00405324
006F6948 C3 ret
* Reference to: System.@HandleFinally;
|
006F6949 E9A6E1D0FF jmp 00404AF4
006F694E EBF0 jmp 006F6940
****** END
|
006F6950 5B pop ebx
006F6951 59 pop ecx
006F6952 5D pop ebp
006F6953 C3 ret
*)
end;
procedure TRMPageSetupForm.FormDestroy(Sender : TObject);
begin
(*
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6954 8B809C030000 mov eax, [eax+$039C]
* Reference to: System.TObject.Free(TObject);
|
006F695A E8EDD9D0FF call 0040434C
006F695F C3 ret
*)
end;
procedure TRMPageSetupForm.btnOKClick(Sender : TObject);
begin
(*
006F699C 53 push ebx
006F699D 56 push esi
006F699E 8BD8 mov ebx, eax
* Reference to control TRMPageSetupForm.chkPrintToPrevPage : TCheckBox
|
006F69A0 8B8328030000 mov eax, [ebx+$0328]
006F69A6 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006F69A8 FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F69AE 8B939C030000 mov edx, [ebx+$039C]
006F69B4 884248 mov [edx+$48], al
* Reference to control TRMPageSetupForm.chkDoublePass : TCheckBox
|
006F69B7 8B8358030000 mov eax, [ebx+$0358]
006F69BD 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006F69BF FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F69C5 8B939C030000 mov edx, [ebx+$039C]
006F69CB 88424B mov [edx+$4B], al
* Reference to control TRMPageSetupForm.chkTaoda : TCheckBox
|
006F69CE 8B835C030000 mov eax, [ebx+$035C]
006F69D4 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006F69D6 FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F69DC 8B939C030000 mov edx, [ebx+$039C]
006F69E2 884220 mov [edx+$20], al
* Reference to control TRMPageSetupForm.chkColorPrint : TCheckBox
|
006F69E5 8B8360030000 mov eax, [ebx+$0360]
006F69EB 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006F69ED FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F69F3 8B939C030000 mov edx, [ebx+$039C]
006F69F9 88425C mov [edx+$5C], al
* Reference to control TRMPageSetupForm.chkNewPage : TCheckBox
|
006F69FC 8B836C030000 mov eax, [ebx+$036C]
006F6A02 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006F6A04 FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6A0A 8B939C030000 mov edx, [ebx+$039C]
006F6A10 88425D mov [edx+$5D], al
* Reference to control TRMPageSetupForm.chkConvertNulls : TCheckBox
|
006F6A13 8B8390030000 mov eax, [ebx+$0390]
006F6A19 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006F6A1B FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6A21 8B939C030000 mov edx, [ebx+$039C]
006F6A27 88425E mov [edx+$5E], al
* Reference to control TRMPageSetupForm.chkUnlimitedHeight : TCheckBox
|
006F6A2A 8B8330030000 mov eax, [ebx+$0330]
006F6A30 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
006F6A32 FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6A38 8BB39C030000 mov esi, [ebx+$039C]
006F6A3E 88464A mov [esi+$4A], al
* Reference to field TRMPageSetupForm.OFFS_03C0
|
006F6A41 8B83C0030000 mov eax, [ebx+$03C0]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F6A47 E8D0F10300 call 00735C1C
006F6A4C D80D206B6F00 fmul dword ptr [$006F6B20]
006F6A52 83C4F8 add esp, -$08
006F6A55 DD1C24 fstp qword ptr [esp]
006F6A58 9B wait
006F6A59 33D2 xor edx, edx
006F6A5B 8BC6 mov eax, esi
* Reference to : TRMPrinterCanvas._PROC_00731A6C()
|
006F6A5D E80AB00300 call 00731A6C
* Reference to field TRMPageSetupForm.OFFS_03B8
|
006F6A62 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F6A68 E8AFF10300 call 00735C1C
006F6A6D D80D206B6F00 fmul dword ptr [$006F6B20]
006F6A73 83C4F8 add esp, -$08
006F6A76 DD1C24 fstp qword ptr [esp]
006F6A79 9B wait
006F6A7A BA01000000 mov edx, $00000001
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6A7F 8B839C030000 mov eax, [ebx+$039C]
* Reference to : TRMPrinterCanvas._PROC_00731A6C()
|
006F6A85 E8E2AF0300 call 00731A6C
* Reference to field TRMPageSetupForm.OFFS_03C4
|
006F6A8A 8B83C4030000 mov eax, [ebx+$03C4]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F6A90 E887F10300 call 00735C1C
006F6A95 D80D206B6F00 fmul dword ptr [$006F6B20]
006F6A9B 83C4F8 add esp, -$08
006F6A9E DD1C24 fstp qword ptr [esp]
006F6AA1 9B wait
006F6AA2 BA02000000 mov edx, $00000002
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6AA7 8B839C030000 mov eax, [ebx+$039C]
* Reference to : TRMPrinterCanvas._PROC_00731A6C()
|
006F6AAD E8BAAF0300 call 00731A6C
* Reference to field TRMPageSetupForm.OFFS_03BC
|
006F6AB2 8B83BC030000 mov eax, [ebx+$03BC]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F6AB8 E85FF10300 call 00735C1C
006F6ABD D80D206B6F00 fmul dword ptr [$006F6B20]
006F6AC3 83C4F8 add esp, -$08
006F6AC6 DD1C24 fstp qword ptr [esp]
006F6AC9 9B wait
006F6ACA BA03000000 mov edx, $00000003
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6ACF 8B839C030000 mov eax, [ebx+$039C]
* Reference to : TRMPrinterCanvas._PROC_00731A6C()
|
006F6AD5 E892AF0300 call 00731A6C
* Reference to field TRMPageSetupForm.OFFS_03C8
|
006F6ADA 8B83C8030000 mov eax, [ebx+$03C8]
* 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;
|
006F6AE0 E833F30300 call 00735E18
006F6AE5 8BD0 mov edx, eax
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6AE7 8B839C030000 mov eax, [ebx+$039C]
|
006F6AED E836B00300 call 00731B28
* Reference to field TRMPageSetupForm.OFFS_03CC
|
006F6AF2 8B83CC030000 mov eax, [ebx+$03CC]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F6AF8 E81FF10300 call 00735C1C
006F6AFD D80D206B6F00 fmul dword ptr [$006F6B20]
006F6B03 83C4F8 add esp, -$08
006F6B06 DD1C24 fstp qword ptr [esp]
006F6B09 9B wait
006F6B0A BA04000000 mov edx, $00000004
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6B0F 8B839C030000 mov eax, [ebx+$039C]
* Reference to : TRMPrinterCanvas._PROC_00731A6C()
|
006F6B15 E852AF0300 call 00731A6C
006F6B1A 5E pop esi
006F6B1B 5B pop ebx
006F6B1C C3 ret
*)
end;
procedure TRMPageSetupForm.lstBinNamesClick(Sender : TObject);
begin
(*
006F6960 53 push ebx
006F6961 8BD8 mov ebx, eax
* Reference to control TRMPageSetupForm.lstBinNames : TListBox
|
006F6963 8B8344030000 mov eax, [ebx+$0344]
006F6969 8B10 mov edx, [eax]
* Reference to method TListBox.ItemIndex()
|
006F696B FF92CC000000 call dword ptr [edx+$00CC]
006F6971 85C0 test eax, eax
006F6973 7C24 jl 006F6999
* Reference to control TRMPageSetupForm.lstBinNames : TListBox
|
006F6975 8B8344030000 mov eax, [ebx+$0344]
006F697B 8B10 mov edx, [eax]
* Reference to method TListBox.ItemIndex()
|
006F697D FF92CC000000 call dword ptr [edx+$00CC]
006F6983 8BD0 mov edx, eax
* Reference to field TRMPageSetupForm.OFFS_03A4
|
006F6985 8B83A4030000 mov eax, [ebx+$03A4]
|
006F698B E8D4870300 call 0072F164
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F6990 8B939C030000 mov edx, [ebx+$039C]
006F6996 89421C mov [edx+$1C], eax
006F6999 5B pop ebx
006F699A C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F5350(Sender : TObject);
begin
(*
006F5350 53 push ebx
006F5351 56 push esi
* Reference to: System.@BeforeDestruction(TObject;Shortint):TObject;
|
006F5352 E8D5F3D0FF call 0040472C
006F5357 8BDA mov ebx, edx
006F5359 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F535B 8B867C010000 mov eax, [esi+$017C]
* Reference to: System.TObject.Free(TObject);
|
006F5361 E8E6EFD0FF call 0040434C
006F5366 8BD3 mov edx, ebx
006F5368 80E2FC and dl, $FC
006F536B 8BC6 mov eax, esi
* Reference to: Forms.TScrollingWinControl.Destroy(TScrollingWinControl;boolean);
|
006F536D E83E05D5FF call 004458B0
006F5372 84DB test bl, bl
006F5374 7E07 jle 006F537D
006F5376 8BC6 mov eax, esi
* Reference to: System.@ClassDestroy(TObject);
|
006F5378 E897F3D0FF call 00404714
006F537D 5E pop esi
006F537E 5B pop ebx
006F537F C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F5380(Sender : TObject);
begin
(*
006F5380 53 push ebx
006F5381 56 push esi
006F5382 57 push edi
006F5383 55 push ebp
006F5384 83C4AC add esp, -$54
006F5387 8BD8 mov ebx, eax
006F5389 BD5C398900 mov ebp, $0089395C
006F538E 8B4500 mov eax, [ebp+$00]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5391 8B809C030000 mov eax, [eax+$039C]
006F5397 DB4010 fild dword ptr [eax+$10]
006F539A DD5C2430 fstp qword ptr [esp+$30]
006F539E 9B wait
006F539F DB4014 fild dword ptr [eax+$14]
006F53A2 DD5C2438 fstp qword ptr [esp+$38]
006F53A6 9B wait
006F53A7 DD442438 fld qword ptr [esp+$38]
006F53AB D81D84566F00 fcomp dword ptr [$006F5684]
006F53B1 DFE0 fstsw ax
006F53B3 9E sahf
006F53B4 0F84C2020000 jz 006F567C
006F53BA DD442430 fld qword ptr [esp+$30]
006F53BE DC742438 fdiv qword ptr [esp+$38]
006F53C2 DD1C24 fstp qword ptr [esp]
006F53C5 9B wait
* Reference to field TRMPageSetupForm.Height : Integer
|
006F53C6 8B734C mov esi, [ebx+$4C]
006F53C9 89742440 mov [esp+$40], esi
006F53CD DB442440 fild dword ptr [esp+$40]
006F53D1 DC0C24 fmul qword ptr [esp]
* Reference to: System.@ROUND;
|
006F53D4 E803DED0FF call 004031DC
006F53D9 8BF8 mov edi, eax
006F53DB EB15 jmp 006F53F2
006F53DD 83EE14 sub esi, +$14
006F53E0 89742440 mov [esp+$40], esi
006F53E4 DB442440 fild dword ptr [esp+$40]
006F53E8 DC0C24 fmul qword ptr [esp]
* Reference to: System.@ROUND;
|
006F53EB E8ECDDD0FF call 004031DC
006F53F0 8BF8 mov edi, eax
* Reference to field TRMPageSetupForm.Width : Integer
|
006F53F2 3B7B48 cmp edi, [ebx+$48]
006F53F5 7DE6 jnl 006F53DD
006F53F7 897C2440 mov [esp+$40], edi
006F53FB DB442440 fild dword ptr [esp+$40]
006F53FF DC742430 fdiv qword ptr [esp+$30]
006F5403 DD5C2410 fstp qword ptr [esp+$10]
006F5407 9B wait
006F5408 89742440 mov [esp+$40], esi
006F540C DB442440 fild dword ptr [esp+$40]
006F5410 DC742438 fdiv qword ptr [esp+$38]
006F5414 DD5C2418 fstp qword ptr [esp+$18]
006F5418 9B wait
006F5419 8B4500 mov eax, [ebp+$00]
* Reference to control Label19 : N.A.
|
006F541C 8B80B8030000 mov eax, [eax+$03B8]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F5422 E8F5070400 call 00735C1C
006F5427 D80D88566F00 fmul dword ptr [$006F5688]
006F542D DC4C2418 fmul qword ptr [esp+$18]
* Reference to: System.@TRUNC;
|
006F5431 E8B2DDD0FF call 004031E8
006F5436 89442420 mov [esp+$20], eax
006F543A 8B4500 mov eax, [ebp+$00]
* Reference to control BankName : N.A.
|
006F543D 8B80BC030000 mov eax, [eax+$03BC]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F5443 E8D4070400 call 00735C1C
006F5448 D80D88566F00 fmul dword ptr [$006F5688]
006F544E DC4C2418 fmul qword ptr [esp+$18]
* Reference to: System.@TRUNC;
|
006F5452 E891DDD0FF call 004031E8
006F5457 89442424 mov [esp+$24], eax
006F545B 8B4500 mov eax, [ebp+$00]
* Reference to control Label21 : N.A.
|
006F545E 8B80C0030000 mov eax, [eax+$03C0]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F5464 E8B3070400 call 00735C1C
006F5469 D80D88566F00 fmul dword ptr [$006F5688]
006F546F DC4C2410 fmul qword ptr [esp+$10]
* Reference to: System.@TRUNC;
|
006F5473 E870DDD0FF call 004031E8
006F5478 89442428 mov [esp+$28], eax
006F547C 8B4500 mov eax, [ebp+$00]
* Reference to control BankAddress : N.A.
|
006F547F 8B80C4030000 mov eax, [eax+$03C4]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F5485 E892070400 call 00735C1C
006F548A D80D88566F00 fmul dword ptr [$006F5688]
006F5490 DC4C2410 fmul qword ptr [esp+$10]
* Reference to: System.@TRUNC;
|
006F5494 E84FDDD0FF call 004031E8
006F5499 8944242C mov [esp+$2C], eax
* Reference to field TRMPageSetupForm.Width : Integer
|
006F549D 8B5348 mov edx, [ebx+$48]
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F54A0 8B837C010000 mov eax, [ebx+$017C]
006F54A6 8B08 mov ecx, [eax]
* Possible reference to virtual method TIDockManager.OFFS_40
|
006F54A8 FF5140 call dword ptr [ecx+$40]
* Reference to field TRMPageSetupForm.Height : Integer
|
006F54AB 8B534C mov edx, [ebx+$4C]
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F54AE 8B837C010000 mov eax, [ebx+$017C]
006F54B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TIDockManager.OFFS_34
|
006F54B6 FF5134 call dword ptr [ecx+$34]
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F54B9 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F54BF E8081AD4FF call 00436ECC
* Reference to field IDockManager.OFFS_0010
|
006F54C4 8B4010 mov eax, [eax+$10]
006F54C7 33D2 xor edx, edx
* Reference to: Graphics.TPen.SetStyle(TPen;TPenStyle);
|
006F54C9 E84ABAD3FF call 00430F18
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F54CE 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F54D4 E8F319D4FF call 00436ECC
* Reference to field IDockManager.OFFS_0014
|
006F54D9 8B4014 mov eax, [eax+$14]
006F54DC 33D2 xor edx, edx
* Reference to: Graphics.TBrush.SetStyle(TBrush;TBrushStyle);
|
006F54DE E87DBDD3FF call 00431260
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F54E3 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F54E9 E8DE19D4FF call 00436ECC
* Reference to field IDockManager.OFFS_0014
|
006F54EE 8B4014 mov eax, [eax+$14]
006F54F1 BA0F0000FF mov edx, $FF00000F
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
006F54F6 E829BCD3FF call 00431124
* Reference to field TRMPageSetupForm.Height : Integer
|
006F54FB 8B434C mov eax, [ebx+$4C]
006F54FE 50 push eax
006F54FF 8D442448 lea eax, [esp+$48]
006F5503 50 push eax
* Reference to field TRMPageSetupForm.Width : Integer
|
006F5504 8B4B48 mov ecx, [ebx+$48]
006F5507 33D2 xor edx, edx
006F5509 33C0 xor eax, eax
|
006F550B E864C0D2FF call 00421574
006F5510 8D442444 lea eax, [esp+$44]
006F5514 50 push eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F5515 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F551B E8AC19D4FF call 00436ECC
006F5520 5A pop edx
* Reference to: Graphics.TCanvas.FillRect(TCanvas;Windows.TRect;Windows.TRect);
| or: Graphics.TCanvas.FrameRect(TCanvas;Windows.TRect;Windows.TRect);
|
006F5521 E8AEC3D3FF call 004318D4
* Reference to field TRMPageSetupForm.Width : Integer
|
006F5526 8B4348 mov eax, [ebx+$48]
006F5529 2BC7 sub eax, edi
006F552B D1F8 sar eax, 1
006F552D 7903 jns 006F5532
006F552F 83D000 adc eax, +$00
006F5532 89442408 mov [esp+$08], eax
* Reference to field TRMPageSetupForm.Height : Integer
|
006F5536 8B6B4C mov ebp, [ebx+$4C]
006F5539 2BEE sub ebp, esi
006F553B D1FD sar ebp, 1
006F553D 7903 jns 006F5542
006F553F 83D500 adc ebp, +$00
006F5542 037C2408 add edi, [esp+$08]
006F5546 8D042E lea eax, [esi+ebp]
006F5549 8944240C mov [esp+$0C], eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F554D 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F5553 E87419D4FF call 00436ECC
* Reference to field IDockManager.OFFS_0014
|
006F5558 8B4014 mov eax, [eax+$14]
006F555B BA050000FF mov edx, $FF000005
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
006F5560 E8BFBBD3FF call 00431124
006F5565 8BC7 mov eax, edi
006F5567 83E805 sub eax, +$05
006F556A 50 push eax
006F556B 8B442410 mov eax, [esp+$10]
006F556F 83E805 sub eax, +$05
006F5572 50 push eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F5573 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F5579 E84E19D4FF call 00436ECC
006F557E 8BCD mov ecx, ebp
006F5580 8B542410 mov edx, [esp+$10]
* Reference to: Graphics.TCanvas.Ellipse(TCanvas;Integer;Integer;Integer;Integer);overload;
| or: Graphics.TCanvas.Rectangle(TCanvas;Integer;Integer;Integer;Integer);overload;
|
006F5584 E867C5D3FF call 00431AF0
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F5589 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F558F E83819D4FF call 00436ECC
* Reference to field IDockManager.OFFS_0014
|
006F5594 8B4014 mov eax, [eax+$14]
006F5597 BA80808000 mov edx, $00808080
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
006F559C E883BBD3FF call 00431124
006F55A1 8B44240C mov eax, [esp+$0C]
006F55A5 50 push eax
006F55A6 8D442448 lea eax, [esp+$48]
006F55AA 50 push eax
006F55AB 8D142E lea edx, [esi+ebp]
006F55AE 83EA05 sub edx, +$05
006F55B1 8B442410 mov eax, [esp+$10]
006F55B5 83C006 add eax, +$06
006F55B8 8BCF mov ecx, edi
|
006F55BA E8B5BFD2FF call 00421574
006F55BF 8D442444 lea eax, [esp+$44]
006F55C3 50 push eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F55C4 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F55CA E8FD18D4FF call 00436ECC
006F55CF 5A pop edx
* Reference to: Graphics.TCanvas.FillRect(TCanvas;Windows.TRect;Windows.TRect);
| or: Graphics.TCanvas.FrameRect(TCanvas;Windows.TRect;Windows.TRect);
|
006F55D0 E8FFC2D3FF call 004318D4
006F55D5 8B44240C mov eax, [esp+$0C]
006F55D9 50 push eax
006F55DA 8D442448 lea eax, [esp+$48]
006F55DE 50 push eax
006F55DF 8D5506 lea edx, [ebp+$06]
006F55E2 8BC7 mov eax, edi
006F55E4 83E805 sub eax, +$05
006F55E7 8BCF mov ecx, edi
|
006F55E9 E886BFD2FF call 00421574
006F55EE 8D442444 lea eax, [esp+$44]
006F55F2 50 push eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F55F3 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F55F9 E8CE18D4FF call 00436ECC
006F55FE 5A pop edx
* Reference to: Graphics.TCanvas.FillRect(TCanvas;Windows.TRect;Windows.TRect);
| or: Graphics.TCanvas.FrameRect(TCanvas;Windows.TRect;Windows.TRect);
|
006F55FF E8D0C2D3FF call 004318D4
006F5604 8B442408 mov eax, [esp+$08]
006F5608 40 inc eax
006F5609 03442428 add eax, [esp+$28]
006F560D 89442408 mov [esp+$08], eax
006F5611 45 inc ebp
006F5612 036C2420 add ebp, [esp+$20]
006F5616 83EF06 sub edi, +$06
006F5619 2B7C242C sub edi, dword ptr [esp+$2C]
006F561D 8B44240C mov eax, [esp+$0C]
006F5621 83E806 sub eax, +$06
006F5624 2B442424 sub eax, dword ptr [esp+$24]
006F5628 8944240C mov [esp+$0C], eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F562C 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F5632 E89518D4FF call 00436ECC
* Reference to field IDockManager.OFFS_0010
|
006F5637 8B4010 mov eax, [eax+$10]
006F563A B202 mov dl, $02
* Reference to: Graphics.TPen.SetStyle(TPen;TPenStyle);
|
006F563C E8D7B8D3FF call 00430F18
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F5641 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F5647 E88018D4FF call 00436ECC
* Reference to field IDockManager.OFFS_0014
|
006F564C 8B4014 mov eax, [eax+$14]
006F564F BA050000FF mov edx, $FF000005
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
006F5654 E8CBBAD3FF call 00431124
006F5659 57 push edi
006F565A 8B442410 mov eax, [esp+$10]
006F565E 50 push eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F565F 8B837C010000 mov eax, [ebx+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F5665 E86218D4FF call 00436ECC
006F566A 8BCD mov ecx, ebp
006F566C 8B542410 mov edx, [esp+$10]
* Reference to: Graphics.TCanvas.Ellipse(TCanvas;Integer;Integer;Integer;Integer);overload;
| or: Graphics.TCanvas.Rectangle(TCanvas;Integer;Integer;Integer;Integer);overload;
|
006F5670 E87BC4D3FF call 00431AF0
006F5675 8BC3 mov eax, ebx
006F5677 8B10 mov edx, [eax]
* Reference to method TRMPageSetupForm.Invalidate()
|
006F5679 FF527C call dword ptr [edx+$7C]
006F567C 83C454 add esp, +$54
006F567F 5D pop ebp
006F5680 5F pop edi
006F5681 5E pop esi
006F5682 5B pop ebx
006F5683 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F568F(Sender : TObject);
begin
(*
006F568F C4E0 les esp, ax
006F5691 8BF0 mov esi, eax
* Reference to field TRMPageSetupForm.OFFS_0160
|
006F5693 8B9E60010000 mov ebx, [esi+$0160]
006F5699 8BD4 mov edx, esp
006F569B 8BC3 mov eax, ebx
* Reference to: Graphics.TCanvas.GetPenPos(TCanvas):Windows.TPoint;
| or: Graphics.TCanvas.GetClipRect(TCanvas):Windows.TRect;
|
006F569D E87AC8D3FF call 00431F1C
006F56A2 54 push esp
006F56A3 8D542414 lea edx, [esp+$14]
006F56A7 8BC3 mov eax, ebx
* Reference to: Graphics.TCanvas.GetPenPos(TCanvas):Windows.TPoint;
| or: Graphics.TCanvas.GetClipRect(TCanvas):Windows.TRect;
|
006F56A9 E86EC8D3FF call 00431F1C
006F56AE 8D442414 lea eax, [esp+$14]
006F56B2 50 push eax
* Reference to field TRMPageSetupForm.DockManager : IDockManager
|
006F56B3 8B867C010000 mov eax, [esi+$017C]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
006F56B9 E80E18D4FF call 00436ECC
006F56BE 8BC8 mov ecx, eax
006F56C0 8BC3 mov eax, ebx
006F56C2 5A pop edx
* Reference to: Graphics.TCanvas.CopyRect(TCanvas;Windows.TRect;Windows.TRect;TCanvas;Windows.TRect;Windows.TRect);
|
006F56C3 E85CC0D3FF call 00431724
006F56C8 83C420 add esp, +$20
006F56CB 5E pop esi
006F56CC 5B pop ebx
006F56CD C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F56D0(Sender : TObject);
begin
(*
006F56D0 55 push ebp
006F56D1 8BEC mov ebp, esp
006F56D3 33C9 xor ecx, ecx
006F56D5 51 push ecx
006F56D6 51 push ecx
006F56D7 51 push ecx
006F56D8 51 push ecx
006F56D9 51 push ecx
006F56DA 53 push ebx
006F56DB 8BD8 mov ebx, eax
006F56DD 33C0 xor eax, eax
006F56DF 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
006F56E0 682E5A6F00 push $006F5A2E
***** TRY
|
006F56E5 64FF30 push dword ptr fs:[eax]
006F56E8 648920 mov fs:[eax], esp
006F56EB 8D55FC lea edx, [ebp-$04]
006F56EE B854B90000 mov eax, $0000B954
|
006F56F3 E8A42C0800 call 0077839C
006F56F8 8B55FC mov edx, [ebp-$04]
* Reference to field TRMPageSetupForm.Font : TFont
|
006F56FB 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetName(TFont;TFontName);
|
006F56FE E855B4D3FF call 00430B58
006F5703 8D55F8 lea edx, [ebp-$08]
006F5706 B855B90000 mov eax, $0000B955
|
006F570B E88C2C0800 call 0077839C
006F5710 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
006F5713 E83059D1FF call 0040B048
006F5718 8BD0 mov edx, eax
* Reference to field TRMPageSetupForm.Font : TFont
|
006F571A 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetSize(TFont;Integer);
|
006F571D E8AEB4D3FF call 00430BD0
006F5722 8D55F4 lea edx, [ebp-$0C]
006F5725 B8E9B80000 mov eax, $0000B8E9
|
006F572A E86D2C0800 call 0077839C
006F572F 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
006F5732 E81159D1FF call 0040B048
006F5737 8BD0 mov edx, eax
* Reference to field TRMPageSetupForm.Font : TFont
|
006F5739 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetCharset(TFont;TFontCharset);
|
006F573C E81FB5D3FF call 00430C60
006F5741 B94EB10000 mov ecx, $0000B14E
* Possible String Reference to: 'Caption'
|
006F5746 BA445A6F00 mov edx, $006F5A44
006F574B 8BC3 mov eax, ebx
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F574D E89A1E0800 call 007775EC
006F5752 B94FB10000 mov ecx, $0000B14F
* Possible String Reference to: 'Caption'
|
006F5757 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.TabSheet1 : TTabSheet
|
006F575C 8B8304030000 mov eax, [ebx+$0304]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5762 E8851E0800 call 007775EC
006F5767 B950B10000 mov ecx, $0000B150
* Possible String Reference to: 'Caption'
|
006F576C BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.GroupBox2 : TGroupBox
|
006F5771 8B8310030000 mov eax, [ebx+$0310]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5777 E8701E0800 call 007775EC
006F577C B951B10000 mov ecx, $0000B151
* Possible String Reference to: 'Caption'
|
006F5781 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.rdbPortrait : TRadioButton
|
006F5786 8B831C030000 mov eax, [ebx+$031C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F578C E85B1E0800 call 007775EC
006F5791 B952B10000 mov ecx, $0000B152
* Possible String Reference to: 'Caption'
|
006F5796 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.rdbLandscape : TRadioButton
|
006F579B 8B8320030000 mov eax, [ebx+$0320]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F57A1 E8461E0800 call 007775EC
006F57A6 B953B10000 mov ecx, $0000B153
* Possible String Reference to: 'Caption'
|
006F57AB BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblPaperSize : TLabel
|
006F57B0 8B8340030000 mov eax, [ebx+$0340]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F57B6 E8311E0800 call 007775EC
006F57BB B954B10000 mov ecx, $0000B154
* Possible String Reference to: 'Caption'
|
006F57C0 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblPaperWidth : TLabel
|
006F57C5 8B8338030000 mov eax, [ebx+$0338]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F57CB E81C1E0800 call 007775EC
006F57D0 B955B10000 mov ecx, $0000B155
* Possible String Reference to: 'Caption'
|
006F57D5 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblPaperHeight : TLabel
|
006F57DA 8B833C030000 mov eax, [ebx+$033C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F57E0 E8071E0800 call 007775EC
006F57E5 B956B10000 mov ecx, $0000B156
* Possible String Reference to: 'Caption'
|
006F57EA BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.TabSheet2 : TTabSheet
|
006F57EF 8B8308030000 mov eax, [ebx+$0308]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F57F5 E8F21D0800 call 007775EC
006F57FA B958B10000 mov ecx, $0000B158
* Possible String Reference to: 'Caption'
|
006F57FF BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblMarginLeft : TLabel
|
006F5804 8B8388030000 mov eax, [ebx+$0388]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F580A E8DD1D0800 call 007775EC
006F580F B959B10000 mov ecx, $0000B159
* Possible String Reference to: 'Caption'
|
006F5814 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblMarginTop : TLabel
|
006F5819 8B8380030000 mov eax, [ebx+$0380]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F581F E8C81D0800 call 007775EC
006F5824 B95AB10000 mov ecx, $0000B15A
* Possible String Reference to: 'Caption'
|
006F5829 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblMarginRight : TLabel
|
006F582E 8B838C030000 mov eax, [ebx+$038C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5834 E8B31D0800 call 007775EC
006F5839 B95BB10000 mov ecx, $0000B15B
* Possible String Reference to: 'Caption'
|
006F583E BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblMarginBottom : TLabel
|
006F5843 8B8384030000 mov eax, [ebx+$0384]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5849 E89E1D0800 call 007775EC
006F584E B939B10000 mov ecx, $0000B139
* Possible String Reference to: 'Caption'
|
006F5853 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkColorPrint : TCheckBox
|
006F5858 8B8360030000 mov eax, [ebx+$0360]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F585E E8891D0800 call 007775EC
006F5863 B938B10000 mov ecx, $0000B138
* Possible String Reference to: 'Caption'
|
006F5868 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkNewPage : TCheckBox
|
006F586D 8B836C030000 mov eax, [ebx+$036C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5873 E8741D0800 call 007775EC
006F5878 B95DB10000 mov ecx, $0000B15D
* Possible String Reference to: 'Caption'
|
006F587D BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.TabSheet3 : TTabSheet
|
006F5882 8B830C030000 mov eax, [ebx+$030C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5888 E85F1D0800 call 007775EC
006F588D B95EB10000 mov ecx, $0000B15E
* Possible String Reference to: 'Caption'
|
006F5892 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.GroupBox1 : TGroupBox
|
006F5897 8B8324030000 mov eax, [ebx+$0324]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F589D E84A1D0800 call 007775EC
006F58A2 B95FB10000 mov ecx, $0000B15F
* Possible String Reference to: 'Caption'
|
006F58A7 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkPrintToPrevPage : TCheckBox
|
006F58AC 8B8328030000 mov eax, [ebx+$0328]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F58B2 E8351D0800 call 007775EC
006F58B7 B965B10000 mov ecx, $0000B165
* Possible String Reference to: 'Caption'
|
006F58BC BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkUnlimitedHeight : TCheckBox
|
006F58C1 8B8330030000 mov eax, [ebx+$0330]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F58C7 E8201D0800 call 007775EC
006F58CC B967B10000 mov ecx, $0000B167
* Possible String Reference to: 'Caption'
|
006F58D1 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkConvertNulls : TCheckBox
|
006F58D6 8B8390030000 mov eax, [ebx+$0390]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F58DC E80B1D0800 call 007775EC
006F58E1 B963B10000 mov ecx, $0000B163
* Possible String Reference to: 'Caption'
|
006F58E6 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.TabSheet4 : TTabSheet
|
006F58EB 8B832C030000 mov eax, [ebx+$032C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F58F1 E8F61C0800 call 007775EC
006F58F6 B964B10000 mov ecx, $0000B164
* Possible String Reference to: 'Caption'
|
006F58FB BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblPaperTray : TLabel
|
006F5900 8B8348030000 mov eax, [ebx+$0348]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5906 E8E11C0800 call 007775EC
006F590B B93CB10000 mov ecx, $0000B13C
* Possible String Reference to: 'Caption'
|
006F5910 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.Label9 : TLabel
|
006F5915 8B8364030000 mov eax, [ebx+$0364]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F591B E8CC1C0800 call 007775EC
006F5920 B93EB10000 mov ecx, $0000B13E
* Possible String Reference to: 'Caption'
|
006F5925 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkDoublePass : TCheckBox
|
006F592A 8B8358030000 mov eax, [ebx+$0358]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5930 E8B71C0800 call 007775EC
006F5935 B93BB10000 mov ecx, $0000B13B
* Possible String Reference to: 'Caption'
|
006F593A BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblPrinterName : TLabel
|
006F593F 8B8350030000 mov eax, [ebx+$0350]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5945 E8A21C0800 call 007775EC
006F594A B93FB10000 mov ecx, $0000B13F
* Possible String Reference to: 'Caption'
|
006F594F BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkTaoda : TCheckBox
|
006F5954 8B835C030000 mov eax, [ebx+$035C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F595A E88D1C0800 call 007775EC
006F595F B957B10000 mov ecx, $0000B157
* Possible String Reference to: 'Caption'
|
006F5964 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.grbPreview : TGroupBox
|
006F5969 8B834C030000 mov eax, [ebx+$034C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F596F E8781C0800 call 007775EC
006F5974 B956B10000 mov ecx, $0000B156
* Possible String Reference to: 'Caption'
|
006F5979 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.GroupBox3 : TGroupBox
|
006F597E 8B837C030000 mov eax, [ebx+$037C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5984 E8631C0800 call 007775EC
006F5989 B960B10000 mov ecx, $0000B160
* Possible String Reference to: 'Caption'
|
006F598E BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.GroupBox5 : TGroupBox
|
006F5993 8B8370030000 mov eax, [ebx+$0370]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5999 E84E1C0800 call 007775EC
006F599E B961B10000 mov ecx, $0000B161
* Possible String Reference to: 'Caption'
|
006F59A3 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblColCount : TLabel
|
006F59A8 8B8374030000 mov eax, [ebx+$0374]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F59AE E8391C0800 call 007775EC
006F59B3 B962B10000 mov ecx, $0000B162
* Possible String Reference to: 'Caption'
|
006F59B8 BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.lblColGap : TLabel
|
006F59BD 8B8378030000 mov eax, [ebx+$0378]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F59C3 E8241C0800 call 007775EC
006F59C8 B9D6B00000 mov ecx, $0000B0D6
* Possible String Reference to: 'Caption'
|
006F59CD BA445A6F00 mov edx, $006F5A44
* Reference to control TRMPageSetupForm.chkPageMode : TCheckBox
|
006F59D2 8B8394030000 mov eax, [ebx+$0394]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F59D8 E80F1C0800 call 007775EC
006F59DD 8D55F0 lea edx, [ebp-$10]
006F59E0 B898B70000 mov eax, $0000B798
|
006F59E5 E8B2290800 call 0077839C
006F59EA 8B55F0 mov edx, [ebp-$10]
* Reference to control TRMPageSetupForm.btnOK : TButton
|
006F59ED 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
006F59F3 E8282CD9FF call 00488620
006F59F8 8D55EC lea edx, [ebp-$14]
006F59FB B899B70000 mov eax, $0000B799
|
006F5A00 E897290800 call 0077839C
006F5A05 8B55EC mov edx, [ebp-$14]
* Reference to control TRMPageSetupForm.btnCancel : TButton
|
006F5A08 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
006F5A0E E80D2CD9FF call 00488620
006F5A13 33C0 xor eax, eax
006F5A15 5A pop edx
006F5A16 59 pop ecx
006F5A17 59 pop ecx
006F5A18 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
006F5A1B 68355A6F00 push $006F5A35
006F5A20 8D45EC lea eax, [ebp-$14]
006F5A23 BA05000000 mov edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
006F5A28 E81BF9D0FF call 00405348
006F5A2D C3 ret
* Reference to: System.@HandleFinally;
|
006F5A2E E9C1F0D0FF jmp 00404AF4
006F5A33 EBEB jmp 006F5A20
****** END
|
006F5A35 5B pop ebx
006F5A36 8BE5 mov esp, ebp
006F5A38 5D pop ebp
006F5A39 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F5A53(Sender : TObject);
begin
(*
006F5A53 C803 enter , $03
006F5A55 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F5A60(Sender : TObject);
begin
(*
006F5A60 CC int 3
006F5A61 0300 add eax, [eax]
006F5A63 008B08FF5164 add [ebx+$6451FF08], cl
006F5A69 B201 mov dl, $01
* Reference to control cxGrid1Level1 : N.A.
|
006F5A6B 8B8330030000 mov eax, [ebx+$0330]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
006F5A71 E89A2AD9FF call 00488510
006F5A76 B948B10000 mov ecx, $0000B148
* Possible String Reference to: 'Caption'
|
006F5A7B BAC45A6F00 mov edx, $006F5AC4
* Reference to control cxGrid1Level1 : N.A.
|
006F5A80 8B8330030000 mov eax, [ebx+$0330]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F5A86 E8611B0800 call 007775EC
006F5A8B 8BC3 mov eax, ebx
|
006F5A8D E892100000 call 006F6B24
* Reference to control Label17 : N.A.
|
006F5A92 8B83A8030000 mov eax, [ebx+$03A8]
006F5A98 85C0 test eax, eax
006F5A9A 740E jz 006F5AAA
* Reference to field N.A..OFFS_0060
|
006F5A9C 8A5060 mov dl, byte ptr [eax+$60]
* Reference to control OrdDate : N.A.
|
006F5A9F 8B830C030000 mov eax, [ebx+$030C]
* Reference to: ComCtrls.TTabSheet.SetTabVisible(TTabSheet;Boolean);
| or: ComCtrls.TAnimate.SetCenter(TAnimate;Boolean);
| or: StdCtrls.TCustomCheckBox.SetAlignment(TCustomCheckBox;TLeftRight);
| or: StdCtrls.TRadioButton.SetAlignment(TRadioButton;TLeftRight);
| or: StdCtrls.TCustomStaticText.SetShowAccelChar(TCustomStaticText;Boolean);
|
006F5AA5 E86A72D6FF call 0045CD14
006F5AAA 8BC3 mov eax, ebx
006F5AAC 8B10 mov edx, [eax]
006F5AAE FF92EC000000 call dword ptr [edx+$00EC]
006F5AB4 48 dec eax
006F5AB5 0F94C0 setz al
006F5AB8 5B pop ebx
006F5AB9 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F5AD0(Sender : TObject);
begin
(*
006F5AD0 83C4F8 add esp, -$08
006F5AD3 8BF8 mov edi, eax
006F5AD5 8B8754030000 mov eax, [edi+$0354]
006F5ADB 8B10 mov edx, [eax]
* Reference to method TRMPageSetupForm.AutoScrollInView(TControl)
|
006F5ADD FF92CC000000 call dword ptr [edx+$00CC]
006F5AE3 50 push 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;
|
006F5AE4 E8F7820300 call 0072DDE0
006F5AE9 5A pop edx
|
006F5AEA E8F1990300 call 0072F4E0
006F5AEF 8BD8 mov ebx, eax
006F5AF1 899FA4030000 mov [edi+$03A4], ebx
006F5AF7 8BF3 mov esi, ebx
006F5AF9 8B8734030000 mov eax, [edi+$0334]
006F5AFF 8B803C020000 mov eax, [eax+$023C]
006F5B05 8B5620 mov edx, [esi+$20]
006F5B08 8B08 mov ecx, [eax]
006F5B0A FF5108 call dword ptr [ecx+$08]
006F5B0D 8B8744030000 mov eax, [edi+$0344]
006F5B13 8B8018020000 mov eax, [eax+$0218]
006F5B19 8B5624 mov edx, [esi+$24]
006F5B1C 8B08 mov ecx, [eax]
006F5B1E FF5108 call dword ptr [ecx+$08]
006F5B21 8B879C030000 mov eax, [edi+$039C]
006F5B27 80781800 cmp byte ptr [eax+$18], $00
006F5B2B 750F jnz 006F5B3C
006F5B2D 8B5010 mov edx, [eax+$10]
006F5B30 891424 mov [esp], edx
006F5B33 8B4014 mov eax, [eax+$14]
006F5B36 89442404 mov [esp+$04], eax
006F5B3A EB0D jmp 006F5B49
006F5B3C 8B5014 mov edx, [eax+$14]
006F5B3F 891424 mov [esp], edx
006F5B42 8B4010 mov eax, [eax+$10]
006F5B45 89442404 mov [esp+$04], eax
006F5B49 33DB xor ebx, ebx
006F5B4B 8BC6 mov eax, esi
|
006F5B4D E8CE850300 call 0072E120
006F5B52 8BE8 mov ebp, eax
006F5B54 3BEB cmp ebp, ebx
006F5B56 7E2E jle 006F5B86
006F5B58 8BD3 mov edx, ebx
006F5B5A 8BC6 mov eax, esi
|
006F5B5C E80B930300 call 0072EE6C
006F5B61 2B0424 sub eax, dword ptr [esp]
006F5B64 99 cdq
006F5B65 33C2 xor eax, edx
006F5B67 2BC2 sub eax, edx
006F5B69 48 dec eax
006F5B6A 7F15 jnle 006F5B81
006F5B6C 8BD3 mov edx, ebx
006F5B6E 8BC6 mov eax, esi
|
006F5B70 E88F930300 call 0072EF04
006F5B75 2B442404 sub eax, dword ptr [esp+$04]
006F5B79 99 cdq
006F5B7A 33C2 xor eax, edx
006F5B7C 2BC2 sub eax, edx
006F5B7E 48 dec eax
006F5B7F 7E05 jle 006F5B86
006F5B81 43 inc ebx
006F5B82 3BEB cmp ebp, ebx
006F5B84 7FD2 jnle 006F5B58
006F5B86 3BEB cmp ebp, ebx
006F5B88 7E15 jle 006F5B9F
006F5B8A 8BD3 mov edx, ebx
006F5B8C 8BC6 mov eax, esi
|
006F5B8E E839950300 call 0072F0CC
006F5B93 8B979C030000 mov edx, [edi+$039C]
006F5B99 6689420C mov [edx+$0C], ax
006F5B9D EB14 jmp 006F5BB3
006F5B9F 8BD5 mov edx, ebp
006F5BA1 4A dec edx
006F5BA2 8BC6 mov eax, esi
|
006F5BA4 E823950300 call 0072F0CC
006F5BA9 8B979C030000 mov edx, [edi+$039C]
006F5BAF 6689420C mov [edx+$0C], ax
006F5BB3 8BC7 mov eax, edi
* Reference to : TRMPageSetupForm._PROC_006F5BC4()
|
006F5BB5 E80A000000 call 006F5BC4
006F5BBA 59 pop ecx
006F5BBB 5A pop edx
006F5BBC 5D pop ebp
006F5BBD 5F pop edi
006F5BBE 5E pop esi
006F5BBF 5B pop ebx
006F5BC0 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F5BC4(Sender : TObject);
begin
(*
006F5BC4 55 push ebp
006F5BC5 8BEC mov ebp, esp
006F5BC7 83C4F4 add esp, -$0C
006F5BCA 53 push ebx
006F5BCB 8945FC mov [ebp-$04], eax
006F5BCE 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A0
|
006F5BD1 80B8A003000000 cmp byte ptr [eax+$03A0], $00
006F5BD8 0F85E3010000 jnz 006F5DC1
006F5BDE 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A0
|
006F5BE1 C680A003000001 mov byte ptr [eax+$03A0], $01
006F5BE8 33C0 xor eax, eax
006F5BEA 55 push ebp
* Possible String Reference to: '<27>5<EFBFBD><35><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
006F5BEB 68BA5D6F00 push $006F5DBA
***** TRY
|
006F5BF0 64FF30 push dword ptr fs:[eax]
006F5BF3 648920 mov fs:[eax], esp
006F5BF6 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5BF9 8B809C030000 mov eax, [eax+$039C]
006F5BFF 80781800 cmp byte ptr [eax+$18], $00
006F5C03 0F94C2 setz dl
006F5C06 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.rdbPortrait : TRadioButton
|
006F5C09 8B801C030000 mov eax, [eax+$031C]
006F5C0F 8B08 mov ecx, [eax]
* Reference to method TRadioButton.SetChecked(Boolean)
|
006F5C11 FF91CC000000 call dword ptr [ecx+$00CC]
006F5C17 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5C1A 8B809C030000 mov eax, [eax+$039C]
006F5C20 80781801 cmp byte ptr [eax+$18], $01
006F5C24 0F94C2 setz dl
006F5C27 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.rdbLandscape : TRadioButton
|
006F5C2A 8B8020030000 mov eax, [eax+$0320]
006F5C30 8B08 mov ecx, [eax]
* Reference to method TRadioButton.SetChecked(Boolean)
|
006F5C32 FF91CC000000 call dword ptr [ecx+$00CC]
006F5C38 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.rdbPortrait : TRadioButton
|
006F5C3B 8B801C030000 mov eax, [eax+$031C]
006F5C41 8B10 mov edx, [eax]
* Reference to method TRadioButton.GetChecked()
|
006F5C43 FF92C8000000 call dword ptr [edx+$00C8]
006F5C49 8BD0 mov edx, eax
006F5C4B 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.imgPortrait : TImage
|
006F5C4E 8B8018030000 mov eax, [eax+$0318]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
006F5C54 E8B728D9FF call 00488510
006F5C59 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.rdbPortrait : TRadioButton
|
006F5C5C 8B801C030000 mov eax, [eax+$031C]
006F5C62 8B10 mov edx, [eax]
* Reference to method TRadioButton.GetChecked()
|
006F5C64 FF92C8000000 call dword ptr [edx+$00C8]
006F5C6A 8BD0 mov edx, eax
006F5C6C 80F201 xor dl, $01
006F5C6F 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.imgLandScape : TImage
|
006F5C72 8B8014030000 mov eax, [eax+$0314]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
006F5C78 E89328D9FF call 00488510
006F5C7D 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5C80 8B809C030000 mov eax, [eax+$039C]
006F5C86 DB4010 fild dword ptr [eax+$10]
006F5C89 D835C85D6F00 fdiv dword ptr [$006F5DC8]
006F5C8F 83C4F4 add esp, -$0C
006F5C92 DB3C24 fstp tbyte ptr [esp]
006F5C95 9B wait
006F5C96 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03B4
|
006F5C99 8B80B4030000 mov eax, [eax+$03B4]
|
006F5C9F E8C0000400 call 00735D64
006F5CA4 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5CA7 8B809C030000 mov eax, [eax+$039C]
006F5CAD DB4014 fild dword ptr [eax+$14]
006F5CB0 D835C85D6F00 fdiv dword ptr [$006F5DC8]
006F5CB6 83C4F4 add esp, -$0C
006F5CB9 DB3C24 fstp tbyte ptr [esp]
006F5CBC 9B wait
006F5CBD 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03B0
|
006F5CC0 8B80B0030000 mov eax, [eax+$03B0]
|
006F5CC6 E899000400 call 00735D64
006F5CCB 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5CCE 8B809C030000 mov eax, [eax+$039C]
006F5CD4 8B501C mov edx, [eax+$1C]
006F5CD7 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A4
|
006F5CDA 8B80A4030000 mov eax, [eax+$03A4]
|
006F5CE0 E8D7950300 call 0072F2BC
006F5CE5 8BD0 mov edx, eax
006F5CE7 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.lstBinNames : TListBox
|
006F5CEA 8B8044030000 mov eax, [eax+$0344]
006F5CF0 8B08 mov ecx, [eax]
* Reference to method TListBox.ItemIndex()
|
006F5CF2 FF91D0000000 call dword ptr [ecx+$00D0]
006F5CF8 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F5CFB 8B809C030000 mov eax, [eax+$039C]
006F5D01 0FB7500C movzx edx, word ptr [eax+$0C]
006F5D05 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A4
|
006F5D08 8B80A4030000 mov eax, [eax+$03A4]
|
006F5D0E E8FD940300 call 0072F210
006F5D13 8BD0 mov edx, eax
006F5D15 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.cmbPaperNames : TComboBox
|
006F5D18 8B8034030000 mov eax, [eax+$0334]
006F5D1E 8B08 mov ecx, [eax]
* Reference to method TComboBox.ItemIndex()
|
006F5D20 FF91D0000000 call dword ptr [ecx+$00D0]
006F5D26 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.cmbPaperNames : TComboBox
|
006F5D29 8B8034030000 mov eax, [eax+$0334]
006F5D2F 8B10 mov edx, [eax]
* Reference to method TComboBox.ItemIndex()
|
006F5D31 FF92CC000000 call dword ptr [edx+$00CC]
006F5D37 8BD8 mov ebx, eax
006F5D39 8B45FC mov eax, [ebp-$04]
* Reference to control TRMPageSetupForm.cmbPaperNames : TComboBox
|
006F5D3C 8B8034030000 mov eax, [eax+$0334]
* Reference to field TComboBox.Items : TStrings
|
006F5D42 8B803C020000 mov eax, [eax+$023C]
006F5D48 8B10 mov edx, [eax]
* Reference to method TStrings.Count()
|
006F5D4A FF5214 call dword ptr [edx+$14]
006F5D4D 48 dec eax
006F5D4E 3BD8 cmp ebx, eax
006F5D50 0F94C1 setz cl
006F5D53 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03B4
|
006F5D56 8B80B4030000 mov eax, [eax+$03B4]
006F5D5C 8945F4 mov [ebp-$0C], eax
006F5D5F 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03B0
|
006F5D62 8B80B0030000 mov eax, [eax+$03B0]
006F5D68 8945F8 mov [ebp-$08], eax
006F5D6B 8D45F4 lea eax, [ebp-$0C]
006F5D6E BA01000000 mov edx, $00000001
* Reference to : TWrapperComponent._PROC_007758F0()
|
006F5D73 E878FB0700 call 007758F0
006F5D78 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03B4
|
006F5D7B 8B80B4030000 mov eax, [eax+$03B4]
006F5D81 8B10 mov edx, [eax]
006F5D83 FF5250 call dword ptr [edx+$50]
006F5D86 84C0 test al, al
006F5D88 740A jz 006F5D94
006F5D8A 33D2 xor edx, edx
006F5D8C 8B45FC mov eax, [ebp-$04]
* Reference to : TRMPageSetupForm._PROC_006F64C8()
|
006F5D8F E834070000 call 006F64C8
006F5D94 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_0398
|
006F5D97 8B8098030000 mov eax, [eax+$0398]
* Reference to : TRMPageSetupForm._PROC_006F5380()
|
006F5D9D E8DEF5FFFF call 006F5380
006F5DA2 33C0 xor eax, eax
006F5DA4 5A pop edx
006F5DA5 59 pop ecx
006F5DA6 59 pop ecx
006F5DA7 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
006F5DAA 68C15D6F00 push $006F5DC1
006F5DAF 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A0
|
006F5DB2 C680A003000000 mov byte ptr [eax+$03A0], $00
006F5DB9 C3 ret
* Reference to: System.@HandleFinally;
|
006F5DBA E935EDD0FF jmp 00404AF4
006F5DBF EBEE jmp 006F5DAF
****** END
|
006F5DC1 5B pop ebx
006F5DC2 8BE5 mov esp, ebp
006F5DC4 5D pop ebp
006F5DC5 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F64C8(Sender : TObject);
begin
(*
006F64C8 53 push ebx
006F64C9 8BD8 mov ebx, eax
* Reference to field TRMPageSetupForm.ActiveControl : TWinControl
|
006F64CB 8B8320020000 mov eax, [ebx+$0220]
* Reference to control TRMPageSetupForm.btnCancel : TButton
|
006F64D1 3B83FC020000 cmp eax, [ebx+$02FC]
006F64D7 7445 jz 006F651E
* Reference to field TRMPageSetupForm.OFFS_03B4
|
006F64D9 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F64DF E838F70300 call 00735C1C
006F64E4 D80D20656F00 fmul dword ptr [$006F6520]
* Reference to: System.@ROUND;
|
006F64EA E8EDCCD0FF call 004031DC
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F64EF 8B939C030000 mov edx, [ebx+$039C]
006F64F5 894210 mov [edx+$10], eax
* Reference to field TRMPageSetupForm.OFFS_03B0
|
006F64F8 8B83B0030000 mov eax, [ebx+$03B0]
* Reference to : TRxUpDown._PROC_00735C1C()
|
006F64FE E819F70300 call 00735C1C
006F6503 D80D20656F00 fmul dword ptr [$006F6520]
* Reference to: System.@ROUND;
|
006F6509 E8CECCD0FF call 004031DC
* Reference to field TRMPageSetupForm.OFFS_039C
|
006F650E 8B939C030000 mov edx, [ebx+$039C]
006F6514 894214 mov [edx+$14], eax
006F6517 8BC3 mov eax, ebx
* Reference to : TRMPageSetupForm._PROC_006F5BC4()
|
006F6519 E8A6F6FFFF call 006F5BC4
006F651E 5B pop ebx
006F651F C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F6525(Sender : TObject);
begin
(*
006F6525 8BEC mov ebp, esp
006F6527 51 push ecx
006F6528 8945FC mov [ebp-$04], eax
006F652B 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.ActiveControl : TWinControl
|
006F652E 8B8020020000 mov eax, [eax+$0220]
006F6534 8B55FC mov edx, [ebp-$04]
* Reference to control TRMPageSetupForm.btnCancel : TButton
|
006F6537 3B82FC020000 cmp eax, [edx+$02FC]
006F653D 7451 jz 006F6590
006F653F 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A0
|
006F6542 80B8A003000000 cmp byte ptr [eax+$03A0], $00
006F6549 7545 jnz 006F6590
006F654B 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A0
|
006F654E C680A003000001 mov byte ptr [eax+$03A0], $01
006F6555 33C0 xor eax, eax
006F6557 55 push ebp
* Possible String Reference to: '<27>f<EFBFBD><66><EFBFBD><EFBFBD><EFBFBD>Y]ÐU<C390><55><EFBFBD><EFBFBD><EFBFBD>SV<53><56><EFBFBD>؉]<5D><>E<EFBFBD><45><EFBFBD><EFBFBD>'
|
006F6558 6889656F00 push $006F6589
***** TRY
|
006F655D 64FF30 push dword ptr fs:[eax]
006F6560 648920 mov fs:[eax], esp
006F6563 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_0398
|
006F6566 8B8098030000 mov eax, [eax+$0398]
* Reference to : TRMPageSetupForm._PROC_006F5380()
|
006F656C E80FEEFFFF call 006F5380
006F6571 33C0 xor eax, eax
006F6573 5A pop edx
006F6574 59 pop ecx
006F6575 59 pop ecx
006F6576 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: 'Y]ÐU<C390><55><EFBFBD><EFBFBD><EFBFBD>SV<53><56><EFBFBD>؉]<5D><>E<EFBFBD><45><EFBFBD><EFBFBD>'
|
006F6579 6890656F00 push $006F6590
006F657E 8B45FC mov eax, [ebp-$04]
* Reference to field TRMPageSetupForm.OFFS_03A0
|
006F6581 C680A003000000 mov byte ptr [eax+$03A0], $00
006F6588 C3 ret
* Reference to: System.@HandleFinally;
|
006F6589 E966E5D0FF jmp 00404AF4
006F658E EBEE jmp 006F657E
****** END
|
006F6590 59 pop ecx
006F6591 5D pop ebp
006F6592 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F6594(Sender : TObject);
begin
(*
006F6594 55 push ebp
006F6595 8BEC mov ebp, esp
006F6597 83C4E8 add esp, -$18
006F659A 53 push ebx
006F659B 56 push esi
006F659C 8BF2 mov esi, edx
006F659E 8BD8 mov ebx, eax
006F65A0 895DF4 mov [ebp-$0C], ebx
006F65A3 DB45F4 fild dword ptr [ebp-$0C]
*)
end;
procedure TRMPageSetupForm._PROC_006F6B29(Sender : TObject);
begin
(*
006F6B29 9C pushf
006F6B2A 0300 add eax, [eax]
006F6B2C 008A50488B83 add [edx+$838B4850], cl
006F6B32 2803 sub [ebx], al
006F6B34 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6B40(Sender : TObject);
begin
(*
006F6B40 9C pushf
006F6B41 0300 add eax, [eax]
006F6B43 008A504B8B83 add [edx+$838B4B50], cl
006F6B49 58 pop eax
006F6B4A 0300 add eax, [eax]
006F6B4C 008B08FF91CC add [ebx+$CC91FF08], cl
006F6B52 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6B57(Sender : TObject);
begin
(*
006F6B57 9C pushf
006F6B58 0300 add eax, [eax]
006F6B5A 008A504A8B83 add [edx+$838B4A50], cl
006F6B60 3003 xor [ebx], al
006F6B62 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6B6E(Sender : TObject);
begin
(*
006F6B6E 9C pushf
006F6B6F 0300 add eax, [eax]
006F6B71 008A50208B83 add [edx+$838B2050], cl
006F6B77 5C pop esp
006F6B78 0300 add eax, [eax]
006F6B7A 008B08FF91CC add [ebx+$CC91FF08], cl
006F6B80 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6B85(Sender : TObject);
begin
(*
006F6B85 9C pushf
006F6B86 0300 add eax, [eax]
006F6B88 008A505C8B83 add [edx+$838B5C50], cl
006F6B8E 60 pusha
006F6B8F 0300 add eax, [eax]
006F6B91 008B08FF91CC add [ebx+$CC91FF08], cl
006F6B97 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6B9C(Sender : TObject);
begin
(*
006F6B9C 9C pushf
006F6B9D 0300 add eax, [eax]
006F6B9F 008A505D8B83 add [edx+$838B5D50], cl
006F6BA5 6C insb
006F6BA6 0300 add eax, [eax]
006F6BA8 008B08FF91CC add [ebx+$CC91FF08], cl
006F6BAE 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6BB3(Sender : TObject);
begin
(*
006F6BB3 9C pushf
006F6BB4 0300 add eax, [eax]
006F6BB6 008A505E8B83 add [edx+$838B5E50], cl
006F6BBC 90 nop
006F6BBD 0300 add eax, [eax]
006F6BBF 008B08FF91CC add [ebx+$CC91FF08], cl
006F6BC5 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6BCA(Sender : TObject);
begin
(*
006F6BCA 9C pushf
006F6BCB 0300 add eax, [eax]
006F6BCD 00DB add bl, bl
006F6BCF 40 inc eax
006F6BD0 4C dec esp
006F6BD1 83C4F4 add esp, -$0C
006F6BD4 DB3C24 fstp tbyte ptr [esp]
006F6BD7 9B wait
* Reference to control ToolButton3 : N.A.
|
006F6BD8 8B83C8030000 mov eax, [ebx+$03C8]
|
006F6BDE E881F10300 call 00735D64
* Reference to control Payment : N.A.
|
006F6BE3 8B839C030000 mov eax, [ebx+$039C]
006F6BE9 DD4050 fld qword ptr [eax+$50]
006F6BEC D8358C6C6F00 fdiv dword ptr [$006F6C8C]
006F6BF2 83C4F4 add esp, -$0C
006F6BF5 DB3C24 fstp tbyte ptr [esp]
006F6BF8 9B wait
* Reference to control v1Column1 : N.A.
|
006F6BF9 8B83CC030000 mov eax, [ebx+$03CC]
|
006F6BFF E860F10300 call 00735D64
* Reference to control Payment : N.A.
|
006F6C04 8B839C030000 mov eax, [ebx+$039C]
006F6C0A DD4030 fld qword ptr [eax+$30]
006F6C0D D8358C6C6F00 fdiv dword ptr [$006F6C8C]
006F6C13 83C4F4 add esp, -$0C
006F6C16 DB3C24 fstp tbyte ptr [esp]
006F6C19 9B wait
* Reference to control Label19 : N.A.
|
006F6C1A 8B83B8030000 mov eax, [ebx+$03B8]
|
006F6C20 E83FF10300 call 00735D64
* Reference to control Payment : N.A.
|
006F6C25 8B839C030000 mov eax, [ebx+$039C]
006F6C2B DD4040 fld qword ptr [eax+$40]
006F6C2E D8358C6C6F00 fdiv dword ptr [$006F6C8C]
006F6C34 83C4F4 add esp, -$0C
006F6C37 DB3C24 fstp tbyte ptr [esp]
006F6C3A 9B wait
* Reference to control BankName : N.A.
|
006F6C3B 8B83BC030000 mov eax, [ebx+$03BC]
|
006F6C41 E81EF10300 call 00735D64
* Reference to control Payment : N.A.
|
006F6C46 8B839C030000 mov eax, [ebx+$039C]
006F6C4C DD4028 fld qword ptr [eax+$28]
006F6C4F D8358C6C6F00 fdiv dword ptr [$006F6C8C]
006F6C55 83C4F4 add esp, -$0C
006F6C58 DB3C24 fstp tbyte ptr [esp]
006F6C5B 9B wait
* Reference to control Label21 : N.A.
|
006F6C5C 8B83C0030000 mov eax, [ebx+$03C0]
|
006F6C62 E8FDF00300 call 00735D64
* Reference to control Payment : N.A.
|
006F6C67 8B839C030000 mov eax, [ebx+$039C]
006F6C6D DD4038 fld qword ptr [eax+$38]
006F6C70 D8358C6C6F00 fdiv dword ptr [$006F6C8C]
006F6C76 83C4F4 add esp, -$0C
006F6C79 DB3C24 fstp tbyte ptr [esp]
006F6C7C 9B wait
* Reference to control BankAddress : N.A.
|
006F6C7D 8B83C4030000 mov eax, [ebx+$03C4]
|
006F6C83 E8DCF00300 call 00735D64
006F6C88 5B pop ebx
006F6C89 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F6C91(Sender : TObject);
begin
(*
006F6C91 8BEC mov ebp, esp
006F6C93 33C0 xor eax, eax
006F6C95 55 push ebp
* Possible String Reference to: '<27>:<3A><><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-X9<58>'
|
006F6C96 68B56C6F00 push $006F6CB5
***** TRY
|
006F6C9B 64FF30 push dword ptr fs:[eax]
006F6C9E 648920 mov fs:[eax], esp
006F6CA1 FF0558398900 inc dword ptr [$00893958]
006F6CA7 33C0 xor eax, eax
006F6CA9 5A pop edx
006F6CAA 59 pop ecx
006F6CAB 59 pop ecx
006F6CAC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-X9<58>'
|
006F6CAF 68BC6C6F00 push $006F6CBC
006F6CB4 C3 ret
* Reference to: System.@HandleFinally;
|
006F6CB5 E93ADED0FF jmp 00404AF4
006F6CBA EBF8 jmp 006F6CB4
****** END
|
006F6CBC 5D pop ebp
006F6CBD C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F6CC0(Sender : TObject);
begin
(*
006F6CC0 832D5839890001 sub dword ptr [$00893958], +$01
006F6CC7 C3 ret
*)
end;
procedure TRMPageSetupForm._PROC_006F6CC8(Sender : TObject);
begin
(*
006F6CC8 146D adc al, $6D
006F6CCA 6F outsd
006F6CCB 0000 add [eax], al
*)
end;
procedure TRMPageSetupForm._PROC_006F6D2E(Sender : TObject);
begin
(*
006F6D2E 48 dec eax
006F6D2F 0050D4 add [eax-$2C], dl
006F6D32 42 inc edx
006F6D33 0008 add [eax], cl
006F6D35 2D4A007CD0 sub eax, $D07C004A
006F6D3A 42 inc edx
006F6D3B 00F4 add ah, dh
006F6D3D 6B4A00D0 imul ecx, [edx+$00], $D0
006F6D41 1D4A0030F6 sbb eax, $F630004A
006F6D46 48 dec eax
006F6D47 004CFB48 add [ebx+edi*8+$48], cl
006F6D4B 0098FA48000C add [eax+$C0048FA], bl
006F6D51 7948 jns 006F6D9B
006F6D53 00ACF04800E829 add [eax+esi*8+$29E80048], ch
006F6D5A 4A dec edx
006F6D5B 00E4 add ah, ah
006F6D5D ED in eax, dx
006F6D5E 48 dec eax
006F6D5F 00547848 add [eax+edi*2+$48], dl
006F6D63 005878 add [eax+$78], bl
006F6D66 48 dec eax
006F6D67 00DC add ah, bl
006F6D69 2A4A00 sub cl, byte ptr [edx+$00]
006F6D6C 3CA9 cmp al, $A9
006F6D6E 48 dec eax
006F6D6F 00C0 add al, al
006F6D71 834800D0 or dword ptr [eax+$00], -$30
006F6D75 7948 jns 006F6DBF
006F6D77 004C8548 add [ebp+eax*4+$48], cl
006F6D7B 00D0 add al, dl
006F6D7D 2C4A sub al, $4A
006F6D7F 009C2B4A008486 add [ebx+ebp+$8684004A], bl
006F6D86 48 dec eax
006F6D87 00482D add [eax+$2D], cl
006F6D8A 4A dec edx
006F6D8B 00C0 add al, al
006F6D8D A9480038EE test eax, $EE380048
006F6D92 48 dec eax
006F6D93 00F4 add ah, dh
006F6D95 EE out dx, al
006F6D96 48 dec eax
006F6D97 00F0 add al, dh
006F6D99 E94800D8EE jmp EF476DE6
006F6D9E 48 dec eax
006F6D9F 00D8 add al, bl
006F6DA1 1B4A00 sbb ecx, [edx+$00]
006F6DA4 EC in al, dx
006F6DA5 334A00 xor ecx, [edx+$00]
006F6DA8 20C4 and ah, al
006F6DAA 48 dec eax
006F6DAB 00B0404A0010 add [eax+$10004A40], dh
006F6DB1 44 inc esp
006F6DB2 4A dec edx
006F6DB3 00CC add ah, cl
006F6DB5 42 inc edx
006F6DB6 4A dec edx
006F6DB7 00B8C44800BC add [eax+$BC0048C4], bh
006F6DBD C44800 les ecx, [eax+$00]
006F6DC0 48 dec eax
006F6DC1 45 inc ebp
006F6DC2 4A dec edx
006F6DC3 001CC3 add [ebx+eax*8], bl
006F6DC6 48 dec eax
006F6DC7 0018 add [eax], bl
006F6DC9 F0 lock
006F6DCA 48 dec eax
006F6DCB 00444C4A add [esp+ecx*2+$4A], al
006F6DCF 000C02 add [edx+eax], cl
006F6DD2 49 dec ecx
006F6DD3 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
006F6DDA 4A dec edx
006F6DDB 008C154A003C18 add [ebp+edx+$183C004A], cl
006F6DE2 4A dec edx
006F6DE3 0038 add [eax], bh
006F6DE5 52 push edx
006F6DE6 4A dec edx
006F6DE7 005C224A add [edx+$4A], bl
006F6DEB 00D8 add al, bl
006F6DED 224A00 and cl, byte ptr [edx+$00]
006F6DF0 7C68 jl 006F6E5A
006F6DF2 4A dec edx
006F6DF3 00941F4A003C60 add [edi+ebx+$603C004A], dl
006F6DFA 4A dec edx
006F6DFB 001447 add [edi+eax*2], dl
006F6DFE 4A dec edx
006F6DFF 0034654A00CC2C add [$2CCC004A], dh
006F6E06 4A dec edx
006F6E07 000A add [edx], cl
006F6E09 00F3 add bl, dh
006F6E0B 6E outsb
006F6E0C 6F outsd
006F6E0D 00F8 add al, bh
006F6E0F 0200 add al, byte ptr [eax]
006F6E11 0000 add [eax], al
006F6E13 0006 add [esi], al
006F6E15 4C dec esp
006F6E16 61 popa
006F6E17 62656C bound esp, qword ptr [ebp+$6C]
006F6E1A 31FC xor esp, edi
006F6E1C 0200 add al, byte ptr [eax]
006F6E1E 0001 add [ecx], al
006F6E20 000C6564745365 add [$65537464], cl
006F6E27 61 popa
006F6E28 7263 jb 006F6E8D
006F6E2A 6854787400 push $00747854
006F6E2F 0300 add eax, [eax]
006F6E31 0002 add [edx], al
006F6E33 000562746E4F add [$4F6E7462], al
006F6E39 4B dec ebx
006F6E3A 0403 add al, +$03
006F6E3C 0000 add [eax], al
006F6E3E 0200 add al, byte ptr [eax]
006F6E40 096274 or [edx+$74], esp
006F6E43 6E outsb
006F6E44 43 inc ebx
006F6E45 61 popa
006F6E46 6E outsb
006F6E47 63656C arpl [ebp+$6C], sp
006F6E4A 0803 or [ebx], al
006F6E4C 0000 add [eax], al
006F6E4E 0300 add eax, [eax]
006F6E50 094772 or [edi+$72], eax
006F6E53 6F outsd
006F6E54 7570 jnz 006F6EC6
006F6E56 42 inc edx
006F6E57 6F outsd
006F6E58 7831 js 006F6E8B
006F6E5A 0C03 or al, $03
006F6E5C 0000 add [eax], al
006F6E5E 0400 add al, +$00
006F6E60 106368 adc [ebx+$68], ah
006F6E63 6B436173 imul eax, [ebx+$61], $73
006F6E67 6553 push ebx
006F6E69 656E outsb
006F6E6B 7369 jnb 006F6ED6
006F6E6D 7469 jz 006F6ED8
006F6E6F 7665 jbe 006F6ED6
006F6E71 1003 adc [ebx], al
006F6E73 0000 add [eax], al
006F6E75 0300 add eax, [eax]
006F6E77 094772 or [edi+$72], eax
006F6E7A 6F outsd
006F6E7B 7570 jnz 006F6EED
006F6E7D 42 inc edx
006F6E7E 6F outsd
006F6E7F 7832 js 006F6EB3
006F6E81 1403 adc al, $03
006F6E83 0000 add [eax], al
006F6E85 05000C7264 add eax, +$64720C00
006F6E8A 624672 bound eax, qword ptr [esi+$72]
006F6E8D 6F outsd
006F6E8E 6D insd
006F6E8F 46 inc esi
006F6E90 69727374180300 imul esi, [edx+$73], $00031874
006F6E97 0005000D7264 add [$64720D00], al
006F6E9D 624672 bound eax, qword ptr [esi+$72]
006F6EA0 6F outsd
006F6EA1 6D insd
006F6EA2 43 inc ebx
006F6EA3 7572 jnz 006F6F17
006F6EA5 736F jnb 006F6F16
006F6EA7 721C jb 006F6EC5
006F6EA9 0300 add eax, [eax]
006F6EAB 000400 add [eax+eax], al
006F6EAE 0D63686B57 or eax, $576B6863
006F6EB3 686F6C6577 push $77656C6F
006F6EB8 6F outsd
006F6EB9 7264 jb 006F6F1F
006F6EBB 7302 jnb 006F6EBF
006F6EBD 000F add [edi], cl
006F6EBF 00C8 add al, cl
006F6EC1 706F jo 006F6F32
006F6EC3 0008 add [eax], cl
006F6EC5 46 inc esi
006F6EC6 6F outsd
006F6EC7 726D jb 006F6F36
006F6EC9 53 push ebx
006F6ECA 686F771100 push $0011776F
006F6ECF E8706F000A call 0A6FDE44
006F6ED4 46 inc esi
006F6ED5 6F outsd
006F6ED6 726D jb 006F6F45
006F6ED8 43 inc ebx
006F6ED9 7265 jb 006F6F40
006F6EDB 61 popa
006F6EDC 7465 jz 006F6F43
006F6EDE 1454 adc al, $54
006F6EE0 52 push edx
006F6EE1 4D dec ebp
006F6EE2 50 push eax
006F6EE3 7265 jb 006F6F4A
006F6EE5 7669 jbe 006F6F50
006F6EE7 657753 jnbe 006F6F3D
006F6EEA 6561 popa
006F6EEC 7263 jb 006F6F51
006F6EEE 68466F726D push $6D726F46
006F6EF3 06 push es
006F6EF4 001C5F add [edi+ebx*2], bl
006F6EF7 47 inc edi
006F6EF8 00B867470000 add [eax+$4767], bh
006F6EFE 8E4700 mov es, word ptr [edi+$00]
006F6F01 60 pusha
006F6F02 56 push esi
006F6F03 47 inc edi
006F6F04 00C0 add al, al
006F6F06 96 xchg eax, esi
006F6F07 47 inc edi
006F6F08 00149E add [esi+ebx*4], dl
006F6F0B 47 inc edi
006F6F0C 008D4000146F add [ebp+$6F140040], cl
006F6F12 6F outsd
006F6F13 0007 add [edi], al
006F6F15 1454 adc al, $54
006F6F17 52 push edx
006F6F18 4D dec ebp
006F6F19 50 push eax
006F6F1A 7265 jb 006F6F81
006F6F1C 7669 jbe 006F6F87
006F6F1E 657753 jnbe 006F6F74
006F6F21 6561 popa
006F6F23 7263 jb 006F6F88
006F6F25 68466F726D push $6D726F46
006F6F2A 146D adc al, $6D
006F6F2C 6F outsd
006F6F2D 00D0 add al, dl
006F6F2F F2 repne
006F6F30 49 dec ecx
006F6F31 005E00 add [esi+$00], bl
006F6F34 0A524D or dl, byte ptr [edx+$4D]
006F6F37 5F pop edi
006F6F38 44 inc esp
006F6F39 6C insb
006F6F3A 6746 inc esi
006F6F3C 696E6400008D40 imul ebp, [esi+$64], $408D0000
006F6F43 00558B add [ebp-$75], dl
006F6F46 EC in al, dx
006F6F47 33C9 xor ecx, ecx
006F6F49 51 push ecx
006F6F4A 51 push ecx
006F6F4B 51 push ecx
006F6F4C 51 push ecx
006F6F4D 51 push ecx
006F6F4E 53 push ebx
006F6F4F 8BD8 mov ebx, eax
006F6F51 33C0 xor eax, eax
006F6F53 55 push ebp
* Possible String Reference to: '<27>E<EFBFBD><45><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
006F6F54 68AA706F00 push $006F70AA
***** TRY
|
006F6F59 64FF30 push dword ptr fs:[eax]
006F6F5C 648920 mov fs:[eax], esp
006F6F5F 8D55FC lea edx, [ebp-$04]
006F6F62 B854B90000 mov eax, $0000B954
|
006F6F67 E830140800 call 0077839C
006F6F6C 8B55FC mov edx, [ebp-$04]
006F6F6F 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetName(TFont;TFontName);
|
006F6F72 E8E19BD3FF call 00430B58
006F6F77 8D55F8 lea edx, [ebp-$08]
006F6F7A B855B90000 mov eax, $0000B955
|
006F6F7F E818140800 call 0077839C
006F6F84 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
006F6F87 E8BC40D1FF call 0040B048
006F6F8C 8BD0 mov edx, eax
006F6F8E 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetSize(TFont;Integer);
|
006F6F91 E83A9CD3FF call 00430BD0
006F6F96 8D55F4 lea edx, [ebp-$0C]
006F6F99 B8E9B80000 mov eax, $0000B8E9
|
006F6F9E E8F9130800 call 0077839C
006F6FA3 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
006F6FA6 E89D40D1FF call 0040B048
006F6FAB 8BD0 mov edx, eax
006F6FAD 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetCharset(TFont;TFontCharset);
|
006F6FB0 E8AB9CD3FF call 00430C60
006F6FB5 B9C8AF0000 mov ecx, $0000AFC8
* Possible String Reference to: 'Caption'
|
006F6FBA BAC0706F00 mov edx, $006F70C0
006F6FBF 8BC3 mov eax, ebx
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F6FC1 E826060800 call 007775EC
006F6FC6 B9C9AF0000 mov ecx, $0000AFC9
* Possible String Reference to: 'Caption'
|
006F6FCB BAC0706F00 mov edx, $006F70C0
* Reference to control ToolBar1 : N.A.
|
006F6FD0 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F6FD6 E811060800 call 007775EC
006F6FDB B9CAAF0000 mov ecx, $0000AFCA
* Possible String Reference to: 'Caption'
|
006F6FE0 BAC0706F00 mov edx, $006F70C0
* Reference to control Label3 : N.A.
|
006F6FE5 8B8308030000 mov eax, [ebx+$0308]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F6FEB E8FC050800 call 007775EC
006F6FF0 B9CBAF0000 mov ecx, $0000AFCB
* Possible String Reference to: 'Caption'
|
006F6FF5 BAC0706F00 mov edx, $006F70C0
* Reference to control OrdDate : N.A.
|
006F6FFA 8B830C030000 mov eax, [ebx+$030C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F7000 E8E7050800 call 007775EC
006F7005 B941B10000 mov ecx, $0000B141
* Possible String Reference to: 'Caption'
|
006F700A BAC0706F00 mov edx, $006F70C0
* Reference to control ToolBar2 : N.A.
|
006F700F 8B831C030000 mov eax, [ebx+$031C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F7015 E8D2050800 call 007775EC
006F701A B9CCAF0000 mov ecx, $0000AFCC
* Possible String Reference to: 'Caption'
|
006F701F BAC0706F00 mov edx, $006F70C0
* Reference to control Label4 : N.A.
|
006F7024 8B8310030000 mov eax, [ebx+$0310]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F702A E8BD050800 call 007775EC
006F702F B9CDAF0000 mov ecx, $0000AFCD
* Possible String Reference to: 'Caption'
|
006F7034 BAC0706F00 mov edx, $006F70C0
* Reference to control DlyDate : N.A.
|
006F7039 8B8314030000 mov eax, [ebx+$0314]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F703F E8A8050800 call 007775EC
006F7044 B9CEAF0000 mov ecx, $0000AFCE
* Possible String Reference to: 'Caption'
|
006F7049 BAC0706F00 mov edx, $006F70C0
* Reference to control Label7 : N.A.
|
006F704E 8B8318030000 mov eax, [ebx+$0318]
* Reference to : TWrapperComponent._PROC_007775EC()
|
006F7054 E893050800 call 007775EC
006F7059 8D55F0 lea edx, [ebp-$10]
006F705C B898B70000 mov eax, $0000B798
|
006F7061 E836130800 call 0077839C
006F7066 8B55F0 mov edx, [ebp-$10]
* Reference to control TBClose : N.A.
|
006F7069 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
006F706F E8AC15D9FF call 00488620
006F7074 8D55EC lea edx, [ebp-$14]
006F7077 B899B70000 mov eax, $0000B799
|
006F707C E81B130800 call 0077839C
006F7081 8B55EC mov edx, [ebp-$14]
* Reference to control ScrollBox1 : N.A.
|
006F7084 8B8304030000 mov eax, [ebx+$0304]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
006F708A E89115D9FF call 00488620
006F708F 33C0 xor eax, eax
006F7091 5A pop edx
006F7092 59 pop ecx
006F7093 59 pop ecx
006F7094 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
006F7097 68B1706F00 push $006F70B1
006F709C 8D45EC lea eax, [ebp-$14]
006F709F BA05000000 mov edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
006F70A4 E89FE2D0FF call 00405348
006F70A9 C3 ret
*)
end;
end.
Reference in New Issue Copy Permalink