http://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=BpcMSSpellCheck 2026-04-08T09:22:26Z Revision history for this page on the wiki MediaWiki 1.30.1 http://www.bishopphillips.com/riskwiki/index.php?title=BpcMSSpellCheck&diff=670&oldid=prev 2019-09-11T17:02:04Z

<p>Created page with &quot;==Late Binding MS Word Based Spell Checker for Normal and Rich Text== Language: Delphi 7 - 2007 &lt;pre&gt; // ==================================================================...&quot;</p> <p><b>New page</b></p><div>==Late Binding MS Word Based Spell Checker for Normal and Rich Text==<br /> <br /> <br /> Language: Delphi 7 - 2007<br /> <br /> <br /> &lt;pre&gt;<br /> // =============================================================================<br /> // MS Word COM Interface to Spell Check and Synonyms<br /> // Original Version: Mike Heydon Dec 2000<br /> // mheydon@eoh.co.za<br /> // Updated and Expanded: JGBishop 2005,2007,2008<br /> // =============================================================================<br /> <br /> uses<br /> Windows,<br /> SysUtils,<br /> Classes,<br /> ComObj,<br /> Dialogs,<br /> Forms,<br /> StdCtrls,<br /> Controls,<br /> Buttons,<br /> Graphics,<br /> ComCtrls;<br /> <br /> type<br /> // Event definitions<br /> TbpcMSSpellCheckBeforeCorrection = procedure(Sender : TObject;<br /> MispeltWord : string;<br /> Suggestions : TStrings) of object;<br /> <br /> TbpcMSSpellCheckAboutToChange = procedure(Sender : TObject;<br /> FocusControl : TObject;<br /> MispeltWord : string; CorrectedWord : string;<br /> var AllowChange : boolean; Var CancelChanges : boolean) of object;<br /> <br /> TbpcMSSpellCheckAfterCorrection = procedure(Sender : TObject;<br /> MispeltWord : string;<br /> CorrectedWord : string) of object;<br /> <br /> TbpcMSSpellCheckOnCorrection = procedure(Sender : TObject;<br /> var WordToCorrect : string) of object;<br /> <br /> TbpcMSSpellCheckOnHideSelection = procedure(sender : TObject; editcontrol : TObject; OnOrOff : boolean) of object;<br /> TbpcMSSpellCheckOnReadHideSelection = procedure(sender : TObject; editcontrol : TObject; var OnOrOff : boolean) of object;<br /> TbpcMSSpellCheckOnReadText = procedure(sender : TObject; editcontrol : TObject; var StrBuf : string) of object;<br /> <br /> // Property types<br /> TbpcMSSpellCheckReplacement = (repDefault,repUser);<br /> TbpcMSSpellCheckLetters = set of char;<br /> <br /> TbpcMSSpellCheckLanguage = (wdLanguageNone,wdNoProofing,wdDanish,wdGerman,<br /> wdSwissGerman,wdEnglishAUS,wdEnglishUK,wdEnglishUS,<br /> wdEnglishCanadian,wdEnglishNewZealand,<br /> wdEnglishSouthAfrica,wdSpanish,wdFrench,<br /> wdFrenchCanadian,wdItalian,wdDutch,wdNorwegianBokmol,<br /> wdNorwegianNynorsk,wdBrazilianPortuguese,<br /> wdPortuguese,wdFinnish,wdSwedish,wdCatalan,wdGreek,<br /> wdTurkish,wdRussian,wdCzech,wdHungarian,wdPolish,<br /> wdSlovenian,wdBasque,wdMalaysian,wdJapanese,wdKorean,<br /> wdSimplifiedChinese,wdTraditionalChinese,<br /> wdSwissFrench,wdSesotho,wdTsonga,wdTswana,wdVenda,<br /> wdXhosa,wdZulu,wdAfrikaans,wdArabic,wdHebrew,<br /> wdSlovak,wdFarsi,wdRomanian,wdCroatian,wdUkrainian,<br /> wdByelorussian,wdEstonian,wdLatvian,wdMacedonian,<br /> wdSerbianLatin,wdSerbianCyrillic,wdIcelandic,<br /> wdBelgianFrench,wdBelgianDutch,wdBulgarian,<br /> wdMexicanSpanish,wdSpanishModernSort,wdSwissItalian);<br /> <br /> <br /> // Main TbpcMSSpellCheck Class<br /> TbpcMSSpellCheck = class(TComponent)<br /> private<br /> FLetterChars : TbpcMSSpellCheckLetters;<br /> FFont : TFont;<br /> FColor : TColor;<br /> FReplaceDialog : TbpcMSSpellCheckReplacement;<br /> FCompletedMessage,<br /> FActive : boolean;<br /> FLanguage : TbpcMSSpellCheckLanguage;<br /> FForm : TForm;<br /> FEbox : TEdit;<br /> FLbox : TListBox;<br /> FCancelBtn,<br /> FChangeBtn : TBitBtn;<br /> FBeforeCorrection : TbpcMSSpellCheckBeforeCorrection;<br /> FAfterCorrection : TbpcMSSpellCheckAfterCorrection;<br /> FOnCorrection : TbpcMSSpellCheckOnCorrection;<br /> FOnHideSelection : TbpcMSSpellCheckOnHideSelection;<br /> FOnReadHideSelection : TbpcMSSpellCheckOnReadHideSelection;<br /> FOnReadTextBuf : TbpcMSSpellCheckOnReadText;<br /> FAboutToChange : TbpcMSSpellCheckAboutToChange;<br /> FRPCErrorCount : integer;<br /> FUseExistingInstance : boolean;<br /> procedure SetFFont(NewValue : TFont);<br /> protected<br /> procedure MakeForm;<br /> procedure CloseForm;<br /> procedure SuggestedClick(Sender : TObject);<br /> public<br /> MsWordApp,<br /> MsSuggestions : OleVariant;<br /> <br /> constructor Create(AOwner : TComponent); override;<br /> destructor Destroy; override;<br /> function GetSynonyms(StrWord : string; Synonyms : TStrings) : boolean;<br /> function CheckWordSpelling(StrWord : string;<br /> Suggestions : TStrings) : boolean;<br /> procedure CheckTextSpelling(var StrText : string);<br /> procedure CheckRichTextSpelling(RichEdit : TCustomRichEdit; bLineAdjust : boolean=False);<br /> procedure CheckMemoTextSpelling(Memo : TCustomMemo);<br /> procedure CheckEditTextSpelling(Memo : TCustomEdit);<br /> Function Connect : Boolean;<br /> Function DisConnect : Boolean;<br /> property Active : boolean read FActive;<br /> property LetterChars : TbpcMSSpellCheckletters read FLetterChars write FLetterChars;<br /> published<br /> property Language : TbpcMSSpellCheckLanguage read FLanguage<br /> write FLanguage;<br /> property CompletedMessage : boolean read FCompletedMessage<br /> write FCompletedMessage;<br /> property Color : TColor read FColor write FColor;<br /> property Font : TFont read FFont write SetFFont;<br /> property BeforeCorrection : TbpcMSSpellCheckBeforeCorrection<br /> read FBeforeCorrection<br /> write FBeforeCorrection;<br /> property AboutToChange : TbpcMSSpellCheckAboutToChange<br /> read FAboutToChange<br /> write FAboutToChange;<br /> property AfterCorrection : TbpcMSSpellCheckAfterCorrection<br /> read FAfterCorrection<br /> write FAfterCorrection;<br /> property OnCorrection : TbpcMSSpellCheckOnCorrection<br /> read FOnCorrection<br /> write FOnCorrection;<br /> property OnHideSelection : TbpcMSSpellCheckOnHideSelection<br /> read FOnHideSelection<br /> write FOnHideSelection;<br /> property OnReadHideSelection : TbpcMSSpellCheckOnReadHideSelection<br /> read FOnReadHideSelection<br /> write FOnReadHideSelection;<br /> property OnReadTextBuf : TbpcMSSpellCheckOnReadText<br /> read FOnReadTextBuf<br /> write FOnReadTextBuf;<br /> property ReplaceDialog : TbpcMSSpellCheckReplacement<br /> read FReplaceDialog<br /> write FReplaceDialog;<br /> property UseExistingInstance : boolean read FUseExistingInstance<br /> write FUseExistingInstance;<br /> end;<br /> <br /> &lt;/pre&gt;<br /> <br /> =BackLinks=<br /> <br /> {{#dpl: linksto={{FULLPAGENAME}} }}</div>

Bishopj