4012 lines
148 KiB
ObjectPascal
4012 lines
148 KiB
ObjectPascal
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. |