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: 'éî®Æÿëø]ËÀƒ-p;‰'
|
|
|
|
|
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: ']ËÀƒ-p;‰'
|
|
|
|
|
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. |