Index: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.dfm
===================================================================
--- cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.dfm	(revision 1703)
+++ cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.dfm	(revision 1704)
@@ -4,5 +4,5 @@
   Align = alClient
   Caption = 'Surgery Page'
-  ClientHeight = 363
+  ClientHeight = 403
   ClientWidth = 712
   HelpFile = 'overvw'
@@ -10,9 +10,9 @@
   OnDestroy = FormDestroy
   ExplicitWidth = 720
-  ExplicitHeight = 417
+  ExplicitHeight = 457
   PixelsPerInch = 96
   TextHeight = 13
   inherited shpPageBottom: TShape
-    Top = 358
+    Top = 398
     Width = 712
     ExplicitTop = 358
@@ -21,5 +21,5 @@
   inherited sptHorz: TSplitter
     Left = 64
-    Height = 358
+    Height = 398
     AutoSnap = False
     OnCanResize = sptHorzCanResize
@@ -29,5 +29,5 @@
   inherited pnlLeft: TPanel
     Width = 64
-    Height = 358
+    Height = 398
     ExplicitWidth = 64
     ExplicitHeight = 358
@@ -48,5 +48,5 @@
     object lblSpace1: TLabel
       Left = 0
-      Top = 313
+      Top = 353
       Width = 64
       Height = 3
@@ -54,8 +54,9 @@
       AutoSize = False
       Caption = ' '
+      ExplicitTop = 313
     end
     object cmdNewNote: TORAlignButton
       Left = 0
-      Top = 316
+      Top = 356
       Width = 64
       Height = 21
@@ -65,8 +66,9 @@
       Visible = False
       OnClick = cmdNewNoteClick
+      ExplicitTop = 316
     end
     object cmdPCE: TORAlignButton
       Left = 0
-      Top = 337
+      Top = 377
       Width = 64
       Height = 21
@@ -76,4 +78,5 @@
       Visible = False
       OnClick = cmdPCEClick
+      ExplicitTop = 337
     end
     object pnlDrawers: TPanel
@@ -81,15 +84,17 @@
       Top = 19
       Width = 64
-      Height = 294
+      Height = 334
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 2
+      ExplicitHeight = 294
       object splDrawers: TSplitter
         Left = 0
-        Top = 291
+        Top = 331
         Width = 64
         Height = 3
         Cursor = crVSplit
         Align = alBottom
+        ExplicitTop = 291
       end
       object lstNotes: TORListBox
@@ -111,5 +116,5 @@
         Top = 0
         Width = 64
-        Height = 291
+        Height = 331
         Align = alClient
         Constraints.MinWidth = 30
@@ -128,4 +133,5 @@
         NodePiece = 0
         ShortNodeCaptions = True
+        ExplicitHeight = 291
       end
     end
@@ -134,5 +140,5 @@
     Left = 68
     Width = 644
-    Height = 358
+    Height = 398
     ExplicitLeft = 68
     ExplicitWidth = 644
@@ -140,9 +146,10 @@
     object sptVert: TSplitter
       Left = 0
-      Top = 309
+      Top = 349
       Width = 644
       Height = 4
       Cursor = crVSplit
       Align = alBottom
+      ExplicitTop = 309
     end
     object pnlRead: TPanel
@@ -150,8 +157,9 @@
       Top = 0
       Width = 644
-      Height = 309
+      Height = 349
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
+      ExplicitHeight = 309
       object lblTitle: TOROffsetLabel
         Left = 0
@@ -178,5 +186,5 @@
         Top = 19
         Width = 644
-        Height = 290
+        Height = 330
         Align = alClient
         Color = clCream
@@ -200,9 +208,10 @@
         WantReturns = False
         WordWrap = False
+        ExplicitHeight = 290
       end
     end
     object memPCEShow: TRichEdit
       Left = 0
-      Top = 313
+      Top = 353
       Width = 644
       Height = 45
@@ -216,4 +225,5 @@
       TabOrder = 2
       WantReturns = False
+      ExplicitTop = 313
     end
     object pnlWrite: TPanel
@@ -221,5 +231,5 @@
       Top = 0
       Width = 644
-      Height = 309
+      Height = 349
       Align = alClient
       BevelOuter = bvNone
@@ -227,9 +237,10 @@
       Visible = False
       OnResize = pnlWriteResize
+      ExplicitHeight = 309
       object memNewNote: TRichEdit
         Left = 0
         Top = 67
         Width = 644
-        Height = 242
+        Height = 282
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -247,4 +258,5 @@
         OnChange = memNewNoteChange
         OnKeyDown = memNewNoteKeyDown
+        ExplicitHeight = 242
       end
       object pnlFields: TPanel
@@ -777,6 +789,11 @@
       OnClick = popNoteMemoGrammarClick
     end
+    object popNoteMemoSpellOpenSource: TMenuItem
+      Caption = 'Chec&k Spelling (OpenSource based)'
+      ShortCut = 118
+      OnClick = popNoteMemoSpellClick
+    end
     object popNoteMemoSpell: TMenuItem
-      Caption = 'C&heck Spelling'
+      Caption = 'C&heck Spelling (MS Office based)'
       OnClick = popNoteMemoSpellClick
     end
Index: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.pas
===================================================================
--- cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.pas	(revision 1703)
+++ cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.pas	(revision 1704)
@@ -144,4 +144,5 @@
     imgLblImages: TVA508ImageListLabeler;
     imgLblSurgery: TVA508ImageListLabeler;
+    popNoteMemoSpellOpenSource: TMenuItem;//WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     procedure mnuChartTabClick(Sender: TObject);
     procedure pnlRightResize(Sender: TObject);
@@ -437,4 +438,5 @@
     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,4 +1877,5 @@
   begin
     popNoteMemoSpell.Enabled    := True;
+    popNoteMemoSpellOpenSource.Enabled   := True;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popNoteMemoGrammar.Enabled  := True;
     popNoteMemoReformat.Enabled := True;
@@ -1883,4 +1886,5 @@
   begin
     popNoteMemoSpell.Enabled    := False;
+    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     popNoteMemoGrammar.Enabled  := False;
     popNoteMemoReformat.Enabled := False;
@@ -1956,5 +1960,5 @@
   timAutoSave.Enabled := False;
   try
-    SpellCheckForControl(memNewNote);
+    SpellCheckForControl(memNewNote, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
   finally
     FChanged := True;