Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myChuangpin/YSYF/RM_RichEdit.pas
“ddf” ece69a5ac1 1
2024-07-23 20:18:14 +08:00

7850 lines
255 KiB
ObjectPascal
Raw Permalink Blame History

unit RM_RichEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TRMRichForm=class(TForm)
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
FontDialog: TFontDialog;
StatusBar: TStatusBar;
ImageList1: TImageList;
EditPopupMenu: TPopupMenu;
ItmCut: TMenuItem;
ItmCopy: TMenuItem;
ItmPaste: TMenuItem;
MainMenu: TMainMenu;
MenuFile: TMenuItem;
ItemFileNew: TMenuItem;
ItemFileOpen: TMenuItem;
ItemFileSaveAs: TMenuItem;
MenuItem5: TMenuItem;
ItemFilePrint: TMenuItem;
MenuItem7: TMenuItem;
ItemFileExit: TMenuItem;
MenuEdit: TMenuItem;
ItemEditUndo: TMenuItem;
MenuItem11: TMenuItem;
ItemEditCut: TMenuItem;
ItemEditCopy: TMenuItem;
ItemEditPaste: TMenuItem;
ItemFormatFont: TMenuItem;
MenuItem16: TMenuItem;
ItemInsertField: TMenuItem;
MenuInsert: TMenuItem;
MenuFormat: TMenuItem;
ItemInserObject: TMenuItem;
ItemInsertPicture: TMenuItem;
ItemEditRedo: TMenuItem;
ItemEditPasteSpecial: TMenuItem;
ItemEditSelectAll: TMenuItem;
N20: TMenuItem;
ItemEditFind: TMenuItem;
ItemEditFindNext: TMenuItem;
ItemEditReplace: TMenuItem;
N23: TMenuItem;
ItemEditObjProps: TMenuItem;
PrintDialog: TPrintDialog;
ToolBar1: TToolBar;
ToolBar2: TToolBar;
btnFileNew: TToolButton;
btnFileOpen: TToolButton;
btnFileSave: TToolButton;
ToolButton4: TToolButton;
btnFind: TToolButton;
ToolButton6: TToolButton;
btnCut: TToolButton;
btnCopy: TToolButton;
btnPaste: TToolButton;
ToolButton10: TToolButton;
btnUndo: TToolButton;
btnRedo: TToolButton;
ToolButton13: TToolButton;
btnInsertField: TToolButton;
ToolButton15: TToolButton;
btnOK: TToolButton;
btnCancel: TToolButton;
ToolButton18: TToolButton;
btnFontBold: TToolButton;
btnFontItalic: TToolButton;
btnFontUnderline: TToolButton;
ToolButton22: TToolButton;
ToolButton25: TToolButton;
btnAlignLeft: TToolButton;
btnAlignCenter: TToolButton;
btnAlignRight: TToolButton;
ToolButton29: TToolButton;
btnBullets: TToolButton;
ToolButton31: TToolButton;
btnSuperscript: TToolButton;
btnSubscript: TToolButton;
ItemFormatParagraph: TMenuItem;
procedure FormCreate(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure FormPaint(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure RichEditChange(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure EditorProtectChange(Sender : TObject);
procedure EditorTextNotFound(Sender : TObject);
procedure EditSelectAll(Sender : TObject);
procedure btnFileNewClick(Sender : TObject);
procedure btnFileOpenClick(Sender : TObject);
procedure btnFileSaveClick(Sender : TObject);
procedure btnFindClick(Sender : TObject);
procedure btnCutClick(Sender : TObject);
procedure btnCopyClick(Sender : TObject);
procedure btnPasteClick(Sender : TObject);
procedure btnUndoApplyAlign(Sender : TObject);
procedure btnRedoClick(Sender : TObject);
procedure btnFontBoldClick(Sender : TObject);
procedure btnFontItalicClick(Sender : TObject);
procedure btnFontUnderlineClick(Sender : TObject);
procedure btnAlignLeftClick(Sender : TObject);
procedure btnBulletsClick(Sender : TObject);
procedure ItemFileSaveAsClick(Sender : TObject);
procedure ItemFilePrintClick(Sender : TObject);
procedure ItemFormatFontClick(Sender : TObject);
procedure ItemInserObjectClick(Sender : TObject);
procedure ItemInsertPictureClick(Sender : TObject);
procedure btnUndoClick(Sender : TObject);
procedure ItemEditPasteSpecialClick(Sender : TObject);
procedure ItemEditFindNextClick(Sender : TObject);
procedure ItemEditReplaceClick(Sender : TObject);
procedure ItemEditObjPropsClick(Sender : TObject);
procedure btnInsertFieldClick(Sender : TObject);
procedure btnSuperscriptClick(Sender : TObject);
procedure ItemEditSelectAllClick(Sender : TObject);
procedure btnOKClick(Sender : TObject);
procedure btnCancelClick(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure ItemFormatParagraphClick(Sender : TObject);
procedure _PROC_0079ABAB(Sender : TObject);
procedure _PROC_0079ABF0(Sender : TObject);
procedure _PROC_0079AD11(Sender : TObject);
procedure _PROC_0079AD58(Sender : TObject);
procedure _PROC_0079ADA4(Sender : TObject);
procedure _PROC_0079ADE0(Sender : TObject);
procedure _PROC_0079AE01(Sender : TObject);
procedure _PROC_0079B004(Sender : TObject);
procedure _PROC_0079B00D(Sender : TObject);
procedure _PROC_0079B2E1(Sender : TObject);
procedure _PROC_0079B451(Sender : TObject);
procedure _PROC_0079B49C(Sender : TObject);
procedure _PROC_0079B824(Sender : TObject);
procedure _PROC_0079B86C(Sender : TObject);
procedure _PROC_0079B944(Sender : TObject);
procedure _PROC_0079B958(Sender : TObject);
procedure _PROC_0079B9D4(Sender : TObject);
procedure _PROC_0079BBA8(Sender : TObject);
procedure _PROC_0079BC68(Sender : TObject);
procedure _PROC_0079BD00(Sender : TObject);
procedure _PROC_0079BD54(Sender : TObject);
procedure _PROC_0079BDF8(Sender : TObject);
procedure _PROC_0079BE74(Sender : TObject);
procedure _PROC_0079BF20(Sender : TObject);
procedure _PROC_0079BF28(Sender : TObject);
procedure _PROC_0079BF34(Sender : TObject);
procedure _PROC_0079BF61(Sender : TObject);
procedure _PROC_0079BF7D(Sender : TObject);
procedure _PROC_0079C014(Sender : TObject);
procedure _PROC_0079C095(Sender : TObject);
procedure _PROC_0079C595(Sender : TObject);
procedure _PROC_0079C7A8(Sender : TObject);
procedure _PROC_0079C7DC(Sender : TObject);
procedure _PROC_0079C83C(Sender : TObject);
procedure _PROC_0079CCFD(Sender : TObject);
procedure _PROC_0079CD9D(Sender : TObject);
procedure _PROC_0079CE54(Sender : TObject);
procedure _PROC_0079D123(Sender : TObject);
procedure _PROC_0079D145(Sender : TObject);
procedure _PROC_0079D167(Sender : TObject);
procedure _PROC_0079D281(Sender : TObject);
procedure _PROC_0079D369(Sender : TObject);
procedure _PROC_0079D4E1(Sender : TObject);
procedure _PROC_0079D613(Sender : TObject);
procedure _PROC_0079D67B(Sender : TObject);
procedure _PROC_0079D6E3(Sender : TObject);
procedure _PROC_0079DBA0(Sender : TObject);
procedure _PROC_0079DC50(Sender : TObject);
procedure _PROC_0079DCF0(Sender : TObject);
procedure _PROC_0079DFC4(Sender : TObject);
procedure _PROC_0079DFE4(Sender : TObject);
procedure _PROC_0079E044(Sender : TObject);
procedure _PROC_0079E185(Sender : TObject);
procedure _PROC_0079E1CC(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
RMRichForm: TRMRichForm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TRMRichForm.FormCreate(Sender : TObject);
begin
(*
0079C89C 55 push ebp
0079C89D 8BEC mov ebp, esp
0079C89F 33C9 xor ecx, ecx
0079C8A1 51 push ecx
0079C8A2 51 push ecx
0079C8A3 51 push ecx
0079C8A4 51 push ecx
0079C8A5 51 push ecx
0079C8A6 51 push ecx
0079C8A7 51 push ecx
0079C8A8 53 push ebx
0079C8A9 56 push esi
0079C8AA 57 push edi
0079C8AB 8BD8 mov ebx, eax
0079C8AD 33C0 xor eax, eax
0079C8AF 55 push ebp
0079C8B0 68E4CC7900 push $0079CCE4
***** TRY
|
0079C8B5 64FF30 push dword ptr fs:[eax]
0079C8B8 648920 mov fs:[eax], esp
0079C8BB 8BC3 mov eax, ebx
|
0079C8BD E8D2F7FFFF call 0079C094
0079C8C2 8BCB mov ecx, ebx
0079C8C4 B201 mov dl, $01
* Reference to class TJvRichEdit
|
0079C8C6 A1C41D7900 mov eax, dword ptr [$00791DC4]
* Reference to : TJvRichEditStrings._PROC_00795F68()
|
0079C8CB E89896FFFF call 00795F68
0079C8D0 8BF0 mov esi, eax
* Reference to field TRMRichForm.OFFS_0448
|
0079C8D2 89B348040000 mov [ebx+$0448], esi
0079C8D8 8BD3 mov edx, ebx
0079C8DA 8BC6 mov eax, esi
0079C8DC 8B08 mov ecx, [eax]
* Possible reference to virtual method TJvRichEdit.OFFS_68
|
0079C8DE FF5168 call dword ptr [ecx+$68]
0079C8E1 B205 mov dl, $05
0079C8E3 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
0079C8E5 E8F2B1CEFF call 00487ADC
0079C8EA 33D2 xor edx, edx
0079C8EC 8BC6 mov eax, esi
* Reference to : TJvRichEditStrings._PROC_00796EF8()
|
0079C8EE E805A6FFFF call 00796EF8
* Reference to control TRMRichForm.EditPopupMenu : TPopupMenu
|
0079C8F3 8B930C030000 mov edx, [ebx+$030C]
* Reference to field TRMRichForm.OFFS_0448
|
0079C8F9 8B8348040000 mov eax, [ebx+$0448]
* Reference to: Controls.TControl.SetPopupMenu(TControl;TPopupMenu);
|
0079C8FF E8A4BCCEFF call 004885A8
* Reference to field TJvRichEdit.OFFS_0228
|
0079C904 C6862802000000 mov byte ptr [esi+$0228], $00
0079C90B B203 mov dl, $03
0079C90D 8BC6 mov eax, esi
* Reference to: ComCtrls.TToolBar.SetCustomizable(TToolBar;Boolean);
| or: StdCtrls.TCustomMemo.SetScrollBars(TCustomMemo;TScrollStyle);
|
0079C90F E8D80ACEFF call 0047D3EC
* Reference to field TJvRichEdit.OFFS_02DC
|
0079C914 899EDC020000 mov [esi+$02DC], ebx
* Reference to field TJvRichEdit.OFFS_02D8
|
0079C91A C786D8020000E8D17900 mov dword ptr [esi+$02D8], $0079D1E8
* Reference to field TJvRichEdit.OFFS_02AC
|
0079C924 899EAC020000 mov [esi+$02AC], ebx
* Reference to field TJvRichEdit.OFFS_02A8
|
0079C92A C786A802000094C57900 mov dword ptr [esi+$02A8], $0079C594
* Reference to field TJvRichEdit.OFFS_02BC
|
0079C934 899EBC020000 mov [esi+$02BC], ebx
* Reference to field TJvRichEdit.OFFS_02B8
|
0079C93A C786B802000080D27900 mov dword ptr [esi+$02B8], $0079D280
* Reference to field TJvRichEdit.OFFS_021C
|
0079C944 899E1C020000 mov [esi+$021C], ebx
* Reference to field TJvRichEdit.OFFS_0218
|
0079C94A C7861802000004D07900 mov dword ptr [esi+$0218], $0079D004
* Reference to control TRMRichForm.ToolBar2 : TToolBar
|
0079C954 8B8BA0030000 mov ecx, [ebx+$03A0]
0079C95A B201 mov dl, $01
* Reference to class TRMFontComboBox
|
0079C95C A1D8F97800 mov eax, dword ptr [$0078F9D8]
* Reference to : TRMRuler._PROC_007900C0()
|
0079C961 E85A37FFFF call 007900C0
0079C966 8BF0 mov esi, eax
* Reference to field TRMRichForm.OFFS_0430
|
0079C968 89B330040000 mov [ebx+$0430], esi
* Reference to control TRMRichForm.ToolBar2 : TToolBar
|
0079C96E 8B93A0030000 mov edx, [ebx+$03A0]
0079C974 8BC6 mov eax, esi
0079C976 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMFontComboBox.OFFS_68
|
0079C978 FF5168 call dword ptr [ecx+$68]
0079C97B 33D2 xor edx, edx
0079C97D 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0079C97F E8B4B3CEFF call 00487D38
0079C984 33D2 xor edx, edx
0079C986 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0079C988 E8CFB3CEFF call 00487D5C
0079C98D BA15000000 mov edx, $00000015
0079C992 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
0079C994 E80FB4CEFF call 00487DA8
0079C999 BA96000000 mov edx, $00000096
0079C99E 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetWidth(TControl;Integer);
|
0079C9A0 E8DFB3CEFF call 00487D84
* Reference to field TRMFontComboBox.OFFS_000C
|
0079C9A5 C7460C07000000 mov dword ptr [esi+$0C], $00000007
* Reference to field TRMFontComboBox.OFFS_021C
|
0079C9AC 899E1C020000 mov [esi+$021C], ebx
* Reference to field TRMFontComboBox.OFFS_0218
|
0079C9B2 C78618020000A0DB7900 mov dword ptr [esi+$0218], $0079DBA0
* Reference to control TRMRichForm.ToolBar2 : TToolBar
|
0079C9BC 8B8BA0030000 mov ecx, [ebx+$03A0]
0079C9C2 B201 mov dl, $01
* Reference to class TComboBox
|
0079C9C4 A1F4814700 mov eax, dword ptr [$004781F4]
* Reference to: StdCtrls.TCustomComboBox.Create(TCustomComboBox;boolean;TComponent);
|
0079C9C9 E8C21BCEFF call 0047E590
0079C9CE 8BF0 mov esi, eax
* Reference to field TRMRichForm.OFFS_0434
|
0079C9D0 89B334040000 mov [ebx+$0434], esi
0079C9D6 8BFE mov edi, esi
* Reference to control TRMRichForm.ToolBar2 : TToolBar
|
0079C9D8 8B93A0030000 mov edx, [ebx+$03A0]
0079C9DE 8BC7 mov eax, edi
0079C9E0 8B08 mov ecx, [eax]
* Reference to method TComboBox.SetParent(TWinControl)
|
0079C9E2 FF5168 call dword ptr [ecx+$68]
0079C9E5 BA96000000 mov edx, $00000096
0079C9EA 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0079C9EC E847B3CEFF call 00487D38
0079C9F1 33D2 xor edx, edx
0079C9F3 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
0079C9F5 E862B3CEFF call 00487D5C
0079C9FA BA15000000 mov edx, $00000015
0079C9FF 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
0079CA01 E8A2B3CEFF call 00487DA8
0079CA06 BA3B000000 mov edx, $0000003B
0079CA0B 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetWidth(TControl;Integer);
|
0079CA0D E872B3CEFF call 00487D84
0079CA12 C7470C08000000 mov dword ptr [edi+$0C], $00000008
0079CA19 BA0C000000 mov edx, $0000000C
0079CA1E 8BC7 mov eax, edi
0079CA20 8B08 mov ecx, [eax]
0079CA22 FF9108010000 call dword ptr [ecx+$0108]
*)
end;
procedure TRMRichForm.FormResize(Sender : TObject);
begin
(*
0079CE30 53 push ebx
0079CE31 56 push esi
0079CE32 8BF2 mov esi, edx
0079CE34 8BD8 mov ebx, eax
0079CE36 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C83C()
|
0079CE38 E8FFF9FFFF call 0079C83C
0079CE3D 8BD6 mov edx, esi
0079CE3F 8BC3 mov eax, ebx
|
0079CE41 E84EF7FFFF call 0079C594
0079CE46 5E pop esi
0079CE47 5B pop ebx
0079CE48 C3 ret
*)
end;
procedure TRMRichForm.FormPaint(Sender : TObject);
begin
(*
* Reference to : TRMRichForm._PROC_0079C83C()
|
0079CE4C E8EBF9FFFF call 0079C83C
0079CE51 C3 ret
*)
end;
procedure TRMRichForm.FormShow(Sender : TObject);
begin
(*
0079CFD4 53 push ebx
0079CFD5 8BD8 mov ebx, eax
0079CFD7 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079CE54()
|
0079CFD9 E876FEFFFF call 0079CE54
0079CFDE 33D2 xor edx, edx
0079CFE0 8BC3 mov eax, ebx
* Reference to : TRMRichForm.RichEditChange()
|
0079CFE2 E81D000000 call 0079D004
0079CFE7 33D2 xor edx, edx
0079CFE9 8BC3 mov eax, ebx
|
0079CFEB E84C010000 call 0079D13C
0079CFF0 8BC3 mov eax, ebx
|
0079CFF2 E879F5FFFF call 0079C570
0079CFF7 33D2 xor edx, edx
0079CFF9 8BC3 mov eax, ebx
|
0079CFFB E894010000 call 0079D194
0079D000 5B pop ebx
0079D001 C3 ret
*)
end;
procedure TRMRichForm.RichEditChange(Sender : TObject);
begin
(*
0079D004 55 push ebp
0079D005 8BEC mov ebp, esp
0079D007 6A00 push $00
0079D009 6A00 push $00
0079D00B 53 push ebx
0079D00C 8BD8 mov ebx, eax
0079D00E 33C0 xor eax, eax
0079D010 55 push ebp
* Possible String Reference to: '<27><>y<EFBFBD><79><EFBFBD><EFBFBD>[YY]<5D>'
|
0079D011 6807D17900 push $0079D107
***** TRY
|
0079D016 64FF30 push dword ptr fs:[eax]
0079D019 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.OFFS_0448
|
0079D01C 8B8348040000 mov eax, [ebx+$0448]
* Reference to: StdCtrls.TCustomEdit.GetModified(TCustomEdit):Boolean;
|
0079D022 E809F4CDFF call 0047C430
0079D027 8BD0 mov edx, eax
0079D029 8BC3 mov eax, ebx
|
0079D02B E80C010000 call 0079D13C
* Reference to field TRMRichForm.OFFS_0448
|
0079D030 8B8348040000 mov eax, [ebx+$0448]
* Reference to: StdCtrls.TCustomEdit.GetCanUndo(TCustomEdit):Boolean;
|
0079D036 E82DF4CDFF call 0047C468
0079D03B 8BD0 mov edx, eax
* Reference to control TRMRichForm.btnUndo : TToolButton
|
0079D03D 8B83CC030000 mov eax, [ebx+$03CC]
0079D043 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
0079D045 FF5164 call dword ptr [ecx+$64]
* Reference to control TRMRichForm.btnUndo : TToolButton
|
0079D048 8B83CC030000 mov eax, [ebx+$03CC]
0079D04E 8B10 mov edx, [eax]
* Reference to method TToolButton.GetEnabled()
|
0079D050 FF5250 call dword ptr [edx+$50]
0079D053 8BD0 mov edx, eax
* Reference to control TRMRichForm.ItemEditUndo : TMenuItem
|
0079D055 8B8344030000 mov eax, [ebx+$0344]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079D05B E838DBCFFF call 0049AB98
* Reference to field TRMRichForm.OFFS_0448
|
0079D060 8B8348040000 mov eax, [ebx+$0448]
* Reference to : TJvRichEditStrings._PROC_007971C4()
|
0079D066 E859A1FFFF call 007971C4
0079D06B 83E07F and eax, +$7F
0079D06E 8B0C85CCEE8800 mov ecx, [$88EECC+eax*4]
0079D075 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'ȡ<><C8A1>(&U) '
|
0079D078 BA1CD17900 mov edx, $0079D11C
* Reference to: System.@LStrCat3;
|
0079D07D E8BE85C6FF call 00405640
0079D082 8B55FC mov edx, [ebp-$04]
* Reference to control TRMRichForm.ItemEditUndo : TMenuItem
|
0079D085 8B8344030000 mov eax, [ebx+$0344]
* Reference to: Menus.TMenuItem.SetCaption(TMenuItem;AnsiString);
|
0079D08B E844DACFFF call 0049AAD4
* Reference to field TRMRichForm.OFFS_0448
|
0079D090 8B8348040000 mov eax, [ebx+$0448]
* Reference to : TJvRichEditStrings._PROC_0079711C()
|
0079D096 E881A0FFFF call 0079711C
0079D09B 8BD0 mov edx, eax
* Reference to control TRMRichForm.ItemEditRedo : TMenuItem
|
0079D09D 8B8374030000 mov eax, [ebx+$0374]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079D0A3 E8F0DACFFF call 0049AB98
* Reference to control TRMRichForm.ItemEditRedo : TMenuItem
|
0079D0A8 8B8374030000 mov eax, [ebx+$0374]
* Reference to field TMenuItem.Enabled : Boolean
|
0079D0AE 8A5039 mov dl, byte ptr [eax+$39]
* Reference to control TRMRichForm.btnRedo : TToolButton
|
0079D0B1 8B83D0030000 mov eax, [ebx+$03D0]
0079D0B7 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
0079D0B9 FF5164 call dword ptr [ecx+$64]
* Reference to field TRMRichForm.OFFS_0448
|
0079D0BC 8B8348040000 mov eax, [ebx+$0448]
* Reference to : TJvRichEditStrings._PROC_0079718C()
|
0079D0C2 E8C5A0FFFF call 0079718C
0079D0C7 83E07F and eax, +$7F
0079D0CA 8B0C85CCEE8800 mov ecx, [$88EECC+eax*4]
0079D0D1 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: '<27>ظ<EFBFBD>(&R) '
|
0079D0D4 BA30D17900 mov edx, $0079D130
* Reference to: System.@LStrCat3;
|
0079D0D9 E86285C6FF call 00405640
0079D0DE 8B55F8 mov edx, [ebp-$08]
* Reference to control TRMRichForm.ItemEditRedo : TMenuItem
|
0079D0E1 8B8374030000 mov eax, [ebx+$0374]
* Reference to: Menus.TMenuItem.SetCaption(TMenuItem;AnsiString);
|
0079D0E7 E8E8D9CFFF call 0049AAD4
0079D0EC 33C0 xor eax, eax
0079D0EE 5A pop edx
0079D0EF 59 pop ecx
0079D0F0 59 pop ecx
0079D0F1 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]<5D>'
|
0079D0F4 680ED17900 push $0079D10E
0079D0F9 8D45F8 lea eax, [ebp-$08]
0079D0FC BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0079D101 E84282C6FF call 00405348
0079D106 C3 ret
* Reference to: System.@HandleFinally;
|
0079D107 E9E879C6FF jmp 00404AF4
0079D10C EBEB jmp 0079D0F9
****** END
|
0079D10E 5B pop ebx
0079D10F 59 pop ecx
0079D110 59 pop ecx
0079D111 5D pop ebp
0079D112 C3 ret
*)
end;
procedure TRMRichForm.FormDestroy(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0438
|
0079D1DC 8B8038040000 mov eax, [eax+$0438]
* Reference to: System.TObject.Free(TObject);
|
0079D1E2 E86571C6FF call 0040434C
0079D1E7 C3 ret
*)
end;
procedure TRMRichForm.EditorProtectChange(Sender : TObject);
begin
(*
0079D280 55 push ebp
0079D281 8BEC mov ebp, esp
0079D283 8B5508 mov edx, [ebp+$08]
* Reference to field TRMRichForm.OFFS_0429
|
0079D286 8A8029040000 mov al, byte ptr [eax+$0429]
0079D28C 8802 mov [edx], al
0079D28E 5D pop ebp
0079D28F C20800 ret $0008
*)
end;
procedure TRMRichForm.EditorTextNotFound(Sender : TObject);
begin
(*
0079D1E8 55 push ebp
0079D1E9 8BEC mov ebp, esp
0079D1EB 83C4F4 add esp, -$0C
0079D1EE 53 push ebx
0079D1EF 33DB xor ebx, ebx
0079D1F1 895DFC mov [ebp-$04], ebx
0079D1F4 8BD9 mov ebx, ecx
0079D1F6 33C0 xor eax, eax
0079D1F8 55 push ebp
* Possible String Reference to: '<27><>x<EFBFBD><78><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
0079D1F9 6847D27900 push $0079D247
***** TRY
|
0079D1FE 64FF30 push dword ptr fs:[eax]
0079D201 648920 mov fs:[eax], esp
0079D204 6A00 push $00
0079D206 8D45FC lea eax, [ebp-$04]
0079D209 50 push eax
0079D20A 895DF4 mov [ebp-$0C], ebx
0079D20D C645F80B mov byte ptr [ebp-$08], $0B
0079D211 8D55F4 lea edx, [ebp-$0C]
0079D214 33C9 xor ecx, ecx
* Possible String Reference to: 'Text "%s" not found.'
|
0079D216 B85CD27900 mov eax, $0079D25C
|
0079D21B E864F9C6FF call 0040CB84
0079D220 8B45FC mov eax, [ebp-$04]
0079D223 668B0D74D27900 mov cx, word ptr [$0079D274]
0079D22A 33D2 xor edx, edx
|
0079D22C E89354CAFF call 004426C4
0079D231 33C0 xor eax, eax
0079D233 5A pop edx
0079D234 59 pop ecx
0079D235 59 pop ecx
0079D236 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0079D239 684ED27900 push $0079D24E
0079D23E 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079D241 E8DE80C6FF call 00405324
0079D246 C3 ret
* Reference to: System.@HandleFinally;
|
0079D247 E9A878C6FF jmp 00404AF4
0079D24C EBF0 jmp 0079D23E
****** END
|
0079D24E 5B pop ebx
0079D24F 8BE5 mov esp, ebp
0079D251 5D pop ebp
0079D252 C3 ret
*)
end;
procedure TRMRichForm.EditSelectAll(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0448
|
0079D294 8B8048040000 mov eax, [eax+$0448]
* Reference to: StdCtrls.TCustomEdit.SelectAll(TCustomEdit);
|
0079D29A E879F4CDFF call 0047C718
0079D29F C3 ret
*)
end;
procedure TRMRichForm.btnFileNewClick(Sender : TObject);
begin
(*
0079D2A0 55 push ebp
0079D2A1 8BEC mov ebp, esp
0079D2A3 51 push ecx
0079D2A4 53 push ebx
0079D2A5 8945FC mov [ebp-$04], eax
* Possible String Reference to: 'Untitled'
|
0079D2A8 BA68D37900 mov edx, $0079D368
0079D2AD 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7DC()
|
0079D2B0 E827F5FFFF call 0079C7DC
0079D2B5 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0429
|
0079D2B8 C6802904000001 mov byte ptr [eax+$0429], $01
0079D2BF 33C0 xor eax, eax
0079D2C1 55 push ebp
* Possible String Reference to: '<27><>w<EFBFBD><77><EFBFBD><EFBFBD>[Y]<5D>'
|
0079D2C2 6852D37900 push $0079D352
***** TRY
|
0079D2C7 64FF30 push dword ptr fs:[eax]
0079D2CA 648920 mov fs:[eax], esp
0079D2CD 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079D2D0 8B8048040000 mov eax, [eax+$0448]
0079D2D6 8B8054020000 mov eax, [eax+$0254]
0079D2DC 8B10 mov edx, [eax]
0079D2DE FF5244 call dword ptr [edx+$44]
0079D2E1 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079D2E4 8B8048040000 mov eax, [eax+$0448]
0079D2EA 33D2 xor edx, edx
* Reference to: StdCtrls.TCustomEdit.SetModified(TCustomEdit;Boolean);
|
0079D2EC E8ABF1CDFF call 0047C49C
0079D2F1 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079D2F4 8B8048040000 mov eax, [eax+$0448]
0079D2FA 33D2 xor edx, edx
* Reference to: StdCtrls.TCustomEdit.SetReadOnly(TCustomEdit;Boolean);
|
0079D2FC E85BF2CDFF call 0047C55C
0079D301 33D2 xor edx, edx
0079D303 8B45FC mov eax, [ebp-$04]
|
0079D306 E831FEFFFF call 0079D13C
0079D30B 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079D30E 8B9848040000 mov ebx, [eax+$0448]
0079D314 8B5368 mov edx, [ebx+$68]
0079D317 8B833C020000 mov eax, [ebx+$023C]
0079D31D 8B08 mov ecx, [eax]
0079D31F FF5108 call dword ptr [ecx+$08]
0079D322 8B5368 mov edx, [ebx+$68]
0079D325 8B8338020000 mov eax, [ebx+$0238]
0079D32B 8B08 mov ecx, [eax]
0079D32D FF5108 call dword ptr [ecx+$08]
0079D330 33D2 xor edx, edx
0079D332 8B45FC mov eax, [ebp-$04]
|
0079D335 E85AF2FFFF call 0079C594
0079D33A 33C0 xor eax, eax
0079D33C 5A pop edx
0079D33D 59 pop ecx
0079D33E 59 pop ecx
0079D33F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
0079D342 6859D37900 push $0079D359
0079D347 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0429
|
0079D34A C6802904000000 mov byte ptr [eax+$0429], $00
0079D351 C3 ret
* Reference to: System.@HandleFinally;
|
0079D352 E99D77C6FF jmp 00404AF4
0079D357 EBEE jmp 0079D347
****** END
|
0079D359 5B pop ebx
0079D35A 59 pop ecx
0079D35B 5D pop ebp
0079D35C C3 ret
*)
end;
procedure TRMRichForm.btnFileOpenClick(Sender : TObject);
begin
(*
0079D374 55 push ebp
0079D375 8BEC mov ebp, esp
0079D377 6A00 push $00
0079D379 6A00 push $00
0079D37B 6A00 push $00
0079D37D 53 push ebx
0079D37E 8BD8 mov ebx, eax
0079D380 33C0 xor eax, eax
0079D382 55 push ebp
* Possible String Reference to: '<27><>v<EFBFBD><76><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
0079D383 6832D47900 push $0079D432
***** TRY
|
0079D388 64FF30 push dword ptr fs:[eax]
0079D38B 648920 mov fs:[eax], esp
0079D38E 8D55FC lea edx, [ebp-$04]
0079D391 B872B80000 mov eax, $0000B872
|
0079D396 E801B0FDFF call 0077839C
0079D39B FF75FC push dword ptr [ebp-$04]
* Possible String Reference to: '(*.rtf)|*.rtf'
|
0079D39E 6848D47900 push $0079D448
0079D3A3 6860D47900 push $0079D460
0079D3A8 8D55F8 lea edx, [ebp-$08]
0079D3AB B86CB80000 mov eax, $0000B86C
|
0079D3B0 E8E7AFFDFF call 0077839C
0079D3B5 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '(*.txt)|*.txt'
|
0079D3B8 686CD47900 push $0079D46C
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3BD 8B83F8020000 mov eax, [ebx+$02F8]
0079D3C3 83C060 add eax, +$60
0079D3C6 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0079D3CB E8E482C6FF call 004056B4
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3D0 8B83F8020000 mov eax, [ebx+$02F8]
0079D3D6 8B10 mov edx, [eax]
* Reference to method TOpenDialog.Execute()
|
0079D3D8 FF523C call dword ptr [edx+$3C]
0079D3DB 84C0 test al, al
0079D3DD 7430 jz 0079D40F
0079D3DF 8D55F4 lea edx, [ebp-$0C]
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3E2 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
0079D3E8 E8DB31CAFF call 004405C8
0079D3ED 8B55F4 mov edx, [ebp-$0C]
0079D3F0 8BC3 mov eax, ebx
|
0079D3F2 E8A5F9FFFF call 0079CD9C
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3F7 8B83F8020000 mov eax, [ebx+$02F8]
0079D3FD F6405C01 test byte ptr [eax+$5C], $01
0079D401 0F95C2 setnz dl
* Reference to field TRMRichForm.OFFS_0448
|
0079D404 8B8348040000 mov eax, [ebx+$0448]
* Reference to: StdCtrls.TCustomEdit.SetReadOnly(TCustomEdit;Boolean);
|
0079D40A E84DF1CDFF call 0047C55C
0079D40F 33C0 xor eax, eax
0079D411 5A pop edx
0079D412 59 pop ecx
0079D413 59 pop ecx
0079D414 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0079D417 6839D47900 push $0079D439
0079D41C 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
0079D41F E8007FC6FF call 00405324
0079D424 8D45F8 lea eax, [ebp-$08]
0079D427 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0079D42C E8177FC6FF call 00405348
0079D431 C3 ret
* Reference to: System.@HandleFinally;
|
0079D432 E9BD76C6FF jmp 00404AF4
0079D437 EBE3 jmp 0079D41C
****** END
|
0079D439 5B pop ebx
0079D43A 8BE5 mov esp, ebp
0079D43C 5D pop ebp
0079D43D C3 ret
*)
end;
procedure TRMRichForm.btnFileSaveClick(Sender : TObject);
begin
(*
0079D47C 53 push ebx
0079D47D 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0424
|
0079D47F 8B8324040000 mov eax, [ebx+$0424]
* Possible String Reference to: 'Untitled'
|
0079D485 BAE0D47900 mov edx, $0079D4E0
* Reference to: System.@LStrCmp;
|
0079D48A E8B182C6FF call 00405740
0079D48F 750D jnz 0079D49E
* Reference to control TRMRichForm.ItemFileSaveAs : TMenuItem
|
0079D491 8B832C030000 mov eax, [ebx+$032C]
0079D497 8B10 mov edx, [eax]
* Reference to method TMenuItem.Click()
|
0079D499 FF5244 call dword ptr [edx+$44]
0079D49C 5B pop ebx
0079D49D C3 ret
* Reference to control FKPerson : N.A.
|
0079D49E 8B8348040000 mov eax, [ebx+$0448]
* Reference to field N.A..OFFS_0254
|
0079D4A4 8B8054020000 mov eax, [eax+$0254]
* Reference to control Label31 : N.A.
|
0079D4AA 8B9324040000 mov edx, [ebx+$0424]
0079D4B0 8B08 mov ecx, [eax]
0079D4B2 FF5174 call dword ptr [ecx+$74]
0079D4B5 33D2 xor edx, edx
* Reference to control FKPerson : N.A.
|
0079D4B7 8B8348040000 mov eax, [ebx+$0448]
* Reference to: StdCtrls.TCustomEdit.SetModified(TCustomEdit;Boolean);
|
0079D4BD E8DAEFCDFF call 0047C49C
0079D4C2 33D2 xor edx, edx
0079D4C4 8BC3 mov eax, ebx
|
0079D4C6 E871FCFFFF call 0079D13C
0079D4CB 33D2 xor edx, edx
0079D4CD 8BC3 mov eax, ebx
* Reference to : TRMRichForm.RichEditChange()
|
0079D4CF E830FBFFFF call 0079D004
0079D4D4 5B pop ebx
0079D4D5 C3 ret
*)
end;
procedure TRMRichForm.btnFindClick(Sender : TObject);
begin
(*
0079D4EC 55 push ebp
0079D4ED 8BEC mov ebp, esp
0079D4EF 6A00 push $00
0079D4F1 53 push ebx
0079D4F2 33D2 xor edx, edx
0079D4F4 55 push ebp
0079D4F5 6833D57900 push $0079D533
***** TRY
|
0079D4FA 64FF32 push dword ptr fs:[edx]
0079D4FD 648922 mov fs:[edx], esp
* Reference to field TRMRichForm.OFFS_0448
|
0079D500 8B9848040000 mov ebx, [eax+$0448]
0079D506 8D55FC lea edx, [ebp-$04]
0079D509 8BC3 mov eax, ebx
0079D50B 8B08 mov ecx, [eax]
0079D50D FF91D4000000 call dword ptr [ecx+$00D4]
0079D513 8B55FC mov edx, [ebp-$04]
0079D516 8BC3 mov eax, ebx
|
0079D518 E873B8FFFF call 00798D90
0079D51D 33C0 xor eax, eax
0079D51F 5A pop edx
0079D520 59 pop ecx
0079D521 59 pop ecx
0079D522 648910 mov fs:[eax], edx
****** FINALLY
|
0079D525 683AD57900 push $0079D53A
0079D52A 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079D52D E8F27DC6FF call 00405324
0079D532 C3 ret
* Reference to: System.@HandleFinally;
|
0079D533 E9BC75C6FF jmp 00404AF4
0079D538 EBF0 jmp 0079D52A
****** END
|
0079D53A 5B pop ebx
0079D53B 59 pop ecx
0079D53C 5D pop ebp
0079D53D C3 ret
*)
end;
procedure TRMRichForm.btnCutClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0448
|
0079D540 8B8048040000 mov eax, [eax+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D546 E879F1CDFF call 0047C6C4
0079D54B C3 ret
*)
end;
procedure TRMRichForm.btnCopyClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0448
|
0079D54C 8B8048040000 mov eax, [eax+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D552 E851F1CDFF call 0047C6A8
0079D557 C3 ret
*)
end;
procedure TRMRichForm.btnPasteClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0448
|
0079D558 8B8048040000 mov eax, [eax+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D55E E87DF1CDFF call 0047C6E0
0079D563 C3 ret
*)
end;
procedure TRMRichForm.btnUndoApplyAlign(Sender : TObject);
begin
(*
0079D564 55 push ebp
0079D565 8BEC mov ebp, esp
0079D567 53 push ebx
0079D568 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0448
|
0079D56A 8B8348040000 mov eax, [ebx+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D570 E887F1CDFF call 0047C6FC
0079D575 33D2 xor edx, edx
0079D577 8BC3 mov eax, ebx
* Reference to : TRMRichForm.RichEditChange()
|
0079D579 E886FAFFFF call 0079D004
0079D57E 33D2 xor edx, edx
0079D580 8BC3 mov eax, ebx
|
0079D582 E80DF0FFFF call 0079C594
0079D587 5B pop ebx
0079D588 5D pop ebp
0079D589 C20400 ret $0004
*)
end;
procedure TRMRichForm.btnRedoClick(Sender : TObject);
begin
(*
0079D58C 53 push ebx
0079D58D 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0448
|
0079D58F 8B8348040000 mov eax, [ebx+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D595 E802B6FFFF call 00798B9C
0079D59A 33D2 xor edx, edx
0079D59C 8BC3 mov eax, ebx
* Reference to : TRMRichForm.RichEditChange()
|
0079D59E E861FAFFFF call 0079D004
0079D5A3 33D2 xor edx, edx
0079D5A5 8BC3 mov eax, ebx
|
0079D5A7 E8E8EFFFFF call 0079C594
0079D5AC 5B pop ebx
0079D5AD C3 ret
*)
end;
procedure TRMRichForm.btnFontBoldClick(Sender : TObject);
begin
(*
0079D5B0 53 push ebx
0079D5B1 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0428
|
0079D5B3 80BB2804000000 cmp byte ptr [ebx+$0428], $00
0079D5BA 7555 jnz 0079D611
* Reference to control TRMRichForm.btnFontBold : TToolButton
|
0079D5BC 8B83EC030000 mov eax, [ebx+$03EC]
* Reference to field TToolButton.Down : Boolean
|
0079D5C2 80B86A01000000 cmp byte ptr [eax+$016A], $00
0079D5C9 7422 jz 0079D5ED
0079D5CB 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D5CD E8D6F1FFFF call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079D5D2 E81157FFFF call 00792CE8
0079D5D7 0A0514D67900 or al, byte ptr [$0079D614]
0079D5DD 50 push eax
0079D5DE 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D5E0 E8C3F1FFFF call 0079C7A8
0079D5E5 5A pop edx
|
0079D5E6 E84D57FFFF call 00792D38
0079D5EB EB24 jmp 0079D611
0079D5ED 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D5EF E8B4F1FFFF call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079D5F4 E8EF56FFFF call 00792CE8
0079D5F9 8A1514D67900 mov dl, byte ptr [$0079D614]
0079D5FF F7D2 not edx
0079D601 22D0 and dl, al
0079D603 52 push edx
0079D604 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D606 E89DF1FFFF call 0079C7A8
0079D60B 5A pop edx
|
0079D60C E82757FFFF call 00792D38
0079D611 5B pop ebx
0079D612 C3 ret
*)
end;
procedure TRMRichForm.btnFontItalicClick(Sender : TObject);
begin
(*
0079D618 53 push ebx
0079D619 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0428
|
0079D61B 80BB2804000000 cmp byte ptr [ebx+$0428], $00
0079D622 7555 jnz 0079D679
* Reference to control TRMRichForm.btnFontItalic : TToolButton
|
0079D624 8B83F0030000 mov eax, [ebx+$03F0]
* Reference to field TToolButton.Down : Boolean
|
0079D62A 80B86A01000000 cmp byte ptr [eax+$016A], $00
0079D631 7422 jz 0079D655
0079D633 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D635 E86EF1FFFF call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079D63A E8A956FFFF call 00792CE8
0079D63F 0A057CD67900 or al, byte ptr [$0079D67C]
0079D645 50 push eax
0079D646 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D648 E85BF1FFFF call 0079C7A8
0079D64D 5A pop edx
|
0079D64E E8E556FFFF call 00792D38
0079D653 EB24 jmp 0079D679
0079D655 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D657 E84CF1FFFF call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079D65C E88756FFFF call 00792CE8
0079D661 8A157CD67900 mov dl, byte ptr [$0079D67C]
0079D667 F7D2 not edx
0079D669 22D0 and dl, al
0079D66B 52 push edx
0079D66C 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D66E E835F1FFFF call 0079C7A8
0079D673 5A pop edx
|
0079D674 E8BF56FFFF call 00792D38
0079D679 5B pop ebx
0079D67A C3 ret
*)
end;
procedure TRMRichForm.btnFontUnderlineClick(Sender : TObject);
begin
(*
0079D680 53 push ebx
0079D681 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0428
|
0079D683 80BB2804000000 cmp byte ptr [ebx+$0428], $00
0079D68A 7555 jnz 0079D6E1
* Reference to control TRMRichForm.btnFontUnderline : TToolButton
|
0079D68C 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TToolButton.Down : Boolean
|
0079D692 80B86A01000000 cmp byte ptr [eax+$016A], $00
0079D699 7422 jz 0079D6BD
0079D69B 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D69D E806F1FFFF call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079D6A2 E84156FFFF call 00792CE8
0079D6A7 0A05E4D67900 or al, byte ptr [$0079D6E4]
0079D6AD 50 push eax
0079D6AE 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D6B0 E8F3F0FFFF call 0079C7A8
0079D6B5 5A pop edx
|
0079D6B6 E87D56FFFF call 00792D38
0079D6BB EB24 jmp 0079D6E1
0079D6BD 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D6BF E8E4F0FFFF call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079D6C4 E81F56FFFF call 00792CE8
0079D6C9 8A15E4D67900 mov dl, byte ptr [$0079D6E4]
0079D6CF F7D2 not edx
0079D6D1 22D0 and dl, al
0079D6D3 52 push edx
0079D6D4 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D6D6 E8CDF0FFFF call 0079C7A8
0079D6DB 5A pop edx
|
0079D6DC E85756FFFF call 00792D38
0079D6E1 5B pop ebx
0079D6E2 C3 ret
*)
end;
procedure TRMRichForm.btnAlignLeftClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0428
|
0079D6E8 80B82804000000 cmp byte ptr [eax+$0428], $00
0079D6EF 7514 jnz 0079D705
* Reference to field TRMRichForm.OFFS_0448
|
0079D6F1 8B8048040000 mov eax, [eax+$0448]
0079D6F7 8B8044020000 mov eax, [eax+$0244]
0079D6FD 8A520C mov dl, byte ptr [edx+$0C]
* Reference to : TJvRichEdit._PROC_007933B4()
|
0079D700 E8AF5CFFFF call 007933B4
0079D705 C3 ret
*)
end;
procedure TRMRichForm.btnBulletsClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0428
|
0079D708 80B82804000000 cmp byte ptr [eax+$0428], $00
0079D70F 751D jnz 0079D72E
* Reference to control TRMRichForm.btnBullets : TToolButton
|
0079D711 8B9010040000 mov edx, [eax+$0410]
* Reference to field TToolButton.Down : Boolean
|
0079D717 8A926A010000 mov dl, byte ptr [edx+$016A]
* Reference to field TRMRichForm.OFFS_0448
|
0079D71D 8B8048040000 mov eax, [eax+$0448]
0079D723 8B8044020000 mov eax, [eax+$0244]
* Reference to : TJvRichEdit._PROC_00793418()
|
0079D729 E8EA5CFFFF call 00793418
0079D72E C3 ret
*)
end;
procedure TRMRichForm.ItemFileSaveAsClick(Sender : TObject);
begin
(*
0079D730 55 push ebp
0079D731 8BEC mov ebp, esp
0079D733 6A00 push $00
0079D735 6A00 push $00
0079D737 53 push ebx
0079D738 8BD8 mov ebx, eax
0079D73A 33C0 xor eax, eax
0079D73C 55 push ebp
0079D73D 68D2D77900 push $0079D7D2
***** TRY
|
0079D742 64FF30 push dword ptr fs:[eax]
0079D745 648920 mov fs:[eax], esp
* Reference to control TRMRichForm.SaveDialog : TSaveDialog
|
0079D748 8B83FC020000 mov eax, [ebx+$02FC]
0079D74E 8B10 mov edx, [eax]
* Reference to method TSaveDialog.Execute()
|
0079D750 FF523C call dword ptr [edx+$3C]
0079D753 84C0 test al, al
0079D755 7459 jz 0079D7B0
0079D757 8D55FC lea edx, [ebp-$04]
* Reference to control TRMRichForm.SaveDialog : TSaveDialog
|
0079D75A 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
0079D760 E8632ECAFF call 004405C8
0079D765 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079D768 8B8348040000 mov eax, [ebx+$0448]
0079D76E 8B8054020000 mov eax, [eax+$0254]
0079D774 8B08 mov ecx, [eax]
0079D776 FF5174 call dword ptr [ecx+$74]
0079D779 8D55F8 lea edx, [ebp-$08]
* Reference to control TRMRichForm.SaveDialog : TSaveDialog
|
0079D77C 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
0079D782 E8412ECAFF call 004405C8
0079D787 8B55F8 mov edx, [ebp-$08]
0079D78A 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7DC()
|
0079D78C E84BF0FFFF call 0079C7DC
0079D791 33D2 xor edx, edx
* Reference to field TRMRichForm.OFFS_0448
|
0079D793 8B8348040000 mov eax, [ebx+$0448]
* Reference to: StdCtrls.TCustomEdit.SetModified(TCustomEdit;Boolean);
|
0079D799 E8FEECCDFF call 0047C49C
0079D79E 33D2 xor edx, edx
0079D7A0 8BC3 mov eax, ebx
|
0079D7A2 E895F9FFFF call 0079D13C
0079D7A7 33D2 xor edx, edx
0079D7A9 8BC3 mov eax, ebx
* Reference to : TRMRichForm.RichEditChange()
|
0079D7AB E854F8FFFF call 0079D004
0079D7B0 8BC3 mov eax, ebx
|
0079D7B2 E8B9EDFFFF call 0079C570
0079D7B7 33C0 xor eax, eax
0079D7B9 5A pop edx
0079D7BA 59 pop ecx
0079D7BB 59 pop ecx
0079D7BC 648910 mov fs:[eax], edx
****** FINALLY
|
0079D7BF 68D9D77900 push $0079D7D9
0079D7C4 8D45F8 lea eax, [ebp-$08]
0079D7C7 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0079D7CC E8777BC6FF call 00405348
0079D7D1 C3 ret
* Reference to: System.@HandleFinally;
|
0079D7D2 E91D73C6FF jmp 00404AF4
0079D7D7 EBEB jmp 0079D7C4
****** END
|
0079D7D9 5B pop ebx
0079D7DA 59 pop ecx
0079D7DB 59 pop ecx
0079D7DC 5D pop ebp
0079D7DD C3 ret
*)
end;
procedure TRMRichForm.ItemFilePrintClick(Sender : TObject);
begin
(*
0079D7E0 53 push ebx
0079D7E1 8BD8 mov ebx, eax
* Reference to control TRMRichForm.PrintDialog : TPrintDialog
|
0079D7E3 8B8398030000 mov eax, [ebx+$0398]
0079D7E9 8B10 mov edx, [eax]
* Reference to method TPrintDialog.Execute()
|
0079D7EB FF523C call dword ptr [edx+$3C]
0079D7EE 84C0 test al, al
0079D7F0 7414 jz 0079D806
* Reference to field TRMRichForm.OFFS_0424
|
0079D7F2 8B9324040000 mov edx, [ebx+$0424]
* Reference to field TRMRichForm.OFFS_0448
|
0079D7F8 8B8348040000 mov eax, [ebx+$0448]
0079D7FE 8B08 mov ecx, [eax]
0079D800 FF9100010000 call dword ptr [ecx+$0100]
0079D806 5B pop ebx
0079D807 C3 ret
*)
end;
procedure TRMRichForm.ItemFormatFontClick(Sender : TObject);
begin
(*
0079D808 55 push ebp
0079D809 8BEC mov ebp, esp
0079D80B 6A00 push $00
0079D80D 53 push ebx
0079D80E 8BD8 mov ebx, eax
0079D810 33C0 xor eax, eax
0079D812 55 push ebp
* Possible String Reference to: '<27><>q<EFBFBD><71><EFBFBD><EFBFBD>[Y]Í@'
|
0079D813 6812D97900 push $0079D912
***** TRY
|
0079D818 64FF30 push dword ptr fs:[eax]
0079D81B 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.OFFS_0448
|
0079D81E 8B8348040000 mov eax, [ebx+$0448]
0079D824 8B9038020000 mov edx, [eax+$0238]
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D82A 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TFontDialog.Font : TFont
|
0079D830 8B4058 mov eax, [eax+$58]
0079D833 8B08 mov ecx, [eax]
* Reference to method TFont.Assign(TPersistent)
|
0079D835 FF5108 call dword ptr [ecx+$08]
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D838 8B8300030000 mov eax, [ebx+$0300]
0079D83E 8B10 mov edx, [eax]
* Reference to method TFontDialog.Execute()
|
0079D840 FF523C call dword ptr [edx+$3C]
0079D843 84C0 test al, al
0079D845 0F84AA000000 jz 0079D8F5
0079D84B 8D55FC lea edx, [ebp-$04]
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D84E 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TFontDialog.Font : TFont
|
0079D854 8B4058 mov eax, [eax+$58]
* Reference to: Graphics.TFont.GetName(TFont):TFontName;
|
0079D857 E8E432C9FF call 00430B40
0079D85C 8B45FC mov eax, [ebp-$04]
0079D85F 50 push eax
0079D860 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D862 E841EFFFFF call 0079C7A8
0079D867 5A pop edx
* Reference to : TJvRichEdit._PROC_00792C78()
|
0079D868 E80B54FFFF call 00792C78
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D86D 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TFontDialog.Font : TFont
|
0079D873 8B4058 mov eax, [eax+$58]
* Reference to: Graphics.TFont.GetCharset(TFont):TFontCharset;
|
0079D876 E8DD33C9FF call 00430C58
0079D87B 50 push eax
0079D87C 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D87E E825EFFFFF call 0079C7A8
0079D883 5A pop edx
* Reference to : TJvRichEdit._PROC_00792B5C()
|
0079D884 E8D352FFFF call 00792B5C
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D889 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TFontDialog.Font : TFont
|
0079D88F 8B4058 mov eax, [eax+$58]
* Reference to: Graphics.TFont.GetStyle(TFont):TFontStyles;
|
0079D892 E85933C9FF call 00430BF0
0079D897 50 push eax
0079D898 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D89A E809EFFFFF call 0079C7A8
0079D89F 5A pop edx
|
0079D8A0 E89354FFFF call 00792D38
0079D8A5 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D8A7 E8FCEEFFFF call 0079C7A8
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D8AC 8B9300030000 mov edx, [ebx+$0300]
* Reference to field TFontDialog.Font : TFont
|
0079D8B2 8B5258 mov edx, [edx+$58]
* Reference to field TFont.Color : TColor
|
0079D8B5 8B5218 mov edx, [edx+$18]
* Reference to : TJvRichEdit._PROC_00792BAC()
|
0079D8B8 E8EF52FFFF call 00792BAC
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D8BD 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TFontDialog.Font : TFont
|
0079D8C3 8B4058 mov eax, [eax+$58]
* Reference to: Graphics.TFont.GetSize(TFont):Integer;
|
0079D8C6 E8E932C9FF call 00430BB4
0079D8CB 50 push eax
0079D8CC 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D8CE E8D5EEFFFF call 0079C7A8
0079D8D3 5A pop edx
* Reference to : TJvRichEdit._PROC_00792DAC()
|
0079D8D4 E8D354FFFF call 00792DAC
* Reference to control TRMRichForm.FontDialog : TFontDialog
|
0079D8D9 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TFontDialog.Font : TFont
|
0079D8DF 8B4058 mov eax, [eax+$58]
* Reference to: Graphics.TFont.GetPitch(TFont):TFontPitch;
|
0079D8E2 E84133C9FF call 00430C28
0079D8E7 50 push eax
0079D8E8 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079D8EA E8B9EEFFFF call 0079C7A8
0079D8EF 5A pop edx
* Reference to : TJvRichEdit._PROC_00792E14()
|
0079D8F0 E81F55FFFF call 00792E14
0079D8F5 8BC3 mov eax, ebx
|
0079D8F7 E874ECFFFF call 0079C570
0079D8FC 33C0 xor eax, eax
0079D8FE 5A pop edx
0079D8FF 59 pop ecx
0079D900 59 pop ecx
0079D901 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]Í@'
|
0079D904 6819D97900 push $0079D919
0079D909 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079D90C E8137AC6FF call 00405324
0079D911 C3 ret
* Reference to: System.@HandleFinally;
|
0079D912 E9DD71C6FF jmp 00404AF4
0079D917 EBF0 jmp 0079D909
****** END
|
0079D919 5B pop ebx
0079D91A 59 pop ecx
0079D91B 5D pop ebp
0079D91C C3 ret
*)
end;
procedure TRMRichForm.ItemInserObjectClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0448
|
0079D920 8B8048040000 mov eax, [eax+$0448]
|
0079D926 E8B1A4FFFF call 00797DDC
0079D92B C3 ret
*)
end;
procedure TRMRichForm.ItemInsertPictureClick(Sender : TObject);
begin
(*
0079D92C 55 push ebp
0079D92D 8BEC mov ebp, esp
0079D92F 83C4F8 add esp, -$08
0079D932 53 push ebx
0079D933 56 push esi
0079D934 33C9 xor ecx, ecx
0079D936 894DF8 mov [ebp-$08], ecx
0079D939 8BD8 mov ebx, eax
0079D93B 33C0 xor eax, eax
0079D93D 55 push ebp
0079D93E 68D7D97900 push $0079D9D7
***** TRY
|
0079D943 64FF30 push dword ptr fs:[eax]
0079D946 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.OFFS_042C
|
0079D949 8BB32C040000 mov esi, [ebx+$042C]
0079D94F 8BC6 mov eax, esi
0079D951 8B10 mov edx, [eax]
0079D953 FF523C call dword ptr [edx+$3C]
0079D956 84C0 test al, al
0079D958 7467 jz 0079D9C1
0079D95A B201 mov dl, $01
* Reference to class TPicture
|
0079D95C A14CF54200 mov eax, dword ptr [$0042F54C]
* Reference to: Graphics.TPicture.Create(TPicture;boolean);
|
0079D961 E82E67C9FF call 00434094
0079D966 8945FC mov [ebp-$04], eax
0079D969 33C0 xor eax, eax
0079D96B 55 push ebp
0079D96C 68BAD97900 push $0079D9BA
***** TRY
|
0079D971 64FF30 push dword ptr fs:[eax]
0079D974 648920 mov fs:[eax], esp
0079D977 8D55F8 lea edx, [ebp-$08]
0079D97A 8BC6 mov eax, esi
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
0079D97C E8472CCAFF call 004405C8
0079D981 8B55F8 mov edx, [ebp-$08]
0079D984 8B45FC mov eax, [ebp-$04]
* Reference to: Graphics.TPicture.LoadFromFile(TPicture;AnsiString);
| or: QGraphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
0079D987 E82069C9FF call 004342AC
* Reference to: Clipbrd.Clipboard:TClipboard;
| or: ComObj.ComClassManager:TComClassManager;
| or: Graphics.GetFileFormats:TFileFormatsList;
| or: Graphics.GetClipboardFormats:TClipboardFormats;
| or: Printers.Printer:TPrinter;
| or: QClipbrd.Clipboard:TClipboard;
|
0079D98C E8DFB2CAFF call 00448C70
0079D991 8B55FC mov edx, [ebp-$04]
0079D994 8B08 mov ecx, [eax]
* Reference to method TPicture.Assign(TPersistent)
|
0079D996 FF5108 call dword ptr [ecx+$08]
* Reference to field TRMRichForm.OFFS_0448
|
0079D999 8B8348040000 mov eax, [ebx+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D99F E83CEDCDFF call 0047C6E0
0079D9A4 33C0 xor eax, eax
0079D9A6 5A pop edx
0079D9A7 59 pop ecx
0079D9A8 59 pop ecx
0079D9A9 648910 mov fs:[eax], edx
****** FINALLY
|
0079D9AC 68C1D97900 push $0079D9C1
0079D9B1 8B45FC mov eax, [ebp-$04]
* Reference to: System.TObject.Free(TObject);
|
0079D9B4 E89369C6FF call 0040434C
0079D9B9 C3 ret
* Reference to: System.@HandleFinally;
|
0079D9BA E93571C6FF jmp 00404AF4
0079D9BF EBF0 jmp 0079D9B1
****** END
|
0079D9C1 33C0 xor eax, eax
0079D9C3 5A pop edx
0079D9C4 59 pop ecx
0079D9C5 59 pop ecx
0079D9C6 648910 mov fs:[eax], edx
****** FINALLY
|
0079D9C9 68DED97900 push $0079D9DE
0079D9CE 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
0079D9D1 E84E79C6FF call 00405324
0079D9D6 C3 ret
* Reference to: System.@HandleFinally;
|
0079D9D7 E91871C6FF jmp 00404AF4
0079D9DC EBF0 jmp 0079D9CE
****** END
|
0079D9DE 5E pop esi
0079D9DF 5B pop ebx
0079D9E0 59 pop ecx
0079D9E1 59 pop ecx
0079D9E2 5D pop ebp
0079D9E3 C3 ret
*)
end;
procedure TRMRichForm.btnUndoClick(Sender : TObject);
begin
(*
0079D9E4 53 push ebx
0079D9E5 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0448
|
0079D9E7 8B8348040000 mov eax, [ebx+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D9ED E80AEDCDFF call 0047C6FC
0079D9F2 33D2 xor edx, edx
0079D9F4 8BC3 mov eax, ebx
* Reference to : TRMRichForm.RichEditChange()
|
0079D9F6 E809F6FFFF call 0079D004
0079D9FB 33D2 xor edx, edx
0079D9FD 8BC3 mov eax, ebx
|
0079D9FF E890EBFFFF call 0079C594
0079DA04 5B pop ebx
0079DA05 C3 ret
*)
end;
procedure TRMRichForm.ItemEditPasteSpecialClick(Sender : TObject);
begin
(*
0079DA08 55 push ebp
0079DA09 8BEC mov ebp, esp
0079DA0B 51 push ecx
0079DA0C 8945FC mov [ebp-$04], eax
0079DA0F 33C0 xor eax, eax
0079DA11 55 push ebp
0079DA12 6841DA7900 push $0079DA41
***** TRY
|
0079DA17 64FF30 push dword ptr fs:[eax]
0079DA1A 648920 mov fs:[eax], esp
0079DA1D 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079DA20 8B8048040000 mov eax, [eax+$0448]
|
0079DA26 E8899EFFFF call 007978B4
0079DA2B 33C0 xor eax, eax
0079DA2D 5A pop edx
0079DA2E 59 pop ecx
0079DA2F 59 pop ecx
0079DA30 648910 mov fs:[eax], edx
****** FINALLY
|
0079DA33 6848DA7900 push $0079DA48
0079DA38 8B45FC mov eax, [ebp-$04]
|
0079DA3B E830EBFFFF call 0079C570
0079DA40 C3 ret
* Reference to: System.@HandleFinally;
|
0079DA41 E9AE70C6FF jmp 00404AF4
0079DA46 EBF0 jmp 0079DA38
****** END
|
0079DA48 59 pop ecx
0079DA49 5D pop ebp
0079DA4A C3 ret
*)
end;
procedure TRMRichForm.ItemEditFindNextClick(Sender : TObject);
begin
(*
0079DA4C 53 push ebx
0079DA4D 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0448
|
0079DA4F 8B8348040000 mov eax, [ebx+$0448]
* Reference to : TJvRichEditStrings._PROC_00798F54()
|
0079DA55 E8FAB4FFFF call 00798F54
0079DA5A 84C0 test al, al
0079DA5C 7407 jz 0079DA65
0079DA5E 8BC3 mov eax, ebx
|
0079DA60 E80BEBFFFF call 0079C570
0079DA65 5B pop ebx
0079DA66 C3 ret
*)
end;
procedure TRMRichForm.ItemEditReplaceClick(Sender : TObject);
begin
(*
0079DA68 55 push ebp
0079DA69 8BEC mov ebp, esp
0079DA6B 6A00 push $00
0079DA6D 53 push ebx
0079DA6E 33D2 xor edx, edx
0079DA70 55 push ebp
0079DA71 68B1DA7900 push $0079DAB1
***** TRY
|
0079DA76 64FF32 push dword ptr fs:[edx]
0079DA79 648922 mov fs:[edx], esp
* Reference to field TRMRichForm.OFFS_0448
|
0079DA7C 8B9848040000 mov ebx, [eax+$0448]
0079DA82 8D55FC lea edx, [ebp-$04]
0079DA85 8BC3 mov eax, ebx
0079DA87 8B08 mov ecx, [eax]
0079DA89 FF91D4000000 call dword ptr [ecx+$00D4]
0079DA8F 8B55FC mov edx, [ebp-$04]
0079DA92 33C9 xor ecx, ecx
0079DA94 8BC3 mov eax, ebx
* Reference to : TJvRichEditStrings._PROC_00798E38()
|
0079DA96 E89DB3FFFF call 00798E38
0079DA9B 33C0 xor eax, eax
0079DA9D 5A pop edx
0079DA9E 59 pop ecx
0079DA9F 59 pop ecx
0079DAA0 648910 mov fs:[eax], edx
****** FINALLY
|
0079DAA3 68B8DA7900 push $0079DAB8
0079DAA8 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079DAAB E87478C6FF call 00405324
0079DAB0 C3 ret
* Reference to: System.@HandleFinally;
|
0079DAB1 E93E70C6FF jmp 00404AF4
0079DAB6 EBF0 jmp 0079DAA8
****** END
|
0079DAB8 5B pop ebx
0079DAB9 59 pop ecx
0079DABA 5D pop ebp
0079DABB C3 ret
*)
end;
procedure TRMRichForm.ItemEditObjPropsClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0448
|
0079DABC 8B8048040000 mov eax, [eax+$0448]
|
0079DAC2 E885A6FFFF call 0079814C
0079DAC7 C3 ret
*)
end;
procedure TRMRichForm.btnInsertFieldClick(Sender : TObject);
begin
(*
0079DAC8 55 push ebp
0079DAC9 8BEC mov ebp, esp
0079DACB 6A00 push $00
0079DACD 53 push ebx
0079DACE 56 push esi
0079DACF 8BD8 mov ebx, eax
0079DAD1 33C0 xor eax, eax
0079DAD3 55 push ebp
0079DAD4 682BDB7900 push $0079DB2B
***** TRY
|
0079DAD9 64FF30 push dword ptr fs:[eax]
0079DADC 648920 mov fs:[eax], esp
*)
end;
procedure TRMRichForm.btnSuperscriptClick(Sender : TObject);
begin
(*
0079DB38 53 push ebx
0079DB39 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0428
|
0079DB3B 80BB2804000000 cmp byte ptr [ebx+$0428], $00
0079DB42 754C jnz 0079DB90
* Reference to control TRMRichForm.btnSuperscript : TToolButton
|
0079DB44 8B8318040000 mov eax, [ebx+$0418]
* Reference to field TToolButton.Down : Boolean
|
0079DB4A 80B86A01000000 cmp byte ptr [eax+$016A], $00
0079DB51 7410 jz 0079DB63
0079DB53 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DB55 E84EECFFFF call 0079C7A8
0079DB5A B202 mov dl, $02
* Reference to : TJvRichEdit._PROC_00792E8C()
|
0079DB5C E82B53FFFF call 00792E8C
0079DB61 EB2D jmp 0079DB90
* Reference to control TRMRichForm.btnSubscript : TToolButton
|
0079DB63 8B831C040000 mov eax, [ebx+$041C]
* Reference to field TToolButton.Down : Boolean
|
0079DB69 80B86A01000000 cmp byte ptr [eax+$016A], $00
0079DB70 7410 jz 0079DB82
0079DB72 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DB74 E82FECFFFF call 0079C7A8
0079DB79 B201 mov dl, $01
* Reference to : TJvRichEdit._PROC_00792E8C()
|
0079DB7B E80C53FFFF call 00792E8C
0079DB80 EB0E jmp 0079DB90
0079DB82 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DB84 E81FECFFFF call 0079C7A8
0079DB89 33D2 xor edx, edx
* Reference to : TJvRichEdit._PROC_00792E8C()
|
0079DB8B E8FC52FFFF call 00792E8C
0079DB90 5B pop ebx
0079DB91 C3 ret
*)
end;
procedure TRMRichForm.ItemEditSelectAllClick(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.OFFS_0448
|
0079DB94 8B8048040000 mov eax, [eax+$0448]
* Reference to: StdCtrls.TCustomEdit.SelectAll(TCustomEdit);
|
0079DB9A E879EBCDFF call 0047C718
0079DB9F C3 ret
*)
end;
procedure TRMRichForm.btnOKClick(Sender : TObject);
begin
(*
0079DCB8 33D2 xor edx, edx
* Reference to field TRMRichForm.OnResize : TNotifyEvent
|
0079DCBA 8990F8000000 mov [eax+$00F8], edx
* Reference to field TRMRichForm.OFFS_00FC
|
0079DCC0 8990FC000000 mov [eax+$00FC], edx
* Reference to field TRMRichForm.ModalResult : TModalResult
|
0079DCC6 C7804C02000001000000 mov dword ptr [eax+$024C], $00000001
0079DCD0 C3 ret
*)
end;
procedure TRMRichForm.btnCancelClick(Sender : TObject);
begin
(*
0079DCD4 33D2 xor edx, edx
* Reference to field TRMRichForm.OnResize : TNotifyEvent
|
0079DCD6 8990F8000000 mov [eax+$00F8], edx
* Reference to field TRMRichForm.OFFS_00FC
|
0079DCDC 8990FC000000 mov [eax+$00FC], edx
* Reference to field TRMRichForm.ModalResult : TModalResult
|
0079DCE2 C7804C02000002000000 mov dword ptr [eax+$024C], $00000002
0079DCEC C3 ret
*)
end;
procedure TRMRichForm.FormClose(Sender : TObject);
begin
(*
0079DD30 33D2 xor edx, edx
* Reference to field TRMRichForm.OnResize : TNotifyEvent
|
0079DD32 8990F8000000 mov [eax+$00F8], edx
* Reference to field TRMRichForm.OFFS_00FC
|
0079DD38 8990FC000000 mov [eax+$00FC], edx
0079DD3E C3 ret
*)
end;
procedure TRMRichForm.ItemFormatParagraphClick(Sender : TObject);
begin
(*
0079DD40 55 push ebp
0079DD41 8BEC mov ebp, esp
0079DD43 51 push ecx
0079DD44 53 push ebx
0079DD45 8BD8 mov ebx, eax
0079DD47 33C9 xor ecx, ecx
0079DD49 B201 mov dl, $01
* Reference to class TRMParaFormatDlg
|
0079DD4B A154967900 mov eax, dword ptr [$00799654]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
0079DD50 E87B40D0FF call 004A1DD0
0079DD55 8945FC mov [ebp-$04], eax
0079DD58 33C0 xor eax, eax
0079DD5A 55 push ebp
* Possible String Reference to: '<27>8k<38><6B><EFBFBD><EFBFBD>[Y]Ë<>S<EFBFBD>ڍ<EFBFBD><DA8D>'
|
0079DD5B 68B7DF7900 push $0079DFB7
***** TRY
|
0079DD60 64FF30 push dword ptr fs:[eax]
0079DD63 648920 mov fs:[eax], esp
*)
end;
procedure TRMRichForm._PROC_0079ABAB(Sender : TObject);
begin
(*
0079ABAB 8BEA mov ebp, edx
0079ABAD 8BF8 mov edi, eax
0079ABAF B201 mov dl, $01
* Reference to class TMemoryStream
|
0079ABB1 A1B00A4200 mov eax, dword ptr [$00420AB0]
* Reference to: System.TObject.Create(TObject;Boolean);
|
0079ABB6 E86197C6FF call 0040431C
0079ABBB 8BF0 mov esi, eax
0079ABBD 8B8554020000 mov eax, [ebp+$0254]
0079ABC3 8BD6 mov edx, esi
0079ABC5 8B08 mov ecx, [eax]
* Possible reference to virtual method TMemoryStream.OFFS_78
|
0079ABC7 FF5178 call dword ptr [ecx+$78]
0079ABCA 6A00 push $00
0079ABCC 6A00 push $00
0079ABCE 8BC6 mov eax, esi
|
0079ABD0 E82FB7C8FF call 00426304
0079ABD5 8BD6 mov edx, esi
0079ABD7 8B8754020000 mov eax, [edi+$0254]
0079ABDD 8B08 mov ecx, [eax]
* Possible reference to virtual method TMemoryStream.OFFS_6C
|
0079ABDF FF516C call dword ptr [ecx+$6C]
0079ABE2 8BC6 mov eax, esi
* Reference to: System.TObject.Free(TObject);
|
0079ABE4 E86397C6FF call 0040434C
0079ABE9 5D pop ebp
0079ABEA 5F pop edi
0079ABEB 5E pop esi
0079ABEC C3 ret
*)
end;
procedure TRMRichForm._PROC_0079ABF0(Sender : TObject);
begin
(*
0079ABF0 55 push ebp
0079ABF1 8BEC mov ebp, esp
0079ABF3 6A00 push $00
0079ABF5 6A00 push $00
0079ABF7 53 push ebx
0079ABF8 56 push esi
0079ABF9 57 push edi
0079ABFA 84D2 test dl, dl
0079ABFC 7408 jz 0079AC06
0079ABFE 83C4F0 add esp, -$10
* Reference to: System.@ClassCreate(TClass;Boolean):TObject;
|
0079AC01 E8BE9AC6FF call 004046C4
0079AC06 8BDA mov ebx, edx
0079AC08 8BF8 mov edi, eax
0079AC0A 33C0 xor eax, eax
0079AC0C 55 push ebp
0079AC0D 68CBAC7900 push $0079ACCB
***** TRY
|
0079AC12 64FF30 push dword ptr fs:[eax]
0079AC15 648920 mov fs:[eax], esp
0079AC18 33D2 xor edx, edx
0079AC1A 8BC7 mov eax, edi
* Reference to : TRMApplication._PROC_00747EBC()
|
0079AC1C E89BD2FAFF call 00747EBC
0079AC21 8D8790000000 lea eax, [edi+$0090]
* Possible String Reference to: 'Rich'
|
0079AC27 BAF8AC7900 mov edx, $0079ACF8
* Reference to: System.@LStrAsg(void;void;void;void);
|
0079AC2C E847A7C6FF call 00405378
0079AC31 C687BC01000000 mov byte ptr [edi+$01BC], $00
*)
end;
procedure TRMRichForm._PROC_0079AD11(Sender : TObject);
begin
(*
0079AD11 3800 cmp [eax], al
0079AD13 7426 jz 0079AD3B
0079AD15 8B86A8010000 mov eax, [esi+$01A8]
* Reference to: System.TObject.Free(TObject);
|
0079AD1B E82C96C6FF call 0040434C
0079AD20 33C0 xor eax, eax
0079AD22 8986A8010000 mov [esi+$01A8], eax
0079AD28 8B86AC010000 mov eax, [esi+$01AC]
* Reference to: System.TObject.Free(TObject);
|
0079AD2E E81996C6FF call 0040434C
0079AD33 33C0 xor eax, eax
0079AD35 8986AC010000 mov [esi+$01AC], eax
0079AD3B 8BD3 mov edx, ebx
0079AD3D 80E2FC and dl, $FC
0079AD40 8BC6 mov eax, esi
* Reference to: AutoAdapAS.TEnumDispatcherAS.Destroy(TEnumDispatcherAS;boolean);
| or: CmAdmCtl.TCOMAdminCatalog.Destroy(TCOMAdminCatalog;boolean);
| or: CmAdmCtl.TCOMAdminCatalogObject.Destroy(TCOMAdminCatalogObject;boolean);
| or: CmAdmCtl.TCOMAdminCatalogCollection.Destroy(TCOMAdminCatalogCollection;boolean);
| or: IndySockTransport.TIndyTCPConnectionTransport.Destroy(TIndyTCPConnectionTransport;boolean);
| or: InSSLOpenSSL.TIdSSLCipher.Destroy(TIdSSLCipher;boolean);
|
0079AD42 E8BDD1FAFF call 00747F04
0079AD47 84DB test bl, bl
0079AD49 7E07 jle 0079AD52
0079AD4B 8BC6 mov eax, esi
* Reference to: System.@ClassDestroy(TObject);
|
0079AD4D E8C299C6FF call 00404714
0079AD52 5E pop esi
0079AD53 5B pop ebx
0079AD54 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079AD58(Sender : TObject);
begin
(*
0079AD58 53 push ebx
0079AD59 56 push esi
0079AD5A 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_01AC
|
0079AD5C 83BBAC01000000 cmp dword ptr [ebx+$01AC], +$00
0079AD63 7534 jnz 0079AD99
*)
end;
procedure TRMRichForm._PROC_0079ADA4(Sender : TObject);
begin
(*
0079ADA4 55 push ebp
0079ADA5 8BEC mov ebp, esp
0079ADA7 51 push ecx
0079ADA8 53 push ebx
0079ADA9 56 push esi
0079ADAA 57 push edi
0079ADAB 8BF8 mov edi, eax
0079ADAD 33C0 xor eax, eax
0079ADAF 8945FC mov [ebp-$04], eax
0079ADB2 8BDA mov ebx, edx
0079ADB4 85DB test ebx, ebx
0079ADB6 7E1F jle 0079ADD7
0079ADB8 BE01000000 mov esi, $00000001
0079ADBD 668B4477FE mov ax, word ptr [edi+esi*2-$02]
0079ADC2 BAE0AD7900 mov edx, $0079ADE0
|
0079ADC7 E864A2FDFF call 00775030
0079ADCC 84C0 test al, al
0079ADCE 7403 jz 0079ADD3
0079ADD0 FF45FC inc dword ptr [ebp-$04]
0079ADD3 46 inc esi
0079ADD4 4B dec ebx
0079ADD5 75E6 jnz 0079ADBD
0079ADD7 8B45FC mov eax, [ebp-$04]
0079ADDA 5F pop edi
0079ADDB 5E pop esi
0079ADDC 5B pop ebx
0079ADDD 59 pop ecx
0079ADDE 5D pop ebp
0079ADDF C3 ret
*)
end;
procedure TRMRichForm._PROC_0079ADE0(Sender : TObject);
begin
(*
0079ADE0 002400 add [eax+eax], ah
0079ADE3 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079AE01(Sender : TObject);
begin
(*
0079AE01 8BEC mov ebp, esp
0079AE03 B907000000 mov ecx, $00000007
0079AE08 6A00 push $00
0079AE0A 6A00 push $00
0079AE0C 49 dec ecx
0079AE0D 75F9 jnz 0079AE08
0079AE0F 53 push ebx
0079AE10 56 push esi
0079AE11 57 push edi
0079AE12 8955FC mov [ebp-$04], edx
0079AE15 8BF0 mov esi, eax
0079AE17 8D7DF8 lea edi, [ebp-$08]
0079AE1A 33C0 xor eax, eax
0079AE1C 55 push ebp
0079AE1D 68F6AF7900 push $0079AFF6
***** TRY
|
0079AE22 64FF30 push dword ptr fs:[eax]
0079AE25 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.VCLComObject : Pointer
|
0079AE28 8B4620 mov eax, [esi+$20]
* Reference to field Pointer.OFFS_00D8
|
0079AE2B 80B8D800000000 cmp byte ptr [eax+$00D8], $00
0079AE32 7415 jz 0079AE49
0079AE34 8B45FC mov eax, [ebp-$04]
0079AE37 8B8020020000 mov eax, [eax+$0220]
0079AE3D 33D2 xor edx, edx
0079AE3F 8B08 mov ecx, [eax]
0079AE41 FF512C call dword ptr [ecx+$2C]
0079AE44 E952010000 jmp 0079AF9B
0079AE49 33C0 xor eax, eax
0079AE4B 55 push ebp
0079AE4C 6894AF7900 push $0079AF94
***** TRY
|
0079AE51 64FF30 push dword ptr fs:[eax]
0079AE54 648920 mov fs:[eax], esp
0079AE57 8B45FC mov eax, [ebp-$04]
0079AE5A 8B8020020000 mov eax, [eax+$0220]
* Reference to: Classes.TStrings.BeginUpdate(TStrings);
|
0079AE60 E86F9BC8FF call 004249D4
0079AE65 8D55E4 lea edx, [ebp-$1C]
0079AE68 8B45FC mov eax, [ebp-$04]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0079AE6B E880D7CEFF call 004885F0
0079AE70 8B55E4 mov edx, [ebp-$1C]
0079AE73 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@WStrFromLStr(WideString;WideString;String);
|
0079AE76 E88DADC6FF call 00405C08
0079AE7B 8B55E8 mov edx, [ebp-$18]
0079AE7E B901000000 mov ecx, $00000001
0079AE83 B808B07900 mov eax, $0079B008
* Reference to : TWrapperComponent._PROC_0077AC10()
|
0079AE88 E883FDFDFF call 0077AC10
0079AE8D 8907 mov [edi], eax
0079AE8F 833F00 cmp dword ptr [edi], +$00
0079AE92 0F8EE0000000 jle 0079AF78
0079AE98 8D55DC lea edx, [ebp-$24]
0079AE9B 8B45FC mov eax, [ebp-$04]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0079AE9E E84DD7CEFF call 004885F0
0079AEA3 8B55DC mov edx, [ebp-$24]
0079AEA6 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@WStrFromLStr(WideString;WideString;String);
|
0079AEA9 E85AADC6FF call 00405C08
0079AEAE 8B45E0 mov eax, [ebp-$20]
0079AEB1 8B17 mov edx, [edi]
* Reference to : TRMRichForm._PROC_0079ADA4()
|
0079AEB3 E8ECFEFFFF call 0079ADA4
0079AEB8 8BD8 mov ebx, eax
0079AEBA D1FB sar ebx, 1
0079AEBC 7903 jns 0079AEC1
0079AEBE 83D300 adc ebx, +$00
0079AEC1 8B17 mov edx, [edi]
0079AEC3 4A dec edx
0079AEC4 2BD3 sub edx, ebx
0079AEC6 8B45FC mov eax, [ebp-$04]
0079AEC9 8B08 mov ecx, [eax]
0079AECB FF91DC000000 call dword ptr [ecx+$00DC]
0079AED1 8D45F0 lea eax, [ebp-$10]
0079AED4 50 push eax
0079AED5 8D55D4 lea edx, [ebp-$2C]
0079AED8 8B45FC mov eax, [ebp-$04]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0079AEDB E810D7CEFF call 004885F0
0079AEE0 8B55D4 mov edx, [ebp-$2C]
0079AEE3 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@WStrFromLStr(WideString;WideString;String);
|
0079AEE6 E81DADC6FF call 00405C08
0079AEEB 8B45D8 mov eax, [ebp-$28]
0079AEEE 8D4DF4 lea ecx, [ebp-$0C]
0079AEF1 8BD7 mov edx, edi
|
0079AEF3 E8A027FEFF call 0077D698
0079AEF8 8B45F0 mov eax, [ebp-$10]
0079AEFB 33D2 xor edx, edx
* Reference to: System.@WStrCmp;
|
0079AEFD E842AEC6FF call 00405D44
0079AF02 7474 jz 0079AF78
0079AF04 8D45EC lea eax, [ebp-$14]
0079AF07 50 push eax
0079AF08 8B4DF0 mov ecx, [ebp-$10]
0079AF0B 8BD6 mov edx, esi
0079AF0D 8BC6 mov eax, esi
* Reference to : TRMApplication._PROC_00744670()
|
0079AF0F E85C97FAFF call 00744670
0079AF14 8B55F4 mov edx, [ebp-$0C]
0079AF17 2B17 sub edx, dword ptr [edi]
0079AF19 42 inc edx
0079AF1A 8B45FC mov eax, [ebp-$04]
0079AF1D 8B08 mov ecx, [eax]
0079AF1F FF91D8000000 call dword ptr [ecx+$00D8]
0079AF25 8D45D0 lea eax, [ebp-$30]
0079AF28 8B55EC mov edx, [ebp-$14]
* Reference to: System.@LStrFromWStr(String;String;WideString);
|
0079AF2B E88CA6C6FF call 004055BC
0079AF30 8B55D0 mov edx, [ebp-$30]
0079AF33 8B45FC mov eax, [ebp-$04]
* Reference to: StdCtrls.TCustomEdit.SetSelText(TCustomEdit;AnsiString);
|
0079AF36 E83119CEFF call 0047C86C
0079AF3B 8D55C8 lea edx, [ebp-$38]
0079AF3E 8B45FC mov eax, [ebp-$04]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0079AF41 E8AAD6CEFF call 004885F0
0079AF46 8B55C8 mov edx, [ebp-$38]
0079AF49 8D45CC lea eax, [ebp-$34]
* Reference to: System.@WStrFromLStr(WideString;WideString;String);
|
0079AF4C E8B7ACC6FF call 00405C08
0079AF51 8B45CC mov eax, [ebp-$34]
0079AF54 50 push eax
0079AF55 8B45EC mov eax, [ebp-$14]
* Reference to: System.@WStrLen(WideString):Integer;
|
0079AF58 E8CBACC6FF call 00405C28
0079AF5D 8BC8 mov ecx, eax
0079AF5F 030F add ecx, [edi]
0079AF61 41 inc ecx
0079AF62 B808B07900 mov eax, $0079B008
0079AF67 5A pop edx
* Reference to : TWrapperComponent._PROC_0077AC10()
|
0079AF68 E8A3FCFDFF call 0077AC10
0079AF6D 8907 mov [edi], eax
0079AF6F 833F00 cmp dword ptr [edi], +$00
0079AF72 0F8F20FFFFFF jnle 0079AE98
0079AF78 33C0 xor eax, eax
0079AF7A 5A pop edx
0079AF7B 59 pop ecx
0079AF7C 59 pop ecx
0079AF7D 648910 mov fs:[eax], edx
****** FINALLY
|
0079AF80 689BAF7900 push $0079AF9B
0079AF85 8B45FC mov eax, [ebp-$04]
0079AF88 8B8020020000 mov eax, [eax+$0220]
* Reference to: Classes.TStrings.EndUpdate(TStrings);
|
0079AF8E E8FD9AC8FF call 00424A90
0079AF93 C3 ret
* Reference to: System.@HandleFinally;
|
0079AF94 E95B9BC6FF jmp 00404AF4
0079AF99 EBEA jmp 0079AF85
****** END
|
0079AF9B 33C0 xor eax, eax
0079AF9D 5A pop edx
0079AF9E 59 pop ecx
0079AF9F 59 pop ecx
0079AFA0 648910 mov fs:[eax], edx
****** FINALLY
|
0079AFA3 68FDAF7900 push $0079AFFD
0079AFA8 8D45C8 lea eax, [ebp-$38]
* Reference to: System.@LStrClr(void;void);
|
0079AFAB E874A3C6FF call 00405324
0079AFB0 8D45CC lea eax, [ebp-$34]
* Reference to: System.@WStrClr(void;void);
|
0079AFB3 E888AAC6FF call 00405A40
0079AFB8 8D45D0 lea eax, [ebp-$30]
* Reference to: System.@LStrClr(void;void);
|
0079AFBB E864A3C6FF call 00405324
0079AFC0 8D45D4 lea eax, [ebp-$2C]
* Reference to: System.@LStrClr(void;void);
|
0079AFC3 E85CA3C6FF call 00405324
0079AFC8 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@WStrClr(void;void);
|
0079AFCB E870AAC6FF call 00405A40
0079AFD0 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
0079AFD3 E84CA3C6FF call 00405324
0079AFD8 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@WStrClr(void;void);
|
0079AFDB E860AAC6FF call 00405A40
0079AFE0 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@LStrClr(void;void);
|
0079AFE3 E83CA3C6FF call 00405324
0079AFE8 8D45E8 lea eax, [ebp-$18]
0079AFEB BA03000000 mov edx, $00000003
* Reference to: System.@WStrArrayClr(void;void;Integer);
|
0079AFF0 E863AAC6FF call 00405A58
0079AFF5 C3 ret
* Reference to: System.@HandleFinally;
|
0079AFF6 E9F99AC6FF jmp 00404AF4
0079AFFB EBAB jmp 0079AFA8
****** END
|
0079AFFD 5F pop edi
0079AFFE 5E pop esi
0079AFFF 5B pop ebx
0079B000 8BE5 mov esp, ebp
0079B002 5D pop ebp
0079B003 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B004(Sender : TObject);
begin
(*
0079B004 0200 add al, byte ptr [eax]
0079B006 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079B00D(Sender : TObject);
begin
(*
0079B00D 8BEC mov ebp, esp
0079B00F 81C468FFFFFF add esp, $FFFFFF68
0079B015 53 push ebx
0079B016 56 push esi
0079B017 57 push edi
0079B018 8BD8 mov ebx, eax
0079B01A 8BC3 mov eax, ebx
* Reference to : TRMApplication._PROC_00744850()
|
0079B01C E82F98FAFF call 00744850
0079B021 8945EC mov [ebp-$14], eax
0079B024 837DEC00 cmp dword ptr [ebp-$14], +$00
0079B028 7419 jz 0079B043
0079B02A 8B45EC mov eax, [ebp-$14]
* Reference to : TRMPrinterCanvas._PROC_0073023C()
|
0079B02D E80A52F9FF call 0073023C
0079B032 85C0 test eax, eax
0079B034 740D jz 0079B043
0079B036 8B45EC mov eax, [ebp-$14]
* Reference to : TRMPrinterCanvas._PROC_0073023C()
|
0079B039 E8FE51F9FF call 0073023C
0079B03E 8945E8 mov [ebp-$18], eax
0079B041 EB0A jmp 0079B04D
0079B043 6A00 push $00
* Reference to: user32.GetDC()
|
0079B045 E8EAD9C6FF call 00408A34
0079B04A 8945E8 mov [ebp-$18], eax
0079B04D 33D2 xor edx, edx
0079B04F 55 push ebp
* Possible String Reference to: '<27>0<EFBFBD><30><EFBFBD><EFBFBD>ۋE<DB8B>_^[<5B><>]<5D>'
|
0079B050 68BFB27900 push $0079B2BF
***** TRY
|
0079B055 64FF32 push dword ptr fs:[edx]
0079B058 648922 mov fs:[edx], esp
0079B05B 8D45B8 lea eax, [ebp-$48]
0079B05E 33C9 xor ecx, ecx
0079B060 BA30000000 mov edx, $00000030
* Reference to: System.@FillChar(void;void;Integer;Char);
|
0079B065 E82A87C6FF call 00403794
0079B06A 8B45E8 mov eax, [ebp-$18]
0079B06D 8945B8 mov [ebp-$48], eax
0079B070 8945BC mov [ebp-$44], eax
0079B073 6A58 push $58
0079B075 8B45E8 mov eax, [ebp-$18]
0079B078 50 push eax
* Reference to: gdi32.GetDeviceCaps()
|
0079B079 E83ED5C6FF call 004085BC
0079B07E 8945F4 mov [ebp-$0C], eax
0079B081 6A5A push $5A
0079B083 8B45E8 mov eax, [ebp-$18]
0079B086 50 push eax
* Reference to: gdi32.GetDeviceCaps()
|
0079B087 E830D5C6FF call 004085BC
0079B08C 8BF8 mov edi, eax
0079B08E 837DEC00 cmp dword ptr [ebp-$14], +$00
0079B092 745D jz 0079B0F1
0079B094 8B45EC mov eax, [ebp-$14]
* Reference to : TRMPrinterCanvas._PROC_0073023C()
|
0079B097 E8A051F9FF call 0073023C
0079B09C 85C0 test eax, eax
0079B09E 7451 jz 0079B0F1
0079B0A0 B201 mov dl, $01
* Reference to class TFont
|
0079B0A2 A15CEE4200 mov eax, dword ptr [$0042EE5C]
* Reference to: Graphics.TFont.Create(TFont;boolean);
|
0079B0A7 E8B056C9FF call 0043075C
0079B0AC 8BF0 mov esi, eax
0079B0AE 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B0B0 E8A3FCFFFF call 0079AD58
* Reference to field TRMRichForm.OFFS_0238
|
0079B0B5 8B9038020000 mov edx, [eax+$0238]
0079B0BB 8BC6 mov eax, esi
0079B0BD 8B08 mov ecx, [eax]
* Reference to method TFont.Assign(TPersistent)
|
0079B0BF FF5108 call dword ptr [ecx+$08]
0079B0C2 8B45EC mov eax, [ebp-$14]
* Reference to : TRMPrinterCanvas._PROC_00730430()
|
0079B0C5 E86653F9FF call 00730430
0079B0CA 8BD6 mov edx, esi
* Reference to: DBGrids.TColumnTitle.SetFont(TColumnTitle;TFont);
| or: Graphics.TCanvas.SetFont(TCanvas;TFont);
| or: QDBGrids.TColumnTitle.SetFont(TColumnTitle;QGraphics.TFont);
|
0079B0CC E86B6DC9FF call 00431E3C
0079B0D1 8D4580 lea eax, [ebp-$80]
0079B0D4 50 push eax
0079B0D5 8B45EC mov eax, [ebp-$14]
* Reference to : TRMPrinterCanvas._PROC_00730430()
|
0079B0D8 E85353F9FF call 00730430
* Reference to: Graphics.TCanvas.GetHandle(TCanvas):HDC;
|
0079B0DD E85E6EC9FF call 00431F40
0079B0E2 50 push eax
* Reference to: gdi32.GetTextMetricsA()
|
0079B0E3 E864D5C6FF call 0040864C
0079B0E8 8BC6 mov eax, esi
* Reference to: System.TObject.Free(TObject);
|
0079B0EA E85D92C6FF call 0040434C
0079B0EF EB05 jmp 0079B0F6
0079B0F1 33C0 xor eax, eax
0079B0F3 894588 mov [ebp-$78], eax
0079B0F6 DB83DC000000 fild dword ptr [ebx+$00DC]
0079B0FC 83C4F8 add esp, -$08
0079B0FF DD1C24 fstp qword ptr [esp]
0079B102 9B wait
0079B103 DB83E4000000 fild dword ptr [ebx+$00E4]
0079B109 83C4F8 add esp, -$08
0079B10C DD1C24 fstp qword ptr [esp]
0079B10F 9B wait
0079B110 8BC3 mov eax, ebx
|
0079B112 E83D96FAFF call 00744754
0079B117 50 push eax
* Reference to field TRMRichForm.OFFS_00D4
|
0079B118 8B83D4000000 mov eax, [ebx+$00D4]
* Reference to field TRMRichForm.OFFS_00C4
|
0079B11E 8B93C4000000 mov edx, [ebx+$00C4]
0079B124 03D2 add edx, edx
0079B126 2BC2 sub eax, edx
0079B128 5A pop edx
0079B129 2BC2 sub eax, edx
0079B12B 8B4DEC mov ecx, [ebp-$14]
0079B12E 33D2 xor edx, edx
* Reference to : TRMApplication._PROC_0073FB54()
|
0079B130 E81F4AFAFF call 0073FB54
0079B135 89857CFFFFFF mov [ebp+$FFFFFF7C], eax
0079B13B DB857CFFFFFF fild dword ptr [ebp+$FFFFFF7C]
* Reference to: System.@ROUND;
|
0079B141 E89680C6FF call 004031DC
0079B146 8BF0 mov esi, eax
0079B148 89B57CFFFFFF mov [ebp+$FFFFFF7C], esi
0079B14E DB857CFFFFFF fild dword ptr [ebp+$FFFFFF7C]
0079B154 D80DD0B27900 fmul dword ptr [$0079B2D0]
0079B15A DB45F4 fild dword ptr [ebp-$0C]
0079B15D DEF9 fdivp st(1), st(0)
* Reference to: System.@ROUND;
|
0079B15F E87880C6FF call 004031DC
0079B164 8BF0 mov esi, eax
0079B166 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B168 E8EBFBFFFF call 0079AD58
* Reference to field TRMRichForm.OFFS_0238
|
0079B16D 8B8038020000 mov eax, [eax+$0238]
* Reference to : TJvRichEdit._PROC_00792D90()
|
0079B173 E8187CFFFF call 00792D90
0079B178 99 cdq
0079B179 33C2 xor eax, edx
0079B17B 2BC2 sub eax, edx
0079B17D F7EF imul edi
0079B17F 89857CFFFFFF mov [ebp+$FFFFFF7C], eax
0079B185 DB857CFFFFFF fild dword ptr [ebp+$FFFFFF7C]
0079B18B D835D4B27900 fdiv dword ptr [$0079B2D4]
* Reference to: System.@ROUND;
|
0079B191 E84680C6FF call 004031DC
0079B196 8945F0 mov [ebp-$10], eax
0079B199 89BD7CFFFFFF mov [ebp+$FFFFFF7C], edi
0079B19F DB857CFFFFFF fild dword ptr [ebp+$FFFFFF7C]
0079B1A5 D83DD8B27900 fdivr dword ptr [$0079B2D8]
* Reference to: System.@ROUND;
|
0079B1AB E82C80C6FF call 004031DC
0079B1B0 50 push eax
0079B1B1 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]
0079B1B7 50 push eax
0079B1B8 8BCE mov ecx, esi
0079B1BA 33D2 xor edx, edx
0079B1BC 33C0 xor eax, eax
|
0079B1BE E8B163C8FF call 00421574
0079B1C3 57 push edi
0079B1C4 8DB56CFFFFFF lea esi, [ebp+$FFFFFF6C]
0079B1CA 8D7DC0 lea edi, [ebp-$40]
0079B1CD A5 movsd
0079B1CE A5 movsd
0079B1CF A5 movsd
0079B1D0 A5 movsd
0079B1D1 5F pop edi
0079B1D2 57 push edi
0079B1D3 8D75C0 lea esi, [ebp-$40]
0079B1D6 8D7DD0 lea edi, [ebp-$30]
0079B1D9 A5 movsd
0079B1DA A5 movsd
0079B1DB A5 movsd
0079B1DC A5 movsd
0079B1DD 5F pop edi
* Reference to field TRMRichForm.OnDockOver : TDockOverEvent
|
0079B1DE 8BB3B8010000 mov esi, [ebx+$01B8]
0079B1E4 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B1E6 E86DFBFFFF call 0079AD58
* Reference to: Controls.TWinControl.WMFontChange(TWinControl;TMessage;TMessage);
| or: Controls.TWinControl.WMTimeChange(TWinControl;TMessage;TMessage);
| or: Controls.TWinControl.Invalidate(TWinControl);
|
0079B1EB E874D3CEFF call 00488564
0079B1F0 8945F8 mov [ebp-$08], eax
0079B1F3 8975E0 mov [ebp-$20], esi
0079B1F6 C745E4FFFFFFFF mov dword ptr [ebp-$1C], $FFFFFFFF
0079B1FD 8D45B8 lea eax, [ebp-$48]
0079B200 50 push eax
0079B201 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B203 E850FBFFFF call 0079AD58
0079B208 33C9 xor ecx, ecx
0079B20A BA39040000 mov edx, $00000439
* Reference to: Controls.TControl.Perform(TControl;Cardinal;Longint;Longint):Longint;
|
0079B20F E824E6CEFF call 00489838
0079B214 837DF800 cmp dword ptr [ebp-$08], +$00
0079B218 7507 jnz 0079B221
0079B21A 33C0 xor eax, eax
0079B21C 8945FC mov [ebp-$04], eax
0079B21F EB37 jmp 0079B258
0079B221 8B75CC mov esi, [ebp-$34]
0079B224 3B75DC cmp esi, [ebp-$24]
0079B227 742A jz 0079B253
0079B229 89BD7CFFFFFF mov [ebp+$FFFFFF7C], edi
0079B22F DB857CFFFFFF fild dword ptr [ebp+$FFFFFF7C]
0079B235 D83DD0B27900 fdivr dword ptr [$0079B2D0]
0079B23B 89B568FFFFFF mov [ebp+$FFFFFF68], esi
0079B241 DB8568FFFFFF fild dword ptr [ebp+$FFFFFF68]
0079B247 DEF1 fdivrp st(1), st(0)
* Reference to: System.@ROUND;
|
0079B249 E88E7FC6FF call 004031DC
0079B24E 8945FC mov [ebp-$04], eax
0079B251 EB05 jmp 0079B258
0079B253 33C0 xor eax, eax
0079B255 8945FC mov [ebp-$04], eax
0079B258 6A00 push $00
0079B25A 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B25C E8F7FAFFFF call 0079AD58
0079B261 33C9 xor ecx, ecx
0079B263 BA39040000 mov edx, $00000439
* Reference to: Controls.TControl.Perform(TControl;Cardinal;Longint;Longint):Longint;
|
0079B268 E8CBE5CEFF call 00489838
0079B26D 8B45FC mov eax, [ebp-$04]
0079B270 034588 add eax, [ebp-$78]
0079B273 0345F0 add eax, [ebp-$10]
0079B276 8945FC mov [ebp-$04], eax
0079B279 8B4DEC mov ecx, [ebp-$14]
0079B27C B201 mov dl, $01
0079B27E 8B45FC mov eax, [ebp-$04]
|
0079B281 E84649FAFF call 0073FBCC
0079B286 D805DCB27900 fadd dword ptr [$0079B2DC]
* Reference to: System.@ROUND;
|
0079B28C E84B7FC6FF call 004031DC
0079B291 8945FC mov [ebp-$04], eax
0079B294 33C0 xor eax, eax
0079B296 5A pop edx
0079B297 59 pop ecx
0079B298 59 pop ecx
0079B299 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '<27>E<EFBFBD>_^[<5B><>]<5D>'
|
0079B29C 68C6B27900 push $0079B2C6
0079B2A1 837DEC00 cmp dword ptr [ebp-$14], +$00
0079B2A5 740C jz 0079B2B3
0079B2A7 8B45EC mov eax, [ebp-$14]
* Reference to : TRMPrinterCanvas._PROC_0073023C()
|
0079B2AA E88D4FF9FF call 0073023C
0079B2AF 85C0 test eax, eax
0079B2B1 750B jnz 0079B2BE
0079B2B3 6A00 push $00
0079B2B5 8B45E8 mov eax, [ebp-$18]
0079B2B8 50 push eax
* Reference to: user32.ReleaseDC()
|
0079B2B9 E82EDAC6FF call 00408CEC
0079B2BE C3 ret
* Reference to: System.@HandleFinally;
|
0079B2BF E93098C6FF jmp 00404AF4
0079B2C4 EBDB jmp 0079B2A1
****** END
|
0079B2C6 8B45FC mov eax, [ebp-$04]
0079B2C9 5F pop edi
0079B2CA 5E pop esi
0079B2CB 5B pop ebx
0079B2CC 8BE5 mov esp, ebp
0079B2CE 5D pop ebp
0079B2CF C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B2E1(Sender : TObject);
begin
(*
0079B2E1 8BEC mov ebp, esp
0079B2E3 83C4B4 add esp, -$4C
0079B2E6 53 push ebx
0079B2E7 56 push esi
0079B2E8 57 push edi
0079B2E9 8B750C mov esi, [ebp+$0C]
0079B2EC 8D7DF4 lea edi, [ebp-$0C]
0079B2EF A5 movsd
0079B2F0 A5 movsd
0079B2F1 894DFC mov [ebp-$04], ecx
0079B2F4 8BF2 mov esi, edx
0079B2F6 8B5D10 mov ebx, [ebp+$10]
0079B2F9 807D0800 cmp byte ptr [ebp+$08], $00
0079B2FD 740B jz 0079B30A
* Reference to field TRMRichForm.DockSite : Boolean
|
0079B2FF 8B80A8010000 mov eax, [eax+$01A8]
0079B305 8945E8 mov [ebp-$18], eax
0079B308 EB08 jmp 0079B312
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B30A E849FAFFFF call 0079AD58
0079B30F 8945E8 mov [ebp-$18], eax
0079B312 8D45B8 lea eax, [ebp-$48]
0079B315 33C9 xor ecx, ecx
0079B317 BA30000000 mov edx, $00000030
* Reference to: System.@FillChar(void;void;Integer;Char);
|
0079B31C E87384C6FF call 00403794
0079B321 8975B8 mov [ebp-$48], esi
0079B324 8B45FC mov eax, [ebp-$04]
0079B327 8945BC mov [ebp-$44], eax
0079B32A 6A58 push $58
0079B32C 56 push esi
* Reference to: gdi32.GetDeviceCaps()
|
0079B32D E88AD2C6FF call 004085BC
0079B332 8BF8 mov edi, eax
0079B334 6A5A push $5A
0079B336 56 push esi
* Reference to: gdi32.GetDeviceCaps()
|
0079B337 E880D2C6FF call 004085BC
0079B33C 8BF0 mov esi, eax
0079B33E DB03 fild dword ptr [ebx]
0079B340 D80D4CB47900 fmul dword ptr [$0079B44C]
0079B346 897DB4 mov [ebp-$4C], edi
0079B349 DB45B4 fild dword ptr [ebp-$4C]
0079B34C DEF9 fdivp st(1), st(0)
* Reference to: System.@ROUND;
|
0079B34E E8897EC6FF call 004031DC
0079B353 83C02D add eax, +$2D
0079B356 8945C0 mov [ebp-$40], eax
0079B359 DB4308 fild dword ptr [ebx+$08]
0079B35C D80D4CB47900 fmul dword ptr [$0079B44C]
0079B362 897DB4 mov [ebp-$4C], edi
0079B365 DB45B4 fild dword ptr [ebp-$4C]
0079B368 DEF9 fdivp st(1), st(0)
* Reference to: System.@ROUND;
|
0079B36A E86D7EC6FF call 004031DC
0079B36F 8945C8 mov [ebp-$38], eax
0079B372 DB4304 fild dword ptr [ebx+$04]
0079B375 D80D4CB47900 fmul dword ptr [$0079B44C]
0079B37B 8975B4 mov [ebp-$4C], esi
0079B37E DB45B4 fild dword ptr [ebp-$4C]
0079B381 DEF9 fdivp st(1), st(0)
* Reference to: System.@ROUND;
|
0079B383 E8547EC6FF call 004031DC
0079B388 8945C4 mov [ebp-$3C], eax
0079B38B DB430C fild dword ptr [ebx+$0C]
0079B38E D80D4CB47900 fmul dword ptr [$0079B44C]
0079B394 8975B4 mov [ebp-$4C], esi
0079B397 DB45B4 fild dword ptr [ebp-$4C]
0079B39A DEF9 fdivp st(1), st(0)
* Reference to: System.@ROUND;
|
0079B39C E83B7EC6FF call 004031DC
0079B3A1 8945CC mov [ebp-$34], eax
0079B3A4 8D75C0 lea esi, [ebp-$40]
0079B3A7 8D7DD0 lea edi, [ebp-$30]
0079B3AA A5 movsd
0079B3AB A5 movsd
0079B3AC A5 movsd
0079B3AD A5 movsd
0079B3AE 8B45F4 mov eax, [ebp-$0C]
0079B3B1 8945E0 mov [ebp-$20], eax
0079B3B4 8B45F8 mov eax, [ebp-$08]
0079B3B7 8945E4 mov [ebp-$1C], eax
0079B3BA 807D0800 cmp byte ptr [ebp+$08], $00
0079B3BE 7407 jz 0079B3C7
0079B3C0 BB01000000 mov ebx, $00000001
0079B3C5 EB02 jmp 0079B3C9
0079B3C7 33DB xor ebx, ebx
0079B3C9 6A01 push $01
0079B3CB 8B45B8 mov eax, [ebp-$48]
0079B3CE 50 push eax
* Reference to: gdi32.SetMapMode()
|
0079B3CF E8A0D3C6FF call 00408774
0079B3D4 8945EC mov [ebp-$14], eax
0079B3D7 6A00 push $00
0079B3D9 33C9 xor ecx, ecx
0079B3DB BA39040000 mov edx, $00000439
0079B3E0 8B45E8 mov eax, [ebp-$18]
* Reference to: Controls.TControl.Perform(TControl;Cardinal;Longint;Longint):Longint;
|
0079B3E3 E850E4CEFF call 00489838
0079B3E8 33C0 xor eax, eax
0079B3EA 55 push ebp
0079B3EB 6838B47900 push $0079B438
***** TRY
|
0079B3F0 64FF30 push dword ptr fs:[eax]
0079B3F3 648920 mov fs:[eax], esp
0079B3F6 8D45B8 lea eax, [ebp-$48]
0079B3F9 50 push eax
0079B3FA 8BCB mov ecx, ebx
0079B3FC BA39040000 mov edx, $00000439
0079B401 8B45E8 mov eax, [ebp-$18]
* Reference to: Controls.TControl.Perform(TControl;Cardinal;Longint;Longint):Longint;
|
0079B404 E82FE4CEFF call 00489838
0079B409 8945F0 mov [ebp-$10], eax
0079B40C 33C0 xor eax, eax
0079B40E 5A pop edx
0079B40F 59 pop ecx
0079B410 59 pop ecx
0079B411 648910 mov fs:[eax], edx
****** FINALLY
|
0079B414 683FB47900 push $0079B43F
0079B419 6A00 push $00
0079B41B 33C9 xor ecx, ecx
0079B41D BA39040000 mov edx, $00000439
0079B422 8B45E8 mov eax, [ebp-$18]
* Reference to: Controls.TControl.Perform(TControl;Cardinal;Longint;Longint):Longint;
|
0079B425 E80EE4CEFF call 00489838
0079B42A 8B45EC mov eax, [ebp-$14]
0079B42D 50 push eax
0079B42E 8B45B8 mov eax, [ebp-$48]
0079B431 50 push eax
* Reference to: gdi32.SetMapMode()
|
0079B432 E83DD3C6FF call 00408774
0079B437 C3 ret
* Reference to: System.@HandleFinally;
|
0079B438 E9B796C6FF jmp 00404AF4
0079B43D EBDA jmp 0079B419
****** END
|
0079B43F 8B45F0 mov eax, [ebp-$10]
0079B442 5F pop edi
0079B443 5E pop esi
0079B444 5B pop ebx
0079B445 8BE5 mov esp, ebp
0079B447 5D pop ebp
0079B448 C20C00 ret $000C
*)
end;
procedure TRMRichForm._PROC_0079B451(Sender : TObject);
begin
(*
0079B451 8BEC mov ebp, esp
0079B453 8B4508 mov eax, [ebp+$08]
0079B456 8B40FC mov eax, [eax-$04]
0079B459 05F8000000 add eax, +$000000F8
0079B45E 50 push eax
0079B45F 8B4508 mov eax, [ebp+$08]
0079B462 83C0F4 add eax, -$0C
0079B465 50 push eax
0079B466 6A01 push $01
0079B468 8B4508 mov eax, [ebp+$08]
0079B46B 8B40FC mov eax, [eax-$04]
0079B46E 8B8094000000 mov eax, [eax+$0094]
* Reference to: Graphics.TCanvas.GetHandle(TCanvas):HDC;
|
0079B474 E8C76AC9FF call 00431F40
0079B479 50 push eax
0079B47A 8B4508 mov eax, [ebp+$08]
0079B47D 8B40FC mov eax, [eax-$04]
0079B480 8B8094000000 mov eax, [eax+$0094]
* Reference to: Graphics.TCanvas.GetHandle(TCanvas):HDC;
|
0079B486 E8B56AC9FF call 00431F40
0079B48B 8BD0 mov edx, eax
0079B48D 8B4508 mov eax, [ebp+$08]
0079B490 8B40FC mov eax, [eax-$04]
0079B493 59 pop ecx
|
0079B494 E847FEFFFF call 0079B2E0
0079B499 5D pop ebp
0079B49A C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B49C(Sender : TObject);
begin
(*
0079B49C 55 push ebp
0079B49D 8BEC mov ebp, esp
0079B49F 83C4CC add esp, -$34
0079B4A2 53 push ebx
0079B4A3 56 push esi
0079B4A4 57 push edi
|
0079B4A5 E85629F9FF call 0072DE00
0079B4AA 8BD8 mov ebx, eax
0079B4AC 8BC3 mov eax, ebx
* Reference to : TRMPrinterCanvas._PROC_0073023C()
|
0079B4AE E8894DF9FF call 0073023C
0079B4B3 85C0 test eax, eax
0079B4B5 740C jz 0079B4C3
0079B4B7 8BC3 mov eax, ebx
* Reference to : TRMPrinterCanvas._PROC_0073023C()
|
0079B4B9 E87E4DF9FF call 0073023C
0079B4BE 8945F4 mov [ebp-$0C], eax
0079B4C1 EB0A jmp 0079B4CD
0079B4C3 6A00 push $00
* Reference to: user32.GetDC()
|
0079B4C5 E86AD5C6FF call 00408A34
0079B4CA 8945F4 mov [ebp-$0C], eax
0079B4CD B201 mov dl, $01
* Reference to class TMetafile
|
0079B4CF A158F74200 mov eax, dword ptr [$0042F758]
* Reference to: Graphics.TMetafile.Create(TMetafile;boolean);
|
0079B4D4 E83B97C9FF call 00434C14
0079B4D9 8945FC mov [ebp-$04], eax
0079B4DC 33C0 xor eax, eax
0079B4DE 8945F0 mov [ebp-$10], eax
0079B4E1 33C0 xor eax, eax
0079B4E3 8945F8 mov [ebp-$08], eax
0079B4E6 33C0 xor eax, eax
0079B4E8 55 push ebp
0079B4E9 6814B87900 push $0079B814
***** TRY
|
0079B4EE 64FF30 push dword ptr fs:[eax]
0079B4F1 648920 mov fs:[eax], esp
0079B4F4 8B4508 mov eax, [ebp+$08]
0079B4F7 8078F300 cmp byte ptr [eax-$0D], $00
0079B4FB 0F84A3000000 jz 0079B5A4
0079B501 8B4508 mov eax, [ebp+$08]
0079B504 8B40FC mov eax, [eax-$04]
0079B507 DB80DC000000 fild dword ptr [eax+$00DC]
0079B50D 83C4F8 add esp, -$08
0079B510 DD1C24 fstp qword ptr [esp]
0079B513 9B wait
0079B514 8B4508 mov eax, [ebp+$08]
0079B517 8B40FC mov eax, [eax-$04]
0079B51A DB80E4000000 fild dword ptr [eax+$00E4]
0079B520 83C4F8 add esp, -$08
0079B523 DD1C24 fstp qword ptr [esp]
0079B526 9B wait
0079B527 8B4508 mov eax, [ebp+$08]
0079B52A 8B40FC mov eax, [eax-$04]
|
0079B52D E82292FAFF call 00744754
0079B532 8B5508 mov edx, [ebp+$08]
0079B535 8B52FC mov edx, [edx-$04]
0079B538 8BB2D4000000 mov esi, [edx+$00D4]
0079B53E 8B5508 mov edx, [ebp+$08]
0079B541 8B52FC mov edx, [edx-$04]
0079B544 8B92C4000000 mov edx, [edx+$00C4]
0079B54A 03D2 add edx, edx
0079B54C 2BF2 sub esi, edx
0079B54E 2BF0 sub esi, eax
0079B550 8B4508 mov eax, [ebp+$08]
0079B553 8B40FC mov eax, [eax-$04]
0079B556 DB80E0000000 fild dword ptr [eax+$00E0]
0079B55C 83C4F8 add esp, -$08
0079B55F DD1C24 fstp qword ptr [esp]
0079B562 9B wait
0079B563 8B4508 mov eax, [ebp+$08]
0079B566 8B40FC mov eax, [eax-$04]
0079B569 DB80E8000000 fild dword ptr [eax+$00E8]
0079B56F 83C4F8 add esp, -$08
0079B572 DD1C24 fstp qword ptr [esp]
0079B575 9B wait
0079B576 8B4508 mov eax, [ebp+$08]
0079B579 8B40FC mov eax, [eax-$04]
* Reference to : TRMApplication._PROC_007446DC()
|
0079B57C E85B91FAFF call 007446DC
0079B581 8B5508 mov edx, [ebp+$08]
0079B584 8B52FC mov edx, [edx-$04]
0079B587 8BBAD8000000 mov edi, [edx+$00D8]
0079B58D 8B5508 mov edx, [ebp+$08]
0079B590 8B52FC mov edx, [edx-$04]
0079B593 8B92C8000000 mov edx, [edx+$00C8]
0079B599 03D2 add edx, edx
0079B59B 2BFA sub edi, edx
0079B59D 2BF8 sub edi, eax
0079B59F E992000000 jmp 0079B636
0079B5A4 8B4508 mov eax, [ebp+$08]
0079B5A7 8B40FC mov eax, [eax-$04]
* Reference to field TMetafile.OFFS_004C
|
0079B5AA 8B404C mov eax, [eax+$4C]
0079B5AD DB4020 fild dword ptr [eax+$20]
0079B5B0 83C4F8 add esp, -$08
0079B5B3 DD1C24 fstp qword ptr [esp]
0079B5B6 9B wait
0079B5B7 8B4508 mov eax, [ebp+$08]
0079B5BA 8B40FC mov eax, [eax-$04]
0079B5BD 8B4054 mov eax, [eax+$54]
0079B5C0 DB4020 fild dword ptr [eax+$20]
0079B5C3 83C4F8 add esp, -$08
0079B5C6 DD1C24 fstp qword ptr [esp]
0079B5C9 9B wait
0079B5CA 8B4508 mov eax, [ebp+$08]
0079B5CD 8B40FC mov eax, [eax-$04]
|
0079B5D0 E87F91FAFF call 00744754
0079B5D5 8B5508 mov edx, [ebp+$08]
0079B5D8 8B52FC mov edx, [edx-$04]
0079B5DB 8B722C mov esi, [edx+$2C]
0079B5DE 8B5508 mov edx, [ebp+$08]
0079B5E1 8B52FC mov edx, [edx-$04]
0079B5E4 8B5234 mov edx, [edx+$34]
0079B5E7 03D2 add edx, edx
0079B5E9 2BF2 sub esi, edx
0079B5EB 2BF0 sub esi, eax
0079B5ED 8B4508 mov eax, [ebp+$08]
0079B5F0 8B40FC mov eax, [eax-$04]
0079B5F3 8B4050 mov eax, [eax+$50]
0079B5F6 DB4020 fild dword ptr [eax+$20]
0079B5F9 83C4F8 add esp, -$08
0079B5FC DD1C24 fstp qword ptr [esp]
0079B5FF 9B wait
0079B600 8B4508 mov eax, [ebp+$08]
0079B603 8B40FC mov eax, [eax-$04]
0079B606 8B4058 mov eax, [eax+$58]
0079B609 DB4020 fild dword ptr [eax+$20]
0079B60C 83C4F8 add esp, -$08
0079B60F DD1C24 fstp qword ptr [esp]
0079B612 9B wait
0079B613 8B4508 mov eax, [ebp+$08]
0079B616 8B40FC mov eax, [eax-$04]
* Reference to : TRMApplication._PROC_007446DC()
|
0079B619 E8BE90FAFF call 007446DC
0079B61E 8B5508 mov edx, [ebp+$08]
0079B621 8B52FC mov edx, [edx-$04]
0079B624 8B7A30 mov edi, [edx+$30]
0079B627 8B5508 mov edx, [ebp+$08]
0079B62A 8B52FC mov edx, [edx-$04]
0079B62D 8B5238 mov edx, [edx+$38]
0079B630 03D2 add edx, edx
0079B632 2BFA sub edi, edx
0079B634 2BF8 sub edi, eax
0079B636 8BCB mov ecx, ebx
0079B638 33D2 xor edx, edx
0079B63A 8BC6 mov eax, esi
* Reference to : TRMApplication._PROC_0073FB54()
|
0079B63C E81345FAFF call 0073FB54
0079B641 8945DC mov [ebp-$24], eax
0079B644 DB45DC fild dword ptr [ebp-$24]
* Reference to: System.@ROUND;
|
0079B647 E8907BC6FF call 004031DC
0079B64C 8BF0 mov esi, eax
0079B64E 8BCB mov ecx, ebx
0079B650 B201 mov dl, $01
0079B652 8BC7 mov eax, edi
* Reference to : TRMApplication._PROC_0073FB54()
|
0079B654 E8FB44FAFF call 0073FB54
0079B659 8945DC mov [ebp-$24], eax
0079B65C DB45DC fild dword ptr [ebp-$24]
* Reference to: System.@ROUND;
|
0079B65F E8787BC6FF call 004031DC
0079B664 8BF8 mov edi, eax
0079B666 57 push edi
0079B667 8D45E0 lea eax, [ebp-$20]
0079B66A 50 push eax
0079B66B 8BCE mov ecx, esi
0079B66D 33D2 xor edx, edx
0079B66F 33C0 xor eax, eax
|
0079B671 E8FE5EC8FF call 00421574
0079B676 8BD6 mov edx, esi
0079B678 8B45FC mov eax, [ebp-$04]
0079B67B 8B08 mov ecx, [eax]
* Reference to method TMetafile.SetWidth(Integer)
|
0079B67D FF5140 call dword ptr [ecx+$40]
0079B680 8BD7 mov edx, edi
0079B682 8B45FC mov eax, [ebp-$04]
0079B685 8B08 mov ecx, [eax]
* Reference to method TMetafile.SetHeight(Integer)
|
0079B687 FF5134 call dword ptr [ecx+$34]
0079B68A 8B45F4 mov eax, [ebp-$0C]
0079B68D 50 push eax
0079B68E 8B4DFC mov ecx, [ebp-$04]
0079B691 B201 mov dl, $01
* Reference to class TMetafileCanvas
|
0079B693 A1F8F54200 mov eax, dword ptr [$0042F5F8]
* Reference to: Graphics.TMetafileCanvas.Create(TMetafileCanvas;boolean;TMetafile;HDC);
|
0079B698 E83B92C9FF call 004348D8
0079B69D 8945F8 mov [ebp-$08], eax
0079B6A0 8B45F8 mov eax, [ebp-$08]
* Reference to field TMetafileCanvas.Brush : TBrush
|
0079B6A3 8B4014 mov eax, [eax+$14]
0079B6A6 B201 mov dl, $01
* Reference to: Graphics.TBrush.SetStyle(TBrush;TBrushStyle);
|
0079B6A8 E8B35BC9FF call 00431260
0079B6AD 8D45E0 lea eax, [ebp-$20]
0079B6B0 50 push eax
0079B6B1 8B4508 mov eax, [ebp+$08]
0079B6B4 83C0F4 add eax, -$0C
0079B6B7 50 push eax
0079B6B8 8B4508 mov eax, [ebp+$08]
0079B6BB 8A40F3 mov al, byte ptr [eax-$0D]
0079B6BE 50 push eax
0079B6BF 8B45F8 mov eax, [ebp-$08]
* Reference to: Graphics.TCanvas.GetHandle(TCanvas):HDC;
|
0079B6C2 E87968C9FF call 00431F40
0079B6C7 8BD0 mov edx, eax
0079B6C9 8B4508 mov eax, [ebp+$08]
0079B6CC 8B40FC mov eax, [eax-$04]
0079B6CF 8B4DF4 mov ecx, [ebp-$0C]
|
0079B6D2 E809FCFFFF call 0079B2E0
0079B6D7 8B5508 mov edx, [ebp+$08]
0079B6DA 8B52FC mov edx, [edx-$04]
* Reference to field TMetafileCanvas.OFFS_01B4
|
0079B6DD 8982B4010000 mov [edx+$01B4], eax
0079B6E3 8D45F8 lea eax, [ebp-$08]
* Reference to: SysUtils.FreeAndNil(void;void);
|
0079B6E6 E8C16DC7FF call 004124AC
0079B6EB 8BC3 mov eax, ebx
* Reference to : TRMPrinterCanvas._PROC_0073023C()
|
0079B6ED E84A4BF9FF call 0073023C
0079B6F2 85C0 test eax, eax
0079B6F4 750B jnz 0079B701
0079B6F6 8B45F4 mov eax, [ebp-$0C]
0079B6F9 50 push eax
0079B6FA 6A00 push $00
* Reference to: user32.ReleaseDC()
|
0079B6FC E8EBD5C6FF call 00408CEC
0079B701 8B4508 mov eax, [ebp+$08]
0079B704 8078F300 cmp byte ptr [eax-$0D], $00
0079B708 0F84E8000000 jz 0079B7F6
0079B70E 8B4508 mov eax, [ebp+$08]
0079B711 8B40FC mov eax, [eax-$04]
* Reference to : TRMApplication._PROC_00743924()
|
0079B714 E80B82FAFF call 00743924
0079B719 84C0 test al, al
0079B71B 0F85B5000000 jnz 0079B7D6
0079B721 B201 mov dl, $01
* Reference to class TBitmap
|
0079B723 A108F94200 mov eax, dword ptr [$0042F908]
* Reference to: Graphics.TBitmap.Create(TBitmap;boolean);
|
0079B728 E8CFB1C9FF call 004368FC
0079B72D 8945F0 mov [ebp-$10], eax
0079B730 8B4508 mov eax, [ebp+$08]
0079B733 8B40FC mov eax, [eax-$04]
* Reference to field TBitmap.OFFS_0100
|
0079B736 8B9000010000 mov edx, [eax+$0100]
0079B73C 8B4508 mov eax, [ebp+$08]
0079B73F 8B40FC mov eax, [eax-$04]
0079B742 2B90F8000000 sub edx, dword ptr [eax+$00F8]
0079B748 42 inc edx
0079B749 8B45F0 mov eax, [ebp-$10]
0079B74C 8B08 mov ecx, [eax]
* Reference to method TBitmap.SetWidth(Integer)
|
0079B74E FF5140 call dword ptr [ecx+$40]
0079B751 8B4508 mov eax, [ebp+$08]
0079B754 8B40FC mov eax, [eax-$04]
* Reference to field TBitmap.OFFS_0104
|
0079B757 8B9004010000 mov edx, [eax+$0104]
0079B75D 8B4508 mov eax, [ebp+$08]
0079B760 8B40FC mov eax, [eax-$04]
0079B763 2B90FC000000 sub edx, dword ptr [eax+$00FC]
0079B769 42 inc edx
0079B76A 8B45F0 mov eax, [ebp-$10]
0079B76D 8B08 mov ecx, [eax]
* Reference to method TBitmap.SetHeight(Integer)
|
0079B76F FF5134 call dword ptr [ecx+$34]
0079B772 8B45F0 mov eax, [ebp-$10]
0079B775 8B10 mov edx, [eax]
* Reference to method TBitmap.GetHeight()
|
0079B777 FF5220 call dword ptr [edx+$20]
0079B77A 50 push eax
0079B77B 8D45CC lea eax, [ebp-$34]
0079B77E 50 push eax
0079B77F 8B45F0 mov eax, [ebp-$10]
0079B782 8B10 mov edx, [eax]
* Reference to method TBitmap.GetWidth()
|
0079B784 FF522C call dword ptr [edx+$2C]
0079B787 8BC8 mov ecx, eax
0079B789 33D2 xor edx, edx
0079B78B 33C0 xor eax, eax
|
0079B78D E8E25DC8FF call 00421574
0079B792 8D45CC lea eax, [ebp-$34]
0079B795 50 push eax
0079B796 8B45F0 mov eax, [ebp-$10]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
0079B799 E82EB7C9FF call 00436ECC
0079B79E 8B4DFC mov ecx, [ebp-$04]
0079B7A1 5A pop edx
* Reference to: Graphics.TCanvas.StretchDraw(TCanvas;Windows.TRect;Windows.TRect;TGraphic);
|
0079B7A2 E8FD63C9FF call 00431BA4
0079B7A7 8B45F0 mov eax, [ebp-$10]
0079B7AA 50 push eax
0079B7AB 8B4508 mov eax, [ebp+$08]
0079B7AE 8B40FC mov eax, [eax-$04]
0079B7B1 8B88FC000000 mov ecx, [eax+$00FC]
0079B7B7 8B4508 mov eax, [ebp+$08]
0079B7BA 8B40FC mov eax, [eax-$04]
0079B7BD 8B90F8000000 mov edx, [eax+$00F8]
0079B7C3 8B4508 mov eax, [ebp+$08]
0079B7C6 8B40FC mov eax, [eax-$04]
0079B7C9 8B8094000000 mov eax, [eax+$0094]
* Reference to: Graphics.TCanvas.Draw(TCanvas;Integer;Integer;TGraphic);
|
0079B7CF E8D85FC9FF call 004317AC
0079B7D4 EB20 jmp 0079B7F6
0079B7D6 8B4508 mov eax, [ebp+$08]
0079B7D9 8B40FC mov eax, [eax-$04]
0079B7DC 8D90F8000000 lea edx, [eax+$00F8]
0079B7E2 8B4508 mov eax, [ebp+$08]
0079B7E5 8B40FC mov eax, [eax-$04]
0079B7E8 8B8094000000 mov eax, [eax+$0094]
0079B7EE 8B4DFC mov ecx, [ebp-$04]
* Reference to: Graphics.TCanvas.StretchDraw(TCanvas;Windows.TRect;Windows.TRect;TGraphic);
|
0079B7F1 E8AE63C9FF call 00431BA4
0079B7F6 33C0 xor eax, eax
0079B7F8 5A pop edx
0079B7F9 59 pop ecx
0079B7FA 59 pop ecx
0079B7FB 648910 mov fs:[eax], edx
****** FINALLY
|
0079B7FE 681BB87900 push $0079B81B
0079B803 8D45FC lea eax, [ebp-$04]
* Reference to: SysUtils.FreeAndNil(void;void);
|
0079B806 E8A16CC7FF call 004124AC
0079B80B 8D45F0 lea eax, [ebp-$10]
* Reference to: SysUtils.FreeAndNil(void;void);
|
0079B80E E8996CC7FF call 004124AC
0079B813 C3 ret
* Reference to: System.@HandleFinally;
|
0079B814 E9DB92C6FF jmp 00404AF4
0079B819 EBE8 jmp 0079B803
****** END
|
0079B81B 5F pop edi
0079B81C 5E pop esi
0079B81D 5B pop ebx
0079B81E 8BE5 mov esp, ebp
0079B820 5D pop ebp
0079B821 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B824(Sender : TObject);
begin
(*
0079B824 55 push ebp
0079B825 8BEC mov ebp, esp
0079B827 83C4F0 add esp, -$10
0079B82A 8855F3 mov [ebp-$0D], dl
0079B82D 8945FC mov [ebp-$04], eax
0079B830 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OnDockOver : TDockOverEvent
|
0079B833 8B80B8010000 mov eax, [eax+$01B8]
0079B839 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.OFFS_01B4
|
0079B83C 8982B4010000 mov [edx+$01B4], eax
0079B842 C745F8FFFFFFFF mov dword ptr [ebp-$08], $FFFFFFFF
0079B849 8945F4 mov [ebp-$0C], eax
0079B84C 8B45FC mov eax, [ebp-$04]
* Reference to : TRMApplication._PROC_00743924()
|
0079B84F E8D080FAFF call 00743924
0079B854 3C01 cmp al, $01
0079B856 7509 jnz 0079B861
0079B858 55 push ebp
|
0079B859 E8F2FBFFFF call 0079B450
0079B85E 59 pop ecx
0079B85F EB07 jmp 0079B868
0079B861 55 push ebp
* Reference to : TRMRichForm._PROC_0079B49C()
|
0079B862 E835FCFFFF call 0079B49C
0079B867 59 pop ecx
0079B868 8BE5 mov esp, ebp
0079B86A 5D pop ebp
0079B86B C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B86C(Sender : TObject);
begin
(*
0079B86C 56 push esi
0079B86D 83C4F8 add esp, -$08
0079B870 8BF0 mov esi, eax
0079B872 8BC6 mov eax, esi
* Reference to : TRMApplication._PROC_00745A18()
|
0079B874 E89FA1FAFF call 00745A18
0079B879 8BC6 mov eax, esi
0079B87B 8B10 mov edx, [eax]
* Reference to method TRMRichForm.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0079B87D FF5238 call dword ptr [edx+$38]
0079B880 8BC6 mov eax, esi
0079B882 8B10 mov edx, [eax]
* Reference to method TRMRichForm.GetClientOrigin()
|
0079B884 FF5240 call dword ptr [edx+$40]
0079B887 33C0 xor eax, eax
* Reference to field TRMRichForm.OnDockOver : TDockOverEvent
|
0079B889 8986B8010000 mov [esi+$01B8], eax
* Reference to field TRMRichForm.ControlStyle : TControlStyle
|
0079B88F 8B4650 mov eax, [esi+$50]
* Reference to : TRMApplication._PROC_00742744()
|
0079B892 E8AD6EFAFF call 00742744
0079B897 890424 mov [esp], eax
0079B89A DB0424 fild dword ptr [esp]
0079B89D 83C4F8 add esp, -$08
0079B8A0 DD1C24 fstp qword ptr [esp]
0079B8A3 9B wait
* Reference to field TRMRichForm.OFFS_0058
|
0079B8A4 8B4658 mov eax, [esi+$58]
* Reference to : TRMApplication._PROC_00742744()
|
0079B8A7 E8986EFAFF call 00742744
0079B8AC 8944240C mov [esp+$0C], eax
0079B8B0 DB44240C fild dword ptr [esp+$0C]
0079B8B4 83C4F8 add esp, -$08
0079B8B7 DD1C24 fstp qword ptr [esp]
0079B8BA 9B wait
0079B8BB 8BC6 mov eax, esi
* Reference to : TRMApplication._PROC_007446DC()
|
0079B8BD E81A8EFAFF call 007446DC
0079B8C2 F7D8 neg eax
0079B8C4 50 push eax
* Reference to field TRMRichForm.Height : Integer
|
0079B8C5 8B464C mov eax, [esi+$4C]
* Reference to : TRMApplication._PROC_00742744()
|
0079B8C8 E8776EFAFF call 00742744
0079B8CD 89442404 mov [esp+$04], eax
0079B8D1 DB442404 fild dword ptr [esp+$04]
0079B8D5 83C4F8 add esp, -$08
0079B8D8 DD1C24 fstp qword ptr [esp]
0079B8DB 9B wait
* Reference to field TRMRichForm.ControlState : TControlState
|
0079B8DC 8B4654 mov eax, [esi+$54]
* Reference to : TRMApplication._PROC_00742744()
|
0079B8DF E8606EFAFF call 00742744
0079B8E4 89442410 mov [esp+$10], eax
0079B8E8 DB442410 fild dword ptr [esp+$10]
0079B8EC 83C4F8 add esp, -$08
0079B8EF DD1C24 fstp qword ptr [esp]
0079B8F2 9B wait
0079B8F3 8BC6 mov eax, esi
|
0079B8F5 E85A8EFAFF call 00744754
0079B8FA F7D8 neg eax
0079B8FC 50 push eax
* Reference to field TRMRichForm.OnResize : TNotifyEvent
|
0079B8FD 8D86F8000000 lea eax, [esi+$00F8]
0079B903 50 push eax
* Reference to: user32.InflateRect()
|
0079B904 E89BD2C6FF call 00408BA4
0079B909 BA02000000 mov edx, $00000002
0079B90E 8BC6 mov eax, esi
* Reference to : TRMApplication._PROC_00744870()
|
0079B910 E85B8FFAFF call 00744870
0079B915 85C0 test eax, eax
0079B917 7E19 jle 0079B932
0079B919 BA03000000 mov edx, $00000003
0079B91E 8BC6 mov eax, esi
* Reference to : TRMApplication._PROC_00744870()
|
0079B920 E84B8FFAFF call 00744870
0079B925 85C0 test eax, eax
0079B927 7E09 jle 0079B932
0079B929 B201 mov dl, $01
0079B92B 8BC6 mov eax, esi
* Reference to : TRMRichForm._PROC_0079B824()
|
0079B92D E8F2FEFFFF call 0079B824
0079B932 8BC6 mov eax, esi
0079B934 8B10 mov edx, [eax]
* Reference to method TRMRichForm.InitiateAction()
|
0079B936 FF5278 call dword ptr [edx+$78]
0079B939 8BC6 mov eax, esi
0079B93B 8B10 mov edx, [eax]
* Reference to method TRMRichForm.Action()
|
0079B93D FF523C call dword ptr [edx+$3C]
0079B940 59 pop ecx
0079B941 5A pop edx
0079B942 5E pop esi
0079B943 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B944(Sender : TObject);
begin
(*
0079B944 53 push ebx
0079B945 8BD8 mov ebx, eax
0079B947 8BC3 mov eax, ebx
|
0079B949 E8CAADFAFF call 00746718
0079B94E 33C0 xor eax, eax
* Reference to field TRMRichForm.OnDockOver : TDockOverEvent
|
0079B950 8983B8010000 mov [ebx+$01B8], eax
0079B956 5B pop ebx
0079B957 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B958(Sender : TObject);
begin
(*
0079B958 53 push ebx
0079B959 8BD8 mov ebx, eax
* Reference to field TRMRichForm.ParentWindow : HWnd
|
0079B95B 80BB9001000000 cmp byte ptr [ebx+$0190], $00
0079B962 756E jnz 0079B9D2
* Reference to field TRMRichForm.OFFS_0198
|
0079B964 80BB9801000000 cmp byte ptr [ebx+$0198], $00
0079B96B 7565 jnz 0079B9D2
* Reference to field TRMRichForm.Left : Integer
|
0079B96D 8B5340 mov edx, [ebx+$40]
* Reference to field TRMRichForm.Top : Integer
|
0079B970 8B4344 mov eax, [ebx+$44]
0079B973 8B08 mov ecx, [eax]
* Possible reference to virtual method TInteger.OFFS_08
|
0079B975 FF5108 call dword ptr [ecx+$08]
0079B978 8BCB mov ecx, ebx
* Reference to field TRMRichForm.Top : Integer
|
0079B97A 8B5344 mov edx, [ebx+$44]
0079B97D 8BC3 mov eax, ebx
* Reference to : TRMApplication._PROC_007446C8()
|
0079B97F E8448DFAFF call 007446C8
0079B984 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B986 E8CDF3FFFF call 0079AD58
* Reference to field TRMRichForm.DockSite : Boolean
|
0079B98B 8B93A8010000 mov edx, [ebx+$01A8]
|
0079B991 E812F2FFFF call 0079ABA8
0079B996 8BC3 mov eax, ebx
* Reference to : TRMApplication._PROC_00747B94()
|
0079B998 E8F7C1FAFF call 00747B94
0079B99D 84C0 test al, al
0079B99F 7510 jnz 0079B9B1
0079B9A1 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079B9A3 E8B0F3FFFF call 0079AD58
0079B9A8 8BD0 mov edx, eax
0079B9AA 8BC3 mov eax, ebx
|
0079B9AC E84FF4FFFF call 0079AE00
* Reference to field TRMRichForm.ParentWindow : HWnd
|
0079B9B1 80BB9001000000 cmp byte ptr [ebx+$0190], $00
0079B9B8 7518 jnz 0079B9D2
* Reference to field TRMRichForm.OFFS_0152
|
0079B9BA 6683BB5201000000 cmp word ptr [ebx+$0152], +$00
0079B9C2 740E jz 0079B9D2
0079B9C4 8BD3 mov edx, ebx
* Reference to field TRMRichForm.OFFS_0154
|
0079B9C6 8B8354010000 mov eax, [ebx+$0154]
* Possible reference to virtual method TRMRichForm.OFFS_0150
|
0079B9CC FF9350010000 call dword ptr [ebx+$0150]
0079B9D2 5B pop ebx
0079B9D3 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079B9D4(Sender : TObject);
begin
(*
0079B9D4 55 push ebp
0079B9D5 8BEC mov ebp, esp
0079B9D7 81C4F8FEFFFF add esp, $FFFFFEF8
0079B9DD 53 push ebx
0079B9DE 56 push esi
0079B9DF 33C9 xor ecx, ecx
0079B9E1 894DF8 mov [ebp-$08], ecx
0079B9E4 8BF2 mov esi, edx
0079B9E6 8945FC mov [ebp-$04], eax
0079B9E9 33C0 xor eax, eax
0079B9EB 55 push ebp
0079B9EC 689BBB7900 push $0079BB9B
***** TRY
|
0079B9F1 64FF30 push dword ptr fs:[eax]
0079B9F4 648920 mov fs:[eax], esp
0079B9F7 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0094
|
0079B9FA 8B9094000000 mov edx, [eax+$0094]
0079BA00 8B45FC mov eax, [ebp-$04]
* Reference to : TRMApplication._PROC_00745A18()
|
0079BA03 E810A0FAFF call 00745A18
0079BA08 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_003C
|
0079BA0B 80783C00 cmp byte ptr [eax+$3C], $00
0079BA0F 0F8470010000 jz 0079BB85
0079BA15 8B45FC mov eax, [ebp-$04]
0079BA18 8B10 mov edx, [eax]
* Reference to method TRMRichForm.CreateWnd()
|
0079BA1A FF92A0000000 call dword ptr [edx+$00A0]
0079BA20 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_003C
|
0079BA23 80783C00 cmp byte ptr [eax+$3C], $00
0079BA27 750F jnz 0079BA38
0079BA29 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0198
|
0079BA2C C6809801000000 mov byte ptr [eax+$0198], $00
0079BA33 E94D010000 jmp 0079BB85
0079BA38 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0198
|
0079BA3B 80B89801000002 cmp byte ptr [eax+$0198], $02
0079BA42 0F85BF000000 jnz 0079BB07
0079BA48 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_01B4
|
0079BA4B 8B80B4010000 mov eax, [eax+$01B4]
0079BA51 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.OnDockOver : TDockOverEvent
|
0079BA54 8982B8010000 mov [edx+$01B8], eax
0079BA5A 33D2 xor edx, edx
0079BA5C 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079B824()
|
0079BA5F E8C0FDFFFF call 0079B824
0079BA64 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BA67 E8ECF2FFFF call 0079AD58
* Reference to: Controls.TWinControl.WMFontChange(TWinControl;TMessage;TMessage);
| or: Controls.TWinControl.WMTimeChange(TWinControl;TMessage;TMessage);
| or: Controls.TWinControl.Invalidate(TWinControl);
|
0079BA6C E8F3CACEFF call 00488564
0079BA71 8BD8 mov ebx, eax
0079BA73 8B45FC mov eax, [ebp-$04]
0079BA76 2B98B4010000 sub ebx, dword ptr [eax+$01B4]
0079BA7C 43 inc ebx
0079BA7D 85DB test ebx, ebx
0079BA7F 7E3A jle 0079BABB
0079BA81 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BA84 E8CFF2FFFF call 0079AD58
0079BA89 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.OFFS_01B4
|
0079BA8C 8B92B4010000 mov edx, [edx+$01B4]
0079BA92 8B08 mov ecx, [eax]
* Reference to method TRMRichForm.UpdateActions()
|
0079BA94 FF91DC000000 call dword ptr [ecx+$00DC]
0079BA9A 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BA9D E8B6F2FFFF call 0079AD58
0079BAA2 8BD3 mov edx, ebx
0079BAA4 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMRichForm.OFFS_00D8
|
0079BAA6 FF91D8000000 call dword ptr [ecx+$00D8]
0079BAAC 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BAAF E8A4F2FFFF call 0079AD58
0079BAB4 33D2 xor edx, edx
* Reference to: StdCtrls.TCustomEdit.SetSelText(TCustomEdit;AnsiString);
|
0079BAB6 E8B10DCEFF call 0047C86C
0079BABB 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BABE E895F2FFFF call 0079AD58
0079BAC3 33D2 xor edx, edx
0079BAC5 8B08 mov ecx, [eax]
* Reference to method TRMRichForm.UpdateActions()
|
0079BAC7 FF91DC000000 call dword ptr [ecx+$00DC]
0079BACD 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BAD0 E883F2FFFF call 0079AD58
0079BAD5 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.OnDockDrop : TDockDropEvent
|
0079BAD8 8B92B0010000 mov edx, [edx+$01B0]
0079BADE 8B08 mov ecx, [eax]
* Possible reference to virtual method TRMRichForm.OFFS_00D8
|
0079BAE0 FF91D8000000 call dword ptr [ecx+$00D8]
0079BAE6 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BAE9 E86AF2FFFF call 0079AD58
0079BAEE 33D2 xor edx, edx
* Reference to: StdCtrls.TCustomEdit.SetSelText(TCustomEdit;AnsiString);
|
0079BAF0 E8770DCEFF call 0047C86C
0079BAF5 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_01B4
|
0079BAF8 8B80B4010000 mov eax, [eax+$01B4]
0079BAFE 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.OnDockDrop : TDockDropEvent
|
0079BB01 8982B0010000 mov [edx+$01B0], eax
0079BB07 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_008C
|
0079BB0A 8D908C000000 lea edx, [eax+$008C]
0079BB10 B901000000 mov ecx, $00000001
0079BB15 8BC6 mov eax, esi
0079BB17 8B18 mov ebx, [eax]
0079BB19 FF5310 call dword ptr [ebx+$10]
0079BB1C 8D95F8FEFFFF lea edx, [ebp+$FFFFFEF8]
0079BB22 8B45FC mov eax, [ebp-$04]
0079BB25 8B00 mov eax, [eax]
* Reference to: System.TObject.ClassName(classofTObject):ShortString;
|
0079BB27 E87087C6FF call 0040429C
0079BB2C 8D95F8FEFFFF lea edx, [ebp+$FFFFFEF8]
0079BB32 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
0079BB35 E85E9AC6FF call 00405598
0079BB3A 8B55F8 mov edx, [ebp-$08]
0079BB3D 8BC6 mov eax, esi
|
0079BB3F E86896FDFF call 007751AC
0079BB44 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_01BC
|
0079BB47 C680BC01000001 mov byte ptr [eax+$01BC], $01
0079BB4E 33C0 xor eax, eax
0079BB50 55 push ebp
0079BB51 687EBB7900 push $0079BB7E
***** TRY
|
0079BB56 64FF30 push dword ptr fs:[eax]
0079BB59 648920 mov fs:[eax], esp
0079BB5C 8BD6 mov edx, esi
0079BB5E 8B45FC mov eax, [ebp-$04]
0079BB61 8B08 mov ecx, [eax]
* Reference to method TRMRichForm.SetBiDiMode(TBiDiMode)
|
0079BB63 FF5170 call dword ptr [ecx+$70]
0079BB66 33C0 xor eax, eax
0079BB68 5A pop edx
0079BB69 59 pop ecx
0079BB6A 59 pop ecx
0079BB6B 648910 mov fs:[eax], edx
****** FINALLY
|
0079BB6E 6885BB7900 push $0079BB85
0079BB73 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_01BC
|
0079BB76 C680BC01000000 mov byte ptr [eax+$01BC], $00
0079BB7D C3 ret
* Reference to: System.@HandleFinally;
|
0079BB7E E9718FC6FF jmp 00404AF4
0079BB83 EBEE jmp 0079BB73
****** END
|
0079BB85 33C0 xor eax, eax
0079BB87 5A pop edx
0079BB88 59 pop ecx
0079BB89 59 pop ecx
0079BB8A 648910 mov fs:[eax], edx
****** FINALLY
|
0079BB8D 68A2BB7900 push $0079BBA2
0079BB92 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
0079BB95 E88A97C6FF call 00405324
0079BB9A C3 ret
* Reference to: System.@HandleFinally;
|
0079BB9B E9548FC6FF jmp 00404AF4
0079BBA0 EBF0 jmp 0079BB92
****** END
|
0079BBA2 5E pop esi
0079BBA3 5B pop ebx
0079BBA4 8BE5 mov esp, ebp
0079BBA6 5D pop ebp
0079BBA7 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BBA8(Sender : TObject);
begin
(*
0079BBA8 53 push ebx
0079BBA9 56 push esi
0079BBAA 83C4F8 add esp, -$08
0079BBAD 8BD8 mov ebx, eax
0079BBAF 33C0 xor eax, eax
* Reference to field TRMRichForm.OFFS_01B4
|
0079BBB1 8983B4010000 mov [ebx+$01B4], eax
0079BBB7 33C0 xor eax, eax
* Reference to field TRMRichForm.OnDockDrop : TDockDropEvent
|
0079BBB9 8983B0010000 mov [ebx+$01B0], eax
0079BBBF 33C0 xor eax, eax
* Reference to field TRMRichForm.OFFS_003C
|
0079BBC1 807B3C00 cmp byte ptr [ebx+$3C], $00
0079BBC5 0F8497000000 jz 0079BC62
0079BBCB 8BC3 mov eax, ebx
0079BBCD 8B10 mov edx, [eax]
* Reference to method TRMRichForm.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0079BBCF FF5238 call dword ptr [edx+$38]
* Reference to field TRMRichForm.OFFS_0198
|
0079BBD2 C6839801000000 mov byte ptr [ebx+$0198], $00
0079BBD9 8BC3 mov eax, ebx
0079BBDB 8B10 mov edx, [eax]
* Reference to method TRMRichForm.CreateWnd()
|
0079BBDD FF92A0000000 call dword ptr [edx+$00A0]
0079BBE3 33C0 xor eax, eax
* Reference to field TRMRichForm.OnDockOver : TDockOverEvent
|
0079BBE5 8983B8010000 mov [ebx+$01B8], eax
* Reference to field TRMRichForm.ControlStyle : TControlStyle
|
0079BBEB 8B4350 mov eax, [ebx+$50]
* Reference to : TRMApplication._PROC_00742744()
|
0079BBEE E8516BFAFF call 00742744
0079BBF3 890424 mov [esp], eax
0079BBF6 DB0424 fild dword ptr [esp]
0079BBF9 83C4F8 add esp, -$08
0079BBFC DD1C24 fstp qword ptr [esp]
0079BBFF 9B wait
* Reference to field TRMRichForm.OFFS_0058
|
0079BC00 8B4358 mov eax, [ebx+$58]
* Reference to : TRMApplication._PROC_00742744()
|
0079BC03 E83C6BFAFF call 00742744
0079BC08 8944240C mov [esp+$0C], eax
0079BC0C DB44240C fild dword ptr [esp+$0C]
0079BC10 83C4F8 add esp, -$08
0079BC13 DD1C24 fstp qword ptr [esp]
0079BC16 9B wait
0079BC17 8BC3 mov eax, ebx
* Reference to : TRMApplication._PROC_007446DC()
|
0079BC19 E8BE8AFAFF call 007446DC
0079BC1E 8BF0 mov esi, eax
0079BC20 BA01000000 mov edx, $00000001
0079BC25 8BC3 mov eax, ebx
* Reference to : TRMApplication._PROC_00747944()
|
0079BC27 E818BDFAFF call 00747944
0079BC2C 03C0 add eax, eax
0079BC2E 03F0 add esi, eax
0079BC30 893424 mov [esp], esi
0079BC33 DB0424 fild dword ptr [esp]
0079BC36 83C4F8 add esp, -$08
0079BC39 DD1C24 fstp qword ptr [esp]
0079BC3C 9B wait
0079BC3D 33C0 xor eax, eax
|
0079BC3F E84C3EFAFF call 0073FA90
0079BC44 8BF0 mov esi, eax
0079BC46 8BC3 mov eax, ebx
|
0079BC48 E8BFF3FFFF call 0079B00C
0079BC4D 03F0 add esi, eax
* Reference to field TRMRichForm.OFFS_019C
|
0079BC4F 89B39C010000 mov [ebx+$019C], esi
0079BC55 8BC3 mov eax, ebx
0079BC57 8B10 mov edx, [eax]
* Reference to method TRMRichForm.Action()
|
0079BC59 FF523C call dword ptr [edx+$3C]
* Reference to field TRMRichForm.OFFS_019C
|
0079BC5C 8B839C010000 mov eax, [ebx+$019C]
0079BC62 59 pop ecx
0079BC63 5A pop edx
0079BC64 5E pop esi
0079BC65 5B pop ebx
0079BC66 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BC68(Sender : TObject);
begin
(*
0079BC68 53 push ebx
0079BC69 56 push esi
0079BC6A 83C4F8 add esp, -$08
0079BC6D 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0198
|
0079BC6F C6839801000000 mov byte ptr [ebx+$0198], $00
0079BC76 8BC3 mov eax, ebx
0079BC78 8B10 mov edx, [eax]
* Reference to method TRMRichForm.CreateWnd()
|
0079BC7A FF92A0000000 call dword ptr [edx+$00A0]
* Reference to field TRMRichForm.OFFS_01B4
|
0079BC80 8B83B4010000 mov eax, [ebx+$01B4]
0079BC86 40 inc eax
* Reference to field TRMRichForm.OnDockOver : TDockOverEvent
|
0079BC87 8983B8010000 mov [ebx+$01B8], eax
* Reference to field TRMRichForm.ControlStyle : TControlStyle
|
0079BC8D 8B4350 mov eax, [ebx+$50]
* Reference to : TRMApplication._PROC_00742744()
|
0079BC90 E8AF6AFAFF call 00742744
0079BC95 890424 mov [esp], eax
0079BC98 DB0424 fild dword ptr [esp]
0079BC9B 83C4F8 add esp, -$08
0079BC9E DD1C24 fstp qword ptr [esp]
0079BCA1 9B wait
* Reference to field TRMRichForm.OFFS_0058
|
0079BCA2 8B4358 mov eax, [ebx+$58]
* Reference to : TRMApplication._PROC_00742744()
|
0079BCA5 E89A6AFAFF call 00742744
0079BCAA 8944240C mov [esp+$0C], eax
0079BCAE DB44240C fild dword ptr [esp+$0C]
0079BCB2 83C4F8 add esp, -$08
0079BCB5 DD1C24 fstp qword ptr [esp]
0079BCB8 9B wait
0079BCB9 8BC3 mov eax, ebx
* Reference to : TRMApplication._PROC_007446DC()
|
0079BCBB E81C8AFAFF call 007446DC
0079BCC0 8BF0 mov esi, eax
0079BCC2 BA01000000 mov edx, $00000001
0079BCC7 8BC3 mov eax, ebx
* Reference to : TRMApplication._PROC_00747944()
|
0079BCC9 E876BCFAFF call 00747944
0079BCCE 03C0 add eax, eax
0079BCD0 03F0 add esi, eax
0079BCD2 893424 mov [esp], esi
0079BCD5 DB0424 fild dword ptr [esp]
0079BCD8 83C4F8 add esp, -$08
0079BCDB DD1C24 fstp qword ptr [esp]
0079BCDE 9B wait
0079BCDF 33C0 xor eax, eax
|
0079BCE1 E8AA3DFAFF call 0073FA90
0079BCE6 8BF0 mov esi, eax
0079BCE8 8BC3 mov eax, ebx
|
0079BCEA E81DF3FFFF call 0079B00C
0079BCEF 03F0 add esi, eax
* Reference to field TRMRichForm.OFFS_01A0
|
0079BCF1 89B3A0010000 mov [ebx+$01A0], esi
0079BCF7 8BC6 mov eax, esi
0079BCF9 59 pop ecx
0079BCFA 5A pop edx
0079BCFB 5E pop esi
0079BCFC 5B pop ebx
0079BCFD C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BD00(Sender : TObject);
begin
(*
0079BD00 53 push ebx
0079BD01 56 push esi
0079BD02 57 push edi
0079BD03 55 push ebp
0079BD04 8BF2 mov esi, edx
0079BD06 8BF8 mov edi, eax
0079BD08 8BD6 mov edx, esi
0079BD0A 8BC7 mov eax, edi
* Reference to : TRMApplication._PROC_00745F60()
|
0079BD0C E84FA2FAFF call 00745F60
0079BD11 8BC6 mov eax, esi
|
0079BD13 E8DC96FDFF call 007753F4
0079BD18 8BC6 mov eax, esi
|
0079BD1A E8AD96FDFF call 007753CC
0079BD1F 8BD8 mov ebx, eax
0079BD21 8BC6 mov eax, esi
|
0079BD23 E8FC96FDFF call 00775424
0079BD28 8BE8 mov ebp, eax
0079BD2A 84DB test bl, bl
0079BD2C 7613 jbe 0079BD41
0079BD2E 8B87A8010000 mov eax, [edi+$01A8]
0079BD34 8B8054020000 mov eax, [eax+$0254]
0079BD3A 8BD6 mov edx, esi
0079BD3C 8B08 mov ecx, [eax]
0079BD3E FF516C call dword ptr [ecx+$6C]
0079BD41 33C9 xor ecx, ecx
0079BD43 8BD5 mov edx, ebp
0079BD45 8BC6 mov eax, esi
0079BD47 8B18 mov ebx, [eax]
0079BD49 FF5314 call dword ptr [ebx+$14]
0079BD4C 5D pop ebp
0079BD4D 5F pop edi
0079BD4E 5E pop esi
0079BD4F 5B pop ebx
0079BD50 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BD54(Sender : TObject);
begin
(*
0079BD54 53 push ebx
0079BD55 56 push esi
0079BD56 57 push edi
0079BD57 55 push ebp
0079BD58 8BF2 mov esi, edx
0079BD5A 8BD8 mov ebx, eax
0079BD5C 8BD6 mov edx, esi
0079BD5E 8BC3 mov eax, ebx
|
0079BD60 E88BA6FAFF call 007463F0
0079BD65 33D2 xor edx, edx
0079BD67 8BC6 mov eax, esi
|
0079BD69 E89E96FDFF call 0077540C
* Reference to field TRMRichForm.OFFS_01BC
|
0079BD6E 80BBBC01000000 cmp byte ptr [ebx+$01BC], $00
0079BD75 740B jz 0079BD82
0079BD77 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079AD58()
|
0079BD79 E8DAEFFFFF call 0079AD58
0079BD7E 8BE8 mov ebp, eax
0079BD80 EB06 jmp 0079BD88
* Reference to field TRMRichForm.DockSite : Boolean
|
0079BD82 8BABA8010000 mov ebp, [ebx+$01A8]
* Possible reference to field TBoolean.OFFS_0254
|
0079BD88 8B8554020000 mov eax, [ebp+$0254]
0079BD8E 8B10 mov edx, [eax]
0079BD90 FF5214 call dword ptr [edx+$14]
0079BD93 85C0 test eax, eax
0079BD95 7E04 jle 0079BD9B
0079BD97 B301 mov bl, $01
0079BD99 EB02 jmp 0079BD9D
0079BD9B 33DB xor ebx, ebx
0079BD9D 8BD3 mov edx, ebx
0079BD9F 8BC6 mov eax, esi
|
0079BDA1 E83A96FDFF call 007753E0
0079BDA6 8BC6 mov eax, esi
* Reference to: Classes.TStream.GetPosition(TStream):Int64;
|
0079BDA8 E837A5C8FF call 004262E4
0079BDAD 8BF8 mov edi, eax
0079BDAF 8BD7 mov edx, edi
0079BDB1 8BC6 mov eax, esi
|
0079BDB3 E88096FDFF call 00775438
0079BDB8 84DB test bl, bl
0079BDBA 760D jbe 0079BDC9
* Possible reference to field TBoolean.OFFS_0254
|
0079BDBC 8B8554020000 mov eax, [ebp+$0254]
0079BDC2 8BD6 mov edx, esi
0079BDC4 8B08 mov ecx, [eax]
0079BDC6 FF5178 call dword ptr [ecx+$78]
0079BDC9 8BC6 mov eax, esi
* Reference to: Classes.TStream.GetPosition(TStream):Int64;
|
0079BDCB E814A5C8FF call 004262E4
0079BDD0 8BD8 mov ebx, eax
0079BDD2 33C9 xor ecx, ecx
0079BDD4 8BD7 mov edx, edi
0079BDD6 8BC6 mov eax, esi
0079BDD8 8B38 mov edi, [eax]
0079BDDA FF5714 call dword ptr [edi+$14]
0079BDDD 8BD3 mov edx, ebx
0079BDDF 8BC6 mov eax, esi
|
0079BDE1 E85296FDFF call 00775438
0079BDE6 33C9 xor ecx, ecx
0079BDE8 8BD3 mov edx, ebx
0079BDEA 8BC6 mov eax, esi
0079BDEC 8B18 mov ebx, [eax]
0079BDEE FF5314 call dword ptr [ebx+$14]
0079BDF1 5D pop ebp
0079BDF2 5F pop edi
0079BDF3 5E pop esi
0079BDF4 5B pop ebx
0079BDF5 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BDF8(Sender : TObject);
begin
(*
0079BDF8 55 push ebp
0079BDF9 8BEC mov ebp, esp
0079BDFB 51 push ecx
0079BDFC 53 push ebx
0079BDFD 56 push esi
0079BDFE 8BF0 mov esi, eax
0079BE00 B201 mov dl, $01
* Reference to class TMemoryStream
|
0079BE02 A1B00A4200 mov eax, dword ptr [$00420AB0]
* Reference to: System.TObject.Create(TObject;Boolean);
|
0079BE07 E81085C6FF call 0040431C
0079BE0C 8945FC mov [ebp-$04], eax
0079BE0F 33C0 xor eax, eax
0079BE11 55 push ebp
0079BE12 6867BE7900 push $0079BE67
***** TRY
|
0079BE17 64FF30 push dword ptr fs:[eax]
0079BE1A 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.VCLComObject : Pointer
|
0079BE1D 8B4620 mov eax, [esi+$20]
* Reference to field Pointer.OFFS_00D8
|
0079BE20 80B8D800000000 cmp byte ptr [eax+$00D8], $00
0079BE27 7514 jnz 0079BE3D
* Reference to field TRMRichForm.UndockHeight : Integer
|
0079BE29 8B96AC000000 mov edx, [esi+$00AC]
* Reference to field TRMRichForm.UndockWidth : Integer
|
0079BE2F 8B86A8000000 mov eax, [esi+$00A8]
0079BE35 8B4DFC mov ecx, [ebp-$04]
0079BE38 8B18 mov ebx, [eax]
* Possible reference to virtual method TInteger.OFFS_7C
|
0079BE3A FF537C call dword ptr [ebx+$7C]
* Reference to field TRMRichForm.DockSite : Boolean
|
0079BE3D 8B86A8010000 mov eax, [esi+$01A8]
* Reference to field Boolean.OFFS_0254
|
0079BE43 8B8054020000 mov eax, [eax+$0254]
0079BE49 8B55FC mov edx, [ebp-$04]
0079BE4C 8B08 mov ecx, [eax]
0079BE4E FF516C call dword ptr [ecx+$6C]
0079BE51 33C0 xor eax, eax
0079BE53 5A pop edx
0079BE54 59 pop ecx
0079BE55 59 pop ecx
0079BE56 648910 mov fs:[eax], edx
****** FINALLY
|
0079BE59 686EBE7900 push $0079BE6E
0079BE5E 8B45FC mov eax, [ebp-$04]
* Reference to: System.TObject.Free(TObject);
|
0079BE61 E8E684C6FF call 0040434C
0079BE66 C3 ret
* Reference to: System.@HandleFinally;
|
0079BE67 E9888CC6FF jmp 00404AF4
0079BE6C EBF0 jmp 0079BE5E
****** END
|
0079BE6E 5E pop esi
0079BE6F 5B pop ebx
0079BE70 59 pop ecx
0079BE71 5D pop ebp
0079BE72 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BE74(Sender : TObject);
begin
(*
0079BE74 55 push ebp
0079BE75 8BEC mov ebp, esp
0079BE77 51 push ecx
0079BE78 53 push ebx
0079BE79 8BD8 mov ebx, eax
*)
end;
procedure TRMRichForm._PROC_0079BF20(Sender : TObject);
begin
(*
|
0079BF20 E84B99FAFF call 00745870
0079BF25 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BF28(Sender : TObject);
begin
(*
* Reference to field TRMRichForm.DockSite : Boolean
|
0079BF28 8B80A8010000 mov eax, [eax+$01A8]
|
0079BF2E E875ECFFFF call 0079ABA8
0079BF33 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BF34(Sender : TObject);
begin
(*
0079BF34 53 push ebx
0079BF35 8BDA mov ebx, edx
0079BF37 8BC3 mov eax, ebx
* Possible String Reference to: '[Rx Rich]'
|
0079BF39 BA50BF7900 mov edx, $0079BF50
* Reference to: System.@LStrAsg(void;void;void;void);
|
0079BF3E E83594C6FF call 00405378
0079BF43 5B pop ebx
0079BF44 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079BF61(Sender : TObject);
begin
(*
0079BF61 A801 test al, $01
0079BF63 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079BF7D(Sender : TObject);
begin
(*
0079BF7D 8BEC mov ebp, esp
0079BF7F 51 push ecx
0079BF80 53 push ebx
0079BF81 56 push esi
0079BF82 57 push edi
0079BF83 8BFA mov edi, edx
0079BF85 8BF0 mov esi, eax
0079BF87 B201 mov dl, $01
* Reference to class TMemoryStream
|
0079BF89 A1B00A4200 mov eax, dword ptr [$00420AB0]
* Reference to: System.TObject.Create(TObject;Boolean);
|
0079BF8E E88983C6FF call 0040431C
0079BF93 8945FC mov [ebp-$04], eax
0079BF96 33C0 xor eax, eax
0079BF98 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[Y]Í@'
|
0079BF99 6804C07900 push $0079C004
***** TRY
|
0079BF9E 64FF30 push dword ptr fs:[eax]
0079BFA1 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.DockSite : Boolean
|
0079BFA4 8B86A8010000 mov eax, [esi+$01A8]
* Reference to field Boolean.OFFS_0254
|
0079BFAA 8B8054020000 mov eax, [eax+$0254]
0079BFB0 8B55FC mov edx, [ebp-$04]
0079BFB3 8B08 mov ecx, [eax]
0079BFB5 FF5178 call dword ptr [ecx+$78]
0079BFB8 8B45FC mov eax, [ebp-$04]
0079BFBB 8B10 mov edx, [eax]
0079BFBD FF12 call dword ptr [edx]
0079BFBF 8BD0 mov edx, eax
0079BFC1 8BC7 mov eax, edi
* Reference to: System.@LStrSetLength;
|
0079BFC3 E8B899C6FF call 00405980
0079BFC8 6A00 push $00
0079BFCA 6A00 push $00
0079BFCC 8B45FC mov eax, [ebp-$04]
|
0079BFCF E830A3C8FF call 00426304
0079BFD4 8B45FC mov eax, [ebp-$04]
0079BFD7 8B10 mov edx, [eax]
0079BFD9 FF12 call dword ptr [edx]
0079BFDB 50 push eax
0079BFDC 8BC7 mov eax, edi
* Reference to: crtl.__pure_error_;
| or: crtl.__matherrl;
| or: crtl._gcvt;
| or: System.FPower10;
| or: System.UniqueString(String;String);overload;
| or: System.@UniqueStringA(String;String);
|
0079BFDE E86998C6FF call 0040584C
0079BFE3 8BD0 mov edx, eax
0079BFE5 8B45FC mov eax, [ebp-$04]
0079BFE8 59 pop ecx
0079BFE9 8B18 mov ebx, [eax]
* Reference to method TMemoryStream.Read(Longint,Longint)
|
0079BFEB FF530C call dword ptr [ebx+$0C]
0079BFEE 33C0 xor eax, eax
0079BFF0 5A pop edx
0079BFF1 59 pop ecx
0079BFF2 59 pop ecx
0079BFF3 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[Y]Í@'
|
0079BFF6 680BC07900 push $0079C00B
0079BFFB 8B45FC mov eax, [ebp-$04]
* Reference to: System.TObject.Free(TObject);
|
0079BFFE E84983C6FF call 0040434C
0079C003 C3 ret
* Reference to: System.@HandleFinally;
|
0079C004 E9EB8AC6FF jmp 00404AF4
0079C009 EBF0 jmp 0079BFFB
****** END
|
0079C00B 5F pop edi
0079C00C 5E pop esi
0079C00D 5B pop ebx
0079C00E 59 pop ecx
0079C00F 5D pop ebp
0079C010 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079C014(Sender : TObject);
begin
(*
0079C014 53 push ebx
0079C015 56 push esi
0079C016 84D2 test dl, dl
0079C018 7408 jz 0079C022
0079C01A 83C4F0 add esp, -$10
* Reference to: System.@ClassCreate(TClass;Boolean):TObject;
|
0079C01D E8A286C6FF call 004046C4
0079C022 8BDA mov ebx, edx
0079C024 8BF0 mov esi, eax
0079C026 33D2 xor edx, edx
0079C028 8BC6 mov eax, esi
* Reference to : TRMRichForm._PROC_0079ABF0()
|
0079C02A E8C1EBFFFF call 0079ABF0
* Reference to field TRMRichForm.OFFS_0090
|
0079C02F 8D8690000000 lea eax, [esi+$0090]
* Possible String Reference to: 'RxRich'
|
0079C035 BA64C07900 mov edx, $0079C064
* Reference to: System.@LStrAsg(void;void;void;void);
|
0079C03A E83993C6FF call 00405378
0079C03F 8BC6 mov eax, esi
0079C041 84DB test bl, bl
0079C043 740F jz 0079C054
* Reference to: System.@AfterConstruction(TObject):TObject;
|
0079C045 E8D286C6FF call 0040471C
0079C04A 648F0500000000 pop dword ptr fs:[$00000000]
0079C051 83C40C add esp, +$0C
0079C054 8BC6 mov eax, esi
0079C056 5E pop esi
0079C057 5B pop ebx
0079C058 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079C095(Sender : TObject);
begin
(*
0079C095 8BEC mov ebp, esp
0079C097 33C9 xor ecx, ecx
0079C099 51 push ecx
0079C09A 51 push ecx
0079C09B 51 push ecx
0079C09C 51 push ecx
0079C09D 51 push ecx
0079C09E 53 push ebx
0079C09F 8BD8 mov ebx, eax
0079C0A1 33C0 xor eax, eax
0079C0A3 55 push ebp
* Possible String Reference to: '鮅<><E9AE85><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
0079C0A4 6841C57900 push $0079C541
***** TRY
|
0079C0A9 64FF30 push dword ptr fs:[eax]
0079C0AC 648920 mov fs:[eax], esp
0079C0AF 8D55FC lea edx, [ebp-$04]
0079C0B2 B854B90000 mov eax, $0000B954
|
0079C0B7 E8E0C2FDFF call 0077839C
0079C0BC 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.Font : TFont
|
0079C0BF 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetName(TFont;TFontName);
|
0079C0C2 E8914AC9FF call 00430B58
0079C0C7 8D55F8 lea edx, [ebp-$08]
0079C0CA B855B90000 mov eax, $0000B955
|
0079C0CF E8C8C2FDFF call 0077839C
0079C0D4 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
0079C0D7 E86CEFC6FF call 0040B048
0079C0DC 8BD0 mov edx, eax
* Reference to field TRMRichForm.Font : TFont
|
0079C0DE 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetSize(TFont;Integer);
|
0079C0E1 E8EA4AC9FF call 00430BD0
0079C0E6 8D55F4 lea edx, [ebp-$0C]
0079C0E9 B8E9B80000 mov eax, $0000B8E9
|
0079C0EE E8A9C2FDFF call 0077839C
0079C0F3 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToInt(AnsiString):Integer;
|
0079C0F6 E84DEFC6FF call 0040B048
0079C0FB 8BD0 mov edx, eax
* Reference to field TRMRichForm.Font : TFont
|
0079C0FD 8B4368 mov eax, [ebx+$68]
* Reference to: Graphics.TFont.SetCharset(TFont;TFontCharset);
|
0079C100 E85B4BC9FF call 00430C60
0079C105 B963B00000 mov ecx, $0000B063
* Possible String Reference to: 'Hint'
|
0079C10A BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnFileNew : TToolButton
|
0079C10F 8B83A4030000 mov eax, [ebx+$03A4]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C115 E8D2B4FDFF call 007775EC
0079C11A B9F9B10000 mov ecx, $0000B1F9
* Possible String Reference to: 'Hint'
|
0079C11F BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnFileOpen : TToolButton
|
0079C124 8B83A8030000 mov eax, [ebx+$03A8]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C12A E8BDB4FDFF call 007775EC
0079C12F B9FAB10000 mov ecx, $0000B1FA
* Possible String Reference to: 'Hint'
|
0079C134 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnFileSave : TToolButton
|
0079C139 8B83AC030000 mov eax, [ebx+$03AC]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C13F E8A8B4FDFF call 007775EC
0079C144 B926B00000 mov ecx, $0000B026
* Possible String Reference to: 'Hint'
|
0079C149 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnUndo : TToolButton
|
0079C14E 8B83CC030000 mov eax, [ebx+$03CC]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C154 E893B4FDFF call 007775EC
0079C159 B927B00000 mov ecx, $0000B027
* Possible String Reference to: 'Hint'
|
0079C15E BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnRedo : TToolButton
|
0079C163 8B83D0030000 mov eax, [ebx+$03D0]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C169 E87EB4FDFF call 007775EC
0079C16E B90EB20000 mov ecx, $0000B20E
* Possible String Reference to: 'Hint'
|
0079C173 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnFind : TToolButton
|
0079C178 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C17E E869B4FDFF call 007775EC
0079C183 B9FCB10000 mov ecx, $0000B1FC
* Possible String Reference to: 'Hint'
|
0079C188 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnFontBold : TToolButton
|
0079C18D 8B83EC030000 mov eax, [ebx+$03EC]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C193 E854B4FDFF call 007775EC
0079C198 B9FDB10000 mov ecx, $0000B1FD
* Possible String Reference to: 'Hint'
|
0079C19D BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnFontItalic : TToolButton
|
0079C1A2 8B83F0030000 mov eax, [ebx+$03F0]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C1A8 E83FB4FDFF call 007775EC
0079C1AD B901B20000 mov ecx, $0000B201
* Possible String Reference to: 'Hint'
|
0079C1B2 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnFontUnderline : TToolButton
|
0079C1B7 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C1BD E82AB4FDFF call 007775EC
0079C1C2 B9FEB10000 mov ecx, $0000B1FE
* Possible String Reference to: 'Hint'
|
0079C1C7 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnAlignLeft : TToolButton
|
0079C1CC 8B8300040000 mov eax, [ebx+$0400]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C1D2 E815B4FDFF call 007775EC
0079C1D7 B9FFB10000 mov ecx, $0000B1FF
* Possible String Reference to: 'Hint'
|
0079C1DC BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnAlignCenter : TToolButton
|
0079C1E1 8B8304040000 mov eax, [ebx+$0404]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C1E7 E800B4FDFF call 007775EC
0079C1EC B900B20000 mov ecx, $0000B200
* Possible String Reference to: 'Hint'
|
0079C1F1 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnAlignRight : TToolButton
|
0079C1F6 8B8308040000 mov eax, [ebx+$0408]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C1FC E8EBB3FDFF call 007775EC
0079C201 B902B20000 mov ecx, $0000B202
* Possible String Reference to: 'Hint'
|
0079C206 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnBullets : TToolButton
|
0079C20B 8B8310040000 mov eax, [ebx+$0410]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C211 E8D6B3FDFF call 007775EC
0079C216 B907B20000 mov ecx, $0000B207
* Possible String Reference to: 'Hint'
|
0079C21B BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnInsertField : TToolButton
|
0079C220 8B83D8030000 mov eax, [ebx+$03D8]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C226 E8C1B3FDFF call 007775EC
0079C22B B923B00000 mov ecx, $0000B023
* Possible String Reference to: 'Hint'
|
0079C230 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnCut : TToolButton
|
0079C235 8B83BC030000 mov eax, [ebx+$03BC]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C23B E8ACB3FDFF call 007775EC
0079C240 B924B00000 mov ecx, $0000B024
* Possible String Reference to: 'Hint'
|
0079C245 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnCopy : TToolButton
|
0079C24A 8B83C0030000 mov eax, [ebx+$03C0]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C250 E897B3FDFF call 007775EC
0079C255 B925B00000 mov ecx, $0000B025
* Possible String Reference to: 'Hint'
|
0079C25A BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnPaste : TToolButton
|
0079C25F 8B83C4030000 mov eax, [ebx+$03C4]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C265 E882B3FDFF call 007775EC
0079C26A B90CB20000 mov ecx, $0000B20C
* Possible String Reference to: 'Hint'
|
0079C26F BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnSuperscript : TToolButton
|
0079C274 8B8318040000 mov eax, [ebx+$0418]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C27A E86DB3FDFF call 007775EC
0079C27F B90DB20000 mov ecx, $0000B20D
* Possible String Reference to: 'Hint'
|
0079C284 BA58C57900 mov edx, $0079C558
* Reference to control TRMRichForm.btnSubscript : TToolButton
|
0079C289 8B831C040000 mov eax, [ebx+$041C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C28F E858B3FDFF call 007775EC
* Reference to control TRMRichForm.btnCut : TToolButton
|
0079C294 8B83BC030000 mov eax, [ebx+$03BC]
* Reference to field TToolButton.Hint : string
|
0079C29A 8B9080000000 mov edx, [eax+$0080]
* Reference to control TRMRichForm.ItmCut : TMenuItem
|
0079C2A0 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Menus.TMenuItem.SetCaption(TMenuItem;AnsiString);
|
0079C2A6 E829E8CFFF call 0049AAD4
* Reference to control TRMRichForm.btnCopy : TToolButton
|
0079C2AB 8B83C0030000 mov eax, [ebx+$03C0]
* Reference to field TToolButton.Hint : string
|
0079C2B1 8B9080000000 mov edx, [eax+$0080]
* Reference to control TRMRichForm.ItmCopy : TMenuItem
|
0079C2B7 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Menus.TMenuItem.SetCaption(TMenuItem;AnsiString);
|
0079C2BD E812E8CFFF call 0049AAD4
* Reference to control TRMRichForm.btnPaste : TToolButton
|
0079C2C2 8B83C4030000 mov eax, [ebx+$03C4]
* Reference to field TToolButton.Hint : string
|
0079C2C8 8B9080000000 mov edx, [eax+$0080]
* Reference to control TRMRichForm.ItmPaste : TMenuItem
|
0079C2CE 8B8318030000 mov eax, [ebx+$0318]
* Reference to: Menus.TMenuItem.SetCaption(TMenuItem;AnsiString);
|
0079C2D4 E8FBE7CFFF call 0049AAD4
0079C2D9 B962B00000 mov ecx, $0000B062
* Possible String Reference to: 'Caption'
|
0079C2DE BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.MenuFile : TMenuItem
|
0079C2E3 8B8320030000 mov eax, [ebx+$0320]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C2E9 E8FEB2FDFF call 007775EC
0079C2EE B963B00000 mov ecx, $0000B063
* Possible String Reference to: 'Caption'
|
0079C2F3 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemFileNew : TMenuItem
|
0079C2F8 8B8324030000 mov eax, [ebx+$0324]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C2FE E8E9B2FDFF call 007775EC
0079C303 B964B00000 mov ecx, $0000B064
* Possible String Reference to: 'Caption'
|
0079C308 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemFileOpen : TMenuItem
|
0079C30D 8B8328030000 mov eax, [ebx+$0328]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C313 E8D4B2FDFF call 007775EC
0079C318 B984B00000 mov ecx, $0000B084
* Possible String Reference to: 'Caption'
|
0079C31D BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemFileSaveAs : TMenuItem
|
0079C322 8B832C030000 mov eax, [ebx+$032C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C328 E8BFB2FDFF call 007775EC
0079C32D B967B00000 mov ecx, $0000B067
* Possible String Reference to: 'Caption'
|
0079C332 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemFilePrint : TMenuItem
|
0079C337 8B8334030000 mov eax, [ebx+$0334]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C33D E8AAB2FDFF call 007775EC
0079C342 B96AB00000 mov ecx, $0000B06A
* Possible String Reference to: 'Caption'
|
0079C347 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemFileExit : TMenuItem
|
0079C34C 8B833C030000 mov eax, [ebx+$033C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C352 E895B2FDFF call 007775EC
0079C357 B96BB00000 mov ecx, $0000B06B
* Possible String Reference to: 'Caption'
|
0079C35C BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.MenuEdit : TMenuItem
|
0079C361 8B8340030000 mov eax, [ebx+$0340]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C367 E880B2FDFF call 007775EC
0079C36C B96CB00000 mov ecx, $0000B06C
* Possible String Reference to: 'Caption'
|
0079C371 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditUndo : TMenuItem
|
0079C376 8B8344030000 mov eax, [ebx+$0344]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C37C E86BB2FDFF call 007775EC
0079C381 B96DB00000 mov ecx, $0000B06D
* Possible String Reference to: 'Caption'
|
0079C386 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditRedo : TMenuItem
|
0079C38B 8B8374030000 mov eax, [ebx+$0374]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C391 E856B2FDFF call 007775EC
0079C396 B96EB00000 mov ecx, $0000B06E
* Possible String Reference to: 'Caption'
|
0079C39B BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditCut : TMenuItem
|
0079C3A0 8B834C030000 mov eax, [ebx+$034C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C3A6 E841B2FDFF call 007775EC
0079C3AB B96FB00000 mov ecx, $0000B06F
* Possible String Reference to: 'Caption'
|
0079C3B0 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditCopy : TMenuItem
|
0079C3B5 8B8350030000 mov eax, [ebx+$0350]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C3BB E82CB2FDFF call 007775EC
0079C3C0 B970B00000 mov ecx, $0000B070
* Possible String Reference to: 'Caption'
|
0079C3C5 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditPaste : TMenuItem
|
0079C3CA 8B8354030000 mov eax, [ebx+$0354]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C3D0 E817B2FDFF call 007775EC
0079C3D5 B904B20000 mov ecx, $0000B204
* Possible String Reference to: 'Caption'
|
0079C3DA BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditPasteSpecial : TMenuItem
|
0079C3DF 8B8378030000 mov eax, [ebx+$0378]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C3E5 E802B2FDFF call 007775EC
0079C3EA B972B00000 mov ecx, $0000B072
* Possible String Reference to: 'Caption'
|
0079C3EF BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditSelectAll : TMenuItem
|
0079C3F4 8B837C030000 mov eax, [ebx+$037C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C3FA E8EDB1FDFF call 007775EC
0079C3FF B90EB20000 mov ecx, $0000B20E
* Possible String Reference to: 'Caption'
|
0079C404 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditFind : TMenuItem
|
0079C409 8B8384030000 mov eax, [ebx+$0384]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C40F E8D8B1FDFF call 007775EC
0079C414 B90FB20000 mov ecx, $0000B20F
* Possible String Reference to: 'Caption'
|
0079C419 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditFindNext : TMenuItem
|
0079C41E 8B8388030000 mov eax, [ebx+$0388]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C424 E8C3B1FDFF call 007775EC
0079C429 B910B20000 mov ecx, $0000B210
* Possible String Reference to: 'Caption'
|
0079C42E BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditReplace : TMenuItem
|
0079C433 8B838C030000 mov eax, [ebx+$038C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C439 E8AEB1FDFF call 007775EC
0079C43E B911B20000 mov ecx, $0000B211
* Possible String Reference to: 'Caption'
|
0079C443 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemEditObjProps : TMenuItem
|
0079C448 8B8394030000 mov eax, [ebx+$0394]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C44E E899B1FDFF call 007775EC
0079C453 B912B20000 mov ecx, $0000B212
* Possible String Reference to: 'Caption'
|
0079C458 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.MenuInsert : TMenuItem
|
0079C45D 8B8364030000 mov eax, [ebx+$0364]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C463 E884B1FDFF call 007775EC
0079C468 B913B20000 mov ecx, $0000B213
* Possible String Reference to: 'Caption'
|
0079C46D BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemInserObject : TMenuItem
|
0079C472 8B836C030000 mov eax, [ebx+$036C]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C478 E86FB1FDFF call 007775EC
0079C47D B914B20000 mov ecx, $0000B214
* Possible String Reference to: 'Caption'
|
0079C482 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemInsertPicture : TMenuItem
|
0079C487 8B8370030000 mov eax, [ebx+$0370]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C48D E85AB1FDFF call 007775EC
0079C492 B907B20000 mov ecx, $0000B207
* Possible String Reference to: 'Caption'
|
0079C497 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemInsertField : TMenuItem
|
0079C49C 8B8360030000 mov eax, [ebx+$0360]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C4A2 E845B1FDFF call 007775EC
0079C4A7 B915B20000 mov ecx, $0000B215
* Possible String Reference to: 'Caption'
|
0079C4AC BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.MenuFormat : TMenuItem
|
0079C4B1 8B8368030000 mov eax, [ebx+$0368]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C4B7 E830B1FDFF call 007775EC
0079C4BC B908B20000 mov ecx, $0000B208
* Possible String Reference to: 'Caption'
|
0079C4C1 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemFormatFont : TMenuItem
|
0079C4C6 8B8358030000 mov eax, [ebx+$0358]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C4CC E81BB1FDFF call 007775EC
0079C4D1 B91CB30000 mov ecx, $0000B31C
* Possible String Reference to: 'Caption'
|
0079C4D6 BA68C57900 mov edx, $0079C568
* Reference to control TRMRichForm.ItemFormatParagraph : TMenuItem
|
0079C4DB 8B8320040000 mov eax, [ebx+$0420]
* Reference to : TWrapperComponent._PROC_007775EC()
|
0079C4E1 E806B1FDFF call 007775EC
0079C4E6 8D55F0 lea edx, [ebp-$10]
0079C4E9 B805B20000 mov eax, $0000B205
|
0079C4EE E8A9BEFDFF call 0077839C
0079C4F3 8B55F0 mov edx, [ebp-$10]
* Reference to control TRMRichForm.btnOK : TToolButton
|
0079C4F6 8B83E0030000 mov eax, [ebx+$03E0]
0079C4FC 0580000000 add eax, +$00000080
* Reference to: System.@LStrAsg(void;void;void;void);
|
0079C501 E8728EC6FF call 00405378
0079C506 8D55EC lea edx, [ebp-$14]
0079C509 B806B20000 mov eax, $0000B206
|
0079C50E E889BEFDFF call 0077839C
0079C513 8B55EC mov edx, [ebp-$14]
* Reference to control TRMRichForm.btnCancel : TToolButton
|
0079C516 8B83E4030000 mov eax, [ebx+$03E4]
0079C51C 0580000000 add eax, +$00000080
* Reference to: System.@LStrAsg(void;void;void;void);
|
0079C521 E8528EC6FF call 00405378
0079C526 33C0 xor eax, eax
0079C528 5A pop edx
0079C529 59 pop ecx
0079C52A 59 pop ecx
0079C52B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0079C52E 6848C57900 push $0079C548
0079C533 8D45EC lea eax, [ebp-$14]
0079C536 BA05000000 mov edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0079C53B E8088EC6FF call 00405348
0079C540 C3 ret
* Reference to: System.@HandleFinally;
|
0079C541 E9AE85C6FF jmp 00404AF4
0079C546 EBEB jmp 0079C533
****** END
|
0079C548 5B pop ebx
0079C549 8BE5 mov esp, ebp
0079C54B 5D pop ebp
0079C54C C3 ret
*)
end;
procedure TRMRichForm._PROC_0079C595(Sender : TObject);
begin
(*
0079C595 8BEC mov ebp, esp
0079C597 83C4F8 add esp, -$08
0079C59A 53 push ebx
0079C59B 56 push esi
0079C59C 57 push edi
0079C59D 33C9 xor ecx, ecx
0079C59F 894DF8 mov [ebp-$08], ecx
0079C5A2 8945FC mov [ebp-$04], eax
0079C5A5 33C0 xor eax, eax
0079C5A7 55 push ebp
* Possible String Reference to: '<27>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD>_^[YY]Í@'
|
0079C5A8 6897C77900 push $0079C797
***** TRY
|
0079C5AD 64FF30 push dword ptr fs:[eax]
0079C5B0 648920 mov fs:[eax], esp
0079C5B3 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079C5B6 8B8048040000 mov eax, [eax+$0448]
0079C5BC 8BB044020000 mov esi, [eax+$0244]
0079C5C2 33C0 xor eax, eax
0079C5C4 55 push ebp
0079C5C5 687AC77900 push $0079C77A
***** TRY
|
0079C5CA 64FF30 push dword ptr fs:[eax]
0079C5CD 648920 mov fs:[eax], esp
0079C5D0 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0428
|
0079C5D3 C6802804000001 mov byte ptr [eax+$0428], $01
0079C5DA 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0438
|
0079C5DD 8B8038040000 mov eax, [eax+$0438]
|
0079C5E3 E88C4DFFFF call 00791374
0079C5E8 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C5EB E8B8010000 call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079C5F0 E8F366FFFF call 00792CE8
0079C5F5 A801 test al, $01
0079C5F7 0F95C2 setnz dl
0079C5FA 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnFontBold : TToolButton
|
0079C5FD 8B80EC030000 mov eax, [eax+$03EC]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C603 E85809CDFF call 0046CF60
0079C608 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C60B E898010000 call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079C610 E8D366FFFF call 00792CE8
0079C615 A802 test al, $02
0079C617 0F95C2 setnz dl
0079C61A 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnFontItalic : TToolButton
|
0079C61D 8B80F0030000 mov eax, [eax+$03F0]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C623 E83809CDFF call 0046CF60
0079C628 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C62B E878010000 call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792CE8()
|
0079C630 E8B366FFFF call 00792CE8
0079C635 A804 test al, $04
0079C637 0F95C2 setnz dl
0079C63A 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnFontUnderline : TToolButton
|
0079C63D 8B80F4030000 mov eax, [eax+$03F4]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C643 E81809CDFF call 0046CF60
0079C648 8BC6 mov eax, esi
* Reference to : TJvRichEdit._PROC_007933F0()
|
0079C64A E8A16DFFFF call 007933F0
0079C64F 8BD0 mov edx, eax
0079C651 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnBullets : TToolButton
|
0079C654 8B8010040000 mov eax, [eax+$0410]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C65A E80109CDFF call 0046CF60
0079C65F 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C662 E841010000 call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792E54()
|
0079C667 E8E867FFFF call 00792E54
0079C66C 3C02 cmp al, $02
0079C66E 0F94C2 setz dl
0079C671 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnSuperscript : TToolButton
|
0079C674 8B8018040000 mov eax, [eax+$0418]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C67A E8E108CDFF call 0046CF60
0079C67F 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C682 E821010000 call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792E54()
|
0079C687 E8C867FFFF call 00792E54
0079C68C 3C01 cmp al, $01
0079C68E 0F94C2 setz dl
0079C691 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnSubscript : TToolButton
|
0079C694 8B801C040000 mov eax, [eax+$041C]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C69A E8C108CDFF call 0046CF60
0079C69F B201 mov dl, $01
* Reference to class TFont
|
0079C6A1 A15CEE4200 mov eax, dword ptr [$0042EE5C]
* Reference to: Graphics.TFont.Create(TFont;boolean);
|
0079C6A6 E8B140C9FF call 0043075C
0079C6AB 8BD8 mov ebx, eax
0079C6AD 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C6B0 E8F3000000 call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792D90()
|
0079C6B5 E8D666FFFF call 00792D90
0079C6BA 8BD0 mov edx, eax
0079C6BC 8BC3 mov eax, ebx
* Reference to: Graphics.TFont.SetSize(TFont;Integer);
|
0079C6BE E80D45C9FF call 00430BD0
0079C6C3 8BC3 mov eax, ebx
* Reference to: Graphics.TFont.GetHeight(TFont):Integer;
|
0079C6C5 E84644C9FF call 00430B10
0079C6CA 8BF8 mov edi, eax
0079C6CC 8BC3 mov eax, ebx
* Reference to: System.TObject.Free(TObject);
|
0079C6CE E8797CC6FF call 0040434C
0079C6D3 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C6D6 E8CD000000 call 0079C7A8
* Reference to : TJvRichEdit._PROC_00792D90()
|
0079C6DB E8B066FFFF call 00792D90
0079C6E0 8BC8 mov ecx, eax
0079C6E2 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0434
|
0079C6E5 8B8034040000 mov eax, [eax+$0434]
0079C6EB 8BD7 mov edx, edi
|
0079C6ED E85EADFDFF call 00777450
0079C6F2 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079C6F5 E8AE000000 call 0079C7A8
0079C6FA 8D55F8 lea edx, [ebp-$08]
* Reference to : TJvRichEdit._PROC_00792C54()
|
0079C6FD E85265FFFF call 00792C54
0079C702 8B55F8 mov edx, [ebp-$08]
0079C705 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0430
|
0079C708 8B8030040000 mov eax, [eax+$0430]
* Reference to : TRMRuler._PROC_00790464()
|
0079C70E E8513DFFFF call 00790464
0079C713 8BC6 mov eax, esi
* Reference to : TJvRichEdit._PROC_00793398()
|
0079C715 E87E6CFFFF call 00793398
0079C71A 2C01 sub al, $01
0079C71C 7208 jb 0079C726
0079C71E 7418 jz 0079C738
0079C720 FEC8 dec al
0079C722 7426 jz 0079C74A
0079C724 EB34 jmp 0079C75A
0079C726 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnAlignLeft : TToolButton
|
0079C729 8B8000040000 mov eax, [eax+$0400]
0079C72F B201 mov dl, $01
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C731 E82A08CDFF call 0046CF60
0079C736 EB22 jmp 0079C75A
0079C738 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnAlignRight : TToolButton
|
0079C73B 8B8008040000 mov eax, [eax+$0408]
0079C741 B201 mov dl, $01
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C743 E81808CDFF call 0046CF60
0079C748 EB10 jmp 0079C75A
0079C74A 8B45FC mov eax, [ebp-$04]
* Reference to control TRMRichForm.btnAlignCenter : TToolButton
|
0079C74D 8B8004040000 mov eax, [eax+$0404]
0079C753 B201 mov dl, $01
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
0079C755 E80608CDFF call 0046CF60
0079C75A 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079CE54()
|
0079C75D E8F2060000 call 0079CE54
0079C762 33C0 xor eax, eax
0079C764 5A pop edx
0079C765 59 pop ecx
0079C766 59 pop ecx
0079C767 648910 mov fs:[eax], edx
****** FINALLY
|
0079C76A 6881C77900 push $0079C781
0079C76F 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0428
|
0079C772 C6802804000000 mov byte ptr [eax+$0428], $00
0079C779 C3 ret
* Reference to: System.@HandleFinally;
|
0079C77A E97583C6FF jmp 00404AF4
0079C77F EBEE jmp 0079C76F
****** END
|
0079C781 33C0 xor eax, eax
0079C783 5A pop edx
0079C784 59 pop ecx
0079C785 59 pop ecx
0079C786 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[YY]Í@'
|
0079C789 689EC77900 push $0079C79E
0079C78E 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
0079C791 E88E8BC6FF call 00405324
0079C796 C3 ret
* Reference to: System.@HandleFinally;
|
0079C797 E95883C6FF jmp 00404AF4
0079C79C EBF0 jmp 0079C78E
****** END
|
0079C79E 5F pop edi
0079C79F 5E pop esi
0079C7A0 5B pop ebx
0079C7A1 59 pop ecx
0079C7A2 59 pop ecx
0079C7A3 5D pop ebp
0079C7A4 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079C7A8(Sender : TObject);
begin
(*
0079C7A8 53 push ebx
0079C7A9 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_0448
|
0079C7AB 8B8348040000 mov eax, [ebx+$0448]
0079C7B1 8B10 mov edx, [eax]
0079C7B3 FF92CC000000 call dword ptr [edx+$00CC]
0079C7B9 85C0 test eax, eax
0079C7BB 7E0E jle 0079C7CB
* Reference to field TRMRichForm.OFFS_0448
|
0079C7BD 8B8348040000 mov eax, [ebx+$0448]
0079C7C3 8B8038020000 mov eax, [eax+$0238]
0079C7C9 5B pop ebx
0079C7CA C3 ret
* Reference to control FKPerson : N.A.
|
0079C7CB 8B8348040000 mov eax, [ebx+$0448]
* Reference to field N.A..OFFS_0240
|
0079C7D1 8B8040020000 mov eax, [eax+$0240]
0079C7D7 5B pop ebx
0079C7D8 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079C7DC(Sender : TObject);
begin
(*
0079C7DC 55 push ebp
0079C7DD 8BEC mov ebp, esp
0079C7DF 6A00 push $00
0079C7E1 53 push ebx
0079C7E2 56 push esi
0079C7E3 8BF2 mov esi, edx
0079C7E5 8BD8 mov ebx, eax
0079C7E7 33C0 xor eax, eax
0079C7E9 55 push ebp
0079C7EA 6830C87900 push $0079C830
***** TRY
|
0079C7EF 64FF30 push dword ptr fs:[eax]
0079C7F2 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.OFFS_0424
|
0079C7F5 8D8324040000 lea eax, [ebx+$0424]
0079C7FB 8BD6 mov edx, esi
* Reference to: System.@LStrAsg(void;void;void;void);
|
0079C7FD E8768BC6FF call 00405378
0079C802 8D55FC lea edx, [ebp-$04]
0079C805 8BC6 mov eax, esi
* Reference to: SysUtils.ExtractFileName(AnsiString):AnsiString;
|
0079C807 E8E0F1C6FF call 0040B9EC
0079C80C 8B55FC mov edx, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079C80F 8B8348040000 mov eax, [ebx+$0448]
* Reference to: ActnMenus.TCustomActionMainMenuBar.SetWindowMenu(TCustomActionMainMenuBar;AnsiString);
| or: ComCtrls.TCustomStatusBar.SetSimpleText(TCustomStatusBar;AnsiString);
|
0079C815 E8429FFFFF call 0079675C
0079C81A 33C0 xor eax, eax
0079C81C 5A pop edx
0079C81D 59 pop ecx
0079C81E 59 pop ecx
0079C81F 648910 mov fs:[eax], edx
****** FINALLY
|
0079C822 6837C87900 push $0079C837
0079C827 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079C82A E8F58AC6FF call 00405324
0079C82F C3 ret
* Reference to: System.@HandleFinally;
|
0079C830 E9BF82C6FF jmp 00404AF4
0079C835 EBF0 jmp 0079C827
****** END
|
0079C837 5E pop esi
0079C838 5B pop ebx
0079C839 59 pop ecx
0079C83A 5D pop ebp
0079C83B C3 ret
*)
end;
procedure TRMRichForm._PROC_0079C83C(Sender : TObject);
begin
(*
0079C83C 53 push ebx
0079C83D 56 push esi
0079C83E 83C4F0 add esp, -$10
* Reference to field TRMRichForm.OFFS_0448
|
0079C841 8B9848040000 mov ebx, [eax+$0448]
0079C847 80BB3102000000 cmp byte ptr [ebx+$0231], $00
0079C84E 7407 jz 0079C857
0079C850 BE03000000 mov esi, $00000003
0079C855 EB02 jmp 0079C859
0079C857 33F6 xor esi, esi
0079C859 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetClientHeight(TControl):Integer;
|
0079C85B E8D8B7CEFF call 00488038
0079C860 50 push eax
0079C861 8D442404 lea eax, [esp+$04]
0079C865 50 push eax
0079C866 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
0079C868 E887B7CEFF call 00487FF4
0079C86D 8BC8 mov ecx, eax
0079C86F 83E906 sub ecx, +$06
0079C872 8D4606 lea eax, [esi+$06]
0079C875 33D2 xor edx, edx
|
0079C877 E8F84CC8FF call 00421574
0079C87C 8BC4 mov eax, esp
0079C87E 50 push eax
0079C87F 6A00 push $00
0079C881 68B3000000 push $000000B3
0079C886 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
| or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
| or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
| or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
| or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
| or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
0079C888 E87727CFFF call 0048F004
0079C88D 50 push eax
* Reference to: user32.SendMessageA()
|
0079C88E E891C4C6FF call 00408D24
0079C893 83C410 add esp, +$10
0079C896 5E pop esi
0079C897 5B pop ebx
0079C898 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079CCFD(Sender : TObject);
begin
(*
0079CCFD 6E outsb
0079CCFE 7469 jz 0079CD69
0079CD00 746C jz 0079CD6E
0079CD02 65640000 add fs:[eax], al
0079CD06 0000 add [eax], al
0079CD08 FFFF DB $FF, $FF //
0079CD0A FFFF DB $FF, $FF //
0079CD0C 17 pop ss
0079CD0D 0000 add [eax], al
0079CD0F 002A add [edx], ch
0079CD11 2E626D70 bound ebp, qword ptr cs:[ebp+$70]
0079CD15 202A and [edx], ch
0079CD17 2E69636F202A2E77 imul esp, cs:[ebx+$6F], $772E2A20
0079CD1F 6D insd
0079CD20 66202A and [edx], ch
0079CD23 2E656D insd
0079CD26 6600FF add bh, bh
0079CD29 FFFF DB $FF, $FF //
0079CD2B FF17 call dword ptr [edi]
0079CD2D 0000 add [eax], al
0079CD2F 002A add [edx], ch
0079CD31 2E626D70 bound ebp, qword ptr cs:[ebp+$70]
0079CD35 3B2A cmp ebp, [edx]
0079CD37 2E69636F3B2A2E77 imul esp, cs:[ebx+$6F], $772E2A3B
0079CD3F 6D insd
0079CD40 663B2A cmp bp, word ptr [edx]
0079CD43 2E656D insd
0079CD46 6600FF add bh, bh
0079CD49 FFFF DB $FF, $FF //
0079CD4B FF06 inc dword ptr [esi]
0079CD4D 0000 add [eax], al
0079CD4F 0020 add [eax], ah
0079CD51 2A2E sub ch, byte ptr [esi]
0079CD53 6A70 push $70
0079CD55 670000 add [bx+si], al
0079CD58 FFFF DB $FF, $FF //
0079CD5A FFFF DB $FF, $FF //
0079CD5C 06 push es
0079CD5D 0000 add [eax], al
0079CD5F 003B add [ebx], bh
0079CD61 2A2E sub ch, byte ptr [esi]
0079CD63 6A70 push $70
0079CD65 670000 add [bx+si], al
0079CD68 FFFF DB $FF, $FF //
0079CD6A FFFF DB $FF, $FF //
0079CD6C 0200 add al, byte ptr [eax]
0079CD6E 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079CD9D(Sender : TObject);
begin
(*
0079CD9D 8BEC mov ebp, esp
0079CD9F 83C4F8 add esp, -$08
0079CDA2 8955F8 mov [ebp-$08], edx
0079CDA5 8945FC mov [ebp-$04], eax
0079CDA8 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0429
|
0079CDAB C6802904000001 mov byte ptr [eax+$0429], $01
0079CDB2 33C0 xor eax, eax
0079CDB4 55 push ebp
0079CDB5 68EFCD7900 push $0079CDEF
***** TRY
|
0079CDBA 64FF30 push dword ptr fs:[eax]
0079CDBD 648920 mov fs:[eax], esp
0079CDC0 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079CDC3 8B8048040000 mov eax, [eax+$0448]
0079CDC9 8B8054020000 mov eax, [eax+$0254]
0079CDCF 8B55F8 mov edx, [ebp-$08]
0079CDD2 8B08 mov ecx, [eax]
0079CDD4 FF5168 call dword ptr [ecx+$68]
0079CDD7 33C0 xor eax, eax
0079CDD9 5A pop edx
0079CDDA 59 pop ecx
0079CDDB 59 pop ecx
0079CDDC 648910 mov fs:[eax], edx
****** FINALLY
|
0079CDDF 68F6CD7900 push $0079CDF6
0079CDE4 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0429
|
0079CDE7 C6802904000000 mov byte ptr [eax+$0429], $00
0079CDEE C3 ret
* Reference to: System.@HandleFinally;
|
0079CDEF E9007DC6FF jmp 00404AF4
0079CDF4 EBEE jmp 0079CDE4
****** END
|
0079CDF6 8B55F8 mov edx, [ebp-$08]
0079CDF9 8B45FC mov eax, [ebp-$04]
* Reference to : TRMRichForm._PROC_0079C7DC()
|
0079CDFC E8DBF9FFFF call 0079C7DC
0079CE01 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079CE04 8B8048040000 mov eax, [eax+$0448]
0079CE0A 8B10 mov edx, [eax]
0079CE0C FF92C4000000 call dword ptr [edx+$00C4]
0079CE12 8B45FC mov eax, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0448
|
0079CE15 8B8048040000 mov eax, [eax+$0448]
0079CE1B 33D2 xor edx, edx
* Reference to: StdCtrls.TCustomEdit.SetModified(TCustomEdit;Boolean);
|
0079CE1D E87AF6CDFF call 0047C49C
0079CE22 33D2 xor edx, edx
0079CE24 8B45FC mov eax, [ebp-$04]
|
0079CE27 E810030000 call 0079D13C
0079CE2C 59 pop ecx
0079CE2D 59 pop ecx
0079CE2E 5D pop ebp
0079CE2F C3 ret
*)
end;
procedure TRMRichForm._PROC_0079CE54(Sender : TObject);
begin
(*
0079CE54 55 push ebp
0079CE55 8BEC mov ebp, esp
0079CE57 83C4E4 add esp, -$1C
0079CE5A 53 push ebx
0079CE5B 33D2 xor edx, edx
0079CE5D 8955F4 mov [ebp-$0C], edx
0079CE60 8BD8 mov ebx, eax
0079CE62 33C0 xor eax, eax
0079CE64 55 push ebp
* Possible String Reference to: '<27>H{<7B><><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
0079CE65 68A7CF7900 push $0079CFA7
***** TRY
|
0079CE6A 64FF30 push dword ptr fs:[eax]
0079CE6D 648920 mov fs:[eax], esp
0079CE70 8D55F8 lea edx, [ebp-$08]
* Reference to field TRMRichForm.OFFS_0448
|
0079CE73 8B8348040000 mov eax, [ebx+$0448]
0079CE79 8B08 mov ecx, [eax]
0079CE7B FF91E8000000 call dword ptr [ecx+$00E8]
0079CE81 8D45F4 lea eax, [ebp-$0C]
0079CE84 50 push eax
0079CE85 8B45FC mov eax, [ebp-$04]
0079CE88 40 inc eax
0079CE89 8945E4 mov [ebp-$1C], eax
0079CE8C C645E800 mov byte ptr [ebp-$18], $00
0079CE90 8B45F8 mov eax, [ebp-$08]
0079CE93 40 inc eax
0079CE94 8945EC mov [ebp-$14], eax
0079CE97 C645F000 mov byte ptr [ebp-$10], $00
0079CE9B 8D55E4 lea edx, [ebp-$1C]
0079CE9E B901000000 mov ecx, $00000001
* Possible String Reference to: '<27><>: %3d <20><>: %3d'
|
0079CEA3 B8BCCF7900 mov eax, $0079CFBC
|
0079CEA8 E8D7FCC6FF call 0040CB84
0079CEAD 8B45F4 mov eax, [ebp-$0C]
0079CEB0 50 push eax
* Reference to control TRMRichForm.StatusBar : TStatusBar
|
0079CEB1 8B8304030000 mov eax, [ebx+$0304]
* Reference to field TStatusBar.Panels : TStatusPanels
|
0079CEB7 8B8008020000 mov eax, [eax+$0208]
0079CEBD 33D2 xor edx, edx
* Reference to: ComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
| or: QComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
|
0079CEBF E8EC0FCCFF call 0045DEB0
0079CEC4 5A pop edx
* Reference to: ComCtrls.TStatusPanel.SetText(TStatusPanel;AnsiString);
| or: ComCtrls.THeaderSection.SetText(THeaderSection;AnsiString);
|
0079CEC5 E8420FCCFF call 0045DE0C
* Reference to field TRMRichForm.OFFS_0448
|
0079CECA 8B8348040000 mov eax, [ebx+$0448]
0079CED0 8B10 mov edx, [eax]
0079CED2 FF92CC000000 call dword ptr [edx+$00CC]
0079CED8 85C0 test eax, eax
0079CEDA 0F9FC2 setnle dl
* Reference to control TRMRichForm.btnCopy : TToolButton
|
0079CEDD 8B83C0030000 mov eax, [ebx+$03C0]
0079CEE3 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
0079CEE5 FF5164 call dword ptr [ecx+$64]
* Reference to control TRMRichForm.btnCopy : TToolButton
|
0079CEE8 8B83C0030000 mov eax, [ebx+$03C0]
0079CEEE 8B10 mov edx, [eax]
* Reference to method TToolButton.GetEnabled()
|
0079CEF0 FF5250 call dword ptr [edx+$50]
0079CEF3 8BD0 mov edx, eax
* Reference to control TRMRichForm.ItemEditCopy : TMenuItem
|
0079CEF5 8B8350030000 mov eax, [ebx+$0350]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079CEFB E898DCCFFF call 0049AB98
* Reference to control TRMRichForm.btnCopy : TToolButton
|
0079CF00 8B83C0030000 mov eax, [ebx+$03C0]
0079CF06 8B10 mov edx, [eax]
* Reference to method TToolButton.GetEnabled()
|
0079CF08 FF5250 call dword ptr [edx+$50]
0079CF0B 8BD0 mov edx, eax
* Reference to control TRMRichForm.ItmCopy : TMenuItem
|
0079CF0D 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079CF13 E880DCCFFF call 0049AB98
* Reference to control TRMRichForm.ItemEditCopy : TMenuItem
|
0079CF18 8B8350030000 mov eax, [ebx+$0350]
* Reference to field TMenuItem.Enabled : Boolean
|
0079CF1E 8A5039 mov dl, byte ptr [eax+$39]
* Reference to control TRMRichForm.btnCut : TToolButton
|
0079CF21 8B83BC030000 mov eax, [ebx+$03BC]
0079CF27 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
0079CF29 FF5164 call dword ptr [ecx+$64]
* Reference to control TRMRichForm.btnCut : TToolButton
|
0079CF2C 8B83BC030000 mov eax, [ebx+$03BC]
0079CF32 8B10 mov edx, [eax]
* Reference to method TToolButton.GetEnabled()
|
0079CF34 FF5250 call dword ptr [edx+$50]
0079CF37 8BD0 mov edx, eax
* Reference to control TRMRichForm.ItmCut : TMenuItem
|
0079CF39 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079CF3F E854DCCFFF call 0049AB98
* Reference to control TRMRichForm.btnCopy : TToolButton
|
0079CF44 8B83C0030000 mov eax, [ebx+$03C0]
0079CF4A 8B10 mov edx, [eax]
* Reference to method TToolButton.GetEnabled()
|
0079CF4C FF5250 call dword ptr [edx+$50]
0079CF4F 8BD0 mov edx, eax
* Reference to control TRMRichForm.ItemEditPasteSpecial : TMenuItem
|
0079CF51 8B8378030000 mov eax, [ebx+$0378]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079CF57 E83CDCCFFF call 0049AB98
* Reference to control TRMRichForm.ItemEditCopy : TMenuItem
|
0079CF5C 8B8350030000 mov eax, [ebx+$0350]
* Reference to field TMenuItem.Enabled : Boolean
|
0079CF62 8A5039 mov dl, byte ptr [eax+$39]
* Reference to control TRMRichForm.ItemEditCut : TMenuItem
|
0079CF65 8B834C030000 mov eax, [ebx+$034C]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079CF6B E828DCCFFF call 0049AB98
* Reference to field TRMRichForm.OFFS_0448
|
0079CF70 8B8348040000 mov eax, [ebx+$0448]
* Reference to : TJvRichEditStrings._PROC_007971FC()
|
0079CF76 E881A2FFFF call 007971FC
0079CF7B 8A15D0CF7900 mov dl, byte ptr [$0079CFD0]
0079CF81 3AD0 cmp dl, al
0079CF83 0F94C2 setz dl
* Reference to control TRMRichForm.ItemEditObjProps : TMenuItem
|
0079CF86 8B8394030000 mov eax, [ebx+$0394]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0079CF8C E807DCCFFF call 0049AB98
0079CF91 33C0 xor eax, eax
0079CF93 5A pop edx
0079CF94 59 pop ecx
0079CF95 59 pop ecx
0079CF96 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0079CF99 68AECF7900 push $0079CFAE
0079CF9E 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
0079CFA1 E87E83C6FF call 00405324
0079CFA6 C3 ret
* Reference to: System.@HandleFinally;
|
0079CFA7 E9487BC6FF jmp 00404AF4
0079CFAC EBF0 jmp 0079CF9E
****** END
|
0079CFAE 5B pop ebx
0079CFAF 8BE5 mov esp, ebp
0079CFB1 5D pop ebp
0079CFB2 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079D123(Sender : TObject);
begin
(*
0079D123 2920 sub dword ptr [eax], esp
0079D125 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079D145(Sender : TObject);
begin
(*
0079D145 0403 add al, +$03
0079D147 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079D167(Sender : TObject);
begin
(*
0079D167 0403 add al, +$03
0079D169 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079D281(Sender : TObject);
begin
(*
0079D281 8BEC mov ebp, esp
0079D283 8B5508 mov edx, [ebp+$08]
* Reference to field TRMRichForm.OFFS_0429
|
0079D286 8A8029040000 mov al, byte ptr [eax+$0429]
0079D28C 8802 mov [edx], al
0079D28E 5D pop ebp
0079D28F C20800 ret $0008
*)
end;
procedure TRMRichForm._PROC_0079D369(Sender : TObject);
begin
(*
0079D369 6E outsb
0079D36A 7469 jz 0079D3D5
0079D36C 746C jz 0079D3DA
0079D36E 65640000 add fs:[eax], al
0079D372 0000 add [eax], al
0079D374 55 push ebp
0079D375 8BEC mov ebp, esp
0079D377 6A00 push $00
0079D379 6A00 push $00
0079D37B 6A00 push $00
0079D37D 53 push ebx
0079D37E 8BD8 mov ebx, eax
0079D380 33C0 xor eax, eax
0079D382 55 push ebp
* Possible String Reference to: '<27><>v<EFBFBD><76><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
0079D383 6832D47900 push $0079D432
***** TRY
|
0079D388 64FF30 push dword ptr fs:[eax]
0079D38B 648920 mov fs:[eax], esp
0079D38E 8D55FC lea edx, [ebp-$04]
0079D391 B872B80000 mov eax, $0000B872
|
0079D396 E801B0FDFF call 0077839C
0079D39B FF75FC push dword ptr [ebp-$04]
* Possible String Reference to: '(*.rtf)|*.rtf'
|
0079D39E 6848D47900 push $0079D448
0079D3A3 6860D47900 push $0079D460
0079D3A8 8D55F8 lea edx, [ebp-$08]
0079D3AB B86CB80000 mov eax, $0000B86C
|
0079D3B0 E8E7AFFDFF call 0077839C
0079D3B5 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '(*.txt)|*.txt'
|
0079D3B8 686CD47900 push $0079D46C
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3BD 8B83F8020000 mov eax, [ebx+$02F8]
0079D3C3 83C060 add eax, +$60
0079D3C6 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0079D3CB E8E482C6FF call 004056B4
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3D0 8B83F8020000 mov eax, [ebx+$02F8]
0079D3D6 8B10 mov edx, [eax]
* Reference to method TOpenDialog.Execute()
|
0079D3D8 FF523C call dword ptr [edx+$3C]
0079D3DB 84C0 test al, al
0079D3DD 7430 jz 0079D40F
0079D3DF 8D55F4 lea edx, [ebp-$0C]
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3E2 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
0079D3E8 E8DB31CAFF call 004405C8
0079D3ED 8B55F4 mov edx, [ebp-$0C]
0079D3F0 8BC3 mov eax, ebx
|
0079D3F2 E8A5F9FFFF call 0079CD9C
* Reference to control TRMRichForm.OpenDialog : TOpenDialog
|
0079D3F7 8B83F8020000 mov eax, [ebx+$02F8]
0079D3FD F6405C01 test byte ptr [eax+$5C], $01
0079D401 0F95C2 setnz dl
* Reference to field TRMRichForm.OFFS_0448
|
0079D404 8B8348040000 mov eax, [ebx+$0448]
* Reference to: StdCtrls.TCustomEdit.SetReadOnly(TCustomEdit;Boolean);
|
0079D40A E84DF1CDFF call 0047C55C
0079D40F 33C0 xor eax, eax
0079D411 5A pop edx
0079D412 59 pop ecx
0079D413 59 pop ecx
0079D414 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0079D417 6839D47900 push $0079D439
0079D41C 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
0079D41F E8007FC6FF call 00405324
0079D424 8D45F8 lea eax, [ebp-$08]
0079D427 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0079D42C E8177FC6FF call 00405348
0079D431 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079D4E1(Sender : TObject);
begin
(*
0079D4E1 6E outsb
0079D4E2 7469 jz 0079D54D
0079D4E4 746C jz 0079D552
0079D4E6 65640000 add fs:[eax], al
0079D4EA 0000 add [eax], al
0079D4EC 55 push ebp
0079D4ED 8BEC mov ebp, esp
0079D4EF 6A00 push $00
0079D4F1 53 push ebx
0079D4F2 33D2 xor edx, edx
0079D4F4 55 push ebp
0079D4F5 6833D57900 push $0079D533
***** TRY
|
0079D4FA 64FF32 push dword ptr fs:[edx]
0079D4FD 648922 mov fs:[edx], esp
* Reference to field TRMRichForm.OFFS_0448
|
0079D500 8B9848040000 mov ebx, [eax+$0448]
0079D506 8D55FC lea edx, [ebp-$04]
0079D509 8BC3 mov eax, ebx
0079D50B 8B08 mov ecx, [eax]
0079D50D FF91D4000000 call dword ptr [ecx+$00D4]
0079D513 8B55FC mov edx, [ebp-$04]
0079D516 8BC3 mov eax, ebx
|
0079D518 E873B8FFFF call 00798D90
0079D51D 33C0 xor eax, eax
0079D51F 5A pop edx
0079D520 59 pop ecx
0079D521 59 pop ecx
0079D522 648910 mov fs:[eax], edx
****** FINALLY
|
0079D525 683AD57900 push $0079D53A
0079D52A 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079D52D E8F27DC6FF call 00405324
0079D532 C3 ret
* Reference to: System.@HandleFinally;
|
0079D533 E9BC75C6FF jmp 00404AF4
0079D538 EBF0 jmp 0079D52A
****** END
|
0079D53A 5B pop ebx
0079D53B 59 pop ecx
0079D53C 5D pop ebp
0079D53D C3 ret
0079D53E 8BC0 mov eax, eax
* Reference to control FKPerson : N.A.
|
0079D540 8B8048040000 mov eax, [eax+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D546 E879F1CDFF call 0047C6C4
0079D54B C3 ret
* Reference to control FKPerson : N.A.
|
0079D54C 8B8048040000 mov eax, [eax+$0448]
* Reference to: ComCtrls.TCustomTabControl.GetTabIndex(TCustomTabControl):Integer;
| or: Forms.TCustomForm.Release(TCustomForm);
| or: StdCtrls.TCustomEdit.ClearSelection(TCustomEdit);
| or: StdCtrls.TCustomEdit.CopyToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.CutToClipboard(TCustomEdit);
| or: StdCtrls.TCustomEdit.PasteFromClipboard(TCustomEdit);
|
0079D552 E851F1CDFF call 0047C6A8
0079D557 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079D613(Sender : TObject);
begin
(*
0079D613 0001 add [ecx], al
0079D615 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079D67B(Sender : TObject);
begin
(*
0079D67B 0002 add [edx], al
0079D67D 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079D6E3(Sender : TObject);
begin
(*
0079D6E3 000400 add [eax+eax], al
0079D6E6 0000 add [eax], al
*)
end;
procedure TRMRichForm._PROC_0079DBA0(Sender : TObject);
begin
(*
0079DBA0 55 push ebp
0079DBA1 8BEC mov ebp, esp
0079DBA3 6A00 push $00
0079DBA5 6A00 push $00
0079DBA7 53 push ebx
0079DBA8 8BD8 mov ebx, eax
0079DBAA 33C0 xor eax, eax
0079DBAC 55 push ebp
0079DBAD 6842DC7900 push $0079DC42
***** TRY
|
0079DBB2 64FF30 push dword ptr fs:[eax]
0079DBB5 648920 mov fs:[eax], esp
* Reference to field TRMRichForm.OFFS_0428
|
0079DBB8 80BB2804000000 cmp byte ptr [ebx+$0428], $00
0079DBBF 7566 jnz 0079DC27
0079DBC1 8D55FC lea edx, [ebp-$04]
* Reference to field TRMRichForm.OFFS_0430
|
0079DBC4 8B8330040000 mov eax, [ebx+$0430]
* 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;
|
0079DBCA E89D29FFFF call 0079056C
0079DBCF 8B45FC mov eax, [ebp-$04]
0079DBD2 50 push eax
0079DBD3 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DBD5 E8CEEBFFFF call 0079C7A8
0079DBDA 5A pop edx
* Reference to : TJvRichEdit._PROC_00792C78()
|
0079DBDB E89850FFFF call 00792C78
*)
end;
procedure TRMRichForm._PROC_0079DC50(Sender : TObject);
begin
(*
0079DC50 53 push ebx
0079DC51 56 push esi
0079DC52 57 push edi
0079DC53 8BF0 mov esi, eax
* Reference to field TRMRichForm.OFFS_0428
|
0079DC55 80BE2804000000 cmp byte ptr [esi+$0428], $00
0079DC5C 7556 jnz 0079DCB4
* Reference to field TRMRichForm.OFFS_0434
|
0079DC5E 8B8634040000 mov eax, [esi+$0434]
* Reference to : TWrapperComponent._PROC_007774F0()
|
0079DC64 E88798FDFF call 007774F0
0079DC69 8BD8 mov ebx, eax
0079DC6B 85DB test ebx, ebx
0079DC6D 7E10 jle 0079DC7F
0079DC6F 8BC6 mov eax, esi
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DC71 E832EBFFFF call 0079C7A8
0079DC76 8BD3 mov edx, ebx
* Reference to : TJvRichEdit._PROC_00792DAC()
|
0079DC78 E82F51FFFF call 00792DAC
0079DC7D EB35 jmp 0079DCB4
0079DC7F B201 mov dl, $01
* Reference to class TFont
|
0079DC81 A15CEE4200 mov eax, dword ptr [$0042EE5C]
* Reference to: Graphics.TFont.Create(TFont;boolean);
|
0079DC86 E8D12AC9FF call 0043075C
0079DC8B 8BF8 mov edi, eax
0079DC8D 8BD3 mov edx, ebx
0079DC8F 8BC7 mov eax, edi
* Reference to: Graphics.TFont.SetHeight(TFont;Integer);
|
0079DC91 E8822EC9FF call 00430B18
0079DC96 8BC7 mov eax, edi
* Reference to: Graphics.TFont.GetSize(TFont):Integer;
|
0079DC98 E8172FC9FF call 00430BB4
0079DC9D 8BD8 mov ebx, eax
0079DC9F 8BC6 mov eax, esi
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DCA1 E802EBFFFF call 0079C7A8
0079DCA6 8BD3 mov edx, ebx
* Reference to : TJvRichEdit._PROC_00792DAC()
|
0079DCA8 E8FF50FFFF call 00792DAC
0079DCAD 8BC7 mov eax, edi
* Reference to: System.TObject.Free(TObject);
|
0079DCAF E89866C6FF call 0040434C
0079DCB4 5F pop edi
0079DCB5 5E pop esi
0079DCB6 5B pop ebx
0079DCB7 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079DCF0(Sender : TObject);
begin
(*
0079DCF0 53 push ebx
0079DCF1 8BD8 mov ebx, eax
* Reference to field TRMRichForm.OFFS_043C
|
0079DCF3 3B933C040000 cmp edx, [ebx+$043C]
0079DCF9 751A jnz 0079DD15
0079DCFB 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DCFD E8A6EAFFFF call 0079C7A8
* Reference to field TRMRichForm.OFFS_043C
|
0079DD02 8B933C040000 mov edx, [ebx+$043C]
0079DD08 8B9294020000 mov edx, [edx+$0294]
* Reference to : TJvRichEdit._PROC_00792BAC()
|
0079DD0E E8994EFFFF call 00792BAC
0079DD13 5B pop ebx
0079DD14 C3 ret
0079DD15 8BC3 mov eax, ebx
* Reference to : TRMRichForm._PROC_0079C7A8()
|
0079DD17 E88CEAFFFF call 0079C7A8
* Reference to control Label40 : N.A.
|
0079DD1C 8B9340040000 mov edx, [ebx+$0440]
* Reference to field N.A..OFFS_0294
|
0079DD22 8B9294020000 mov edx, [edx+$0294]
* Reference to : TJvRichEdit._PROC_00792BFC()
|
0079DD28 E8CF4EFFFF call 00792BFC
0079DD2D 5B pop ebx
0079DD2E C3 ret
*)
end;
procedure TRMRichForm._PROC_0079DFC4(Sender : TObject);
begin
(*
0079DFC4 53 push ebx
0079DFC5 8BDA mov ebx, edx
0079DFC7 8D83E0000000 lea eax, [ebx+$00E0]
|
0079DFCD E8CAD8F2FF call 006CB89C
0079DFD2 8BD0 mov edx, eax
* Reference to control v1XHNo : N.A.
|
0079DFD4 8B8378030000 mov eax, [ebx+$0378]
* Reference to: ActnMan.TCustomActionControl.DrawDesignFocus(TCustomActionControl;Windows.TRect;Windows.TRect);
| or: ADODB.TCustomADODataSet.GetCommandTimeout(TCustomADODataSet):Integer;
| or: ADODB.TCustomADODataSet.SetCommandTimeout(TCustomADODataSet;Integer);
| or: ArrowCha.TArrowSeries.SetArrowWidth(TArrowSeries;Integer);
| or: ArrowCha.TArrowSeries.SetArrowHeight(TArrowSeries;Integer);
| or: BrushDlg.TBrushDialog.FormClose(TBrushDialog;TObject;TCloseAction;TCloseAction);
|
0079DFDA E849DFFFFF call 0079BF28
0079DFDF 5B pop ebx
0079DFE0 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079DFE4(Sender : TObject);
begin
(*
0079DFE4 55 push ebp
0079DFE5 8BEC mov ebp, esp
0079DFE7 6A00 push $00
0079DFE9 56 push esi
0079DFEA 8BF2 mov esi, edx
0079DFEC 33C0 xor eax, eax
0079DFEE 55 push ebp
* Possible String Reference to: '<27><>j<EFBFBD><6A><EFBFBD><EFBFBD>^Y]ÐVWQ<57><51>h'
|
0079DFEF 6838E07900 push $0079E038
***** TRY
|
0079DFF4 64FF30 push dword ptr fs:[eax]
0079DFF7 648920 mov fs:[eax], esp
0079DFFA 8D45FC lea eax, [ebp-$04]
0079DFFD 8D96E0000000 lea edx, [esi+$00E0]
* Reference to: Variants.@VarToWStr(WideString;WideString;TVarData;TVarData);
|
0079E003 E8089DC7FF call 00417D10
0079E008 8B55FC mov edx, [ebp-$04]
* Reference to control v1XHNo : N.A.
|
0079E00B 8B8678030000 mov eax, [esi+$0378]
* Reference to field N.A..OFFS_01A8
|
0079E011 8B80A8010000 mov eax, [eax+$01A8]
0079E017 8B8054020000 mov eax, [eax+$0254]
0079E01D 8B08 mov ecx, [eax]
0079E01F FF5168 call dword ptr [ecx+$68]
0079E022 33C0 xor eax, eax
0079E024 5A pop edx
0079E025 59 pop ecx
0079E026 59 pop ecx
0079E027 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^Y]ÐVWQ<57><51>h'
|
0079E02A 683FE07900 push $0079E03F
0079E02F 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079E032 E8ED72C6FF call 00405324
0079E037 C3 ret
* Reference to: System.@HandleFinally;
|
0079E038 E9B76AC6FF jmp 00404AF4
0079E03D EBF0 jmp 0079E02F
****** END
|
0079E03F 5E pop esi
0079E040 59 pop ecx
0079E041 5D pop ebp
0079E042 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079E044(Sender : TObject);
begin
(*
0079E044 56 push esi
0079E045 57 push edi
0079E046 51 push ecx
0079E047 8BF8 mov edi, eax
* Possible String Reference to: 'TRMRichView'
|
0079E049 6800E17900 push $0079E100
* Reference to class TRMRichView
|
0079E04E 8B0D149C7900 mov ecx, [$00799C14]
* Possible String Reference to: 'ReportMachine'
|
0079E054 BA14E17900 mov edx, $0079E114
0079E059 8BC7 mov eax, edi
0079E05B 66BEF6FF mov si, $FFF6
* Reference to: System.@CallDynaInst;
|
0079E05F E8F064C6FF call 00404554
* Possible String Reference to: 'TJvRichEdit'
|
0079E064 682CE17900 push $0079E12C
* Reference to class TJvRichEdit
|
0079E069 8B0DC41D7900 mov ecx, [$00791DC4]
* Possible String Reference to: 'ReportMachine'
|
0079E06F BA14E17900 mov edx, $0079E114
0079E074 8BC7 mov eax, edi
0079E076 66BEF6FF mov si, $FFF6
* Reference to: System.@CallDynaInst;
|
0079E07A E8D564C6FF call 00404554
* Possible String Reference to: 'TRMRxRichView'
|
0079E07F 6840E17900 push $0079E140
* Reference to class TRMRxRichView
|
0079E084 8B0D849F7900 mov ecx, [$00799F84]
* Possible String Reference to: 'ReportMachine'
|
0079E08A BA14E17900 mov edx, $0079E114
0079E08F 8BC7 mov eax, edi
0079E091 66BEF6FF mov si, $FFF6
* Reference to: System.@CallDynaInst;
|
0079E095 E8BA64C6FF call 00404554
* Possible String Reference to: 'S<>ڍ<EFBFBD><DA8D>'
|
0079E09A 68C4DF7900 push $0079DFC4
0079E09F 6A01 push $01
0079E0A1 66C74424080000 mov word ptr [esp+$08], $0000
0079E0A8 8D442408 lea eax, [esp+$08]
0079E0AC 50 push eax
0079E0AD 6A00 push $00
0079E0AF 6A00 push $00
* Possible String Reference to: 'LoadFromRichEdit'
|
0079E0B1 B958E17900 mov ecx, $0079E158
* Reference to class TRMRichView
|
0079E0B6 8B15149C7900 mov edx, [$00799C14]
0079E0BC 8BC7 mov eax, edi
0079E0BE 66BEF4FF mov si, $FFF4
* Reference to: System.@CallDynaInst;
|
0079E0C2 E88D64C6FF call 00404554
* Possible String Reference to: 'U<><55>j'
|
0079E0C7 68E4DF7900 push $0079DFE4
0079E0CC 6A01 push $01
0079E0CE 66C74424080000 mov word ptr [esp+$08], $0000
0079E0D5 8D442408 lea eax, [esp+$08]
0079E0D9 50 push eax
0079E0DA 6A00 push $00
0079E0DC 6A00 push $00
* Possible String Reference to: 'LoadFromFile'
|
0079E0DE B974E17900 mov ecx, $0079E174
* Reference to class TRMRichView
|
0079E0E3 8B15149C7900 mov edx, [$00799C14]
0079E0E9 8BC7 mov eax, edi
0079E0EB 66BEF4FF mov si, $FFF4
* Reference to: System.@CallDynaInst;
|
0079E0EF E86064C6FF call 00404554
0079E0F4 5A pop edx
0079E0F5 5F pop edi
0079E0F6 5E pop esi
0079E0F7 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079E185(Sender : TObject);
begin
(*
0079E185 8BEC mov ebp, esp
0079E187 33C0 xor eax, eax
0079E189 55 push ebp
* Possible String Reference to: '<27>/i<><69><EFBFBD><EFBFBD>]Í@'
|
0079E18A 68C0E17900 push $0079E1C0
***** TRY
|
0079E18F 64FF30 push dword ptr fs:[eax]
0079E192 648920 mov fs:[eax], esp
0079E195 FF05743B8900 inc dword ptr [$00893B74]
0079E19B 7515 jnz 0079E1B2
0079E19D B8CCEE8800 mov eax, $0088EECC
0079E1A2 B906000000 mov ecx, $00000006
* Reference to object String
|
0079E1A7 8B1520114000 mov edx, [$00401120]
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
0079E1AD E8627FC6FF call 00406114
0079E1B2 33C0 xor eax, eax
0079E1B4 5A pop edx
0079E1B5 59 pop ecx
0079E1B6 59 pop ecx
0079E1B7 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Í@'
|
0079E1BA 68C7E17900 push $0079E1C7
0079E1BF C3 ret
* Reference to: System.@HandleFinally;
|
0079E1C0 E92F69C6FF jmp 00404AF4
0079E1C5 EBF8 jmp 0079E1BF
****** END
|
0079E1C7 5D pop ebp
0079E1C8 C3 ret
*)
end;
procedure TRMRichForm._PROC_0079E1CC(Sender : TObject);
begin
(*
0079E1CC 55 push ebp
0079E1CD 8BEC mov ebp, esp
0079E1CF 6A00 push $00
0079E1D1 33C0 xor eax, eax
0079E1D3 55 push ebp
* Possible String Reference to: '<27><>h<EFBFBD><68><EFBFBD><EFBFBD>Y]<5D>'
|
0079E1D4 682DE27900 push $0079E22D
***** TRY
|
0079E1D9 64FF30 push dword ptr fs:[eax]
0079E1DC 648920 mov fs:[eax], esp
0079E1DF 832D743B890001 sub dword ptr [$00893B74], +$01
0079E1E6 732F jnb 0079E217
* Reference to class TRMRichForm
|
0079E1E8 A1B0A07900 mov eax, dword ptr [$0079A0B0]
0079E1ED 50 push eax
0079E1EE 8D55FC lea edx, [ebp-$04]
0079E1F1 B877B80000 mov eax, $0000B877
|
0079E1F6 E8A1A1FDFF call 0077839C
0079E1FB 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: 'RM_RichObject'
|
0079E1FE BA40E27900 mov edx, $0079E240
* Reference to class TRMRichView
|
0079E203 A1149C7900 mov eax, dword ptr [$00799C14]
|
0079E208 E82306FEFF call 0077E830
* Reference to: QControls.DragImageList:TImageList;
| or: SockApp.SockWebRequestHandler:WebReq.TWebRequestHandler;
|
0079E20D E8E2D2F2FF call 006CB4F4
* Reference to : TRMRichForm._PROC_0079E044()
|
0079E212 E82DFEFFFF call 0079E044
0079E217 33C0 xor eax, eax
0079E219 5A pop edx
0079E21A 59 pop ecx
0079E21B 59 pop ecx
0079E21C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: 'Y]<5D>'
|
0079E21F 6834E27900 push $0079E234
0079E224 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0079E227 E8F870C6FF call 00405324
0079E22C C3 ret
* Reference to: System.@HandleFinally;
|
0079E22D E9C268C6FF jmp 00404AF4
0079E232 EBF0 jmp 0079E224
****** END
|
0079E234 59 pop ecx
0079E235 5D pop ebp
0079E236 C3 ret
*)
end;
end.
Reference in New Issue View Git Blame Copy Permalink