Class TSpellDemoForm (unit SpellDemoUnit)

Inherits from

TForm

TSpellChecker demo Simple rich-text format editor with spelling check capability Author: Alexander Obukhov // see comments in the listing to understand some TSpellChecker methods and properties

Constructors



Functions

procedure AboutMIClick(Sender: TObject);


procedure ArrangeIconsMIClick(Sender: TObject);


procedure BoldBtnClick(Sender: TObject);


procedure BulletsBtnClick(Sender: TObject);


procedure CascadeMIClick(Sender: TObject);


procedure CenterBtnClick(Sender: TObject);


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


procedure ColorMenu97MeasureItem(Control: TMenu; Item: TMenuItem; var Height, Width: Integer);


procedure ColorMenuPopup(Sender: TObject);


procedure ColorMIClick(Sender: TObject);


procedure CopyMIClick(Sender: TObject);


procedure CutMIClick(Sender: TObject);


procedure ExitMIClick(Sender: TObject);


procedure FindDialogFind(Sender: TObject);


procedure FindMIClick(Sender: TObject);


procedure FontComboChange(Sender: TObject);


procedure FontComboDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FontSizeChange(Sender: TObject);


procedure FontSizeDropDown(Sender: TObject);


procedure FontSizeKeyPress(Sender: TObject; var Key: Char);


procedure FontSizeKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure HighlightMenuPopup(Sender: TObject);


procedure HighlightMIClick(Sender: TObject);


procedure ItalicBtnClick(Sender: TObject);


procedure LangMIClick(Sender: TObject);

Changes speller language

procedure LanguagesChange(Sender: TObject);


procedure LeftBtnClick(Sender: TObject);


procedure NewMIClick(Sender: TObject);


procedure OpenMIClick(Sender: TObject);


procedure OtherMIClick(Sender: TObject);


procedure PasteMIClick(Sender: TObject);


procedure PrintMIClick(Sender: TObject);


procedure PrintSetupMIClick(Sender: TObject);


procedure RedoMIClick(Sender: TObject);


procedure ReplaceDialogReplace(Sender: TObject);


procedure ReplaceMIClick(Sender: TObject);


procedure RightBtnClick(Sender: TObject);


procedure SaveAsMIClick(Sender: TObject);


procedure SaveMIClick(Sender: TObject);


procedure SelectAllMIClick(Sender: TObject);


procedure SetColorButton(TB: TToolButton; Color: TColor);


procedure SpellMIClick(Sender: TObject);

Sets new language from selected menu item

procedure TileMIClick(Sender: TObject);


procedure UndoMIClick(Sender: TObject);


procedure UndrlBtnClick(Sender: TObject);


function GetMenuButtonAt(X, Y: Integer; var R: TRect): TToolButton;


procedure NewMenubarProc(Var Message: TMessage);


Properties

Events

Variables

AboutMI : TMenuItem;


AquaMI : TMenuItem;


AquaMI2 : TMenuItem;


ArrangeIconsMI : TMenuItem;


AutoMI : TMenuItem;


BackColorBtn : TToolButton;


BlackMI : TMenuItem;


BlackMI2 : TMenuItem;


BlueMI : TMenuItem;


BlueMI2 : TMenuItem;


BoldBtn : TToolButton;


BulletsBtn : TToolButton;


CascadeMI : TMenuItem;


CenterBtn : TToolButton;


ColorDialog : TColorDialog;


ColorMenu : TPopupMenu;


ColorMenu97 : TPopupMenus97;


CoolBar1 : TCoolBar;


CopyBtn : TToolButton;


CopyMI : TMenuItem;


CutBtn : TToolButton;


CutMI : TMenuItem;


EditMI : TMenuItem;


ExitBtn : TToolButton;


ExitMI : TMenuItem;


FileMI : TMenuItem;


FindBtn : TToolButton;


FindDialog : TFindDialog;


FindMI : TMenuItem;


FmtToolBar : TToolBar;


FontCombo : TComboBox;


FontSize : TComboBox;


FuchsiaMI : TMenuItem;


FuchsiaMI2 : TMenuItem;


GrayMI : TMenuItem;


GrayMI2 : TMenuItem;


GreenMI : TMenuItem;


GreenMI2 : TMenuItem;


HelpMI : TMenuItem;


HighlightMenu : TPopupMenu;


HighlightMenu97 : TPopupMenus97;


Images : TImageList;


ItalicBtn : TToolButton;


Languages : TLanguagesCombo;


LeftBtn : TToolButton;


LimeMI : TMenuItem;


LimeMI2 : TMenuItem;


MainMenu : TMainMenu;


MainMenu97 : TMainMenus97;


MainToolBar : TToolBar;


MaroonMI : TMenuItem;


MaroonMI2 : TMenuItem;


MenuToolBar : TMenuToolBar;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


N6 : TMenuItem;


N7 : TMenuItem;


NavyMI : TMenuItem;


NavyMI2 : TMenuItem;


NewBtn : TToolButton;


NewMI : TMenuItem;


NoneMI2 : TMenuItem;


OliveMI : TMenuItem;


OliveMI2 : TMenuItem;


OpenBtn : TToolButton;


OpenDialog : TOpenDialog;


OpenMI : TMenuItem;


OtherMI : TMenuItem;


PasteBtn : TToolButton;


PasteMI : TMenuItem;


PrintBtn : TToolButton;


PrinterSetupDialog : TPrinterSetupDialog;


PrintMI : TMenuItem;


PrintSetupMI : TMenuItem;


PurpleMI : TMenuItem;


PurpleMI2 : TMenuItem;


RedMI : TMenuItem;


RedMI2 : TMenuItem;


RedoBtn : TToolButton;


RedoMI : TMenuItem;


ReplaceBtn : TToolButton;


ReplaceDialog : TReplaceDialog;


ReplaceMI : TMenuItem;


RightBtn : TToolButton;


SaveAsMI : TMenuItem;


SaveBtn : TToolButton;


SaveDialog : TSaveDialog;


SaveMI : TMenuItem;


SelectAllMI : TMenuItem;


SilverMI : TMenuItem;


SilverMI2 : TMenuItem;


SpellBtn : TToolButton;


Speller : TSpellChecker;


SpellMI : TMenuItem;


TealMI : TMenuItem;


TealMI2 : TMenuItem;


TextColorBtn : TToolButton;


TileMI : TMenuItem;


ToolButton1 : TToolButton;


ToolButton10 : TToolButton;


ToolButton11 : TToolButton;


ToolButton13 : TToolButton;


ToolButton14 : TToolButton;


ToolButton2 : TToolButton;


ToolButton3 : TToolButton;


ToolButton4 : TToolButton;


ToolButton5 : TToolButton;


ToolButton6 : TToolButton;


ToolButton8 : TToolButton;


ToolButton9 : TToolButton;


UndoBtn : TToolButton;


UndoMI : TMenuItem;


UndrlBtn : TToolButton;


WhiteMI : TMenuItem;


WhiteMI2 : TMenuItem;


WindowMI : TMenuItem;


YellowMI : TMenuItem;


YellowMI2 : TMenuItem;


ChLang : Boolean;

Public declarations

WasDropped : Boolean;

Private declarations


Constructors


Functions


procedure AboutMIClick(Sender: TObject);


procedure ArrangeIconsMIClick(Sender: TObject);


procedure BoldBtnClick(Sender: TObject);


procedure BulletsBtnClick(Sender: TObject);


procedure CascadeMIClick(Sender: TObject);


procedure CenterBtnClick(Sender: TObject);


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


procedure ColorMenu97MeasureItem(Control: TMenu; Item: TMenuItem; var Height, Width: Integer);


procedure ColorMenuPopup(Sender: TObject);


procedure ColorMIClick(Sender: TObject);


procedure CopyMIClick(Sender: TObject);


procedure CutMIClick(Sender: TObject);


procedure ExitMIClick(Sender: TObject);


procedure FindDialogFind(Sender: TObject);


procedure FindMIClick(Sender: TObject);


procedure FontComboChange(Sender: TObject);


procedure FontComboDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FontSizeChange(Sender: TObject);


procedure FontSizeDropDown(Sender: TObject);


procedure FontSizeKeyPress(Sender: TObject; var Key: Char);


procedure FontSizeKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure HighlightMenuPopup(Sender: TObject);


procedure HighlightMIClick(Sender: TObject);


procedure ItalicBtnClick(Sender: TObject);


procedure LangMIClick(Sender: TObject);

Changes speller language


procedure LanguagesChange(Sender: TObject);


procedure LeftBtnClick(Sender: TObject);


procedure NewMIClick(Sender: TObject);


procedure OpenMIClick(Sender: TObject);


procedure OtherMIClick(Sender: TObject);


procedure PasteMIClick(Sender: TObject);


procedure PrintMIClick(Sender: TObject);


procedure PrintSetupMIClick(Sender: TObject);


procedure RedoMIClick(Sender: TObject);


procedure ReplaceDialogReplace(Sender: TObject);


procedure ReplaceMIClick(Sender: TObject);


procedure RightBtnClick(Sender: TObject);


procedure SaveAsMIClick(Sender: TObject);


procedure SaveMIClick(Sender: TObject);


procedure SelectAllMIClick(Sender: TObject);


procedure SetColorButton(TB: TToolButton; Color: TColor);


procedure SpellMIClick(Sender: TObject);

Sets new language from selected menu item


procedure TileMIClick(Sender: TObject);


procedure UndoMIClick(Sender: TObject);


procedure UndrlBtnClick(Sender: TObject);


function GetMenuButtonAt(X, Y: Integer; var R: TRect): TToolButton;


procedure NewMenubarProc(Var Message: TMessage);


Properties


Events


Variables


AboutMI : TMenuItem;


AquaMI : TMenuItem;


AquaMI2 : TMenuItem;


ArrangeIconsMI : TMenuItem;


AutoMI : TMenuItem;


BackColorBtn : TToolButton;


BlackMI : TMenuItem;


BlackMI2 : TMenuItem;


BlueMI : TMenuItem;


BlueMI2 : TMenuItem;


BoldBtn : TToolButton;


BulletsBtn : TToolButton;


CascadeMI : TMenuItem;


CenterBtn : TToolButton;


ColorDialog : TColorDialog;


ColorMenu : TPopupMenu;


ColorMenu97 : TPopupMenus97;


CoolBar1 : TCoolBar;


CopyBtn : TToolButton;


CopyMI : TMenuItem;


CutBtn : TToolButton;


CutMI : TMenuItem;


EditMI : TMenuItem;


ExitBtn : TToolButton;


ExitMI : TMenuItem;


FileMI : TMenuItem;


FindBtn : TToolButton;


FindDialog : TFindDialog;


FindMI : TMenuItem;


FmtToolBar : TToolBar;


FontCombo : TComboBox;


FontSize : TComboBox;


FuchsiaMI : TMenuItem;


FuchsiaMI2 : TMenuItem;


GrayMI : TMenuItem;


GrayMI2 : TMenuItem;


GreenMI : TMenuItem;


GreenMI2 : TMenuItem;


HelpMI : TMenuItem;


HighlightMenu : TPopupMenu;


HighlightMenu97 : TPopupMenus97;


Images : TImageList;


ItalicBtn : TToolButton;


Languages : TLanguagesCombo;


LeftBtn : TToolButton;


LimeMI : TMenuItem;


LimeMI2 : TMenuItem;


MainMenu : TMainMenu;


MainMenu97 : TMainMenus97;


MainToolBar : TToolBar;


MaroonMI : TMenuItem;


MaroonMI2 : TMenuItem;


MenuToolBar : TMenuToolBar;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


N6 : TMenuItem;


N7 : TMenuItem;


NavyMI : TMenuItem;


NavyMI2 : TMenuItem;


NewBtn : TToolButton;


NewMI : TMenuItem;


NoneMI2 : TMenuItem;


OliveMI : TMenuItem;


OliveMI2 : TMenuItem;


OpenBtn : TToolButton;


OpenDialog : TOpenDialog;


OpenMI : TMenuItem;


OtherMI : TMenuItem;


PasteBtn : TToolButton;


PasteMI : TMenuItem;


PrintBtn : TToolButton;


PrinterSetupDialog : TPrinterSetupDialog;


PrintMI : TMenuItem;


PrintSetupMI : TMenuItem;


PurpleMI : TMenuItem;


PurpleMI2 : TMenuItem;


RedMI : TMenuItem;


RedMI2 : TMenuItem;


RedoBtn : TToolButton;


RedoMI : TMenuItem;


ReplaceBtn : TToolButton;


ReplaceDialog : TReplaceDialog;


ReplaceMI : TMenuItem;


RightBtn : TToolButton;


SaveAsMI : TMenuItem;


SaveBtn : TToolButton;


SaveDialog : TSaveDialog;


SaveMI : TMenuItem;


SelectAllMI : TMenuItem;


SilverMI : TMenuItem;


SilverMI2 : TMenuItem;


SpellBtn : TToolButton;


Speller : TSpellChecker;


SpellMI : TMenuItem;


TealMI : TMenuItem;


TealMI2 : TMenuItem;


TextColorBtn : TToolButton;


TileMI : TMenuItem;


ToolButton1 : TToolButton;


ToolButton10 : TToolButton;


ToolButton11 : TToolButton;


ToolButton13 : TToolButton;


ToolButton14 : TToolButton;


ToolButton2 : TToolButton;


ToolButton3 : TToolButton;


ToolButton4 : TToolButton;


ToolButton5 : TToolButton;


ToolButton6 : TToolButton;


ToolButton8 : TToolButton;


ToolButton9 : TToolButton;


UndoBtn : TToolButton;


UndoMI : TMenuItem;


UndrlBtn : TToolButton;


WhiteMI : TMenuItem;


WhiteMI2 : TMenuItem;


WindowMI : TMenuItem;


YellowMI : TMenuItem;


YellowMI2 : TMenuItem;


ChLang : Boolean;

Public declarations


WasDropped : Boolean;

Private declarations