| Class TSpellDemoForm (unit SpellDemoUnit) |
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);
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);
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;
WasDropped : Boolean;| 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