Changeset 1704 for cprs

Timestamp:

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

Author:

healthsevak

Message:

Implemented the OpenSource based spell check feature

Location:

cprs/branches/HealthSevak-CPRS/CPRS-Chart

Files:

• fSurgery.dfm (modified) (21 diffs)
• fSurgery.pas (modified) (5 diffs)

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

@@ -4 +4 @@
   Align = alClient
   Caption = 'Surgery Page'
-  ClientHeight = 363
+  ClientHeight = 403
   ClientWidth = 712
   HelpFile = 'overvw'
@@ -10 +10 @@
   OnDestroy = FormDestroy
   ExplicitWidth = 720
-  ExplicitHeight = 417
+  ExplicitHeight = 457
   PixelsPerInch = 96
   TextHeight = 13
   inherited shpPageBottom: TShape
-    Top = 358
+    Top = 398
     Width = 712
     ExplicitTop = 358
@@ -21 +21 @@
   inherited sptHorz: TSplitter
     Left = 64
-    Height = 358
+    Height = 398
     AutoSnap = False
     OnCanResize = sptHorzCanResize
@@ -29 +29 @@
   inherited pnlLeft: TPanel
     Width = 64
-    Height = 358
+    Height = 398
     ExplicitWidth = 64
     ExplicitHeight = 358
@@ -48 +48 @@
     object lblSpace1: TLabel
       Left = 0
-      Top = 313
+      Top = 353
       Width = 64
       Height = 3
@@ -54 +54 @@
       AutoSize = False
       Caption = ' '
+      ExplicitTop = 313
     end
     object cmdNewNote: TORAlignButton
       Left = 0
-      Top = 316
+      Top = 356
       Width = 64
       Height = 21
@@ -65 +66 @@
       Visible = False
       OnClick = cmdNewNoteClick
+      ExplicitTop = 316
     end
     object cmdPCE: TORAlignButton
       Left = 0
-      Top = 337
+      Top = 377
       Width = 64
       Height = 21
@@ -76 +78 @@
       Visible = False
       OnClick = cmdPCEClick
+      ExplicitTop = 337
     end
     object pnlDrawers: TPanel
@@ -81 +84 @@
       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 +116 @@
         Top = 0
         Width = 64
-        Height = 291
+        Height = 331
         Align = alClient
         Constraints.MinWidth = 30
@@ -128 +133 @@
         NodePiece = 0
         ShortNodeCaptions = True
+        ExplicitHeight = 291
       end
     end
@@ -134 +140 @@
     Left = 68
     Width = 644
-    Height = 358
+    Height = 398
     ExplicitLeft = 68
     ExplicitWidth = 644
@@ -140 +146 @@
     object sptVert: TSplitter
       Left = 0
-      Top = 309
+      Top = 349
       Width = 644
       Height = 4
       Cursor = crVSplit
       Align = alBottom
+      ExplicitTop = 309
     end
     object pnlRead: TPanel
@@ -150 +157 @@
       Top = 0
       Width = 644
-      Height = 309
+      Height = 349
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
+      ExplicitHeight = 309
       object lblTitle: TOROffsetLabel
         Left = 0
@@ -178 +186 @@
         Top = 19
         Width = 644
-        Height = 290
+        Height = 330
         Align = alClient
         Color = clCream
@@ -200 +208 @@
         WantReturns = False
         WordWrap = False
+        ExplicitHeight = 290
       end
     end
     object memPCEShow: TRichEdit
       Left = 0
-      Top = 313
+      Top = 353
       Width = 644
       Height = 45
@@ -216 +225 @@
       TabOrder = 2
       WantReturns = False
+      ExplicitTop = 313
     end
     object pnlWrite: TPanel
@@ -221 +231 @@
       Top = 0
       Width = 644
-      Height = 309
+      Height = 349
       Align = alClient
       BevelOuter = bvNone
@@ -227 +237 @@
       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 +258 @@
         OnChange = memNewNoteChange
         OnKeyDown = memNewNoteKeyDown
+        ExplicitHeight = 242
       end
       object pnlFields: TPanel
@@ -777 +789 @@
       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

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;