Changeset 1699 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.pas

Timestamp:

May 9, 2015, 7:26:48 AM (9 years ago)

Author:

healthsevak

Message:

Implemented the OpenSource based spell check feature

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.pas (modified) (5 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.pas

@@ -100 +100 @@
     N14: TMenuItem;
     mnuInsertTemplateField: TMenuItem;
+    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     procedure cbxObjsNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
@@ -1041 +1042 @@
 
   mnuBPSpellCheck.Visible := isre;
+  popNoteMemoSpellOpenSource.Visible   := isre;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
   mnuBPCheckGrammar.Visible := isre;
 
@@ -1046 +1048 @@
   begin
     mnuBPSpellCheck.Enabled   := SpellCheckAvailable;
+    popNoteMemoSpellOpenSource.Enabled   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     mnuBPCheckGrammar.Enabled := SpellCheckAvailable;
   end
@@ -1051 +1054 @@
   begin
     mnuBPSpellCheck.Enabled   := FALSE;
+    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     mnuBPCheckGrammar.Enabled := FALSE;
   end;
@@ -1130 +1134 @@
   ce := GetPopupControl;
   if(assigned(ce) and (ce is TRichEdit)) then
-    SpellCheckForControl(TRichEdit(ce));
+    SpellCheckForControl(TRichEdit(ce), Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
 end;