Changeset 1698 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/fConsults.pas

Timestamp:

May 9, 2015, 7:25:33 AM (9 years ago)

Author:

healthsevak

Message:

Implemented the OpenSource based spell check feature

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/fConsults.pas (modified) (5 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/fConsults.pas

@@ -180 +180 @@
     imgLblImages: TVA508ImageListLabeler;
     imgLblConsults: TVA508ImageListLabeler;
-    popNoteMemoViewCslt: TMenuItem;   //wat cq 17586
+    popNoteMemoViewCslt: TMenuItem;
+    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstConsultsClick(Sender: TObject);
@@ -677 +678 @@
     FCurrentContext := FDefaultContext;
     popNoteMemoSpell.Visible   := SpellCheckAvailable;
+    popNoteMemoSpellOpenSource.Visible   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible;
     Z11.Visible                := popNoteMemoSpell.Visible;
@@ -2741 +2743 @@
   begin
     popNoteMemoSpell.Enabled    := True;
+    popNoteMemoSpellOpenSource.Enabled   := True;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popNoteMemoGrammar.Enabled  := True;
     popNoteMemoReformat.Enabled := True;
@@ -2750 +2753 @@
   begin
     popNoteMemoSpell.Enabled    := False;
+    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popNoteMemoGrammar.Enabled  := False;
     popNoteMemoReformat.Enabled := False;
@@ -2835 +2839 @@
   timAutoSave.Enabled := False;
   try
-    SpellCheckForControl(memResults);
+    SpellCheckForControl(memResults, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
   finally
     FChanged := True;