Changeset 1694

Timestamp:

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

Author:

healthsevak

Message:

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

Location:

cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck

Files:

• Bin/skaHunSpellChecker.bpl (modified) ( previous)
• skaHunSpellChecker.dproj (modified) (1 diff)
• skaSpellCheck.pas (modified) (5 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaHunSpellChecker.dproj

@@ -41 +41 @@
       
       
-      
-      
-      
-      
-      
-      
-      
-      <Excluded_Packages Name="E:\Hans SpellCheck\Bin\skaHunSpellChecker.bpl">File E:\Hans SpellCheck\Bin\skaHunSpellChecker.bpl not found</Excluded_Packages>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl\XWB_R2007.bpl">VistA RPC Broker Runtime Package</Excluded_Packages>
+      <Excluded_Packages Name="E:\WVEHR\branches\HealthSevak-CPRS\BDK50\Packages\XWB_D2007.bpl">File E:\WVEHR\branches\HealthSevak-CPRS\BDK50\Packages\XWB_D2007.bpl not found</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">skaHunSpellChecker.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

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