Changeset 1704 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.pas

Timestamp:

May 9, 2015, 7:39:39 AM (9 years ago)

Author:

healthsevak

Message:

Implemented the OpenSource based spell check feature

File:

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

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

@@ -144 +144 @@
     imgLblImages: TVA508ImageListLabeler;
     imgLblSurgery: TVA508ImageListLabeler;
+    popNoteMemoSpellOpenSource: TMenuItem;//WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     procedure mnuChartTabClick(Sender: TObject);
     procedure pnlRightResize(Sender: TObject);
@@ -437 +438 @@
     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;
@@ -1875 +1877 @@
   begin
     popNoteMemoSpell.Enabled    := True;
+    popNoteMemoSpellOpenSource.Enabled   := True;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popNoteMemoGrammar.Enabled  := True;
     popNoteMemoReformat.Enabled := True;
@@ -1883 +1886 @@
   begin
     popNoteMemoSpell.Enabled    := False;
+    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popNoteMemoGrammar.Enabled  := False;
     popNoteMemoReformat.Enabled := False;
@@ -1956 +1960 @@
   timAutoSave.Enabled := False;
   try
-    SpellCheckForControl(memNewNote);
+    SpellCheckForControl(memNewNote, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
   finally
     FChanged := True;