Changeset 1694 for cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas

Timestamp:

May 9, 2015, 7:14:07 AM (9 years ago)

Author:

healthsevak

Message:

Did few modifications related to manual modifications by user inside RichEdit while spellcheck running

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas (modified) (5 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas

@@ -70 +70 @@
     FHighlightEdit: TEdit;
     FbtnClose: TButton;
+    FTxtBeforeManualEdit: String;
     function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean;
                                                             overload; virtual;
@@ -87 +88 @@
     procedure ReplaceCurrentWordWith(const aNewWord: String);
     function GetAboutThis: String;
-    procedure SaveForUndo(const Ignoring: Boolean = False);
+    procedure SaveForUndo(const Ignoring: Boolean=False);
   public
     constructor Create(AOwner: TComponent); overload; override;
@@ -106 +107 @@
     procedure IgnoreOnce;
     function IsMisspelled(const AWord: string): Boolean; dynamic;
+    procedure ManualChangeStart;
+    procedure ManualChangeDone;
     function Open:Boolean; virtual;
     function ReStart: Boolean; virtual;
+
     function Undo: Boolean;
 
@@ -204 +208 @@
   full: String;
   prefix: string;
-  current: string;
   suffix: string;
 begin
@@ -588 +591 @@
 end;
 
+procedure TskaHunSpellChecker.ManualChangeDone;
+begin
+  if trim(FTxtBeforeManualEdit) = '' then
+    exit;
+  FUndoList.Add(FTxtBeforeManualEdit);
+  ReStart;
+end;
+
+procedure TskaHunSpellChecker.ManualChangeStart;
+begin
+  FTxtBeforeManualEdit := FSourceEdit.Text;
+end;
+
 function TskaHunSpellChecker.Open: Boolean;
 var