Changeset 1702 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/fDCSumm.pas

Timestamp:

May 9, 2015, 7:37:29 AM (10 years ago)

Author:

healthsevak

Message:

Implemented the OpenSource based spell check feature

File:

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

cprs/branches/HealthSevak-CPRS/CPRS-Chart/fDCSumm.pas

@@ -147 +147 @@
     imgLblNotes: TVA508ImageListLabeler;
     imgLblImages: TVA508ImageListLabeler;
+    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstSummsClick(Sender: TObject);
@@ -501 +502 @@
     FCurrentContext := FDefaultContext;
     popSummMemoSpell.Visible   := SpellCheckAvailable;
+    popNoteMemoSpellOpenSource.Visible   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popSummMemoGrammar.Visible := popSummMemoSpell.Visible;
     Z11.Visible                := popSummMemoSpell.Visible;
@@ -1856 +1858 @@
   begin
     popSummMemoSpell.Enabled   := True;
+    popNoteMemoSpellOpenSource.Enabled   := True;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popSummMemoGrammar.Enabled := True;
     popSummMemoReformat.Enabled := True;
@@ -1864 +1867 @@
   begin
     popSummMemoSpell.Enabled   := False;
+    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popSummMemoGrammar.Enabled := False;
     popSummMemoReformat.Enabled := False;
@@ -1948 +1952 @@
   timAutoSave.Enabled := False;
   try
-    SpellCheckForControl(memNewSumm);
+    SpellCheckForControl(memNewSumm, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
   finally
     FChanged := True;