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

4012 lines
148 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit RM_e_Xls;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TRMXLSExportForm=class(TForm)
btnOK: TButton;
btnCancel: TButton;
edtExportFileName: TEdit;
btnFileName: TSpeedButton;
GroupBox1: TGroupBox;
Label1: TLabel;
SaveDialog: TSaveDialog;
rdbPrintAll: TRadioButton;
rbdPrintCurPage: TRadioButton;
rbdPrintPages: TRadioButton;
edtPages: TEdit;
Label2: TLabel;
GroupBox2: TGroupBox;
chkShowAfterGenerate: TCheckBox;
chkExportFrames: TCheckBox;
gbExportImages: TGroupBox;
lblExportImageFormat: TLabel;
lblJPEGQuality: TLabel;
Label4: TLabel;
cmbImageFormat: TComboBox;
edJPEGQuality: TEdit;
UpDown1: TUpDown;
cmbPixelFormat: TComboBox;
chkExportImages: TCheckBox;
edPages: TEdit;
UpDown2: TUpDown;
Label3: TLabel;
chkWYB: TCheckBox;
procedure FormCreate(Sender : TObject);
procedure btnFileNameClick(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure rbdPrintPagesClick(Sender : TObject);
procedure edtPagesEnter(Sender : TObject);
procedure chkExportFramesClick(Sender : TObject);
procedure edJPEGQualityKeyPress(Sender : TObject);
procedure cmbImageFormatChange(Sender : TObject);
procedure _PROC_007B1D95(Sender : TObject);
procedure _PROC_007B20A4(Sender : TObject);
procedure _PROC_007B241F(Sender : TObject);
procedure _PROC_007B2500(Sender : TObject);
procedure _PROC_007B2519(Sender : TObject);
procedure _PROC_007B2660(Sender : TObject);
procedure _PROC_007B26C8(Sender : TObject);
procedure _PROC_007B2758(Sender : TObject);
procedure _PROC_007B2AC5(Sender : TObject);
procedure _PROC_007B2FCD(Sender : TObject);
procedure _PROC_007B3080(Sender : TObject);
procedure _PROC_007B3088(Sender : TObject);
procedure _PROC_007B309C(Sender : TObject);
procedure _PROC_007B30A4(Sender : TObject);
procedure _PROC_007B3188(Sender : TObject);
procedure _PROC_007B3630(Sender : TObject);
procedure _PROC_007B3660(Sender : TObject);
procedure _PROC_007B3668(Sender : TObject);
procedure _PROC_007B36CE(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
RMXLSExportForm: TRMXLSExportForm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TRMXLSExportForm.FormCreate(Sender : TObject);
begin
(*
007B33B4 53 push ebx
007B33B5 56 push esi
007B33B6 8BD8 mov ebx, eax
007B33B8 8BC3 mov eax, ebx
* Reference to : TRMXLSExportForm._PROC_007B3188()
|
007B33BA E8C9FDFFFF call 007B3188
* Reference to control TRMXLSExportForm.cmbImageFormat : TComboBox
|
007B33BF 8B8344030000 mov eax, [ebx+$0344]
* Reference to field TComboBox.Items : TStrings
|
007B33C5 8B803C020000 mov eax, [eax+$023C]
007B33CB 8B10 mov edx, [eax]
* Possible reference to virtual method TStrings.OFFS_44
|
007B33CD FF5244 call dword ptr [edx+$44]
*)
end;
procedure TRMXLSExportForm.btnFileNameClick(Sender : TObject);
begin
(*
007B3424 55 push ebp
007B3425 8BEC mov ebp, esp
007B3427 6A00 push $00
007B3429 6A00 push $00
007B342B 53 push ebx
007B342C 8BD8 mov ebx, eax
007B342E 33C0 xor eax, eax
007B3430 55 push ebp
007B3431 68A4347B00 push $007B34A4
***** TRY
|
007B3436 64FF30 push dword ptr fs:[eax]
007B3439 648920 mov fs:[eax], esp
007B343C 8D55FC lea edx, [ebp-$04]
* Reference to control TRMXLSExportForm.edtExportFileName : TEdit
|
007B343F 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B3445 E8A651CDFF call 004885F0
007B344A 8B55FC mov edx, [ebp-$04]
* Reference to control TRMXLSExportForm.SaveDialog : TSaveDialog
|
007B344D 8B8310030000 mov eax, [ebx+$0310]
007B3453 83C078 add eax, +$78
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B3456 E81D1FC5FF call 00405378
* Reference to control TRMXLSExportForm.SaveDialog : TSaveDialog
|
007B345B 8B8310030000 mov eax, [ebx+$0310]
007B3461 8B10 mov edx, [eax]
* Reference to method TSaveDialog.Execute()
|
007B3463 FF523C call dword ptr [edx+$3C]
007B3466 84C0 test al, al
007B3468 741C jz 007B3486
007B346A 8D55F8 lea edx, [ebp-$08]
* Reference to control TRMXLSExportForm.SaveDialog : TSaveDialog
|
007B346D 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
007B3473 E850D1C8FF call 004405C8
007B3478 8B55F8 mov edx, [ebp-$08]
* Reference to control TRMXLSExportForm.edtExportFileName : TEdit
|
007B347B 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B3481 E89A51CDFF call 00488620
007B3486 33C0 xor eax, eax
007B3488 5A pop edx
007B3489 59 pop ecx
007B348A 59 pop ecx
007B348B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]<5D>U<EFBFBD><55>j'
|
007B348E 68AB347B00 push $007B34AB
007B3493 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007B3496 E8891EC5FF call 00405324
007B349B 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007B349E E8811EC5FF call 00405324
007B34A3 C3 ret
* Reference to: System.@HandleFinally;
|
007B34A4 E94B16C5FF jmp 00404AF4
007B34A9 EBE8 jmp 007B3493
****** END
|
007B34AB 5B pop ebx
007B34AC 59 pop ecx
007B34AD 59 pop ecx
007B34AE 5D pop ebp
007B34AF C3 ret
*)
end;
procedure TRMXLSExportForm.FormCloseQuery(Sender : TObject);
begin
(*
007B34B0 55 push ebp
007B34B1 8BEC mov ebp, esp
007B34B3 6A00 push $00
007B34B5 53 push ebx
007B34B6 56 push esi
007B34B7 8BF1 mov esi, ecx
007B34B9 8BD8 mov ebx, eax
007B34BB 33C0 xor eax, eax
007B34BD 55 push ebp
007B34BE 68FF347B00 push $007B34FF
***** TRY
|
007B34C3 64FF30 push dword ptr fs:[eax]
007B34C6 648920 mov fs:[eax], esp
* Reference to field TRMXLSExportForm.ModalResult : TModalResult
|
007B34C9 83BB4C02000001 cmp dword ptr [ebx+$024C], +$01
007B34D0 7517 jnz 007B34E9
007B34D2 8D55FC lea edx, [ebp-$04]
* Reference to control TRMXLSExportForm.edtExportFileName : TEdit
|
007B34D5 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B34DB E81051CDFF call 004885F0
007B34E0 837DFC00 cmp dword ptr [ebp-$04], +$00
007B34E4 7503 jnz 007B34E9
007B34E6 C60600 mov byte ptr [esi], $00
007B34E9 33C0 xor eax, eax
007B34EB 5A pop edx
007B34EC 59 pop ecx
007B34ED 59 pop ecx
007B34EE 648910 mov fs:[eax], edx
****** FINALLY
|
007B34F1 6806357B00 push $007B3506
007B34F6 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007B34F9 E8261EC5FF call 00405324
007B34FE C3 ret
* Reference to: System.@HandleFinally;
|
007B34FF E9F015C5FF jmp 00404AF4
007B3504 EBF0 jmp 007B34F6
****** END
|
007B3506 5E pop esi
007B3507 5B pop ebx
007B3508 59 pop ecx
007B3509 5D pop ebp
007B350A C3 ret
*)
end;
procedure TRMXLSExportForm.rbdPrintPagesClick(Sender : TObject);
begin
(*
* Reference to control TRMXLSExportForm.edtPages : TEdit
|
007B350C 8B8020030000 mov eax, [eax+$0320]
007B3512 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
007B3514 FF92C4000000 call dword ptr [edx+$00C4]
007B351A C3 ret
*)
end;
procedure TRMXLSExportForm.edtPagesEnter(Sender : TObject);
begin
(*
007B351C B201 mov dl, $01
* Reference to control TRMXLSExportForm.rbdPrintPages : TRadioButton
|
007B351E 8B801C030000 mov eax, [eax+$031C]
007B3524 8B08 mov ecx, [eax]
* Reference to method TRadioButton.SetChecked(Boolean)
|
007B3526 FF91CC000000 call dword ptr [ecx+$00CC]
007B352C C3 ret
*)
end;
procedure TRMXLSExportForm.chkExportFramesClick(Sender : TObject);
begin
(*
007B3530 53 push ebx
007B3531 56 push esi
007B3532 8BF2 mov esi, edx
007B3534 8BD8 mov ebx, eax
* Reference to control TRMXLSExportForm.chkExportImages : TCheckBox
|
007B3536 8B8354030000 mov eax, [ebx+$0354]
007B353C 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B353E FF92C8000000 call dword ptr [edx+$00C8]
007B3544 8BD0 mov edx, eax
* Reference to control TRMXLSExportForm.gbExportImages : TGroupBox
|
007B3546 8B8334030000 mov eax, [ebx+$0334]
|
007B354C E8EB42FCFF call 0077783C
007B3551 8BD6 mov edx, esi
007B3553 8BC3 mov eax, ebx
* Reference to : TRMXLSExportForm.cmbImageFormatChange()
|
007B3555 E816000000 call 007B3570
007B355A 5E pop esi
007B355B 5B pop ebx
007B355C C3 ret
*)
end;
procedure TRMXLSExportForm.edJPEGQualityKeyPress(Sender : TObject);
begin
(*
007B3560 8A01 mov al, byte ptr [ecx]
007B3562 2C08 sub al, $08
007B3564 7409 jz 007B356F
007B3566 04D8 add al, -$28
007B3568 2C0A sub al, $0A
007B356A 7203 jb 007B356F
007B356C C60100 mov byte ptr [ecx], $00
007B356F C3 ret
*)
end;
procedure TRMXLSExportForm.cmbImageFormatChange(Sender : TObject);
begin
(*
007B3570 55 push ebp
007B3571 8BEC mov ebp, esp
007B3573 6A00 push $00
007B3575 53 push ebx
007B3576 8BD8 mov ebx, eax
007B3578 33C0 xor eax, eax
007B357A 55 push ebp
007B357B 6825367B00 push $007B3625
***** TRY
|
007B3580 64FF30 push dword ptr fs:[eax]
007B3583 648920 mov fs:[eax], esp
* Reference to control TRMXLSExportForm.chkExportImages : TCheckBox
|
007B3586 8B8354030000 mov eax, [ebx+$0354]
007B358C 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B358E FF92C8000000 call dword ptr [edx+$00C8]
007B3594 84C0 test al, al
007B3596 744D jz 007B35E5
007B3598 8D55FC lea edx, [ebp-$04]
* Reference to control TRMXLSExportForm.cmbImageFormat : TComboBox
|
007B359B 8B8344030000 mov eax, [ebx+$0344]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B35A1 E84A50CDFF call 004885F0
007B35A6 8B45FC mov eax, [ebp-$04]
*)
end;
procedure TRMXLSExportForm._PROC_007B1D95(Sender : TObject);
begin
(*
007B1D95 8BEC mov ebp, esp
007B1D97 33C9 xor ecx, ecx
007B1D99 51 push ecx
007B1D9A 51 push ecx
007B1D9B 51 push ecx
007B1D9C 51 push ecx
007B1D9D 51 push ecx
007B1D9E 53 push ebx
007B1D9F 56 push esi
007B1DA0 8BD8 mov ebx, eax
007B1DA2 33C0 xor eax, eax
007B1DA4 55 push ebp
007B1DA5 6891207B00 push $007B2091
***** TRY
|
007B1DAA 64FF30 push dword ptr fs:[eax]
007B1DAD 648920 mov fs:[eax], esp
007B1DB0 8BC3 mov eax, ebx
|
007B1DB2 E86DA9FBFF call 0076C724
007B1DB7 8B10 mov edx, [eax]
* Reference to method TRMXLSExportForm.GetClientRect()
|
007B1DB9 FF5244 call dword ptr [edx+$44]
* Reference to field TRMXLSExportForm.OFFS_0034
|
007B1DBC 807B3400 cmp byte ptr [ebx+$34], $00
007B1DC0 750B jnz 007B1DCD
007B1DC2 66C745FE0100 mov word ptr [ebp-$02], $0001
007B1DC8 E9A9020000 jmp 007B2076
007B1DCD 33C9 xor ecx, ecx
007B1DCF B201 mov dl, $01
* Reference to class TRMXLSExportForm
|
007B1DD1 A1E8177B00 mov eax, dword ptr [$007B17E8]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
007B1DD6 E8F5FFCEFF call 004A1DD0
007B1DDB 8945F8 mov [ebp-$08], eax
007B1DDE 33C0 xor eax, eax
007B1DE0 55 push ebp
007B1DE1 686F207B00 push $007B206F
***** TRY
|
007B1DE6 64FF30 push dword ptr fs:[eax]
007B1DE9 648920 mov fs:[eax], esp
* Reference to field TRMXLSExportForm.OFFS_0058
|
007B1DEC 8B5358 mov edx, [ebx+$58]
007B1DEF 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.edtExportFileName : TEdit
|
007B1DF2 8B8000030000 mov eax, [eax+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B1DF8 E82368CDFF call 00488620
007B1DFD 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.edtExportFileName : TEdit
|
007B1E00 8B8000030000 mov eax, [eax+$0300]
007B1E06 8B10 mov edx, [eax]
* Reference to method TEdit.GetEnabled()
|
007B1E08 FF5250 call dword ptr [edx+$50]
007B1E0B 8BD0 mov edx, eax
007B1E0D 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.btnFileName : TSpeedButton
|
007B1E10 8B8004030000 mov eax, [eax+$0304]
007B1E16 8B08 mov ecx, [eax]
* Reference to method TSpeedButton.SetEnabled(Boolean)
|
007B1E18 FF5164 call dword ptr [ecx+$64]
* Reference to field TRMXLSExportForm.OFFS_007E
|
007B1E1B 8A537E mov dl, byte ptr [ebx+$7E]
007B1E1E 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkExportFrames : TCheckBox
|
007B1E21 8B8030030000 mov eax, [eax+$0330]
007B1E27 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
007B1E29 FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to field TRMXLSExportForm.PopupMenu : TPopupMenu
|
007B1E2F 8A537C mov dl, byte ptr [ebx+$7C]
007B1E32 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkShowAfterGenerate : TCheckBox
|
007B1E35 8B802C030000 mov eax, [eax+$032C]
007B1E3B 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
007B1E3D FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to field TRMXLSExportForm.OFFS_0088
|
007B1E43 668B9388000000 mov dx, word ptr [ebx+$0088]
007B1E4A 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.UpDown2 : TUpDown
|
007B1E4D 8B805C030000 mov eax, [eax+$035C]
* Reference to: ComCtrls.TCustomUpDown.SetPosition(TCustomUpDown;Smallint);
|
007B1E53 E89C49CBFF call 004667F4
007B1E58 33D2 xor edx, edx
* Reference to field TRMXLSExportForm.OFFS_007F
|
007B1E5A 8A537F mov dl, byte ptr [ebx+$7F]
007B1E5D 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.cmbPixelFormat : TComboBox
|
007B1E60 8B8050030000 mov eax, [eax+$0350]
007B1E66 8B08 mov ecx, [eax]
* Reference to method TComboBox.ItemIndex()
|
007B1E68 FF91D0000000 call dword ptr [ecx+$00D0]
* Reference to field TRMXLSExportForm.OFFS_007D
|
007B1E6E 8A537D mov dl, byte ptr [ebx+$7D]
007B1E71 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkExportImages : TCheckBox
|
007B1E74 8B8054030000 mov eax, [eax+$0354]
007B1E7A 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
007B1E7C FF91CC000000 call dword ptr [ecx+$00CC]
007B1E82 33D2 xor edx, edx
* Reference to field TRMXLSExportForm.Hint : string
|
007B1E84 8A9380000000 mov dl, byte ptr [ebx+$0080]
007B1E8A 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.cmbImageFormat : TComboBox
|
007B1E8D 8BB044030000 mov esi, [eax+$0344]
* Reference to field TComboBox.Items : TStrings
|
007B1E93 8B863C020000 mov eax, [esi+$023C]
007B1E99 8B08 mov ecx, [eax]
* Reference to method TStrings.IndexOfObject(TObject)
|
007B1E9B FF515C call dword ptr [ecx+$5C]
007B1E9E 8BD0 mov edx, eax
007B1EA0 8BC6 mov eax, esi
007B1EA2 8B08 mov ecx, [eax]
* Reference to method TComboBox.ItemIndex()
|
007B1EA4 FF91D0000000 call dword ptr [ecx+$00D0]
007B1EAA 33D2 xor edx, edx
* Reference to field TRMXLSExportForm.OFFS_0081
|
007B1EAC 8A9381000000 mov dl, byte ptr [ebx+$0081]
007B1EB2 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.UpDown1 : TUpDown
|
007B1EB5 8B804C030000 mov eax, [eax+$034C]
* Reference to: ComCtrls.TCustomUpDown.SetPosition(TCustomUpDown;Smallint);
|
007B1EBB E83449CBFF call 004667F4
007B1EC0 8BD3 mov edx, ebx
007B1EC2 8B45F8 mov eax, [ebp-$08]
* Reference to : TRMXLSExportForm.chkExportFramesClick()
|
007B1EC5 E866160000 call 007B3530
* Reference to field TRMXLSExportForm.Cursor : TCursor
|
007B1ECA 837B7801 cmp dword ptr [ebx+$78], +$01
007B1ECE 0F9EC2 setle dl
007B1ED1 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkWYB : TCheckBox
|
007B1ED4 8B8064030000 mov eax, [eax+$0364]
007B1EDA 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
007B1EDC FF91CC000000 call dword ptr [ecx+$00CC]
007B1EE2 8B45F8 mov eax, [ebp-$08]
007B1EE5 8B10 mov edx, [eax]
* Reference to method TRMXLSExportForm.ShowModal()
|
007B1EE7 FF92EC000000 call dword ptr [edx+$00EC]
007B1EED 668945FE mov [ebp-$02], ax
007B1EF1 66837DFE01 cmp word ptr [ebp-$02], +$01
007B1EF6 0F855D010000 jnz 007B2059
007B1EFC 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.rdbPrintAll : TRadioButton
|
007B1EFF 8B8014030000 mov eax, [eax+$0314]
007B1F05 8B10 mov edx, [eax]
* Reference to method TRadioButton.GetChecked()
|
007B1F07 FF92C8000000 call dword ptr [edx+$00C8]
007B1F0D 84C0 test al, al
007B1F0F 7410 jz 007B1F21
007B1F11 33C9 xor ecx, ecx
007B1F13 BA01000000 mov edx, $00000001
007B1F18 8BC3 mov eax, ebx
|
007B1F1A E825A8FBFF call 0076C744
007B1F1F EB45 jmp 007B1F66
007B1F21 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.rbdPrintCurPage : TRadioButton
|
007B1F24 8B8018030000 mov eax, [eax+$0318]
007B1F2A 8B10 mov edx, [eax]
* Reference to method TRadioButton.GetChecked()
|
007B1F2C FF92C8000000 call dword ptr [edx+$00C8]
007B1F32 84C0 test al, al
007B1F34 7410 jz 007B1F46
007B1F36 33C9 xor ecx, ecx
007B1F38 BA02000000 mov edx, $00000002
007B1F3D 8BC3 mov eax, ebx
|
007B1F3F E800A8FBFF call 0076C744
007B1F44 EB20 jmp 007B1F66
007B1F46 8D55F4 lea edx, [ebp-$0C]
007B1F49 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.edtPages : TEdit
|
007B1F4C 8B8020030000 mov eax, [eax+$0320]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B1F52 E89966CDFF call 004885F0
007B1F57 8B4DF4 mov ecx, [ebp-$0C]
007B1F5A BA03000000 mov edx, $00000003
007B1F5F 8BC3 mov eax, ebx
|
007B1F61 E8DEA7FBFF call 0076C744
007B1F66 8D55F0 lea edx, [ebp-$10]
007B1F69 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.edtExportFileName : TEdit
|
007B1F6C 8B8000030000 mov eax, [eax+$0300]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B1F72 E87966CDFF call 004885F0
007B1F77 8B55F0 mov edx, [ebp-$10]
* Reference to field TRMXLSExportForm.OFFS_0058
|
007B1F7A 8D4358 lea eax, [ebx+$58]
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B1F7D E8F633C5FF call 00405378
007B1F82 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkExportFrames : TCheckBox
|
007B1F85 8B8030030000 mov eax, [eax+$0330]
007B1F8B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B1F8D FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMXLSExportForm.OFFS_007E
|
007B1F93 88437E mov [ebx+$7E], al
007B1F96 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkShowAfterGenerate : TCheckBox
|
007B1F99 8B802C030000 mov eax, [eax+$032C]
007B1F9F 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B1FA1 FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMXLSExportForm.PopupMenu : TPopupMenu
|
007B1FA7 88437C mov [ebx+$7C], al
007B1FAA 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.UpDown2 : TUpDown
|
007B1FAD 8B805C030000 mov eax, [eax+$035C]
* Reference to: ComCtrls.TCustomUpDown.GetPosition(TCustomUpDown):Smallint;
|
007B1FB3 E81847CBFF call 004666D0
007B1FB8 0FBFC0 movsx eax, ax
* Reference to field TRMXLSExportForm.OFFS_0088
|
007B1FBB 898388000000 mov [ebx+$0088], eax
007B1FC1 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkExportImages : TCheckBox
|
007B1FC4 8B8054030000 mov eax, [eax+$0354]
007B1FCA 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B1FCC FF92C8000000 call dword ptr [edx+$00C8]
* Reference to field TRMXLSExportForm.OFFS_007D
|
007B1FD2 88437D mov [ebx+$7D], al
007B1FD5 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.chkWYB : TCheckBox
|
007B1FD8 8B8064030000 mov eax, [eax+$0364]
007B1FDE 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B1FE0 FF92C8000000 call dword ptr [edx+$00C8]
007B1FE6 84C0 test al, al
007B1FE8 7409 jz 007B1FF3
* Reference to field TRMXLSExportForm.Cursor : TCursor
|
007B1FEA C7437801000000 mov dword ptr [ebx+$78], $00000001
007B1FF1 EB07 jmp 007B1FFA
* Reference to field TRMXLSExportForm.Cursor : TCursor
|
007B1FF3 C743780A000000 mov dword ptr [ebx+$78], $0000000A
* Reference to field TRMXLSExportForm.OFFS_007D
|
007B1FFA 807B7D00 cmp byte ptr [ebx+$7D], $00
007B1FFE 7459 jz 007B2059
007B2000 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.cmbPixelFormat : TComboBox
|
007B2003 8B8050030000 mov eax, [eax+$0350]
007B2009 8B10 mov edx, [eax]
* Reference to method TComboBox.ItemIndex()
|
007B200B FF92CC000000 call dword ptr [edx+$00CC]
* Reference to field TRMXLSExportForm.OFFS_007F
|
007B2011 88437F mov [ebx+$7F], al
007B2014 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.cmbImageFormat : TComboBox
|
007B2017 8BB044030000 mov esi, [eax+$0344]
007B201D 8BC6 mov eax, esi
007B201F 8B10 mov edx, [eax]
* Reference to method TComboBox.ItemIndex()
|
007B2021 FF92CC000000 call dword ptr [edx+$00CC]
007B2027 8BD0 mov edx, eax
* Reference to field TComboBox.Items : TStrings
|
007B2029 8B863C020000 mov eax, [esi+$023C]
007B202F 8B08 mov ecx, [eax]
* Reference to method TStrings.GetObject(Integer)
|
007B2031 FF5118 call dword ptr [ecx+$18]
* Reference to field TRMXLSExportForm.Hint : string
|
007B2034 888380000000 mov [ebx+$0080], al
007B203A 8D55EC lea edx, [ebp-$14]
007B203D 8B45F8 mov eax, [ebp-$08]
* Reference to control TRMXLSExportForm.edJPEGQuality : TEdit
|
007B2040 8B8048030000 mov eax, [eax+$0348]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B2046 E8A565CDFF call 004885F0
007B204B 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
007B204E E8F58FC5FF call 0040B048
* Reference to field TRMXLSExportForm.OFFS_0081
|
007B2053 888381000000 mov [ebx+$0081], al
007B2059 33C0 xor eax, eax
007B205B 5A pop edx
007B205C 59 pop ecx
007B205D 59 pop ecx
007B205E 648910 mov fs:[eax], edx
****** FINALLY
|
007B2061 6876207B00 push $007B2076
007B2066 8B45F8 mov eax, [ebp-$08]
* Reference to: System.TObject.Free(TObject);
|
007B2069 E8DE22C5FF call 0040434C
007B206E C3 ret
* Reference to: System.@HandleFinally;
|
007B206F E9802AC5FF jmp 00404AF4
007B2074 EBF0 jmp 007B2066
****** END
|
007B2076 33C0 xor eax, eax
007B2078 5A pop edx
007B2079 59 pop ecx
007B207A 59 pop ecx
007B207B 648910 mov fs:[eax], edx
****** FINALLY
|
007B207E 6898207B00 push $007B2098
007B2083 8D45EC lea eax, [ebp-$14]
007B2086 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B208B E8B832C5FF call 00405348
007B2090 C3 ret
* Reference to: System.@HandleFinally;
|
007B2091 E95E2AC5FF jmp 00404AF4
007B2096 EBEB jmp 007B2083
****** END
|
007B2098 668B45FE mov ax, word ptr [ebp-$02]
007B209C 5E pop esi
007B209D 5B pop ebx
007B209E 8BE5 mov esp, ebp
007B20A0 5D pop ebp
007B20A1 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B20A4(Sender : TObject);
begin
(*
007B20A4 55 push ebp
007B20A5 8BEC mov ebp, esp
007B20A7 B914000000 mov ecx, $00000014
007B20AC 6A00 push $00
007B20AE 6A00 push $00
007B20B0 49 dec ecx
007B20B1 75F9 jnz 007B20AC
007B20B3 51 push ecx
007B20B4 53 push ebx
007B20B5 8945FC mov [ebp-$04], eax
007B20B8 33C0 xor eax, eax
007B20BA 55 push ebp
007B20BB 6888237B00 push $007B2388
***** TRY
|
007B20C0 64FF30 push dword ptr fs:[eax]
007B20C3 648920 mov fs:[eax], esp
007B20C6 8B4508 mov eax, [ebp+$08]
007B20C9 8B40FC mov eax, [eax-$04]
* Reference to field TRMXLSExportForm.OFFS_0090
|
007B20CC 83B89000000000 cmp dword ptr [eax+$0090], +$00
007B20D3 0F8463020000 jz 007B233C
007B20D9 8D55D4 lea edx, [ebp-$2C]
007B20DC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.ExtractFileExt(AnsiString):AnsiString;
|
007B20DF E84099C5FF call 0040BA24
007B20E4 8B45D4 mov eax, [ebp-$2C]
* Possible String Reference to: '.xls'
|
007B20E7 BA9C237B00 mov edx, $007B239C
|
007B20EC E893B6FCFF call 0077D784
007B20F1 84C0 test al, al
007B20F3 7411 jz 007B2106
007B20F5 B201 mov dl, $01
* Reference to class TwawExcelWriter
|
007B20F7 A1F8917A00 mov eax, dword ptr [$007A91F8]
|
007B20FC E8FBA3FFFF call 007AC4FC
007B2101 8945F8 mov [ebp-$08], eax
007B2104 EB0F jmp 007B2115
007B2106 B201 mov dl, $01
* Reference to class TwawHTMLWriter
|
007B2108 A164917A00 mov eax, dword ptr [$007A9164]
|
007B210D E8C678FFFF call 007A99D8
007B2112 8945F8 mov [ebp-$08], eax
007B2115 33C0 xor eax, eax
007B2117 55 push ebp
007B2118 684F217B00 push $007B214F
***** TRY
|
007B211D 64FF30 push dword ptr fs:[eax]
007B2120 648920 mov fs:[eax], esp
007B2123 8B4508 mov eax, [ebp+$08]
007B2126 8B40FC mov eax, [eax-$04]
* Reference to field TwawHTMLWriter.OFFS_0090
|
007B2129 8B9090000000 mov edx, [eax+$0090]
007B212F 8B4DFC mov ecx, [ebp-$04]
007B2132 8B45F8 mov eax, [ebp-$08]
007B2135 8B18 mov ebx, [eax]
007B2137 FF13 call dword ptr [ebx]
007B2139 33C0 xor eax, eax
007B213B 5A pop edx
007B213C 59 pop ecx
007B213D 59 pop ecx
007B213E 648910 mov fs:[eax], edx
****** FINALLY
|
007B2141 6856217B00 push $007B2156
007B2146 8B45F8 mov eax, [ebp-$08]
* Reference to: System.TObject.Free(TObject);
|
007B2149 E8FE21C5FF call 0040434C
007B214E C3 ret
* Reference to: System.@HandleFinally;
|
007B214F E9A029C5FF jmp 00404AF4
007B2154 EBF0 jmp 007B2146
****** END
|
007B2156 8B4508 mov eax, [ebp+$08]
007B2159 8B40FC mov eax, [eax-$04]
007B215C 0590000000 add eax, +$00000090
* Reference to: SysUtils.FreeAndNil(void;void);
|
007B2161 E84603C6FF call 004124AC
007B2166 8B4508 mov eax, [ebp+$08]
007B2169 8B40FC mov eax, [eax-$04]
007B216C 80B8B000000000 cmp byte ptr [eax+$00B0], $00
007B2173 0F84C3010000 jz 007B233C
007B2179 8D55D0 lea edx, [ebp-$30]
007B217C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.ExtractFileExt(AnsiString):AnsiString;
|
007B217F E8A098C5FF call 0040BA24
007B2184 8B45D0 mov eax, [ebp-$30]
* Possible String Reference to: '.xls'
|
007B2187 BA9C237B00 mov edx, $007B239C
|
007B218C E8F3B5FCFF call 0077D784
007B2191 84C0 test al, al
007B2193 0F84A3010000 jz 007B233C
007B2199 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.FileExists(AnsiString):Boolean;
|
007B219C E89793C5FF call 0040B538
007B21A1 84C0 test al, al
007B21A3 0F8493010000 jz 007B233C
007B21A9 8D55CC lea edx, [ebp-$34]
* Possible String Reference to: 'Excel.Application'
|
007B21AC B8AC237B00 mov eax, $007B23AC
* Reference to: ComObj.CreateOleObject(AnsiString):IDispatch;
|
007B21B1 E8AE01D0FF call 004B2364
007B21B6 8B55CC mov edx, [ebp-$34]
007B21B9 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromDisp(TVarData;TVarData;IDispatch);
|
007B21BC E8E76CC6FF call 00418EA8
007B21C1 6A00 push $00
007B21C3 68C0237B00 push $007B23C0
007B21C8 68D4237B00 push $007B23D4
007B21CD 8D45E8 lea eax, [ebp-$18]
007B21D0 50 push eax
007B21D1 8D45BC lea eax, [ebp-$44]
007B21D4 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B21D5 E8A224C6FF call 0041467C
007B21DA 83C40C add esp, +$0C
007B21DD 8D45BC lea eax, [ebp-$44]
007B21E0 50 push eax
007B21E1 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B21E3 E89424C6FF call 0041467C
007B21E8 83C410 add esp, +$10
007B21EB 6A00 push $00
007B21ED 68E4237B00 push $007B23E4
007B21F2 68D4237B00 push $007B23D4
007B21F7 8D45E8 lea eax, [ebp-$18]
007B21FA 50 push eax
007B21FB 8D45AC lea eax, [ebp-$54]
007B21FE 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B21FF E87824C6FF call 0041467C
007B2204 83C40C add esp, +$0C
007B2207 8D45AC lea eax, [ebp-$54]
007B220A 50 push eax
007B220B 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B220D E86A24C6FF call 0041467C
007B2212 83C410 add esp, +$10
007B2215 6A00 push $00
007B2217 68FC237B00 push $007B23FC
007B221C 68D4237B00 push $007B23D4
007B2221 8D45E8 lea eax, [ebp-$18]
007B2224 50 push eax
007B2225 8D459C lea eax, [ebp-$64]
007B2228 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2229 E84E24C6FF call 0041467C
007B222E 83C40C add esp, +$0C
007B2231 8D459C lea eax, [ebp-$64]
007B2234 50 push eax
007B2235 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2237 E84024C6FF call 0041467C
007B223C 83C410 add esp, +$10
007B223F 6A00 push $00
007B2241 6814247B00 push $007B2414
007B2246 68D4237B00 push $007B23D4
007B224B 8D45E8 lea eax, [ebp-$18]
007B224E 50 push eax
007B224F 8D458C lea eax, [ebp-$74]
007B2252 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2253 E82424C6FF call 0041467C
007B2258 83C40C add esp, +$0C
007B225B 8D458C lea eax, [ebp-$74]
007B225E 50 push eax
007B225F 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2261 E81624C6FF call 0041467C
007B2266 83C410 add esp, +$10
007B2269 6A00 push $00
007B226B 6828247B00 push $007B2428
007B2270 68D4237B00 push $007B23D4
007B2275 8D45E8 lea eax, [ebp-$18]
007B2278 50 push eax
007B2279 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
007B227F 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2280 E8F723C6FF call 0041467C
007B2285 83C40C add esp, +$0C
007B2288 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
007B228E 50 push eax
007B228F 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2291 E8E623C6FF call 0041467C
007B2296 83C410 add esp, +$10
007B2299 6A00 push $00
007B229B 6838247B00 push $007B2438
007B22A0 68D4237B00 push $007B23D4
007B22A5 8D45E8 lea eax, [ebp-$18]
007B22A8 50 push eax
007B22A9 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]
007B22AF 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B22B0 E8C723C6FF call 0041467C
007B22B5 83C40C add esp, +$0C
007B22B8 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]
007B22BE 50 push eax
007B22BF 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B22C1 E8B623C6FF call 0041467C
007B22C6 83C410 add esp, +$10
007B22C9 8B45FC mov eax, [ebp-$04]
007B22CC 50 push eax
007B22CD 684C247B00 push $007B244C
007B22D2 6858247B00 push $007B2458
007B22D7 8D45E8 lea eax, [ebp-$18]
007B22DA 50 push eax
007B22DB 8D855CFFFFFF lea eax, [ebp+$FFFFFF5C]
007B22E1 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B22E2 E89523C6FF call 0041467C
007B22E7 83C40C add esp, +$0C
007B22EA 8D855CFFFFFF lea eax, [ebp+$FFFFFF5C]
007B22F0 50 push eax
007B22F1 8D45D8 lea eax, [ebp-$28]
007B22F4 50 push eax
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B22F5 E88223C6FF call 0041467C
007B22FA 83C410 add esp, +$10
007B22FD 68D1EFFFFF push $FFFFEFD1
007B2302 8B45FC mov eax, [ebp-$04]
007B2305 50 push eax
007B2306 6868247B00 push $007B2468
007B230B 8D45D8 lea eax, [ebp-$28]
007B230E 50 push eax
007B230F 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2311 E86623C6FF call 0041467C
007B2316 83C414 add esp, +$14
007B2319 6874247B00 push $007B2474
007B231E 8D45E8 lea eax, [ebp-$18]
007B2321 50 push eax
007B2322 6A00 push $00
* Reference to: Variants.@DispInvoke(PVarData;TVarData;TVarData;PCallDesc;Pointer);cdecl;
|
007B2324 E85323C6FF call 0041467C
007B2329 83C40C add esp, +$0C
007B232C 8D45E8 lea eax, [ebp-$18]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007B232F E82CB0C6FF call 0041D360
007B2334 8D45E8 lea eax, [ebp-$18]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007B2337 E81CB0C6FF call 0041D358
007B233C 33C0 xor eax, eax
007B233E 5A pop edx
007B233F 59 pop ecx
007B2340 59 pop ecx
007B2341 648910 mov fs:[eax], edx
****** FINALLY
|
007B2344 688F237B00 push $007B238F
007B2349 8D855CFFFFFF lea eax, [ebp+$FFFFFF5C]
* Reference to object Variant
|
007B234F 8B153C114000 mov edx, [$0040113C]
007B2355 B907000000 mov ecx, $00000007
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B235A E8B53DC5FF call 00406114
007B235F 8D45CC lea eax, [ebp-$34]
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
007B2362 E8A951C5FF call 00407510
007B2367 8D45D0 lea eax, [ebp-$30]
007B236A BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B236F E8D42FC5FF call 00405348
007B2374 8D45D8 lea eax, [ebp-$28]
* Reference to object Variant
|
007B2377 8B153C114000 mov edx, [$0040113C]
007B237D B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B2382 E88D3DC5FF call 00406114
007B2387 C3 ret
* Reference to: System.@HandleFinally;
|
007B2388 E96727C5FF jmp 00404AF4
007B238D EBBA jmp 007B2349
****** END
|
007B238F 5B pop ebx
007B2390 8BE5 mov esp, ebp
007B2392 5D pop ebp
007B2393 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B241F(Sender : TObject);
begin
(*
007B241F 7064 jo 007B2485
007B2421 61 popa
007B2422 7469 jz 007B248D
007B2424 6E outsb
007B2425 670000 add [bx+si], al
007B2428 0401 add al, +$01
007B242A 000B add [ebx], cl
007B242C 49 dec ecx
007B242D 6E outsb
007B242E 7465 jz 007B2495
007B2430 7261 jb 007B2493
007B2432 63746976 arpl [ecx+ebp*2+$76], si
007B2436 65000401 add gs:[ecx+eax], al
007B243A 000B add [ebx], cl
007B243C 44 inc esp
007B243D 6973706C617941 imul esi, [ebx+$70], $4179616C
007B2444 6C insb
007B2445 657274 jb 007B24BC
007B2448 7300 jnb 007B244A
007B244A 0000 add [eax], al
007B244C 0101 add [ecx], eax
007B244E 00484F add [eax+$4F], cl
007B2451 7065 jo 007B24B8
007B2453 6E outsb
007B2454 0000 add [eax], al
007B2456 0000 add [eax], al
007B2458 0100 add [eax], eax
007B245A 00576F add [edi+$6F], dl
007B245D 726B jb 007B24CA
007B245F 42 inc edx
007B2460 6F outsd
007B2461 6F outsd
007B2462 6B730000 imul esi, [ebx+$00], $00
007B2466 0000 add [eax], al
007B2468 0102 add [edx], eax
007B246A 004803 add [eax+$03], cl
007B246D 53 push ebx
007B246E 61 popa
007B246F 7665 jbe 007B24D6
007B2471 41 inc ecx
007B2472 7300 jnb 007B2474
007B2474 0100 add [eax], eax
007B2476 005175 add [ecx+$75], dl
007B2479 697400558BEC5153 imul esi, [eax+eax+$55], $5351EC8B
007B2481 8BDA mov ebx, edx
007B2483 8945FC mov [ebp-$04], eax
007B2486 33C0 xor eax, eax
007B2488 55 push ebp
* Possible String Reference to: '<27><>%<25><><EFBFBD><EFBFBD>[Y]<5D>'
|
007B2489 6800257B00 push $007B2500
***** TRY
|
007B248E 64FF30 push dword ptr fs:[eax]
007B2491 648920 mov fs:[eax], esp
007B2494 8B45FC mov eax, [ebp-$04]
007B2497 83B88C00000000 cmp dword ptr [eax+$008C], +$00
007B249E 7E13 jle 007B24B3
007B24A0 8B45FC mov eax, [ebp-$04]
007B24A3 33D2 xor edx, edx
007B24A5 89908C000000 mov [eax+$008C], edx
007B24AB 8B45FC mov eax, [ebp-$04]
|
007B24AE E811060000 call 007B2AC4
007B24B3 55 push ebp
007B24B4 8BC3 mov eax, ebx
* Reference to : TRMXLSExportForm._PROC_007B20A4()
|
007B24B6 E8E9FBFFFF call 007B20A4
007B24BB 59 pop ecx
007B24BC 8B45FC mov eax, [ebp-$04]
007B24BF 80787C00 cmp byte ptr [eax+$7C], $00
007B24C3 7420 jz 007B24E5
007B24C5 6A01 push $01
007B24C7 680C257B00 push $007B250C
007B24CC 680C257B00 push $007B250C
007B24D1 8BC3 mov eax, ebx
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
007B24D3 E81C33C5FF call 004057F4
007B24D8 50 push eax
* Possible String Reference to: 'open'
|
007B24D9 6810257B00 push $007B2510
007B24DE 6A00 push $00
* Reference to: shell32.ShellExecuteA()
|
007B24E0 E8ABBEC8FF call 0043E390
007B24E5 33C0 xor eax, eax
007B24E7 5A pop edx
007B24E8 59 pop ecx
007B24E9 59 pop ecx
007B24EA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
007B24ED 6807257B00 push $007B2507
007B24F2 8B45FC mov eax, [ebp-$04]
007B24F5 0594000000 add eax, +$00000094
* Reference to: SysUtils.FreeAndNil(void;void);
|
007B24FA E8ADFFC5FF call 004124AC
007B24FF C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B2500(Sender : TObject);
begin
(*
* Reference to: System.@HandleFinally;
|
007B2500 E9EF25C5FF jmp 00404AF4
|
007B2505 EBEB jmp 007B24F2
007B2507 5B pop ebx
007B2508 59 pop ecx
007B2509 5D pop ebp
007B250A C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B2519(Sender : TObject);
begin
(*
007B2519 8BEC mov ebp, esp
007B251B 53 push ebx
007B251C 56 push esi
007B251D 8BF2 mov esi, edx
007B251F 33DB xor ebx, ebx
007B2521 807E1800 cmp byte ptr [esi+$18], $00
007B2525 0F842F010000 jz 007B265A
007B252B 83E807 sub eax, +$07
007B252E 740B jz 007B253B
007B2530 48 dec eax
007B2531 740C jz 007B253F
007B2533 48 dec eax
007B2534 7411 jz 007B2547
007B2536 48 dec eax
007B2537 740A jz 007B2543
007B2539 EB0E jmp 007B2549
007B253B B303 mov bl, $03
007B253D EB0A jmp 007B2549
007B253F B305 mov bl, $05
007B2541 EB06 jmp 007B2549
007B2543 B304 mov bl, $04
007B2545 EB02 jmp 007B2549
007B2547 B302 mov bl, $02
007B2549 33C0 xor eax, eax
007B254B 8A4619 mov al, byte ptr [esi+$19]
007B254E 83F806 cmp eax, +$06
007B2551 0F87D3000000 jnbe 007B262A
007B2557 FF24855E257B00 jmp dword ptr [$7B255E+eax*4]
007B255E 7A25 jp 007B2585
007B2560 7B00 jnp 007B2562
007B2562 96 xchg eax, esi
007B2563 257B00AF25 and eax, $25AF007B
007B2568 7B00 jnp 007B256A
007B256A C825 enter , $25
007B256C 7B00 jnp 007B256E
007B256E E125 loope +$25
007B2570 7B00 jnp 007B2572
007B2572 FA cli
007B2573 257B001326 and eax, $2613007B
007B2578 7B00 jnp 007B257A
007B257A 8B4508 mov eax, [ebp+$08]
007B257D 8B4008 mov eax, [eax+$08]
007B2580 8B40FC mov eax, [eax-$04]
007B2583 8B4018 mov eax, [eax+$18]
007B2586 8BD3 mov edx, ebx
|
007B2588 E82FE1FFFF call 007B06BC
007B258D C6400801 mov byte ptr [eax+$08], $01
007B2591 E994000000 jmp 007B262A
007B2596 8B4508 mov eax, [ebp+$08]
007B2599 8B4008 mov eax, [eax+$08]
007B259C 8B40FC mov eax, [eax-$04]
007B259F 8B4018 mov eax, [eax+$18]
007B25A2 8BD3 mov edx, ebx
|
007B25A4 E813E1FFFF call 007B06BC
007B25A9 C6400803 mov byte ptr [eax+$08], $03
007B25AD EB7B jmp 007B262A
007B25AF 8B4508 mov eax, [ebp+$08]
007B25B2 8B4008 mov eax, [eax+$08]
007B25B5 8B40FC mov eax, [eax-$04]
007B25B8 8B4018 mov eax, [eax+$18]
007B25BB 8BD3 mov edx, ebx
|
007B25BD E8FAE0FFFF call 007B06BC
007B25C2 C6400804 mov byte ptr [eax+$08], $04
007B25C6 EB62 jmp 007B262A
007B25C8 8B4508 mov eax, [ebp+$08]
007B25CB 8B4008 mov eax, [eax+$08]
007B25CE 8B40FC mov eax, [eax-$04]
007B25D1 8B4018 mov eax, [eax+$18]
007B25D4 8BD3 mov edx, ebx
|
007B25D6 E8E1E0FFFF call 007B06BC
007B25DB C6400809 mov byte ptr [eax+$08], $09
007B25DF EB49 jmp 007B262A
007B25E1 8B4508 mov eax, [ebp+$08]
007B25E4 8B4008 mov eax, [eax+$08]
007B25E7 8B40FC mov eax, [eax-$04]
007B25EA 8B4018 mov eax, [eax+$18]
007B25ED 8BD3 mov edx, ebx
|
007B25EF E8C8E0FFFF call 007B06BC
007B25F4 C640080B mov byte ptr [eax+$08], $0B
007B25F8 EB30 jmp 007B262A
007B25FA 8B4508 mov eax, [ebp+$08]
007B25FD 8B4008 mov eax, [eax+$08]
007B2600 8B40FC mov eax, [eax-$04]
007B2603 8B4018 mov eax, [eax+$18]
007B2606 8BD3 mov edx, ebx
|
007B2608 E8AFE0FFFF call 007B06BC
007B260D C6400800 mov byte ptr [eax+$08], $00
007B2611 EB17 jmp 007B262A
007B2613 8B4508 mov eax, [ebp+$08]
007B2616 8B4008 mov eax, [eax+$08]
007B2619 8B40FC mov eax, [eax-$04]
007B261C 8B4018 mov eax, [eax+$18]
007B261F 8BD3 mov edx, ebx
|
007B2621 E896E0FFFF call 007B06BC
007B2626 C6400800 mov byte ptr [eax+$08], $00
007B262A 8B4508 mov eax, [ebp+$08]
007B262D 8B4008 mov eax, [eax+$08]
007B2630 8B40FC mov eax, [eax-$04]
007B2633 8B4018 mov eax, [eax+$18]
007B2636 8BD3 mov edx, ebx
|
007B2638 E87FE0FFFF call 007B06BC
007B263D 8B561C mov edx, [esi+$1C]
007B2640 895004 mov [eax+$04], edx
007B2643 8B4508 mov eax, [ebp+$08]
007B2646 8B4008 mov eax, [eax+$08]
007B2649 8B40FC mov eax, [eax-$04]
007B264C 8B4018 mov eax, [eax+$18]
007B264F 8BD3 mov edx, ebx
|
007B2651 E866E0FFFF call 007B06BC
007B2656 C6400901 mov byte ptr [eax+$09], $01
007B265A 5E pop esi
007B265B 5B pop ebx
007B265C 5D pop ebp
007B265D C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B2660(Sender : TObject);
begin
(*
007B2660 55 push ebp
007B2661 8BEC mov ebp, esp
007B2663 8B4508 mov eax, [ebp+$08]
007B2666 8B40F8 mov eax, [eax-$08]
* Reference to field TRMXLSExportForm.OFFS_007E
|
007B2669 80787E00 cmp byte ptr [eax+$7E], $00
007B266D 7454 jz 007B26C3
007B266F 55 push ebp
007B2670 8B4508 mov eax, [ebp+$08]
007B2673 8B40F4 mov eax, [eax-$0C]
* Reference to field TRMXLSExportForm.OFFS_0010
|
007B2676 8B5010 mov edx, [eax+$10]
007B2679 B807000000 mov eax, $00000007
|
007B267E E895FEFFFF call 007B2518
007B2683 59 pop ecx
007B2684 55 push ebp
007B2685 8B4508 mov eax, [ebp+$08]
007B2688 8B40F4 mov eax, [eax-$0C]
007B268B 8B5014 mov edx, [eax+$14]
007B268E B808000000 mov eax, $00000008
|
007B2693 E880FEFFFF call 007B2518
007B2698 59 pop ecx
007B2699 55 push ebp
007B269A 8B4508 mov eax, [ebp+$08]
007B269D 8B40F4 mov eax, [eax-$0C]
007B26A0 8B5018 mov edx, [eax+$18]
007B26A3 B80A000000 mov eax, $0000000A
|
007B26A8 E86BFEFFFF call 007B2518
007B26AD 59 pop ecx
007B26AE 55 push ebp
007B26AF 8B4508 mov eax, [ebp+$08]
007B26B2 8B40F4 mov eax, [eax-$0C]
007B26B5 8B501C mov edx, [eax+$1C]
007B26B8 B809000000 mov eax, $00000009
|
007B26BD E856FEFFFF call 007B2518
007B26C2 59 pop ecx
007B26C3 5D pop ebp
007B26C4 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B26C8(Sender : TObject);
begin
(*
007B26C8 55 push ebp
007B26C9 8BEC mov ebp, esp
007B26CB 51 push ecx
007B26CC B201 mov dl, $01
* Reference to class TPicture
|
007B26CE A14CF54200 mov eax, dword ptr [$0042F54C]
* Reference to: Graphics.TPicture.Create(TPicture;boolean);
|
007B26D3 E8BC19C8FF call 00434094
007B26D8 8945FC mov [ebp-$04], eax
007B26DB 33C0 xor eax, eax
007B26DD 55 push ebp
007B26DE 684D277B00 push $007B274D
***** TRY
|
007B26E3 64FF30 push dword ptr fs:[eax]
007B26E6 648920 mov fs:[eax], esp
007B26E9 8B4508 mov eax, [ebp+$08]
007B26EC 8B40F0 mov eax, [eax-$10]
|
007B26EF E8601BFFFF call 007A4254
007B26F4 8BD0 mov edx, eax
007B26F6 8B45FC mov eax, [ebp-$04]
007B26F9 8B08 mov ecx, [eax]
* Reference to method TPicture.Assign(TPersistent)
|
007B26FB FF5108 call dword ptr [ecx+$08]
007B26FE 8B4508 mov eax, [ebp+$08]
007B2701 8B40F0 mov eax, [eax-$10]
* Reference to field TPicture.OnChange : TNotifyEvent
|
007B2704 8B4010 mov eax, [eax+$10]
007B2707 50 push eax
007B2708 8B4508 mov eax, [ebp+$08]
007B270B 8B40F0 mov eax, [eax-$10]
007B270E 8B4014 mov eax, [eax+$14]
007B2711 50 push eax
007B2712 8B45FC mov eax, [ebp-$04]
007B2715 50 push eax
007B2716 6A01 push $01
007B2718 8B4508 mov eax, [ebp+$08]
007B271B 8B40F0 mov eax, [eax-$10]
007B271E 8B480C mov ecx, [eax+$0C]
007B2721 49 dec ecx
007B2722 8B4508 mov eax, [ebp+$08]
007B2725 8B40F0 mov eax, [eax-$10]
007B2728 8B5008 mov edx, [eax+$08]
007B272B 4A dec edx
007B272C 8B4508 mov eax, [ebp+$08]
007B272F 8B40EC mov eax, [eax-$14]
|
007B2732 E84DEBFFFF call 007B1284
007B2737 33C0 xor eax, eax
007B2739 5A pop edx
007B273A 59 pop ecx
007B273B 59 pop ecx
007B273C 648910 mov fs:[eax], edx
****** FINALLY
|
007B273F 6854277B00 push $007B2754
007B2744 8B45FC mov eax, [ebp-$04]
* Reference to: System.TObject.Free(TObject);
|
007B2747 E8001CC5FF call 0040434C
007B274C C3 ret
* Reference to: System.@HandleFinally;
|
007B274D E9A223C5FF jmp 00404AF4
007B2752 EBF0 jmp 007B2744
****** END
|
007B2754 59 pop ecx
007B2755 5D pop ebp
007B2756 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B2758(Sender : TObject);
begin
(*
007B2758 55 push ebp
007B2759 8BEC mov ebp, esp
007B275B B90B000000 mov ecx, $0000000B
007B2760 6A00 push $00
007B2762 6A00 push $00
007B2764 49 dec ecx
007B2765 75F9 jnz 007B2760
007B2767 53 push ebx
007B2768 56 push esi
007B2769 57 push edi
007B276A 8B7D08 mov edi, [ebp+$08]
007B276D 83C7F0 add edi, -$10
007B2770 33C0 xor eax, eax
007B2772 55 push ebp
* Possible String Reference to: '<27>_ <20><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007B2773 68902A7B00 push $007B2A90
***** TRY
|
007B2778 64FF30 push dword ptr fs:[eax]
007B277B 648920 mov fs:[eax], esp
007B277E 8B07 mov eax, [edi]
* Reference to field TRMXLSExportForm.OFFS_0010
|
007B2780 8B4010 mov eax, [eax+$10]
007B2783 48 dec eax
007B2784 50 push eax
007B2785 8B07 mov eax, [edi]
007B2787 8B4014 mov eax, [eax+$14]
007B278A 48 dec eax
007B278B 50 push eax
007B278C 8B07 mov eax, [edi]
007B278E 8B480C mov ecx, [eax+$0C]
007B2791 49 dec ecx
007B2792 8B07 mov eax, [edi]
007B2794 8B5008 mov edx, [eax+$08]
007B2797 4A dec edx
007B2798 8B4508 mov eax, [ebp+$08]
007B279B 8B40EC mov eax, [eax-$14]
|
007B279E E8F5E9FFFF call 007B1198
007B27A3 8B5508 mov edx, [ebp+$08]
007B27A6 8942FC mov [edx-$04], eax
007B27A9 8B07 mov eax, [edi]
|
007B27AB E8C41AFFFF call 007A4274
007B27B0 8B10 mov edx, [eax]
007B27B2 FF5214 call dword ptr [edx+$14]
007B27B5 8BD8 mov ebx, eax
007B27B7 8D45FC lea eax, [ebp-$04]
* Reference to: System.@WStrClr(void;void);
|
007B27BA E88132C5FF call 00405A40
007B27BF 8BF3 mov esi, ebx
007B27C1 4E dec esi
007B27C2 85F6 test esi, esi
007B27C4 7C34 jl 007B27FA
007B27C6 46 inc esi
007B27C7 33DB xor ebx, ebx
007B27C9 85DB test ebx, ebx
007B27CB 7E0D jle 007B27DA
007B27CD 8D45FC lea eax, [ebp-$04]
007B27D0 BAA42A7B00 mov edx, $007B2AA4
|
007B27D5 E85A34C5FF call 00405C34
007B27DA 8B07 mov eax, [edi]
|
007B27DC E8931AFFFF call 007A4274
007B27E1 8D4DEC lea ecx, [ebp-$14]
007B27E4 8BD3 mov edx, ebx
* Reference to : TWStringList._PROC_006DB9C8()
|
007B27E6 E8DD91F2FF call 006DB9C8
007B27EB 8B55EC mov edx, [ebp-$14]
007B27EE 8D45FC lea eax, [ebp-$04]
|
007B27F1 E83E34C5FF call 00405C34
007B27F6 43 inc ebx
007B27F7 4E dec esi
007B27F8 75CF jnz 007B27C9
007B27FA A0AC2A7B00 mov al, byte ptr [$007B2AAC]
007B27FF 50 push eax
007B2800 8D45E8 lea eax, [ebp-$18]
007B2803 50 push eax
007B2804 8D45E4 lea eax, [ebp-$1C]
007B2807 8B55FC mov edx, [ebp-$04]
* Reference to: System.@LStrFromWStr(String;String;WideString);
|
007B280A E8AD2DC5FF call 004055BC
007B280F 8B45E4 mov eax, [ebp-$1C]
007B2812 33C9 xor ecx, ecx
007B2814 BAB82A7B00 mov edx, $007B2AB8
* Reference to: SysUtils.StringReplace(AnsiString;AnsiString;AnsiString;TReplaceFlags):AnsiString;
|
007B2819 E8FEECC5FF call 0041151C
007B281E 8B55E8 mov edx, [ebp-$18]
007B2821 8D45FC lea eax, [ebp-$04]
* Reference to: System.@WStrFromLStr(WideString;WideString;String);
|
007B2824 E8DF33C5FF call 00405C08
007B2829 8B45FC mov eax, [ebp-$04]
007B282C 33D2 xor edx, edx
* Reference to: System.@WStrCmp;
|
007B282E E81135C5FF call 00405D44
007B2833 740F jz 007B2844
007B2835 8B45FC mov eax, [ebp-$04]
007B2838 BAA42A7B00 mov edx, $007B2AA4
* Reference to: System.@WStrCmp;
|
007B283D E80235C5FF call 00405D44
007B2842 7531 jnz 007B2875
007B2844 B020 mov al, $20
007B2846 8845D1 mov [ebp-$2F], al
007B2849 C645D001 mov byte ptr [ebp-$30], $01
007B284D 8D45D4 lea eax, [ebp-$2C]
007B2850 8D55D0 lea edx, [ebp-$30]
* Reference to: DB.TWideStringField.SetAsString(TWideStringField;AnsiString);
| or: DB.TWideStringField.SetVarValue(TWideStringField;Variant;Variant);
| or: DB.TInterfaceField.SetVarValue(TInterfaceField;Variant;Variant);
| or: Variants.@VarFromPStr(TVarData;TVarData;ShortString;ShortString);
| or: Variants.@OleVarFromLStr(TVarData;TVarData;AnsiString);
| or: Variants.@OleVarFromPStr(TVarData;TVarData;ShortString;ShortString);
|
007B2853 E89C65C6FF call 00418DF4
007B2858 8D55D4 lea edx, [ebp-$2C]
007B285B 8B4508 mov eax, [ebp+$08]
007B285E 8B40FC mov eax, [eax-$04]
|
007B2861 E816DFFFFF call 007B077C
007B2866 8B4508 mov eax, [ebp+$08]
007B2869 8B40FC mov eax, [eax-$04]
007B286C C6402200 mov byte ptr [eax+$22], $00
007B2870 E9E3000000 jmp 007B2958
007B2875 8D45CC lea eax, [ebp-$34]
007B2878 50 push eax
007B2879 8B45FC mov eax, [ebp-$04]
* Reference to: System.@WStrLen(WideString):Integer;
|
007B287C E8A733C5FF call 00405C28
007B2881 8BD0 mov edx, eax
007B2883 4A dec edx
007B2884 B902000000 mov ecx, $00000002
007B2889 8B45FC mov eax, [ebp-$04]
* Reference to: System.@WStrCopy(WideString;Integer;Integer):WideString;
|
007B288C E83735C5FF call 00405DC8
007B2891 8B45CC mov eax, [ebp-$34]
007B2894 BAA42A7B00 mov edx, $007B2AA4
* Reference to: System.@WStrCmp;
|
007B2899 E8A634C5FF call 00405D44
007B289E 751E jnz 007B28BE
007B28A0 8D45FC lea eax, [ebp-$04]
007B28A3 50 push eax
007B28A4 8B45FC mov eax, [ebp-$04]
* Reference to: System.@WStrLen(WideString):Integer;
|
007B28A7 E87C33C5FF call 00405C28
007B28AC 8BC8 mov ecx, eax
007B28AE 83E902 sub ecx, +$02
007B28B1 BA01000000 mov edx, $00000001
007B28B6 8B45FC mov eax, [ebp-$04]
* Reference to: System.@WStrCopy(WideString;Integer;Integer):WideString;
|
007B28B9 E80A35C5FF call 00405DC8
007B28BE 8B07 mov eax, [edi]
007B28C0 80782400 cmp byte ptr [eax+$24], $00
007B28C4 750C jnz 007B28D2
007B28C6 8B4508 mov eax, [ebp+$08]
007B28C9 8B40F4 mov eax, [eax-$0C]
007B28CC 80782001 cmp byte ptr [eax+$20], $01
007B28D0 7535 jnz 007B2907
007B28D2 8D45C8 lea eax, [ebp-$38]
007B28D5 8B55FC mov edx, [ebp-$04]
* Reference to: System.@LStrFromWStr(String;String;WideString);
|
007B28D8 E8DF2CC5FF call 004055BC
007B28DD 8B45C8 mov eax, [ebp-$38]
007B28E0 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.TryStrToFloat(AnsiString;Extended;Extended):Boolean;overload;
|
007B28E3 E8BCAEC5FF call 0040D7A4
007B28E8 84C0 test al, al
007B28EA 741B jz 007B2907
007B28EC DB6DF0 fld tbyte ptr [ebp-$10]
007B28EF 8D45B8 lea eax, [ebp-$48]
* Reference to: Variants.@VarFromReal;
|
007B28F2 E89564C6FF call 00418D8C
007B28F7 8D55B8 lea edx, [ebp-$48]
007B28FA 8B4508 mov eax, [ebp+$08]
007B28FD 8B40FC mov eax, [eax-$04]
|
007B2900 E877DEFFFF call 007B077C
007B2905 EB51 jmp 007B2958
007B2907 8D45A8 lea eax, [ebp-$58]
007B290A 8B55FC mov edx, [ebp-$04]
* Reference to: Variants.@VarFromWStr(TVarData;TVarData;WideString);
|
007B290D E83265C6FF call 00418E44
007B2912 8D55A8 lea edx, [ebp-$58]
007B2915 8B4508 mov eax, [ebp+$08]
007B2918 8B40FC mov eax, [eax-$04]
|
007B291B E85CDEFFFF call 007B077C
007B2920 8B55FC mov edx, [ebp-$04]
007B2923 B8A42A7B00 mov eax, $007B2AA4
* Reference to: System.@WStrPos;
|
007B2928 E81336C5FF call 00405F40
007B292D 85C0 test eax, eax
007B292F 7F11 jnle 007B2942
007B2931 8B55FC mov edx, [ebp-$04]
007B2934 B8C02A7B00 mov eax, $007B2AC0
* Reference to: System.@WStrPos;
|
007B2939 E80236C5FF call 00405F40
007B293E 85C0 test eax, eax
007B2940 7E0C jle 007B294E
007B2942 8B4508 mov eax, [ebp+$08]
007B2945 8B40FC mov eax, [eax-$04]
007B2948 C6402201 mov byte ptr [eax+$22], $01
007B294C EB0A jmp 007B2958
007B294E 8B4508 mov eax, [ebp+$08]
007B2951 8B40FC mov eax, [eax-$04]
007B2954 C6402200 mov byte ptr [eax+$22], $00
007B2958 8B4508 mov eax, [ebp+$08]
007B295B 8B40F4 mov eax, [eax-$0C]
007B295E 8B5004 mov edx, [eax+$04]
007B2961 8B4508 mov eax, [ebp+$08]
007B2964 8B40FC mov eax, [eax-$04]
007B2967 8B401C mov eax, [eax+$1C]
007B296A 8B08 mov ecx, [eax]
007B296C FF5108 call dword ptr [ecx+$08]
007B296F 8B4508 mov eax, [ebp+$08]
007B2972 50 push eax
* Reference to : TRMXLSExportForm._PROC_007B2660()
|
007B2973 E8E8FCFFFF call 007B2660
007B2978 59 pop ecx
007B2979 8B4508 mov eax, [ebp+$08]
007B297C 8B40F4 mov eax, [eax-$0C]
007B297F 8B400C mov eax, [eax+$0C]
007B2982 3DFFFFFF1F cmp eax, $1FFFFFFF
007B2987 742D jz 007B29B6
007B2989 8B5508 mov edx, [ebp+$08]
007B298C 3DFFFFFF00 cmp eax, $00FFFFFF
007B2991 7423 jz 007B29B6
007B2993 8B5508 mov edx, [ebp+$08]
007B2996 8B5508 mov edx, [ebp+$08]
007B2999 8B52FC mov edx, [edx-$04]
007B299C 89423C mov [edx+$3C], eax
007B299F 8B4508 mov eax, [ebp+$08]
007B29A2 8B40FC mov eax, [eax-$04]
007B29A5 C74040FFFFFF00 mov dword ptr [eax+$40], $00FFFFFF
007B29AC 8B4508 mov eax, [ebp+$08]
007B29AF 8B40FC mov eax, [eax-$04]
007B29B2 C6403811 mov byte ptr [eax+$38], $11
007B29B6 8B4508 mov eax, [ebp+$08]
007B29B9 8B40F4 mov eax, [eax-$0C]
007B29BC 8A4009 mov al, byte ptr [eax+$09]
007B29BF 2C01 sub al, $01
007B29C1 721E jb 007B29E1
007B29C3 7410 jz 007B29D5
007B29C5 FEC8 dec al
007B29C7 7524 jnz 007B29ED
007B29C9 8B4508 mov eax, [ebp+$08]
007B29CC 8B40FC mov eax, [eax-$04]
007B29CF C6402102 mov byte ptr [eax+$21], $02
007B29D3 EB22 jmp 007B29F7
007B29D5 8B4508 mov eax, [ebp+$08]
007B29D8 8B40FC mov eax, [eax-$04]
007B29DB C6402101 mov byte ptr [eax+$21], $01
007B29DF EB16 jmp 007B29F7
007B29E1 8B4508 mov eax, [ebp+$08]
007B29E4 8B40FC mov eax, [eax-$04]
007B29E7 C6402100 mov byte ptr [eax+$21], $00
007B29EB EB0A jmp 007B29F7
007B29ED 8B4508 mov eax, [ebp+$08]
007B29F0 8B40FC mov eax, [eax-$04]
007B29F3 C6402103 mov byte ptr [eax+$21], $03
007B29F7 8B4508 mov eax, [ebp+$08]
007B29FA 8B40F4 mov eax, [eax-$0C]
007B29FD 8A4008 mov al, byte ptr [eax+$08]
007B2A00 2C01 sub al, $01
007B2A02 7208 jb 007B2A0C
007B2A04 7412 jz 007B2A18
007B2A06 FEC8 dec al
007B2A08 741A jz 007B2A24
007B2A0A EB24 jmp 007B2A30
007B2A0C 8B4508 mov eax, [ebp+$08]
007B2A0F 8B40FC mov eax, [eax-$04]
007B2A12 C6402001 mov byte ptr [eax+$20], $01
007B2A16 EB22 jmp 007B2A3A
007B2A18 8B4508 mov eax, [ebp+$08]
007B2A1B 8B40FC mov eax, [eax-$04]
007B2A1E C6402002 mov byte ptr [eax+$20], $02
007B2A22 EB16 jmp 007B2A3A
007B2A24 8B4508 mov eax, [ebp+$08]
007B2A27 8B40FC mov eax, [eax-$04]
007B2A2A C6402003 mov byte ptr [eax+$20], $03
007B2A2E EB0A jmp 007B2A3A
007B2A30 8B4508 mov eax, [ebp+$08]
007B2A33 8B40FC mov eax, [eax-$04]
007B2A36 C6402005 mov byte ptr [eax+$20], $05
007B2A3A 33C0 xor eax, eax
007B2A3C 5A pop edx
007B2A3D 59 pop ecx
007B2A3E 59 pop ecx
007B2A3F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
007B2A42 68972A7B00 push $007B2A97
007B2A47 8D45A8 lea eax, [ebp-$58]
* Reference to object Variant
|
007B2A4A 8B153C114000 mov edx, [$0040113C]
007B2A50 B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B2A55 E8BA36C5FF call 00406114
007B2A5A 8D45C8 lea eax, [ebp-$38]
* Reference to: System.@LStrClr(void;void);
|
007B2A5D E8C228C5FF call 00405324
007B2A62 8D45CC lea eax, [ebp-$34]
* Reference to: System.@WStrClr(void;void);
|
007B2A65 E8D62FC5FF call 00405A40
007B2A6A 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B2A6D E8021CC6FF call 00414674
007B2A72 8D45E4 lea eax, [ebp-$1C]
007B2A75 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B2A7A E8C928C5FF call 00405348
007B2A7F 8D45EC lea eax, [ebp-$14]
* Reference to: System.@WStrClr(void;void);
|
007B2A82 E8B92FC5FF call 00405A40
007B2A87 8D45FC lea eax, [ebp-$04]
* Reference to: System.@WStrClr(void;void);
|
007B2A8A E8B12FC5FF call 00405A40
007B2A8F C3 ret
* Reference to: System.@HandleFinally;
|
007B2A90 E95F20C5FF jmp 00404AF4
007B2A95 EBB0 jmp 007B2A47
****** END
|
007B2A97 5F pop edi
007B2A98 5E pop esi
007B2A99 5B pop ebx
007B2A9A 8BE5 mov esp, ebp
007B2A9C 5D pop ebp
007B2A9D C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B2AC5(Sender : TObject);
begin
(*
007B2AC5 8BEC mov ebp, esp
007B2AC7 83C4D8 add esp, -$28
007B2ACA 53 push ebx
007B2ACB 56 push esi
007B2ACC 57 push edi
007B2ACD 33D2 xor edx, edx
007B2ACF 8955DC mov [ebp-$24], edx
007B2AD2 8955D8 mov [ebp-$28], edx
007B2AD5 8945F8 mov [ebp-$08], eax
007B2AD8 8D75EC lea esi, [ebp-$14]
007B2ADB 33C0 xor eax, eax
007B2ADD 55 push ebp
007B2ADE 683A2F7B00 push $007B2F3A
***** TRY
|
007B2AE3 64FF30 push dword ptr fs:[eax]
007B2AE6 648920 mov fs:[eax], esp
007B2AE9 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2AEC 8B8094000000 mov eax, [eax+$0094]
|
007B2AF2 E86526FFFF call 007A515C
007B2AF7 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0090
|
007B2AFA 8B8090000000 mov eax, [eax+$0090]
|
007B2B00 E85BE9FFFF call 007B1460
007B2B05 8906 mov [esi], eax
007B2B07 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.UndockHeight : Integer
|
007B2B0A 8B80AC000000 mov eax, [eax+$00AC]
007B2B10 3D00010000 cmp eax, $00000100
007B2B15 7D24 jnl 007B2B3B
007B2B17 83F842 cmp eax, +$42
007B2B1A 7D1F jnl 007B2B3B
007B2B1C 8B55F8 mov edx, [ebp-$08]
* Reference to field TRMXLSExportForm.UndockHeight : Integer
|
007B2B1F 8A92AC000000 mov dl, byte ptr [edx+$00AC]
007B2B25 8B06 mov eax, [esi]
007B2B27 8B400C mov eax, [eax+$0C]
007B2B2A 88502A mov [eax+$2A], dl
007B2B2D C7401C01000000 mov dword ptr [eax+$1C], $00000001
007B2B34 C7401801000000 mov dword ptr [eax+$18], $00000001
007B2B3B 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.UndockWidth : Integer
|
007B2B3E 80B8A800000000 cmp byte ptr [eax+$00A8], $00
007B2B45 750B jnz 007B2B52
007B2B47 8B06 mov eax, [esi]
007B2B49 8B400C mov eax, [eax+$0C]
007B2B4C C6402900 mov byte ptr [eax+$29], $00
007B2B50 EB09 jmp 007B2B5B
007B2B52 8B06 mov eax, [esi]
007B2B54 8B400C mov eax, [eax+$0C]
007B2B57 C6402901 mov byte ptr [eax+$29], $01
007B2B5B 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.ScalingFlags : TScalingFlags
|
007B2B5E 8B8098000000 mov eax, [eax+$0098]
007B2B64 B201 mov dl, $01
* Reference to : TRMApplication._PROC_0073FB24()
|
007B2B66 E8B9CFF8FF call 0073FB24
007B2B6B D80D482F7B00 fmul dword ptr [$007B2F48]
* Reference to: System.@ROUND;
|
007B2B71 E86606C5FF call 004031DC
007B2B76 8945E0 mov [ebp-$20], eax
007B2B79 8955E4 mov [ebp-$1C], edx
007B2B7C DF6DE0 fild qword ptr [ebp-$20]
007B2B7F D835482F7B00 fdiv dword ptr [$007B2F48]
007B2B85 DB2D4C2F7B00 fld tbyte ptr [$007B2F4C]
007B2B8B DEE9 fsubp st(1), st(0)
007B2B8D 8B06 mov eax, [esi]
007B2B8F 8B400C mov eax, [eax+$0C]
007B2B92 DD5838 fstp qword ptr [eax+$38]
007B2B95 9B wait
007B2B96 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.DockOrientation : TDockOrientation
|
007B2B99 8B809C000000 mov eax, [eax+$009C]
007B2B9F B201 mov dl, $01
* Reference to : TRMApplication._PROC_0073FB24()
|
007B2BA1 E87ECFF8FF call 0073FB24
007B2BA6 D80D482F7B00 fmul dword ptr [$007B2F48]
* Reference to: System.@ROUND;
|
007B2BAC E82B06C5FF call 004031DC
007B2BB1 8945E0 mov [ebp-$20], eax
007B2BB4 8955E4 mov [ebp-$1C], edx
007B2BB7 DF6DE0 fild qword ptr [ebp-$20]
007B2BBA D835482F7B00 fdiv dword ptr [$007B2F48]
007B2BC0 8B06 mov eax, [esi]
007B2BC2 8B400C mov eax, [eax+$0C]
007B2BC5 DD5848 fstp qword ptr [eax+$48]
007B2BC8 9B wait
007B2BC9 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.HostDockSite : TWinControl
|
007B2BCC 8B80A0000000 mov eax, [eax+$00A0]
007B2BD2 B201 mov dl, $01
* Reference to : TRMApplication._PROC_0073FB24()
|
007B2BD4 E84BCFF8FF call 0073FB24
007B2BD9 D80D482F7B00 fmul dword ptr [$007B2F48]
* Reference to: System.@ROUND;
|
007B2BDF E8F805C5FF call 004031DC
007B2BE4 8945E0 mov [ebp-$20], eax
007B2BE7 8955E4 mov [ebp-$1C], edx
007B2BEA DF6DE0 fild qword ptr [ebp-$20]
007B2BED D835482F7B00 fdiv dword ptr [$007B2F48]
007B2BF3 DB2D4C2F7B00 fld tbyte ptr [$007B2F4C]
007B2BF9 DEE9 fsubp st(1), st(0)
007B2BFB 8B06 mov eax, [esi]
007B2BFD 8B400C mov eax, [eax+$0C]
007B2C00 DD5840 fstp qword ptr [eax+$40]
007B2C03 9B wait
007B2C04 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.WheelAccumulator : Integer
|
007B2C07 8B80A4000000 mov eax, [eax+$00A4]
007B2C0D B201 mov dl, $01
* Reference to : TRMApplication._PROC_0073FB24()
|
007B2C0F E810CFF8FF call 0073FB24
007B2C14 D80D482F7B00 fmul dword ptr [$007B2F48]
* Reference to: System.@ROUND;
|
007B2C1A E8BD05C5FF call 004031DC
007B2C1F 8945E0 mov [ebp-$20], eax
007B2C22 8955E4 mov [ebp-$1C], edx
007B2C25 DF6DE0 fild qword ptr [ebp-$20]
007B2C28 D835482F7B00 fdiv dword ptr [$007B2F48]
007B2C2E 8B06 mov eax, [esi]
007B2C30 8B580C mov ebx, [eax+$0C]
007B2C33 DD5B50 fstp qword ptr [ebx+$50]
007B2C36 9B wait
007B2C37 33C0 xor eax, eax
007B2C39 894360 mov [ebx+$60], eax
007B2C3C 894364 mov [ebx+$64], eax
007B2C3F 33C0 xor eax, eax
007B2C41 894358 mov [ebx+$58], eax
007B2C44 89435C mov [ebx+$5C], eax
007B2C47 8D55D8 lea edx, [ebp-$28]
007B2C4A 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0084
|
007B2C4D 8B8084000000 mov eax, [eax+$0084]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
007B2C53 E8B482C5FF call 0040AF0C
007B2C58 8B4DD8 mov ecx, [ebp-$28]
007B2C5B 8D45DC lea eax, [ebp-$24]
* Possible String Reference to: 'Sheet'
|
007B2C5E BA602F7B00 mov edx, $007B2F60
* Reference to: System.@LStrCat3;
|
007B2C63 E8D829C5FF call 00405640
007B2C68 8B55DC mov edx, [ebp-$24]
007B2C6B 8B06 mov eax, [esi]
|
007B2C6D E8A2E0FFFF call 007B0D14
007B2C72 8B45F8 mov eax, [ebp-$08]
007B2C75 FF8084000000 inc dword ptr [eax+$0084]
007B2C7B 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2C7E 8B8094000000 mov eax, [eax+$0094]
* Reference to: ExtCtrls.THeaderStrings.GetCount(THeaderStrings):Integer;
| or: MXQPARSE.TXtabQuery.getNAggregates(TXtabQuery):Integer;
| or: Mxstore.TIndexInfo.GetCapacity(TIndexInfo):Integer;
|
007B2C84 E87725FFFF call 007A5200
007B2C89 8BD8 mov ebx, eax
007B2C8B 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2C8E 8B8094000000 mov eax, [eax+$0094]
* Reference to: AdaptReq.TActionFieldValuesImpl.GetFieldCount(TActionFieldValuesImpl):System.Integer;
| or: AdaptReq.TActionFieldValueImpl.GetFileCount(TActionFieldValueImpl):System.Integer;
| or: ExtCtrls.TPageAccess.GetCount(TPageAccess):Integer;
| or: Grids.TStringSparseList.GetCount(TStringSparseList):Integer;
| or: MXQPARSE.TXtabQuery.getNDimensions(TXtabQuery):Integer;
| or: Mxstore.TDataCache.GetIndexCount(TDataCache):Integer;
|
007B2C94 E86F25FFFF call 007A5208
007B2C99 0FAFD8 imul ebx, eax
007B2C9C 8BD3 mov edx, ebx
* Possible String Reference to: 'Exporting Row Height'
|
007B2C9E B9702F7B00 mov ecx, $007B2F70
007B2CA3 8B45F8 mov eax, [ebp-$08]
|
007B2CA6 E89D99FBFF call 0076C648
007B2CAB 33DB xor ebx, ebx
007B2CAD 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2CB0 8B8094000000 mov eax, [eax+$0094]
* Reference to: ExtCtrls.THeaderStrings.GetCount(THeaderStrings):Integer;
| or: MXQPARSE.TXtabQuery.getNAggregates(TXtabQuery):Integer;
| or: Mxstore.TIndexInfo.GetCapacity(TIndexInfo):Integer;
|
007B2CB6 E84525FFFF call 007A5200
007B2CBB 48 dec eax
007B2CBC 85C0 test eax, eax
007B2CBE 0F8C9F000000 jl 007B2D63
007B2CC4 40 inc eax
007B2CC5 8945E8 mov [ebp-$18], eax
007B2CC8 33FF xor edi, edi
007B2CCA 8B45F8 mov eax, [ebp-$08]
|
007B2CCD E8E299FBFF call 0076C6B4
007B2CD2 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.Parent : TWinControl
|
007B2CD5 8B4030 mov eax, [eax+$30]
* Reference to field TWinControl.WindowProc : TWndMethod
|
007B2CD8 80783800 cmp byte ptr [eax+$38], $00
007B2CDC 0F8581000000 jnz 007B2D63
007B2CE2 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2CE5 8B8094000000 mov eax, [eax+$0094]
007B2CEB 8BD7 mov edx, edi
|
007B2CED E83625FFFF call 007A5228
007B2CF2 B201 mov dl, $01
* Reference to : TRMApplication._PROC_0073FB24()
|
007B2CF4 E82BCEF8FF call 0073FB24
007B2CF9 D80D482F7B00 fmul dword ptr [$007B2F48]
* Reference to: System.@ROUND;
|
007B2CFF E8D804C5FF call 004031DC
007B2D04 8945E0 mov [ebp-$20], eax
007B2D07 8955E4 mov [ebp-$1C], edx
007B2D0A DF6DE0 fild qword ptr [ebp-$20]
007B2D0D D835482F7B00 fdiv dword ptr [$007B2F48]
007B2D13 83C4F8 add esp, -$08
007B2D16 DD1C24 fstp qword ptr [esp]
007B2D19 9B wait
007B2D1A 8BD7 mov edx, edi
007B2D1C 8B06 mov eax, [esi]
* Reference to: CheckLst.TCheckListBox.GetWrapper(TCheckListBox;Integer):TObject;
| or: QCheckLst.TCheckListBox.GetWrapper(TCheckListBox;System.Integer):System.TObject;
| or: WebAdapt.TCustomAdapter.FindNamedVariable(TCustomAdapter;System.AnsiString):Classes.TComponent;
|
007B2D1E E8B9E0FFFF call 007B0DDC
|
007B2D23 E8D4D7FFFF call 007B04FC
007B2D28 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2D2B 8B8094000000 mov eax, [eax+$0094]
007B2D31 8BD7 mov edx, edi
|
007B2D33 E8D824FFFF call 007A5210
007B2D38 50 push eax
007B2D39 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2D3C 8B8094000000 mov eax, [eax+$0094]
007B2D42 8BD3 mov edx, ebx
|
007B2D44 E8AB25FFFF call 007A52F4
007B2D49 5A pop edx
007B2D4A 3BD0 cmp edx, eax
007B2D4C 7C0B jl 007B2D59
007B2D4E 8D5701 lea edx, [edi+$01]
007B2D51 8B06 mov eax, [esi]
|
007B2D53 E898E5FFFF call 007B12F0
007B2D58 43 inc ebx
007B2D59 47 inc edi
007B2D5A FF4DE8 dec dword ptr [ebp-$18]
007B2D5D 0F8567FFFFFF jnz 007B2CCA
007B2D63 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2D66 8B8094000000 mov eax, [eax+$0094]
* Reference to: ExtCtrls.THeaderStrings.GetCount(THeaderStrings):Integer;
| or: MXQPARSE.TXtabQuery.getNAggregates(TXtabQuery):Integer;
| or: Mxstore.TIndexInfo.GetCapacity(TIndexInfo):Integer;
|
007B2D6C E88F24FFFF call 007A5200
007B2D71 8BD8 mov ebx, eax
007B2D73 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2D76 8B8094000000 mov eax, [eax+$0094]
* Reference to: AdaptReq.TActionFieldValuesImpl.GetFieldCount(TActionFieldValuesImpl):System.Integer;
| or: AdaptReq.TActionFieldValueImpl.GetFileCount(TActionFieldValueImpl):System.Integer;
| or: ExtCtrls.TPageAccess.GetCount(TPageAccess):Integer;
| or: Grids.TStringSparseList.GetCount(TStringSparseList):Integer;
| or: MXQPARSE.TXtabQuery.getNDimensions(TXtabQuery):Integer;
| or: Mxstore.TDataCache.GetIndexCount(TDataCache):Integer;
|
007B2D7C E88724FFFF call 007A5208
007B2D81 0FAFD8 imul ebx, eax
007B2D84 8BD3 mov edx, ebx
* Possible String Reference to: 'Exporting Column Width'
|
007B2D86 B9902F7B00 mov ecx, $007B2F90
007B2D8B 8B45F8 mov eax, [ebp-$08]
|
007B2D8E E8B598FBFF call 0076C648
007B2D93 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2D96 8B8094000000 mov eax, [eax+$0094]
* Reference to: AdaptReq.TActionFieldValuesImpl.GetFieldCount(TActionFieldValuesImpl):System.Integer;
| or: AdaptReq.TActionFieldValueImpl.GetFileCount(TActionFieldValueImpl):System.Integer;
| or: ExtCtrls.TPageAccess.GetCount(TPageAccess):Integer;
| or: Grids.TStringSparseList.GetCount(TStringSparseList):Integer;
| or: MXQPARSE.TXtabQuery.getNDimensions(TXtabQuery):Integer;
| or: Mxstore.TDataCache.GetIndexCount(TDataCache):Integer;
|
007B2D9C E86724FFFF call 007A5208
007B2DA1 48 dec eax
007B2DA2 85C0 test eax, eax
007B2DA4 7C6E jl 007B2E14
007B2DA6 40 inc eax
007B2DA7 8945E8 mov [ebp-$18], eax
007B2DAA 33DB xor ebx, ebx
007B2DAC 8B45F8 mov eax, [ebp-$08]
|
007B2DAF E80099FBFF call 0076C6B4
007B2DB4 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.Parent : TWinControl
|
007B2DB7 8B4030 mov eax, [eax+$30]
* Reference to field TWinControl.WindowProc : TWndMethod
|
007B2DBA 80783800 cmp byte ptr [eax+$38], $00
007B2DBE 7554 jnz 007B2E14
007B2DC0 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2DC3 8B8094000000 mov eax, [eax+$0094]
007B2DC9 8BD3 mov edx, ebx
|
007B2DCB E89824FFFF call 007A5268
007B2DD0 B201 mov dl, $01
* Reference to : TRMApplication._PROC_0073FB24()
|
007B2DD2 E84DCDF8FF call 0073FB24
007B2DD7 DB2DA82F7B00 fld tbyte ptr [$007B2FA8]
007B2DDD DEC9 fmulp st(1), st(0)
007B2DDF D80D482F7B00 fmul dword ptr [$007B2F48]
* Reference to: System.@ROUND;
|
007B2DE5 E8F203C5FF call 004031DC
007B2DEA 8945E0 mov [ebp-$20], eax
007B2DED 8955E4 mov [ebp-$1C], edx
007B2DF0 DF6DE0 fild qword ptr [ebp-$20]
007B2DF3 D835482F7B00 fdiv dword ptr [$007B2F48]
007B2DF9 83C4F8 add esp, -$08
007B2DFC DD1C24 fstp qword ptr [esp]
007B2DFF 9B wait
007B2E00 8BD3 mov edx, ebx
007B2E02 8B06 mov eax, [esi]
* Reference to: CheckLst.TCheckListBox.GetWrapper(TCheckListBox;Integer):TObject;
| or: QCheckLst.TCheckListBox.GetWrapper(TCheckListBox;System.Integer):System.TObject;
| or: WebAdapt.TCustomAdapter.FindNamedVariable(TCustomAdapter;System.AnsiString):Classes.TComponent;
|
007B2E04 E8B3DFFFFF call 007B0DBC
|
007B2E09 E866D7FFFF call 007B0574
007B2E0E 43 inc ebx
007B2E0F FF4DE8 dec dword ptr [ebp-$18]
007B2E12 7598 jnz 007B2DAC
007B2E14 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2E17 8B8094000000 mov eax, [eax+$0094]
* Reference to: ExtCtrls.THeaderStrings.GetCount(THeaderStrings):Integer;
| or: MXQPARSE.TXtabQuery.getNAggregates(TXtabQuery):Integer;
| or: Mxstore.TIndexInfo.GetCapacity(TIndexInfo):Integer;
|
007B2E1D E8DE23FFFF call 007A5200
007B2E22 8BD8 mov ebx, eax
007B2E24 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2E27 8B8094000000 mov eax, [eax+$0094]
* Reference to: AdaptReq.TActionFieldValuesImpl.GetFieldCount(TActionFieldValuesImpl):System.Integer;
| or: AdaptReq.TActionFieldValueImpl.GetFileCount(TActionFieldValueImpl):System.Integer;
| or: ExtCtrls.TPageAccess.GetCount(TPageAccess):Integer;
| or: Grids.TStringSparseList.GetCount(TStringSparseList):Integer;
| or: MXQPARSE.TXtabQuery.getNDimensions(TXtabQuery):Integer;
| or: Mxstore.TDataCache.GetIndexCount(TDataCache):Integer;
|
007B2E2D E8D623FFFF call 007A5208
007B2E32 0FAFD8 imul ebx, eax
007B2E35 8BD3 mov edx, ebx
* Possible String Reference to: 'Exporting Cells'
|
007B2E37 B9BC2F7B00 mov ecx, $007B2FBC
007B2E3C 8B45F8 mov eax, [ebp-$08]
|
007B2E3F E80498FBFF call 0076C648
007B2E44 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2E47 8B8094000000 mov eax, [eax+$0094]
* Reference to: ExtCtrls.THeaderStrings.GetCount(THeaderStrings):Integer;
| or: MXQPARSE.TXtabQuery.getNAggregates(TXtabQuery):Integer;
| or: Mxstore.TIndexInfo.GetCapacity(TIndexInfo):Integer;
|
007B2E4D E8AE23FFFF call 007A5200
007B2E52 48 dec eax
007B2E53 85C0 test eax, eax
007B2E55 0F8CB4000000 jl 007B2F0F
007B2E5B 40 inc eax
007B2E5C 8945E8 mov [ebp-$18], eax
007B2E5F 33FF xor edi, edi
007B2E61 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.Parent : TWinControl
|
007B2E64 8B4030 mov eax, [eax+$30]
* Reference to field TWinControl.WindowProc : TWndMethod
|
007B2E67 80783800 cmp byte ptr [eax+$38], $00
007B2E6B 0F859E000000 jnz 007B2F0F
007B2E71 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2E74 8B8094000000 mov eax, [eax+$0094]
* Reference to: AdaptReq.TActionFieldValuesImpl.GetFieldCount(TActionFieldValuesImpl):System.Integer;
| or: AdaptReq.TActionFieldValueImpl.GetFileCount(TActionFieldValueImpl):System.Integer;
| or: ExtCtrls.TPageAccess.GetCount(TPageAccess):Integer;
| or: Grids.TStringSparseList.GetCount(TStringSparseList):Integer;
| or: MXQPARSE.TXtabQuery.getNDimensions(TXtabQuery):Integer;
| or: Mxstore.TDataCache.GetIndexCount(TDataCache):Integer;
|
007B2E7A E88923FFFF call 007A5208
007B2E7F 8BF0 mov esi, eax
007B2E81 4E dec esi
007B2E82 85F6 test esi, esi
007B2E84 7C7F jl 007B2F05
007B2E86 46 inc esi
007B2E87 33DB xor ebx, ebx
007B2E89 8B45F8 mov eax, [ebp-$08]
|
007B2E8C E82398FBFF call 0076C6B4
007B2E91 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.Parent : TWinControl
|
007B2E94 8B4030 mov eax, [eax+$30]
* Reference to field TWinControl.WindowProc : TWndMethod
|
007B2E97 80783800 cmp byte ptr [eax+$38], $00
007B2E9B 7568 jnz 007B2F05
007B2E9D 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2EA0 8B8094000000 mov eax, [eax+$0094]
007B2EA6 8BCF mov ecx, edi
007B2EA8 8BD3 mov edx, ebx
|
007B2EAA E8F923FFFF call 007A52A8
007B2EAF 8945F0 mov [ebp-$10], eax
007B2EB2 837DF000 cmp dword ptr [ebp-$10], +$00
007B2EB6 7449 jz 007B2F01
007B2EB8 8B45F0 mov eax, [ebp-$10]
007B2EBB 83782000 cmp dword ptr [eax+$20], +$00
007B2EBF 7F40 jnle 007B2F01
007B2EC1 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2EC4 8B8094000000 mov eax, [eax+$0094]
007B2ECA 8B55F0 mov edx, [ebp-$10]
|
007B2ECD E80224FFFF call 007A52D4
007B2ED2 8945F4 mov [ebp-$0C], eax
007B2ED5 8B45F0 mov eax, [ebp-$10]
007B2ED8 C7402001000000 mov dword ptr [eax+$20], $00000001
007B2EDF 8B45F0 mov eax, [ebp-$10]
007B2EE2 80784000 cmp byte ptr [eax+$40], $00
007B2EE6 7509 jnz 007B2EF1
007B2EE8 55 push ebp
* Reference to : TRMXLSExportForm._PROC_007B2758()
|
007B2EE9 E86AF8FFFF call 007B2758
007B2EEE 59 pop ecx
007B2EEF EB10 jmp 007B2F01
007B2EF1 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_007D
|
007B2EF4 80787D00 cmp byte ptr [eax+$7D], $00
007B2EF8 7407 jz 007B2F01
007B2EFA 55 push ebp
* Reference to : TRMXLSExportForm._PROC_007B26C8()
|
007B2EFB E8C8F7FFFF call 007B26C8
007B2F00 59 pop ecx
007B2F01 43 inc ebx
007B2F02 4E dec esi
007B2F03 7584 jnz 007B2E89
007B2F05 47 inc edi
007B2F06 FF4DE8 dec dword ptr [ebp-$18]
007B2F09 0F8552FFFFFF jnz 007B2E61
007B2F0F 8B45F8 mov eax, [ebp-$08]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2F12 8B8094000000 mov eax, [eax+$0094]
007B2F18 33D2 xor edx, edx
|
007B2F1A E8F514FFFF call 007A4414
007B2F1F 33C0 xor eax, eax
007B2F21 5A pop edx
007B2F22 59 pop ecx
007B2F23 59 pop ecx
007B2F24 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
007B2F27 68412F7B00 push $007B2F41
007B2F2C 8D45D8 lea eax, [ebp-$28]
007B2F2F BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B2F34 E80F24C5FF call 00405348
007B2F39 C3 ret
* Reference to: System.@HandleFinally;
|
007B2F3A E9B51BC5FF jmp 00404AF4
007B2F3F EBEB jmp 007B2F2C
****** END
|
007B2F41 5F pop edi
007B2F42 5E pop esi
007B2F43 5B pop ebx
007B2F44 8BE5 mov esp, ebp
007B2F46 5D pop ebp
007B2F47 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B2FCD(Sender : TObject);
begin
(*
007B2FCD 8BEC mov ebp, esp
007B2FCF 53 push ebx
007B2FD0 56 push esi
007B2FD1 57 push edi
007B2FD2 8BD8 mov ebx, eax
007B2FD4 8BC3 mov eax, ebx
|
007B2FD6 E82597FBFF call 0076C700
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2FDB 83BB9400000000 cmp dword ptr [ebx+$0094], +$00
007B2FE2 7514 jnz 007B2FF8
007B2FE4 8BCB mov ecx, ebx
007B2FE6 B201 mov dl, $01
* Reference to class TRMIEMList
|
007B2FE8 A1043F7A00 mov eax, dword ptr [$007A3F04]
|
007B2FED E83613FFFF call 007A4328
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2FF2 898394000000 mov [ebx+$0094], eax
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B2FF8 8B8394000000 mov eax, [ebx+$0094]
007B2FFE B201 mov dl, $01
|
007B3000 E80F14FFFF call 007A4414
* Reference to field TRMXLSExportForm.Cursor : TCursor
|
007B3005 8B5378 mov edx, [ebx+$78]
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B3008 8B8394000000 mov eax, [ebx+$0094]
007B300E 895028 mov [eax+$28], edx
* Reference to field TRMXLSExportForm.OFFS_007D
|
007B3011 8A537D mov dl, byte ptr [ebx+$7D]
007B3014 88502D mov [eax+$2D], dl
007B3017 C6402F00 mov byte ptr [eax+$2F], $00
* Reference to field TRMXLSExportForm.Parent : TWinControl
|
007B301B 8B4330 mov eax, [ebx+$30]
* Reference to field TWinControl.WindowProc : TWndMethod
|
007B301E C6403800 mov byte ptr [eax+$38], $00
007B3022 33C0 xor eax, eax
* Reference to field TRMXLSExportForm.OFFS_008C
|
007B3024 89838C000000 mov [ebx+$008C], eax
* Reference to field TRMXLSExportForm.OFFS_0084
|
007B302A C7838400000001000000 mov dword ptr [ebx+$0084], $00000001
* Reference to field TRMXLSExportForm.Height : Integer
|
007B3034 895B4C mov [ebx+$4C], ebx
* Reference to field TRMXLSExportForm.Width : Integer
|
007B3037 C743487C247B00 mov dword ptr [ebx+$48], $007B247C
007B303E 33C0 xor eax, eax
007B3040 55 push ebp
007B3041 6871307B00 push $007B3071
***** TRY
|
007B3046 64FF30 push dword ptr fs:[eax]
007B3049 648920 mov fs:[eax], esp
007B304C B201 mov dl, $01
* Reference to class TwawXLSWorkbook
|
007B304E A140027B00 mov eax, dword ptr [$007B0240]
|
007B3053 E8BCE2FFFF call 007B1314
007B3058 8BF0 mov esi, eax
* Reference to field TRMXLSExportForm.OFFS_0090
|
007B305A 89B390000000 mov [ebx+$0090], esi
007B3060 8BC6 mov eax, esi
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007B3062 E89DE4FFFF call 007B1504
007B3067 33C0 xor eax, eax
007B3069 5A pop edx
007B306A 59 pop ecx
007B306B 59 pop ecx
007B306C 648910 mov fs:[eax], edx
007B306F EB0A jmp 007B307B
* Reference to: System.@HandleAnyException;
|
007B3071 E9CA17C5FF jmp 00404840
* Reference to: System.@DoneExcept;
|
007B3076 E8F11BC5FF call 00404C6C
****** END
|
007B307B 5F pop edi
007B307C 5E pop esi
007B307D 5B pop ebx
007B307E 5D pop ebp
007B307F C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B3080(Sender : TObject);
begin
(*
|
007B3080 E87F96FBFF call 0076C704
007B3085 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B3088(Sender : TObject);
begin
(*
007B3088 53 push ebx
007B3089 8BD8 mov ebx, eax
007B308B 8BC3 mov eax, ebx
|
007B308D E87E96FBFF call 0076C710
007B3092 FF838C000000 inc dword ptr [ebx+$008C]
007B3098 5B pop ebx
007B3099 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B309C(Sender : TObject);
begin
(*
|
007B309C E87396FBFF call 0076C714
007B30A1 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B30A4(Sender : TObject);
begin
(*
007B30A4 53 push ebx
007B30A5 56 push esi
007B30A6 57 push edi
007B30A7 55 push ebp
007B30A8 51 push ecx
007B30A9 8BFA mov edi, edx
007B30AB 8BF0 mov esi, eax
007B30AD 33D2 xor edx, edx
007B30AF 8BC7 mov eax, edi
|
007B30B1 E8BE0DFBFF call 00763E74
* Reference to field TRMXLSExportForm.ScalingFlags : TScalingFlags
|
007B30B6 898698000000 mov [esi+$0098], eax
007B30BC BA01000000 mov edx, $00000001
007B30C1 8BC7 mov eax, edi
|
007B30C3 E8AC0DFBFF call 00763E74
* Reference to field TRMXLSExportForm.DockOrientation : TDockOrientation
|
007B30C8 89869C000000 mov [esi+$009C], eax
007B30CE BA02000000 mov edx, $00000002
007B30D3 8BC7 mov eax, edi
|
007B30D5 E89A0DFBFF call 00763E74
* Reference to field TRMXLSExportForm.HostDockSite : TWinControl
|
007B30DA 8986A0000000 mov [esi+$00A0], eax
007B30E0 BA03000000 mov edx, $00000003
007B30E5 8BC7 mov eax, edi
|
007B30E7 E8880DFBFF call 00763E74
* Reference to field TRMXLSExportForm.WheelAccumulator : Integer
|
007B30EC 8986A4000000 mov [esi+$00A4], eax
007B30F2 8A471E mov al, byte ptr [edi+$1E]
* Reference to field TRMXLSExportForm.UndockWidth : Integer
|
007B30F5 8886A8000000 mov [esi+$00A8], al
007B30FB 0FB7471C movzx eax, word ptr [edi+$1C]
* Reference to field TRMXLSExportForm.UndockHeight : Integer
|
007B30FF 8986AC000000 mov [esi+$00AC], eax
007B3105 8B4758 mov eax, [edi+$58]
007B3108 8B4024 mov eax, [eax+$24]
007B310B 8B6808 mov ebp, [eax+$08]
007B310E 4D dec ebp
007B310F 85ED test ebp, ebp
007B3111 7C42 jl 007B3155
007B3113 45 inc ebp
007B3114 C7042400000000 mov dword ptr [esp], $00000000
007B311B 8B4758 mov eax, [edi+$58]
007B311E 8B4024 mov eax, [eax+$24]
007B3121 8B1424 mov edx, [esp]
* Reference to: Classes.TList.Get(TList;Integer):Pointer;
|
007B3124 E8E7FBC6FF call 00422D10
007B3129 8BD8 mov ebx, eax
007B312B 807B1900 cmp byte ptr [ebx+$19], $00
007B312F 751E jnz 007B314F
007B3131 8BC3 mov eax, ebx
* Reference to class TRMSubReportView
|
007B3133 8B1550B27300 mov edx, [$0073B250]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B3139 E8A613C5FF call 004044E4
007B313E 84C0 test al, al
007B3140 750D jnz 007B314F
007B3142 8BD3 mov edx, ebx
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B3144 8B8694000000 mov eax, [esi+$0094]
|
007B314A E86D19FFFF call 007A4ABC
007B314F FF0424 inc dword ptr [esp]
007B3152 4D dec ebp
007B3153 75C6 jnz 007B311B
* Reference to field TRMXLSExportForm.OFFS_008C
|
007B3155 8B868C000000 mov eax, [esi+$008C]
* Reference to field TRMXLSExportForm.OFFS_0088
|
007B315B 3B8688000000 cmp eax, [esi+$0088]
007B3161 7C11 jl 007B3174
007B3163 33C0 xor eax, eax
* Reference to field TRMXLSExportForm.OFFS_008C
|
007B3165 89868C000000 mov [esi+$008C], eax
007B316B 8BC6 mov eax, esi
|
007B316D E852F9FFFF call 007B2AC4
007B3172 EB0B jmp 007B317F
* Reference to field TRMXLSExportForm.OFFS_0094
|
007B3174 8B8694000000 mov eax, [esi+$0094]
|
007B317A E8811AFFFF call 007A4C00
007B317F 5A pop edx
007B3180 5D pop ebp
007B3181 5F pop edi
007B3182 5E pop esi
007B3183 5B pop ebx
007B3184 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B3188(Sender : TObject);
begin
(*
007B3188 55 push ebp
007B3189 8BEC mov ebp, esp
007B318B 33C9 xor ecx, ecx
007B318D 51 push ecx
007B318E 51 push ecx
007B318F 51 push ecx
007B3190 51 push ecx
007B3191 51 push ecx
007B3192 53 push ebx
007B3193 8BD8 mov ebx, eax
007B3195 33C0 xor eax, eax
007B3197 55 push ebp
007B3198 6896337B00 push $007B3396
***** TRY
|
007B319D 64FF30 push dword ptr fs:[eax]
007B31A0 648920 mov fs:[eax], esp
007B31A3 8D55FC lea edx, [ebp-$04]
007B31A6 B854B90000 mov eax, $0000B954
|
007B31AB E8EC51FCFF call 0077839C
007B31B0 8B55FC mov edx, [ebp-$04]
* Reference to field TRMXLSExportForm.Font : TFont
|
007B31B3 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetName(TFont;TFontName);
|
007B31B6 E89DD9C7FF call 00430B58
007B31BB 8D55F8 lea edx, [ebp-$08]
007B31BE B855B90000 mov eax, $0000B955
|
007B31C3 E8D451FCFF call 0077839C
007B31C8 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
007B31CB E8787EC5FF call 0040B048
007B31D0 8BD0 mov edx, eax
* Reference to field TRMXLSExportForm.Font : TFont
|
007B31D2 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetSize(TFont;Integer);
|
007B31D5 E8F6D9C7FF call 00430BD0
007B31DA 8D55F4 lea edx, [ebp-$0C]
007B31DD B8E9B80000 mov eax, $0000B8E9
|
007B31E2 E8B551FCFF call 0077839C
007B31E7 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
007B31EA E8597EC5FF call 0040B048
007B31EF 8BD0 mov edx, eax
* Reference to field TRMXLSExportForm.Font : TFont
|
007B31F1 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetCharset(TFont;TFontCharset);
|
007B31F4 E867DAC7FF call 00430C60
007B31F9 B9E5B60000 mov ecx, $0000B6E5
* Possible String Reference to: 'Caption'
|
007B31FE BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.chkExportImages : TCheckBox
|
007B3203 8B8354030000 mov eax, [ebx+$0354]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B3209 E8DE43FCFF call 007775EC
007B320E B9E0B60000 mov ecx, $0000B6E0
* Possible String Reference to: 'Caption'
|
007B3213 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.lblExportImageFormat : TLabel
|
007B3218 8B8338030000 mov eax, [ebx+$0338]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B321E E8C943FCFF call 007775EC
007B3223 B9DEB60000 mov ecx, $0000B6DE
* Possible String Reference to: 'Caption'
|
007B3228 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.lblJPEGQuality : TLabel
|
007B322D 8B833C030000 mov eax, [ebx+$033C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B3233 E8B443FCFF call 007775EC
007B3238 B9C4B60000 mov ecx, $0000B6C4
* Possible String Reference to: 'Caption'
|
007B323D BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.Label4 : TLabel
|
007B3242 8B8340030000 mov eax, [ebx+$0340]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B3248 E89F43FCFF call 007775EC
007B324D B9F4AF0000 mov ecx, $0000AFF4
* Possible String Reference to: 'Caption'
|
007B3252 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.GroupBox1 : TGroupBox
|
007B3257 8B8308030000 mov eax, [ebx+$0308]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B325D E88A43FCFF call 007775EC
007B3262 B9F5AF0000 mov ecx, $0000AFF5
* Possible String Reference to: 'Caption'
|
007B3267 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.rdbPrintAll : TRadioButton
|
007B326C 8B8314030000 mov eax, [ebx+$0314]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B3272 E87543FCFF call 007775EC
007B3277 B9F6AF0000 mov ecx, $0000AFF6
* Possible String Reference to: 'Caption'
|
007B327C BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.rbdPrintCurPage : TRadioButton
|
007B3281 8B8318030000 mov eax, [ebx+$0318]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B3287 E86043FCFF call 007775EC
007B328C B9F7AF0000 mov ecx, $0000AFF7
* Possible String Reference to: 'Caption'
|
007B3291 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.rbdPrintPages : TRadioButton
|
007B3296 8B831C030000 mov eax, [ebx+$031C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B329C E84B43FCFF call 007775EC
007B32A1 B9F8AF0000 mov ecx, $0000AFF8
* Possible String Reference to: 'Caption'
|
007B32A6 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.Label2 : TLabel
|
007B32AB 8B8324030000 mov eax, [ebx+$0324]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B32B1 E83643FCFF call 007775EC
007B32B6 B943B10000 mov ecx, $0000B143
* Possible String Reference to: 'Caption'
|
007B32BB BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.GroupBox2 : TGroupBox
|
007B32C0 8B8328030000 mov eax, [ebx+$0328]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B32C6 E82143FCFF call 007775EC
007B32CB B942B10000 mov ecx, $0000B142
* Possible String Reference to: 'Caption'
|
007B32D0 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.Label1 : TLabel
|
007B32D5 8B830C030000 mov eax, [ebx+$030C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B32DB E80C43FCFF call 007775EC
007B32E0 B944B10000 mov ecx, $0000B144
* Possible String Reference to: 'Caption'
|
007B32E5 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.chkShowAfterGenerate : TCheckBox
|
007B32EA 8B832C030000 mov eax, [ebx+$032C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B32F0 E8F742FCFF call 007775EC
007B32F5 B9BAB60000 mov ecx, $0000B6BA
* Possible String Reference to: 'Caption'
|
007B32FA BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.chkExportFrames : TCheckBox
|
007B32FF 8B8330030000 mov eax, [ebx+$0330]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B3305 E8E242FCFF call 007775EC
007B330A B946B10000 mov ecx, $0000B146
* Possible String Reference to: 'Caption'
|
007B330F BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.Label3 : TLabel
|
007B3314 8B8360030000 mov eax, [ebx+$0360]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B331A E8CD42FCFF call 007775EC
007B331F B9B7B60000 mov ecx, $0000B6B7
* Possible String Reference to: 'Caption'
|
007B3324 BAAC337B00 mov edx, $007B33AC
* Reference to control TRMXLSExportForm.chkWYB : TCheckBox
|
007B3329 8B8364030000 mov eax, [ebx+$0364]
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B332F E8B842FCFF call 007775EC
007B3334 B9BBB60000 mov ecx, $0000B6BB
* Possible String Reference to: 'Caption'
|
007B3339 BAAC337B00 mov edx, $007B33AC
007B333E 8BC3 mov eax, ebx
* Reference to : TWrapperComponent._PROC_007775EC()
|
007B3340 E8A742FCFF call 007775EC
007B3345 8D55F0 lea edx, [ebp-$10]
007B3348 B898B70000 mov eax, $0000B798
|
007B334D E84A50FCFF call 0077839C
007B3352 8B55F0 mov edx, [ebp-$10]
* Reference to control TRMXLSExportForm.btnOK : TButton
|
007B3355 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B335B E8C052CDFF call 00488620
007B3360 8D55EC lea edx, [ebp-$14]
007B3363 B899B70000 mov eax, $0000B799
|
007B3368 E82F50FCFF call 0077839C
007B336D 8B55EC mov edx, [ebp-$14]
* Reference to control TRMXLSExportForm.btnCancel : TButton
|
007B3370 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B3376 E8A552CDFF call 00488620
007B337B 33C0 xor eax, eax
007B337D 5A pop edx
007B337E 59 pop ecx
007B337F 59 pop ecx
007B3380 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
007B3383 689D337B00 push $007B339D
007B3388 8D45EC lea eax, [ebp-$14]
007B338B BA05000000 mov edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B3390 E8B31FC5FF call 00405348
007B3395 C3 ret
* Reference to: System.@HandleFinally;
|
007B3396 E95917C5FF jmp 00404AF4
007B339B EBEB jmp 007B3388
****** END
|
007B339D 5B pop ebx
007B339E 8BE5 mov esp, ebp
007B33A0 5D pop ebp
007B33A1 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B3630(Sender : TObject);
begin
(*
007B3630 55 push ebp
007B3631 8BEC mov ebp, esp
007B3633 33C0 xor eax, eax
007B3635 55 push ebp
007B3636 6855367B00 push $007B3655
***** TRY
|
007B363B 64FF30 push dword ptr fs:[eax]
007B363E 648920 mov fs:[eax], esp
007B3641 FF05D43B8900 inc dword ptr [$00893BD4]
007B3647 33C0 xor eax, eax
007B3649 5A pop edx
007B364A 59 pop ecx
007B364B 59 pop ecx
007B364C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>;<3B>'
|
007B364F 685C367B00 push $007B365C
007B3654 C3 ret
* Reference to: System.@HandleFinally;
|
007B3655 E99A14C5FF jmp 00404AF4
007B365A EBF8 jmp 007B3654
****** END
|
007B365C 5D pop ebp
007B365D C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B3660(Sender : TObject);
begin
(*
007B3660 832DD43B890001 sub dword ptr [$00893BD4], +$01
007B3667 C3 ret
*)
end;
procedure TRMXLSExportForm._PROC_007B3668(Sender : TObject);
begin
(*
007B3668 B436 mov ah, $36
007B366A 7B00 jnp 007B366C
007B366C 0000 add [eax], al
*)
end;
procedure TRMXLSExportForm._PROC_007B36CE(Sender : TObject);
begin
(*
007B36CE 48 dec eax
007B36CF 0050D4 add [eax-$2C], dl
007B36D2 42 inc edx
007B36D3 0008 add [eax], cl
007B36D5 2D4A007CD0 sub eax, $D07C004A
007B36DA 42 inc edx
007B36DB 00F4 add ah, dh
007B36DD 6B4A00D0 imul ecx, [edx+$00], $D0
007B36E1 1D4A0030F6 sbb eax, $F630004A
007B36E6 48 dec eax
007B36E7 004CFB48 add [ebx+edi*8+$48], cl
007B36EB 0098FA48000C add [eax+$C0048FA], bl
007B36F1 7948 jns 007B373B
007B36F3 00ACF04800E829 add [eax+esi*8+$29E80048], ch
007B36FA 4A dec edx
007B36FB 00E4 add ah, ah
007B36FD ED in eax, dx
007B36FE 48 dec eax
007B36FF 00547848 add [eax+edi*2+$48], dl
007B3703 005878 add [eax+$78], bl
007B3706 48 dec eax
007B3707 00DC add ah, bl
007B3709 2A4A00 sub cl, byte ptr [edx+$00]
007B370C 3CA9 cmp al, $A9
007B370E 48 dec eax
007B370F 00C0 add al, al
007B3711 834800D0 or dword ptr [eax+$00], -$30
007B3715 7948 jns 007B375F
007B3717 004C8548 add [ebp+eax*4+$48], cl
007B371B 00D0 add al, dl
007B371D 2C4A sub al, $4A
007B371F 009C2B4A008486 add [ebx+ebp+$8684004A], bl
007B3726 48 dec eax
007B3727 00482D add [eax+$2D], cl
007B372A 4A dec edx
007B372B 00C0 add al, al
007B372D A9480038EE test eax, $EE380048
007B3732 48 dec eax
007B3733 00F4 add ah, dh
007B3735 EE out dx, al
007B3736 48 dec eax
007B3737 00F0 add al, dh
007B3739 E94800D8EE jmp EF533786
007B373E 48 dec eax
007B373F 00D8 add al, bl
007B3741 1B4A00 sbb ecx, [edx+$00]
007B3744 EC in al, dx
007B3745 334A00 xor ecx, [edx+$00]
007B3748 20C4 and ah, al
007B374A 48 dec eax
007B374B 00B0404A0010 add [eax+$10004A40], dh
007B3751 44 inc esp
007B3752 4A dec edx
007B3753 00CC add ah, cl
007B3755 42 inc edx
007B3756 4A dec edx
007B3757 00B8C44800BC add [eax+$BC0048C4], bh
007B375D C44800 les ecx, [eax+$00]
007B3760 48 dec eax
007B3761 45 inc ebp
007B3762 4A dec edx
007B3763 001CC3 add [ebx+eax*8], bl
007B3766 48 dec eax
007B3767 0018 add [eax], bl
007B3769 F0 lock
007B376A 48 dec eax
007B376B 00444C4A add [esp+ecx*2+$4A], al
007B376F 000C02 add [edx+eax], cl
007B3772 49 dec ecx
007B3773 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
007B377A 4A dec edx
007B377B 008C154A003C18 add [ebp+edx+$183C004A], cl
007B3782 4A dec edx
007B3783 0038 add [eax], bh
007B3785 52 push edx
007B3786 4A dec edx
007B3787 005C224A add [edx+$4A], bl
007B378B 00D8 add al, bl
007B378D 224A00 and cl, byte ptr [edx+$00]
007B3790 7C68 jl 007B37FA
007B3792 4A dec edx
007B3793 00941F4A003C60 add [edi+ebx+$603C004A], dl
007B379A 4A dec edx
007B379B 001447 add [edi+eax*2], dl
007B379E 4A dec edx
007B379F 0034654A00CC2C add [$2CCC004A], dh
007B37A6 4A dec edx
007B37A7 000E add [esi], cl
007B37A9 0000 add [eax], al
007B37AB 0000 add [eax], al
007B37AD 0002 add [edx], al
007B37AF 0000 add [eax], al
007B37B1 0020 add [eax], ah
007B37B3 114000 adc [eax+$00], eax
007B37B6 2003 and [ebx], al
007B37B8 0000 add [eax], al
007B37BA 2011 and [ecx], dl
007B37BC 40 inc eax
007B37BD 002403 add [ebx+eax], ah
007B37C0 0000 add [eax], al
007B37C2 0A00 or al, byte ptr [eax]
007B37C4 FB sti
007B37C5 387B00 cmp [ebx+$00], bh
007B37C8 F8 clc
007B37C9 0200 add al, byte ptr [eax]
007B37CB 0000 add [eax], al
007B37CD 0007 add [edi], al
007B37CF 42 inc edx
007B37D0 7574 jnz 007B3846
007B37D2 746F jz 007B3843
007B37D4 6E outsb
007B37D5 31FC xor esp, edi
007B37D7 0200 add al, byte ptr [eax]
007B37D9 0000 add [eax], al
007B37DB 0007 add [edi], al
007B37DD 42 inc edx
007B37DE 7574 jnz 007B3854
007B37E0 746F jz 007B3851
007B37E2 6E outsb
007B37E3 3200 xor al, byte ptr [eax]
007B37E5 0300 add eax, [eax]
007B37E7 0001 add [ecx], al
007B37E9 0010 add [eax], dl
007B37EB 45 inc ebp
007B37EC 7870 js 007B385E
007B37EE 6F outsd
007B37EF 7274 jb 007B3865
007B37F1 44 inc esp
007B37F2 61 popa
007B37F3 7461 jz 007B3856
007B37F5 53 push ebx
007B37F6 6F outsd
007B37F7 7572 jnz 007B386B
007B37F9 636504 arpl [ebp+$04], sp
007B37FC 0300 add eax, [eax]
007B37FE 0002 add [edx], al
007B3800 0007 add [edi], al
007B3802 45 inc ebp
007B3803 7870 js 007B3875
007B3805 47 inc edi
007B3806 7269 jb 007B3871
007B3808 640803 or fs:[ebx], al
007B380B 0000 add [eax], al
007B380D 0300 add eax, [eax]
007B380F 0D63784772 or eax, $72477863
007B3814 6964314C6576656C imul esp, [ecx+esi+$4C], $6C657665
007B381C 310C03 xor [ebx+eax], ecx
007B381F 0000 add [eax], al
007B3821 0400 add al, +$00
007B3823 07 pop es
007B3824 637847 arpl [eax+$47], di
007B3827 7269 jb 007B3892
007B3829 643110 xor fs:[eax], edx
007B382C 0300 add eax, [eax]
007B382E 000500065061 add [$61500600], al
007B3834 6E outsb
007B3835 656C insb
007B3837 321403 xor dl, byte ptr [ebx+eax]
007B383A 0000 add [eax], al
007B383C 06 push es
007B383D 0006 add [esi], al
007B383F 4C dec esp
007B3840 61 popa
007B3841 62656C bound esp, qword ptr [ebp+$6C]
007B3844 3418 xor al, $18
007B3846 0300 add eax, [eax]
007B3848 0007 add [edi], al
007B384A 0009 add [ecx], cl
007B384C 43 inc ebx
007B384D 6865636B42 push $426B6365
007B3852 6F outsd
007B3853 7831 js 007B3886
007B3855 1C03 sbb al, $03
007B3857 0000 add [eax], al
007B3859 07 pop es
007B385A 0009 add [ecx], cl
007B385C 43 inc ebx
007B385D 6865636B42 push $426B6365
007B3862 6F outsd
007B3863 7832 js 007B3897
007B3865 07 pop es
007B3866 0013 add [ebx], dl
007B3868 00C4 add ah, al
007B386A 3A7B00 cmp bh, byte ptr [ebx+$00]
007B386D 0C42 or al, $42
007B386F 7574 jnz 007B38E5
007B3871 746F jz 007B38E2
007B3873 6E outsb
007B3874 31436C xor [ebx+$6C], eax
007B3877 69636B1000003B imul esp, [ebx+$6B], $3B000010
007B387E 7B00 jnp 007B3880
007B3880 09466F or [esi+$6F], eax
007B3883 726D jb 007B38F2
007B3885 43 inc ebx
007B3886 6C insb
007B3887 6F outsd
007B3888 7365 jnb 007B38EF
007B388A 1200 adc al, byte ptr [eax]
007B388C 043B add al, +$3B
007B388E 7B00 jnp 007B3890
007B3890 0B466F or eax, [esi+$6F]
007B3893 726D jb 007B3902
007B3895 44 inc esp
007B3896 657374 jnb 007B390D
007B3899 726F jb 007B390A
007B389B 790F jns 007B38AC
007B389D 000C3B add [ebx+edi], cl
007B38A0 7B00 jnp 007B38A2
007B38A2 08466F or [esi+$6F], al
007B38A5 726D jb 007B3914
007B38A7 53 push ebx
007B38A8 686F771300 push $0013776F
007B38AD 003D7B000C42 add [$420C007B], bh
007B38B3 7574 jnz 007B3929
007B38B5 746F jz 007B3926
007B38B7 6E outsb
007B38B8 32436C xor al, byte ptr [ebx+$6C]
007B38BB 69636B15002841 imul esp, [ebx+$6B], $41280015
007B38C2 7B00 jnp 007B38C4
007B38C4 0E push cs
007B38C5 43 inc ebx
007B38C6 6865636B42 push $426B6365
007B38CB 6F outsd
007B38CC 7831 js 007B38FF
007B38CE 43 inc ebx
007B38CF 6C insb
007B38D0 69636B1500F841 imul esp, [ebx+$6B], $41F80015
007B38D7 7B00 jnp 007B38D9
007B38D9 0E push cs
007B38DA 43 inc ebx
007B38DB 6865636B42 push $426B6365
007B38E0 6F outsd
007B38E1 7832 js 007B3915
007B38E3 43 inc ebx
007B38E4 6C insb
007B38E5 69636B12546672 imul esp, [ebx+$6B], $72665412
007B38EC 6D insd
007B38ED 53 push ebx
007B38EE 656C insb
007B38F0 45 inc ebp
007B38F1 7870 js 007B3963
007B38F3 6F outsd
007B38F4 7274 jb 007B396A
007B38F6 46 inc esi
007B38F7 69656C64080000 imul esp, [ebp+$6C], $00000864
007B38FE 8E4700 mov es, word ptr [edi+$00]
007B3901 087F4B or [edi+$4B], bh
007B3904 00F4 add ah, dh
007B3906 B466 mov ah, $66
007B3908 00A40E64000016 add [esi+ecx+$16000064], ah
007B390F 6300 arpl [eax], ax
007B3911 84E1 test cl, ah
007B3913 49 dec ecx
007B3914 001C5F add [edi+ebx*2], bl
007B3917 47 inc edi
007B3918 00C0 add al, al
007B391A 96 xchg eax, esi
007B391B 47 inc edi
007B391C 008D40002439 add [ebp+$39240040], cl
007B3922 7B00 jnp 007B3924
007B3924 07 pop es
007B3925 12546672 adc dl, byte ptr [esi+$72]
007B3929 6D insd
007B392A 53 push ebx
007B392B 656C insb
007B392D 45 inc ebp
007B392E 7870 js 007B39A0
007B3930 6F outsd
007B3931 7274 jb 007B39A7
007B3933 46 inc esi
007B3934 69656C64B4367B imul esp, [ebp+$6C], $7B36B464
007B393B 00D0 add al, dl
007B393D F2 repne
007B393E 49 dec ecx
007B393F 005E00 add [esi+$00], bl
007B3942 10555F adc [ebp+$5F], dl
007B3945 53 push ebx
007B3946 656C insb
007B3948 45 inc ebp
007B3949 7870 js 007B39BB
007B394B 6F outsd
007B394C 7274 jb 007B39C2
007B394E 46 inc esi
007B394F 69656C6400008D imul esp, [ebp+$6C], $8D000064
007B3956 40 inc eax
007B3957 00558B add [ebp-$75], dl
007B395A EC in al, dx
007B395B 83C4E8 add esp, -$18
007B395E 53 push ebx
007B395F 56 push esi
007B3960 57 push edi
007B3961 33D2 xor edx, edx
007B3963 8955EC mov [ebp-$14], edx
007B3966 8955E8 mov [ebp-$18], edx
007B3969 8BF0 mov esi, eax
007B396B 33C0 xor eax, eax
007B396D 55 push ebp
007B396E 68B63A7B00 push $007B3AB6
***** TRY
|
007B3973 64FF30 push dword ptr fs:[eax]
007B3976 648920 mov fs:[eax], esp
007B3979 33C0 xor eax, eax
007B397B 8945F4 mov [ebp-$0C], eax
* Reference to control ScrollBox1 : N.A.
|
007B397E 8B8604030000 mov eax, [esi+$0304]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007B3984 E8BB89EAFF call 0065C344
007B3989 48 dec eax
007B398A 85C0 test eax, eax
007B398C 0F8C09010000 jl 007B3A9B
007B3992 40 inc eax
007B3993 8945F0 mov [ebp-$10], eax
007B3996 33FF xor edi, edi
007B3998 8BD7 mov edx, edi
* Reference to control ScrollBox1 : N.A.
|
007B399A 8B8604030000 mov eax, [esi+$0304]
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
007B39A0 E82B80EBFF call 0066B9D0
007B39A5 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_00D0
|
007B39A7 FF92D0000000 call dword ptr [edx+$00D0]
007B39AD 3C01 cmp al, $01
007B39AF 0F85DC000000 jnz 007B3A91
007B39B5 8B4DF4 mov ecx, [ebp-$0C]
007B39B8 41 inc ecx
007B39B9 8BC1 mov eax, ecx
007B39BB BB03000000 mov ebx, $00000003
007B39C0 99 cdq
007B39C1 F7FB idiv ebx
007B39C3 8945FC mov [ebp-$04], eax
007B39C6 8BC1 mov eax, ecx
007B39C8 B903000000 mov ecx, $00000003
007B39CD 99 cdq
007B39CE F7F9 idiv ecx
007B39D0 8955F8 mov [ebp-$08], edx
007B39D3 8BCE mov ecx, esi
007B39D5 B201 mov dl, $01
* Reference to class TCheckBox
|
007B39D7 A1C0964700 mov eax, dword ptr [$004796C0]
* Reference to: StdCtrls.TCustomCheckBox.Create(TCustomCheckBox;boolean;TComponent);
|
007B39DC E8D7BFCCFF call 0047F9B8
007B39E1 8BD8 mov ebx, eax
007B39E3 8BD7 mov edx, edi
* Reference to control ScrollBox1 : N.A.
|
007B39E5 8B8604030000 mov eax, [esi+$0304]
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
007B39EB E8E07FEBFF call 0066B9D0
007B39F0 8D55E8 lea edx, [ebp-$18]
* Reference to : TcxCustomGridTableView._PROC_00629378()
|
007B39F3 E88059E7FF call 00629378
007B39F8 8B45E8 mov eax, [ebp-$18]
007B39FB 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B39FE E8E96EC5FF call 0040A8EC
007B3A03 8B55EC mov edx, [ebp-$14]
007B3A06 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B3A08 E8134CCDFF call 00488620
* Reference to field TCheckBox.Tag : Longint
|
007B3A0D 897B0C mov [ebx+$0C], edi
* Reference to control Label4 : TLabel
|
007B3A10 8B9610030000 mov edx, [esi+$0310]
007B3A16 8BC3 mov eax, ebx
007B3A18 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetParent(TWinControl)
|
007B3A1A FF5168 call dword ptr [ecx+$68]
007B3A1D B201 mov dl, $01
007B3A1F 8BC3 mov eax, ebx
007B3A21 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
007B3A23 FF91CC000000 call dword ptr [ecx+$00CC]
007B3A29 837DF800 cmp dword ptr [ebp-$08], +$00
007B3A2D 7E15 jle 007B3A44
007B3A2F 8B45FC mov eax, [ebp-$04]
007B3A32 40 inc eax
007B3A33 8BD0 mov edx, eax
007B3A35 C1E202 shl edx, $02
007B3A38 8D14D2 lea edx, [edx+edx*8]
007B3A3B 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
007B3A3D E81A43CDFF call 00487D5C
007B3A42 EB10 jmp 007B3A54
007B3A44 8B55FC mov edx, [ebp-$04]
007B3A47 C1E202 shl edx, $02
007B3A4A 8D14D2 lea edx, [edx+edx*8]
007B3A4D 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
007B3A4F E80843CDFF call 00487D5C
007B3A54 837DF801 cmp dword ptr [ebp-$08], +$01
007B3A58 750E jnz 007B3A68
007B3A5A BA1D000000 mov edx, $0000001D
007B3A5F 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
007B3A61 E8D242CDFF call 00487D38
007B3A66 EB26 jmp 007B3A8E
007B3A68 837DF802 cmp dword ptr [ebp-$08], +$02
007B3A6C 750E jnz 007B3A7C
007B3A6E BAA3000000 mov edx, $000000A3
007B3A73 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
007B3A75 E8BE42CDFF call 00487D38
007B3A7A EB12 jmp 007B3A8E
007B3A7C 837DF800 cmp dword ptr [ebp-$08], +$00
007B3A80 750C jnz 007B3A8E
007B3A82 BA31010000 mov edx, $00000131
007B3A87 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
007B3A89 E8AA42CDFF call 00487D38
007B3A8E FF45F4 inc dword ptr [ebp-$0C]
007B3A91 47 inc edi
007B3A92 FF4DF0 dec dword ptr [ebp-$10]
007B3A95 0F85FDFEFFFF jnz 007B3998
007B3A9B 33C0 xor eax, eax
007B3A9D 5A pop edx
007B3A9E 59 pop ecx
007B3A9F 59 pop ecx
007B3AA0 648910 mov fs:[eax], edx
****** FINALLY
|
007B3AA3 68BD3A7B00 push $007B3ABD
007B3AA8 8D45E8 lea eax, [ebp-$18]
007B3AAB BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B3AB0 E89318C5FF call 00405348
007B3AB5 C3 ret
*)
end;
end.
Reference in New Issue Copy Permalink