Class TSpellChecker (unit Spellers)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TSpellChecker



Functions

procedure AddWord(Word: String; Language: TLanguage);


procedure Check(Memo: TCustomMemo);


destructor Destroy;


procedure GetVariants(Word: String; Variants: TStrings; Language: TLanguage);


function IsKnownWord(Word: String; Language: TLanguage): Boolean;


class procedure RegisterEditControl(MemoClass: String; Unicode, Multilanguage: Boolean);


procedure Add;


procedure Change(Word: String);


procedure ChangeAlways(Word: String);


procedure ChangeOnce(Word: String);


procedure ContinueCheck;


procedure Delete;


function FindLanguage(Value: TLanguage): TAbstractSpeller;


procedure FinishCheck;


procedure GetBlock(From: Integer; var StartPos, EndPos: Integer);


function GetCurrentLanguage: TLanguage;


function GetLineFromPos(Pos: Integer; var LineStart: Integer): String;


function GetMemoLanguage: TLanguage;

not AnsiChar!

procedure GetMemoProperties;


procedure GetTag(From: Integer; var Len: Integer);


procedure GetTextRange(Buf: PChar; StartPos, EndPos: Integer; CP: Word);


procedure IgnoreAlways;


procedure Init;


function OpenLanguage(Value: TLanguage): Boolean;


function SentenceCapitalize(const S: String): String;


procedure SetLanguage(Value: TLanguage);

Protected declarations

Properties

property Caption : TCaption


property CustomDict : TFileName


property FinishMessage : String


property HTMLSupport : Boolean


property Language : TLanguage

Published declarations

property ModalDialog : Boolean

property MisspellFont: TMisspellFont read FFont write FFont;

property Options : TSpellOptions


property ShowFinishMessage : Boolean


property CurrentLanguage : TLanguage


Events

event OnChangeText : TChangeTextEvent


event OnGetDictionary : TGetDictEvent


event OnMisspelling : TMisspellEvent


Variables

CRPos : Integer;


FBackMemo : TCustomMemo;


FCaption : TCaption;


FCustomDict : TFileName;


FDialog : TSpellerDialog2;


FFinishMessage : String;


FHTML : Boolean;


FLangSupport : Boolean;


FLanguage : TLanguage;


FMemo : TCustomMemo;

Private declarations

FMisspellLen : Integer;


FMisspellStart : Integer;


FMisspellText : String;


FModalDialog : Boolean;


FOnChangeText : TChangeTextEvent;


FOnGetDict : TGetDictEvent;


FOnMisspell : TMisspellEvent;


FOptions : TSpellOptions;


FShowFinishMessage : Boolean;


FSpellEnd : Integer;


FSpeller : TAbstractSpeller;


FSpellStart : Integer;


FSRC : TSpellReturnCode;


FStartSentence : Boolean;


FUnicode : Boolean;


LangPos : Integer;


Spellers : TList;


TagPos : Integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

TSpellChecker


Functions


procedure AddWord(Word: String; Language: TLanguage);


procedure Check(Memo: TCustomMemo);


destructor Destroy;


procedure GetVariants(Word: String; Variants: TStrings; Language: TLanguage);


function IsKnownWord(Word: String; Language: TLanguage): Boolean;


class procedure RegisterEditControl(MemoClass: String; Unicode, Multilanguage: Boolean);


procedure Add;


procedure Change(Word: String);


procedure ChangeAlways(Word: String);


procedure ChangeOnce(Word: String);


procedure ContinueCheck;


procedure Delete;


function FindLanguage(Value: TLanguage): TAbstractSpeller;


procedure FinishCheck;


procedure GetBlock(From: Integer; var StartPos, EndPos: Integer);


function GetCurrentLanguage: TLanguage;


function GetLineFromPos(Pos: Integer; var LineStart: Integer): String;


function GetMemoLanguage: TLanguage;

not AnsiChar!


procedure GetMemoProperties;


procedure GetTag(From: Integer; var Len: Integer);


procedure GetTextRange(Buf: PChar; StartPos, EndPos: Integer; CP: Word);


procedure IgnoreAlways;


procedure Init;


function OpenLanguage(Value: TLanguage): Boolean;


function SentenceCapitalize(const S: String): String;


procedure SetLanguage(Value: TLanguage);

Protected declarations


Properties


property Caption : TCaption


property CustomDict : TFileName


property FinishMessage : String


property HTMLSupport : Boolean


property Language : TLanguage

Published declarations


property ModalDialog : Boolean

property MisspellFont: TMisspellFont read FFont write FFont;


property Options : TSpellOptions


property ShowFinishMessage : Boolean


property CurrentLanguage : TLanguage


Events


event OnChangeText : TChangeTextEvent


event OnGetDictionary : TGetDictEvent


event OnMisspelling : TMisspellEvent


Variables


CRPos : Integer;


FBackMemo : TCustomMemo;


FCaption : TCaption;


FCustomDict : TFileName;


FDialog : TSpellerDialog2;


FFinishMessage : String;


FHTML : Boolean;


FLangSupport : Boolean;


FLanguage : TLanguage;


FMemo : TCustomMemo;

Private declarations


FMisspellLen : Integer;


FMisspellStart : Integer;


FMisspellText : String;


FModalDialog : Boolean;


FOnChangeText : TChangeTextEvent;


FOnGetDict : TGetDictEvent;


FOnMisspell : TMisspellEvent;


FOptions : TSpellOptions;


FShowFinishMessage : Boolean;


FSpellEnd : Integer;


FSpeller : TAbstractSpeller;


FSpellStart : Integer;


FSRC : TSpellReturnCode;


FStartSentence : Boolean;


FUnicode : Boolean;


LangPos : Integer;


Spellers : TList;


TagPos : Integer;