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

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

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