Class TMDIForm (unit MDIFormUnit)

Inherits from

TForm

Constructors



Functions

procedure AddWordMIClick(Sender: TObject);

Executes interactive spell checking

procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Executes interactive spell checking

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Replaces selected word with alterntive from popup menu

procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure RichEditChange(Sender: TObject);


procedure RichEditMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure RichEditSelectionChange(Sender: TObject);


procedure RichEditURLClick(Sender: TObject; URL: String);


procedure RulerIndentChange(Sender: TObject; IndentID: TIndentID);


procedure SpellMIClick(Sender: TObject);

Get list of alternatives into Variants

procedure VariantMIClick(Sender: TObject);

Executes interactive spell checking

function VariantsMenu97DrawItem(Control: TMenu; Item: TMenuItem; Rect: TRect; State: TOwnerDrawState): Boolean;


procedure VariantsMenuPopup(Sender: TObject);


procedure CheckForSave;


procedure Clear;


procedure Copy;


procedure Cut;


procedure ExecLoad(FName: String);


procedure ExecNew;


procedure ExecSave;

Public declarations

procedure ExecSaveAs;


procedure Find(Sender: TObject);


procedure Paste;


procedure Print;


procedure Redo;


procedure Replace;


procedure SelectAll;


procedure SetAlignment(Alignment: TAlignment98);


procedure SetBackColor(Color: TColor);


procedure SetBold(Bold: Boolean);


procedure SetColor(Color: TColor);


procedure SetFont(FontName: String);


procedure SetFontSize(Size: Integer);


procedure SetItalic(Italic: Boolean);


procedure SetLanguage(Language: TLanguage);


procedure SetNumbering(Numbering: Boolean);


procedure SetUnderline(Underline: Boolean);


procedure Spell;


procedure Undo;


procedure SetChanged(Value: Boolean);


procedure SetFileName(Value: String);


procedure UpdateButtons;


Properties

property FileName : String


property IsChanged : Boolean


property IsNew : Boolean


Events

Variables

GoToWeb : TGoToWeb;


RichEdit : TRichEdit98;


Ruler : TanlRuler;


StatusBar : TStatusBar;


VariantsMenu : TPopupMenu;


VariantsMenu97 : TPopupMenus97;


CheckEnd : Integer;


CheckStart : Integer;


CheckWord : String;


FChanged : Boolean;

Private declarations

FFileName : String;


FIsNew : Boolean;


OldBackColor : TColor;


OldColor : TColor;



Constructors


Functions


procedure AddWordMIClick(Sender: TObject);

Executes interactive spell checking


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Executes interactive spell checking


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Replaces selected word with alterntive from popup menu


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure RichEditChange(Sender: TObject);


procedure RichEditMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure RichEditSelectionChange(Sender: TObject);


procedure RichEditURLClick(Sender: TObject; URL: String);


procedure RulerIndentChange(Sender: TObject; IndentID: TIndentID);


procedure SpellMIClick(Sender: TObject);

Get list of alternatives into Variants


procedure VariantMIClick(Sender: TObject);

Executes interactive spell checking


function VariantsMenu97DrawItem(Control: TMenu; Item: TMenuItem; Rect: TRect; State: TOwnerDrawState): Boolean;


procedure VariantsMenuPopup(Sender: TObject);


procedure CheckForSave;


procedure Clear;


procedure Copy;


procedure Cut;


procedure ExecLoad(FName: String);


procedure ExecNew;


procedure ExecSave;

Public declarations


procedure ExecSaveAs;


procedure Find(Sender: TObject);


procedure Paste;


procedure Print;


procedure Redo;


procedure Replace;


procedure SelectAll;


procedure SetAlignment(Alignment: TAlignment98);


procedure SetBackColor(Color: TColor);


procedure SetBold(Bold: Boolean);


procedure SetColor(Color: TColor);


procedure SetFont(FontName: String);


procedure SetFontSize(Size: Integer);


procedure SetItalic(Italic: Boolean);


procedure SetLanguage(Language: TLanguage);


procedure SetNumbering(Numbering: Boolean);


procedure SetUnderline(Underline: Boolean);


procedure Spell;


procedure Undo;


procedure SetChanged(Value: Boolean);


procedure SetFileName(Value: String);


procedure UpdateButtons;


Properties


property FileName : String


property IsChanged : Boolean


property IsNew : Boolean


Events


Variables


GoToWeb : TGoToWeb;


RichEdit : TRichEdit98;


Ruler : TanlRuler;


StatusBar : TStatusBar;


VariantsMenu : TPopupMenu;


VariantsMenu97 : TPopupMenus97;


CheckEnd : Integer;


CheckStart : Integer;


CheckWord : String;


FChanged : Boolean;

Private declarations


FFileName : String;


FIsNew : Boolean;


OldBackColor : TColor;


OldColor : TColor;