source: cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas@ 1694

Last change on this file since 1694 was 1694, checked in by healthsevak, 9 years ago

Did few modifications related to manual modifications by user inside RichEdit while spellcheck running
File size: 21.4 KB
Line 
1unit skaSpellCheck;
2(* ***************************** BEGIN LICENSE BLOCK **********************
3 *
4 * Copyright (C) 2015
5 * Sunil Kumar Arora (digitiger@gmail.com sunil@healthsevak.com)
6 * All Rights Reserved.
7 * Version: MPL 1.1/GPL 2.0/LGPL 2.1
8 *
9 * The contents of this file are subject to the Mozilla Public License Version
10 * 1.1 (the "License"); you may not use this file except in compliance with
11 * the License. You may obtain a copy of the License at
12 * http://www.mozilla.org/MPL/
13 *
14 * Software distributed under the License is distributed on an "AS IS" basis,
15 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
16 * for the specific language governing rights and limitations under the
17 * License.
18 *
19 * Alternatively, the content of this file maybe used under the terms of either
20 * the GNU General Public License Version 2 or later (the "GPL"), or the GNU
21 * Lesser General Public License Version 2.1 or later (the "LGPL"), in which
22 * case the provisions of the GPL or the LGPL are applicable instead of those
23 * above. If you wish to allow use of your version of this file only under the
24 * terms of either the GPL or the LGPL, and not to allow others to use your
25 * version of this file under the terms of the MPL, indicate your division by
26 * deleting the provisions above and replace them with the notice and other
27 * provisions required by the GPL or LGPL. If you do not delete the provisions
28 * above, a recipient may use your version of this file under the terms of any
29 * one of the MPL, the GPL or the LGPL.
30 *
31 * *********************** END LICENSE BLOCK *********************************)
32
33interface
34
35uses
36 Windows, Classes, SysUtils, ComCtrls, StdCtrls, Graphics;
37
38 const
39 AboutThis = 'A wrapper component developed by Sunil K Arora (digitiger@gmail.com) of HealthSevak using OpenSource HanSpell engine';
40type
41 TSpellState = (ssNotStarted, ssChecking, ssCancelled, ssCompleted);
42
43 TskaHunSpellChecker = class(TComponent)
44 private
45 FActiveOrLoaded: Boolean;
46 FpointerHunLib: Pointer;
47 FSourceEdit: TRichEdit;
48 FSuggestionList: TListbox;
49
50 FAffixFileName: string;
51 FDictFileName: string;
52 CurrentWord: String;
53 CurrentText: String;
54 FoundAt: Integer;
55 PosOfFirstCharInCurrentLine: integer;
56 CurrentLine: Integer;
57 FIgnore: TStringList;
58 WaitForUser: Boolean;
59 WordLength:integer;
60 WordPos: Integer;
61 PREditorWndProc:pointer;
62 FHighlightColor: TColor;
63 FShowCompletion: Boolean;
64 FpointerSpellComplete: String;
65 FStatus: TSpellState;
66 FUndoList: TStringList;
67 FCustDict: TStringList;
68 FCustom: String;
69 FModified: Boolean;
70 FHighlightEdit: TEdit;
71 FbtnClose: TButton;
72 FTxtBeforeManualEdit: String;
73 function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
74 overload; virtual;
75 Function CurrentWordDetail(WithPosition: Boolean= True): String;
76 function GetActive: Boolean;
77 function GetStatus: TSpellState;
78 procedure Initialize;
79 procedure SetActive(const Value: Boolean);
80 procedure SetAffixFileName(const Value: string);
81 procedure SetbtnClose(const Value: TButton);
82 procedure SetCustomDict(const Value: String);
83 procedure SetDictFileName(const Value: string);
84 procedure SetHighLightEdit(const Value: TEdit);
85 procedure SetSourceEdit(const Value: TRichEdit);
86 Function ShowMisSpelledWord:boolean;
87 procedure Loaded; override;
88 procedure ReplaceCurrentWordWith(const aNewWord: String);
89 function GetAboutThis: String;
90 procedure SaveForUndo(const Ignoring: Boolean=False);
91 public
92 constructor Create(AOwner: TComponent); overload; override;
93 constructor Create(AOwner: TComponent; SourceTextRichEdit: TRichedit;
94 SuggestList: TListbox); ReIntroduce; overload;
95 destructor Destroy; override;
96
97 function AbortSpellCheck(Verbose: Boolean = True):Boolean;
98 function AddCustomWord: Boolean; overload; virtual;
99 procedure Change;
100 procedure ChangeAll;
101 procedure CheckSpelling;
102 procedure Close; virtual;
103 procedure CorrectWithMyWord;
104 procedure GetSuggestions(const aMisSpeltWord: string;
105 const SuggestionList: TStrings); dynamic;
106 procedure IgnoreAll;
107 procedure IgnoreOnce;
108 function IsMisspelled(const AWord: string): Boolean; dynamic;
109 procedure ManualChangeStart;
110 procedure ManualChangeDone;
111 function Open:Boolean; virtual;
112 function ReStart: Boolean; virtual;
113
114 function Undo: Boolean;
115
116
117 property SpellCheckState: TSpellState read GetStatus default ssNotStarted;
118 published
119 property About: String read GetAboutThis;
120 property Active: Boolean read GetActive write SetActive;
121 property AffixFileName: string read FAffixFileName write SetAffixFileName;
122 property btnClose: TButton read FbtnClose write SetbtnClose;
123 property CustDictionaryFile: String read FCustom write SetCustomDict;
124 property DictionaryFileName:string read FDictFileName write SetDictFileName;
125 property ColorForMisspelled: TColor read FHighlightColor write FHighlightColor default clRed;
126 property MisSpeltWord: TEdit read FHighlightEdit write SetHighLightEdit;
127 property IsModified: Boolean read FModified;
128 property ShowCompletionMessage: Boolean read FShowCompletion write FShowCompletion default True;
129 property SourceTextControl: TRichEdit read FSourceEdit write SetSourceEdit;
130 property SpellCheckCompletionMessage: String read FpointerSpellComplete write FpointerSpellComplete;
131 property SuggestionList: TListbox read FSuggestionList write FSuggestionList;
132
133 end;
134
135 procedure Register;
136
137 Const
138 CompletionMessage = 'Spell Check Complete.';
139 CaptionForNewWord = 'New Word Suggestion';
140 ConfirmAbort = 'Really abort?';
141 PromptForNewWord = 'Specify the replacement for current mis-spelt word:';
142 DLLNotLoaded = 'Failed to load SpellCheck Engine DLL.';
143 MisSpeltReplacement = 'The new word specified by you "%s" looks mis-spelt!'
144 +' Would you want to still use it? Click NO button '
145 +'to specify better replacement word.';
146 var
147 OldRichEditWndProc: {integer}pointer;
148 CurrentMe: TskaHunSpellChecker;
149implementation
150 uses messages, Dialogs, RichEdit, SHFolder, Forms, uHunSpellLib;
151
152procedure Register;
153begin
154 RegisterComponentsProc('SkA Utility', [TskaHunSpellChecker]);
155end;
156
157{ TskaHunSpellChecker }
158
159function TskaHunSpellChecker.AbortSpellCheck(Verbose: Boolean = True): Boolean;
160begin
161 Result := (not isModified) or
162 (not Verbose) or (MessageDlg(ConfirmAbort, mtConfirmation,
163 [mbYes, mbNo],0, mbNo) = 6);
164
165 if Result then
166 FStatus := ssCancelled;
167end;
168
169function TskaHunSpellChecker.AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
170begin
171 Result := False;
172 if (trim(aWord) = '') or (not assigned(SourceTextControl)) or (not assigned(SuggestionList)) then
173
174
175 Result := False;
176 if (not Active) then Exit;
177 uHunSpellLib.hunspell_put_word(FpointerHunLib, PAnsiChar(AnsiString(aWord)));
178 Result := True;
179end;
180
181procedure TskaHunSpellChecker.ChangeAll;
182begin
183 if (SpellCheckState <> ssChecking) or (not assigned(SourceTextControl)) or (not assigned(SuggestionList)) then
184 exit;
185 SaveForUndo;
186 SourceTextControl.Text := StringReplace(SourceTextControl.Text,
187 CurrentWord, SuggestionList.Items[SuggestionList.ItemIndex],
188 [rfReplaceAll,rfIgnoreCase]);
189 WaitForUser := False;
190 FModified := True;
191 SourceTextControl.Invalidate;
192
193end;
194
195function TskaHunSpellChecker.AddCustomWord: Boolean;
196begin
197 Result := AddCustomWord(CurrentWord, False);
198 FCustdict.Add(CurrentWord);
199 WaitForUser := False;
200 AbortSpellCheck(False);
201 Initialize;
202 CheckSpelling;
203 ShowMisSpelledWord;
204end;
205
206procedure TskaHunSpellChecker.ReplaceCurrentWordWith(const aNewWord: String);
207var
208 full: String;
209 prefix: string;
210 suffix: string;
211begin
212 full := SourceTextControl.Lines[CurrentLine];
213 prefix := copy(CurrentText, 1, WordPos-1);
214 Suffix := copy(CurrentText, WordPos+WordLength,
215 length(CurrentText));
216 SaveForUndo;
217 SourceTextControl.Lines[CurrentLine] :=prefix + aNewWord + suffix;
218 WaitForUser := False;
219 FStatus := ssChecking;
220 FModified := True;
221 SourceTextControl.Invalidate;
222end;
223
224function TskaHunSpellChecker.ReStart: Boolean;
225begin
226 Close;
227 Result := Open;
228 Initialize;
229 WaitForUser := False;
230 SourceTextControl.Invalidate;
231 Result := not WaitForUser;
232end;
233
234procedure TskaHunSpellChecker.Change;
235
236begin
237 if (SpellCheckState <> ssChecking) or (not assigned(SourceTextControl)) or (not assigned(SuggestionList)) then
238 exit;
239 ReplaceCurrentWordWith(SuggestionList.Items[SuggestionList.ItemIndex]);
240end;
241
242procedure TskaHunSpellChecker.CheckSpelling;
243begin
244 if (SpellCheckState = ssChecking) or (not assigned(SourceTextControl)) or (not assigned(SuggestionList)) then
245 exit;
246
247 Initialize;
248 FUndoList.Clear;
249 WaitForUser := False;
250 FStatus := ssChecking;
251 SourceTextControl.Invalidate;
252 //SourceTextControl.Invalidate;
253end;
254
255procedure TskaHunSpellChecker.Close;
256begin
257 if not Active then Exit;
258 uHunSpellLib.hunspell_uninitialize(FpointerHunLib);
259 FpointerHunLib := nil;
260end;
261
262
263procedure TskaHunSpellChecker.CorrectWithMyWord;
264var
265 NewWord: String;
266 GotIt: Boolean;
267begin
268 if (SpellCheckState <> ssChecking) or (not assigned(SourceTextControl)) or (not assigned(SuggestionList)) then
269 exit;
270
271 if SuggestionList.Count > 0 then
272 NewWord := SuggestionList.Items[0]
273 else
274 NewWord := CurrentWord;
275
276 GotIt := False;
277 while not GotIt do
278 begin
279 if not InputQuery(CaptionForNewWord, PromptForNewWord, NewWord) then
280 exit;
281
282 GotIt := (not IsMisspelled(NewWord))
283 or (MessageDlg(Format(MisSpeltReplacement,[NewWord]),
284 mtWarning, [mbYes, mbNo],0, mbNo) =6) ;
285 end;
286
287 if IsMisspelled(NewWord) then
288 AddCustomWord(NewWord, True);
289
290 ReplaceCurrentWordWith(NewWord);
291end;
292
293constructor TskaHunSpellChecker.Create(AOwner: TComponent);
294 function GetSpecialFolderPath(folder : integer) : string;
295 var
296 path: array [0..MAX_PATH] of char;
297 begin
298 if SUCCEEDED(SHGetFolderPath(0,folder,0,0,@path[0])) then
299 Result := path
300 else
301 Result := '';
302 end;
303begin
304 inherited;
305
306 ColorForMisspelled := clRed;
307 ShowCompletionMessage := True;
308 SpellCheckCompletionMessage := CompletionMessage;
309
310
311
312 CurrentMe := Self;
313 FIgnore := TStringList.Create;
314 FCustDict := TStringList.Create;
315
316 CustDictionaryFile := IncludeTrailingPathDelimiter(GetSpecialFolderPath(CSIDL_PERSONAL)) + 'CustomDictionary.txt';
317 if FileExists(CustDictionaryFile) then
318 try
319 FCustDict.LoadFromFile(CustDictionaryFile);
320 except
321 end;
322
323 FUndoList := TStringList.Create;
324
325 FStatus := ssNotStarted;
326 WaitForUser := False;
327 WordPos := 0;
328end;
329
330constructor TskaHunSpellChecker.Create(AOwner: TComponent;
331 SourceTextRichEdit: TRichedit; SuggestList: TListbox);
332begin
333 create(AOwner);
334 SourceTextControl := SourceTextRichEdit;
335 SuggestionList := SuggestList;
336end;
337
338function TskaHunSpellChecker.CurrentWordDetail(WithPosition: Boolean): String;
339begin
340 Result := '$$' + CurrentWord + '$$';
341 if WithPosition then
342 Result := '$$' + IntToStr(FoundAt+1) + Result;
343end;
344
345destructor TskaHunSpellChecker.Destroy;
346begin
347 Close;
348 FIgnore.clear;
349 FreeAndNil(FIgnore);
350 FreeAndNil(FUndoList);
351 if not (csDesigning in ComponentState) then
352 try
353 if FCustDict.Count > 0 then
354 try
355 FCustDict.SaveToFile(CustDictionaryFile);
356 except
357 end;
358 finally
359 FCustDict.Free;
360 end;
361 inherited;
362end;
363
364function TskaHunSpellChecker.GetAboutThis: String;
365begin
366 Result := AboutThis;
367end;
368
369function TskaHunSpellChecker.GetActive: Boolean;
370begin
371 Result := (FpointerHunLib <> nil);
372end;
373
374function TskaHunSpellChecker.GetStatus: TSpellState;
375begin
376 Result := FStatus;
377end;
378
379procedure TskaHunSpellChecker.GetSuggestions(const aMisSpeltWord: string;
380 const SuggestionList: TStrings);
381var
382 i: Integer;
383 pMisSpelt: PAnsiChar;
384 suggestions: PPAnsiChar;
385 Results: PPAnsiChar;
386 Count: Integer;
387begin
388 if (not Active) or (not Assigned(SuggestionList)) then
389 exit;
390
391 pMisSpelt := PAnsiChar(AnsiString(aMisSpeltWord));
392
393 if not uHunSpellLib.hunspell_spell(FpointerHunLib, pMisSpelt) then
394 uHunSpellLib.hunspell_suggest_auto(FpointerHunLib, pMisSpelt, suggestions);
395 begin
396 Count := uHunSpellLib.hunspell_suggest(FpointerHunLib, pMisSpelt, suggestions);
397 Results := suggestions;
398 for i := 1 to Count do
399 begin
400 SuggestionList.Add(Results^);
401 Inc(Integer(Results), SizeOf(Pointer));
402 end;
403 uHunSpellLib.hunspell_suggest_free(FpointerHunLib, suggestions, Count);
404 end;
405end;
406
407function TskaHunSpellChecker.ShowMisSpelledWord: boolean;
408var
409 I , l :integer;
410 CharPosion:integer;
411 FirstVisibleLine, LastVisibleLine:integer;
412
413 hndl: hwnd;
414 dcForHndl: THandle;
415 visrect:Trect;
416 vispoint:TPoint;
417 procedure ShowMisSpelletWord;
418 begin
419 if Assigned(FHighlightEdit) then
420 begin
421 FHighlightEdit.Font.Color := ColorForMisspelled;
422 FHighlightEdit.Text := CurrentWord;
423 FHighlightEdit.Show;
424 end ;
425
426 if ((PosOfFirstCharInCurrentLine + FoundAt) < 1) then
427 exit;
428
429 SendMessage (SourceTextControl.Handle, EM_POSFROMCHAR, integer(@VisPoint), PosOfFirstCharInCurrentLine + FoundAt-1);
430 SetTextColor(dcForHndl, ColorForMisspelled);
431 TextOut(dcForHndl, VisPoint.x, VisPoint.y, pchar(CurrentWord), WordLength);
432 end;
433begin
434 Result := False;
435 if (SpellCheckState <> ssChecking) or (not assigned(SourceTextControl))
436 or (not assigned(SuggestionList)) then
437 exit;
438
439 hndl:=SourceTextControl.Handle;
440
441 result:= SendMessage (hndl, EM_GETRECT, 0, integer(@visrect))=0;
442
443 dcForHndl := getdc(hndl);
444
445 if result then
446 begin
447 // VisPoint := visrect.BottomRight;
448 vispoint.Y := visrect.Bottom;
449 vispoint.X := visrect.Right;
450 CharPosion := SendMessage (hndl, EM_CHARFROMPOS, 0, integer(@VisPoint));
451 LASTVISIBLELINE := SendMessage (hndl, EM_LINEFROMCHAR, CharPosion, 0);
452 FIRSTVISIBLELINE := SendMessage (hndl, EM_GETFIRSTVISIBLELINE, 0, 0);
453
454 SetBkMode (dcForHndl, TRANSPARENT);
455 SelectObject(dcForHndl, SourceTextControl.font.Handle);
456 i := 0;
457
458 if WaitForUser then
459 begin
460 ShowMisSpelletWord;
461 exit;
462 end;
463
464 For l := 0 to SourceTextControl.Lines.Count -1 do
465 begin
466 {$R-}
467 CurrentLine := l;
468 if trim(SourceTextControl.Lines[CurrentLine]) = '' then
469 continue;
470
471 CurrentText := ' ' + SourceTextControl.Lines[CurrentLine];
472 PosOfFirstCharInCurrentLine := SendMessage (SourceTextControl.Handle, EM_LINEINDEX, CurrentLine, 0);
473 i := 0;
474
475 While i <= LENgth(CurrentText) do
476 begin
477 FoundAt := i -1;
478 if Assigned(FHighlightEdit) then
479 FHighlightEdit.Hide;
480
481
482 //SuggestionList.Clear;
483 {Any character except these will count as a word delimiter}
484 While CurrentText[i] in ['A'..'Z','a'..'z','0'..'9'] do inc(i);
485
486 WordLength := i- FoundAt -1;
487 WordPos := i-WordLength;
488 CurrentWord := copy(CurrentText, WordPos, WordLength);
489 If ((FIgnore.IndexOf(CurrentWordDetail(True))< 0) //SingelIgnore
490 and (FIgnore.IndexOf(CurrentWordDetail(False))< 0) //IgnoreAll
491 and (IsMisspelled(CurrentWord))) Then
492 begin
493 GetSuggestions(CurrentWord, SuggestionList.Items);
494 if SuggestionList.Count > 0 then
495 SuggestionList.ItemIndex := 0;
496 ShowMisSpelletWord;
497 if CurrentLine > LastVisibleLine then
498 SendMessage(SourceTextControl.Handle, EM_LINESCROLL, 0, (CurrentLine - lastvisibleLine)+5);
499 WaitForUser := True;
500 exit;
501 End
502 else
503 SuggestionList.Clear;
504 inc(i);
505 end;
506 end;
507 if (CurrentLine >= SourceTextControl.Lines.Count-1) and (i >= length(CurrentText) +1) then
508 begin
509 FStatus := ssCompleted;
510 if Assigned(btnClose) then
511 btnClose.Click;
512 end;
513 {$R+}
514 end;
515 ReleaseDC(SourceTextControl.Handle, dcForHndl);
516
517End;
518
519function TskaHunSpellChecker.Undo: Boolean;
520var
521 tmpStr: String;
522 tmpCount: Integer;
523begin
524 if FUndoList.Count > 0 then
525 try
526 tmpStr := FUndoList.Strings[FUndoList.Count-1];
527 { showmessage(inttostr(AnsiPos('$$',tmpStr)) + #13 + inttostr(length(tmpstr)) + #13 +
528 copy(tmpStr,length(tmpStr)-2,2)); }
529 if (AnsiPos('$$',tmpStr)=1) and (copy(tmpStr,length(tmpStr)-1,2) = '$$')then
530 begin
531 tmpCount := strtoInt(StringReplace(tmpStr,'$$','',[rfReplaceAll]));
532 while FIgnore.Count > tmpCount do
533 FIgnore.Delete(FIgnore.Count -1);
534 end
535 else
536 SourceTextControl.Text := tmpStr;
537
538 Result := True;
539 FUndoList.Delete(FUndoList.Count-1);
540 ReStart;
541 except
542 Result := False;
543 end;
544end;
545
546procedure TskaHunSpellChecker.IgnoreAll;
547begin
548 if (SpellCheckState <> ssChecking) or (not assigned(SourceTextControl)) or (not assigned(SuggestionList)) then
549 exit;
550 SaveForUndo(True);
551 FIgnore.Add(CurrentWordDetail(False)) ;
552 WaitForUser := False;
553 SourceTextControl.Invalidate;
554end;
555
556procedure TskaHunSpellChecker.IgnoreOnce;
557begin
558 if (SpellCheckState <> ssChecking) or (not assigned(SourceTextControl)) or (not assigned(SuggestionList)) then
559 exit;
560 if trim(CurrentWord) <> '' then
561 begin
562 SaveForUndo(True);
563 FIgnore.Add(CurrentWordDetail(True)) ;
564 end;
565 WaitForUser := False;
566 SourceTextControl.Invalidate;
567end;
568
569procedure TskaHunSpellChecker.Initialize;
570begin
571 CurrentWord := '';
572 WordLength := 0;
573 FoundAt := -1;
574 CurrentLine := 0;
575 WordPos := 0;
576 SuggestionList.Clear;
577end;
578
579function TskaHunSpellChecker.IsMisspelled(const AWord: string): Boolean;
580begin
581 if (not Active) then
582 Result := True
583 else
584 Result := not uHunSpellLib.hunspell_spell(FpointerHunLib, PAnsiChar(AnsiString(AWord)));
585end;
586
587procedure TskaHunSpellChecker.Loaded;
588begin
589 inherited;
590 SetActive(FActiveOrLoaded);
591end;
592
593procedure TskaHunSpellChecker.ManualChangeDone;
594begin
595 if trim(FTxtBeforeManualEdit) = '' then
596 exit;
597 FUndoList.Add(FTxtBeforeManualEdit);
598 ReStart;
599end;
600
601procedure TskaHunSpellChecker.ManualChangeStart;
602begin
603 FTxtBeforeManualEdit := FSourceEdit.Text;
604end;
605
606function TskaHunSpellChecker.Open: Boolean;
607var
608 CurrentLine: integer;
609begin
610 Result := True;
611 if Active then Exit;
612 Result := False;
613 FpointerHunLib := Nil;
614 if not uHunSpellLib.LoadLibHunspell('') then
615 begin
616 MessageDlg(DLLNotLoaded, mtError, [mbOK],0);
617 Exit;
618 end;
619 FpointerHunLib := uHunSpellLib.hunspell_initialize(PAnsiChar(AnsiString(FAffixFileName)), PAnsiChar(AnsiString(FDictFileName)));
620 Result := Assigned(FpointerHunLib);
621
622 if (Result) and (assigned(FCustDict)) then
623 for CurrentLine := 0 to FCustDict.Count - 1 do
624 AddCustomWord(FCustDict[CurrentLine], True);
625end;
626
627procedure TskaHunSpellChecker.SaveForUndo(const Ignoring: Boolean = False);
628begin
629 if Ignoring then
630 FUndoList.Add('$$'+ IntToStr(FIgnore.Count)+'$$')
631 else
632 FUndoList.Add(SourceTextControl.Text);
633end;
634
635procedure TskaHunSpellChecker.SetActive(const Value: Boolean);
636begin
637 if (csDesigning in ComponentState) or (csLoading in ComponentState) then
638 FActiveOrLoaded := Value
639 else
640 if Value then
641 FActiveOrLoaded := Open
642 else
643 Close;
644end;
645
646procedure TskaHunSpellChecker.SetAffixFileName(const Value: string);
647begin
648 Close;
649 FAffixFileName := Value;
650end;
651
652procedure TskaHunSpellChecker.SetbtnClose(const Value: TButton);
653begin
654 if btnClose = Value then
655 exit;
656 FbtnClose := Value;
657 FbtnClose.ModalResult := 1; //mrOK
658end;
659
660procedure TskaHunSpellChecker.SetCustomDict(const Value: String);
661begin
662 FCustom := Value;
663 if not (csDesigning in componentState) then
664 if Active and (FileExists(Value)) then
665 FCustDict.LoadFromFile(Value);
666end;
667
668procedure TskaHunSpellChecker.SetDictFileName(const Value: string);
669begin
670 Close;
671 FDictFileName := Value;
672end;
673
674procedure TskaHunSpellChecker.SetHighLightEdit(const Value: TEdit);
675begin
676 if FHighlightEdit = Value then
677 exit;
678
679 FHighlightEdit := Value;
680
681 if Active then
682 FHighlightEdit.Text := CurrentWord;
683
684
685end;
686
687Function RichEditWndProc (handle:HWnd;uMsg,wParam,lParam:longint): longint stdcall;
688begin
689 Result := CallWindowProc(OldRichEditWndProc, handle, uMsg, wParam, lParam);
690 if (uMsg=WM_PAINT) and assigned(CurrentMe) then CurrentMe.ShowMisSpelledWord;
691End;
692
693procedure TskaHunSpellChecker.SetSourceEdit(const Value: TRichEdit);
694begin
695 if FSourceEdit = Value then
696 exit;
697
698 FSourceEdit := Value;
699
700 if csDesigning in ComponentState then
701 exit;
702
703 PREditorWndProc:=@RichEditWndProc;
704 Value.perform(EM_EXLIMITTEXT, 0, 65535*32); //raise the limit of text which could be inserted into this Richedit
705 OldRichEditWndProc := pointer(SetWindowLong(Value.handle, GWL_WNDPROC, longint(@RichEditWndProc)));
706
707end;
708
709end.
Note: See TracBrowser for help on using the repository browser.