Class TMDIForm (unit MDIFormUnit) |
Inherits from
TForm
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;
property FileName : String
property IsChanged : Boolean
property IsNew : Boolean
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;
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;
property FileName : String
property IsChanged : Boolean
property IsNew : Boolean
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;