127 lines
2.9 KiB
ObjectPascal
127 lines
2.9 KiB
ObjectPascal
|
unit RM_RxParaFmt;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Classes, Graphics,
|
|||
|
|
Controls, Forms, Dialogs, StdCtrls
|
|||
|
|
type
|
|||
|
|
TRMParaFormatDlg=class(TForm)
|
|||
|
|
btnOK: TButton;
|
|||
|
|
btnCancel: TButton;
|
|||
|
|
IndentBox: TGroupBox;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
Alignment: TRadioGroup;
|
|||
|
|
SpacingBox: TGroupBox;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
edtSpaceBefore: TEdit;
|
|||
|
|
edtSpaceAfter: TEdit;
|
|||
|
|
edtLineSpacing: TEdit;
|
|||
|
|
edtLeftIndent: TEdit;
|
|||
|
|
edtRightIndent: TEdit;
|
|||
|
|
edtFirstIndent: TEdit;
|
|||
|
|
UpDownSpaceBefore: TUpDown;
|
|||
|
|
UpDownSpaceAfter: TUpDown;
|
|||
|
|
UpDownLineSpacing: TUpDown;
|
|||
|
|
UpDownLeftIndent: TUpDown;
|
|||
|
|
UpDownRightIndent: TUpDown;
|
|||
|
|
UpDownFirstIndent: TUpDown;
|
|||
|
|
procedure FormCreate(Sender : TObject);
|
|||
|
|
procedure _PROC_00799BDD(Sender : TObject);
|
|||
|
|
procedure _PROC_00799C0C(Sender : TObject);
|
|||
|
|
procedure _PROC_00799C14(Sender : TObject);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
{ Public declarations }
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
RMParaFormatDlg: TRMParaFormatDlg;
|
|||
|
|
|
|||
|
|
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
{$R *.DFM}
|
|||
|
|
|
|||
|
|
procedure TRMParaFormatDlg.FormCreate(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
00799BD4 E8D7FDFFFF call 007999B0
|
|||
|
|
00799BD9 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMParaFormatDlg._PROC_00799BDD(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
00799BDD 8BEC mov ebp, esp
|
|||
|
|
00799BDF 33C0 xor eax, eax
|
|||
|
|
00799BE1 55 push ebp
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-p;<3B>'
|
|||
|
|
|
|
|||
|
|
00799BE2 68019C7900 push $00799C01
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
00799BE7 64FF30 push dword ptr fs:[eax]
|
|||
|
|
00799BEA 648920 mov fs:[eax], esp
|
|||
|
|
00799BED FF05703B8900 inc dword ptr [$00893B70]
|
|||
|
|
00799BF3 33C0 xor eax, eax
|
|||
|
|
00799BF5 5A pop edx
|
|||
|
|
00799BF6 59 pop ecx
|
|||
|
|
00799BF7 59 pop ecx
|
|||
|
|
00799BF8 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ']Ë<><C38B>-p;<3B>'
|
|||
|
|
|
|
|||
|
|
00799BFB 68089C7900 push $00799C08
|
|||
|
|
00799C00 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
00799C01 E9EEAEC6FF jmp 00404AF4
|
|||
|
|
00799C06 EBF8 jmp 00799C00
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
00799C08 5D pop ebp
|
|||
|
|
00799C09 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMParaFormatDlg._PROC_00799C0C(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
00799C0C 832D703B890001 sub dword ptr [$00893B70], +$01
|
|||
|
|
00799C13 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TRMParaFormatDlg._PROC_00799C14(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
00799C14 60 pusha
|
|||
|
|
00799C15 9C pushf
|
|||
|
|
00799C16 7900 jns 00799C18
|
|||
|
|
00799C18 0000 add [eax], al
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|