Changeset 1702 for cprs

Timestamp:

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

Author:

healthsevak

Message:

Implemented the OpenSource based spell check feature

Location:

cprs/branches/HealthSevak-CPRS/CPRS-Chart

Files:

• fDCSumm.dfm (modified) (29 diffs)
• fDCSumm.pas (modified) (5 diffs)

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

@@ -4 +4 @@
   HelpContext = 7000
   Caption = 'Discharge Summary Page'
-  ClientHeight = 382
+  ClientHeight = 482
   ClientWidth = 679
   HelpFile = 'overvw'
@@ -10 +10 @@
   OnDestroy = FormDestroy
   ExplicitWidth = 687
-  ExplicitHeight = 436
+  ExplicitHeight = 536
   PixelsPerInch = 96
   TextHeight = 13
   inherited shpPageBottom: TShape
-    Top = 377
+    Top = 477
     Width = 679
     ExplicitTop = 358
@@ -22 +22 @@
     Left = 64
     Width = 3
-    Height = 377
+    Height = 477
     OnCanResize = sptHorzCanResize
     ExplicitLeft = 64
@@ -30 +30 @@
   inherited pnlLeft: TPanel
     Width = 64
-    Height = 377
+    Height = 477
     ExplicitWidth = 64
-    ExplicitHeight = 377
+    ExplicitHeight = 457
     object lblSumms: TOROffsetLabel
       Left = 0
@@ -49 +49 @@
     object lblSpace1: TLabel
       Left = 0
-      Top = 353
+      Top = 453
       Width = 64
       Height = 3
@@ -59 +59 @@
     object cmdNewSumm: TORAlignButton
       Left = 0
-      Top = 332
+      Top = 432
       Width = 64
       Height = 21
@@ -66 +66 @@
       TabOrder = 1
       OnClick = cmdNewSummClick
+      ExplicitTop = 412
     end
     object cmdPCE: TORAlignButton
       Left = 0
-      Top = 356
+      Top = 456
       Width = 64
       Height = 21
@@ -77 +78 @@
       Visible = False
       OnClick = cmdPCEClick
+      ExplicitTop = 436
     end
     object pnlDrawers: TPanel
@@ -82 +84 @@
       Top = 19
       Width = 64
-      Height = 313
+      Height = 413
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
+      ExplicitHeight = 393
       object splDrawers: TSplitter
         Left = 0
-        Top = 310
+        Top = 410
         Width = 64
         Height = 3
@@ -119 +122 @@
         Top = 0
         Width = 64
-        Height = 310
+        Height = 410
         Align = alClient
         Constraints.MinWidth = 30
@@ -139 +142 @@
         NodePiece = 0
         ShortNodeCaptions = True
+        ExplicitHeight = 390
       end
     end
@@ -145 +149 @@
     Left = 67
     Width = 612
-    Height = 377
+    Height = 477
     ExplicitLeft = 67
     ExplicitWidth = 612
-    ExplicitHeight = 377
+    ExplicitHeight = 457
     object sptVert: TSplitter
       Left = 0
-      Top = 328
+      Top = 428
       Width = 612
       Height = 4
@@ -160 +164 @@
     object memPCEShow: TRichEdit
       Left = 0
-      Top = 332
+      Top = 432
       Width = 612
       Height = 45
@@ -173 +177 @@
       WantReturns = False
       WordWrap = False
+      ExplicitTop = 412
     end
     object pnlWrite: TPanel
@@ -178 +183 @@
       Top = 0
       Width = 612
-      Height = 328
+      Height = 428
       Align = alClient
       BevelOuter = bvNone
@@ -184 +189 @@
       Visible = False
       OnResize = pnlWriteResize
+      ExplicitHeight = 408
       object memNewSumm: TRichEdit
         Left = 0
         Top = 52
         Width = 612
-        Height = 276
+        Height = 376
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -204 +210 @@
         OnChange = memNewSummChange
         OnKeyUp = memNewSummKeyUp
+        ExplicitHeight = 356
       end
       object pnlFields: TORAutoPanel
@@ -318 +325 @@
       Top = 0
       Width = 612
-      Height = 328
+      Height = 428
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
+      ExplicitHeight = 408
       object lblTitle: TOROffsetLabel
         Left = 0
@@ -355 +363 @@
         Top = 116
         Width = 612
-        Height = 212
+        Height = 312
         Align = alClient
         Color = clCream
@@ -377 +385 @@
         WantReturns = False
         WordWrap = False
+        ExplicitHeight = 292
       end
       object lvSumms: TCaptionListView
@@ -499 +508 @@
         'Status = stsDefault'))
   end
-  object mnuSumms: TMainMenu
+  object mnuSumms: TMainMenu [5]
     Left = 596
     Top = 305
@@ -784 +793 @@
     end
   end
-  object popSummMemo: TPopupMenu
+  object popSummMemo: TPopupMenu [6]
     OnPopup = popSummMemoPopup
     Left = 539
@@ -838 +847 @@
       OnClick = popSummMemoGrammarClick
     end
+    object popNoteMemoSpellOpenSource: TMenuItem
+      Caption = 'Chec&k Spelling (OpenSource based)'
+      ShortCut = 118
+      OnClick = popSummMemoSpellClick
+    end
     object popSummMemoSpell: TMenuItem
-      Caption = 'C&heck Spelling'
+      Caption = 'C&heck Spelling (MS Office based)'
       OnClick = popSummMemoSpellClick
     end
@@ -899 +913 @@
     end
   end
-  object popSummList: TPopupMenu
+  object popSummList: TPopupMenu [7]
     OnPopup = popSummListPopup
     Left = 500
@@ -968 +982 @@
     end
   end
-  object timAutoSave: TTimer
+  object timAutoSave: TTimer [8]
     Enabled = False
     Interval = 300000
@@ -975 +989 @@
     Top = 61
   end
-  object dlgFindText: TFindDialog
+  object dlgFindText: TFindDialog [9]
     Options = [frDown, frHideUpDown]
     OnFind = dlgFindTextFind
@@ -981 +995 @@
     Top = 312
   end
-  object dlgReplaceText: TReplaceDialog
+  object dlgReplaceText: TReplaceDialog [10]
     OnFind = dlgReplaceTextFind
     OnReplace = dlgReplaceTextReplace
@@ -987 +1001 @@
     Top = 313
   end
-  object imgLblNotes: TVA508ImageListLabeler
+  object imgLblNotes: TVA508ImageListLabeler [11]
     Components = <
       item
@@ -1000 +1014 @@
     Top = 171
   end
-  object imgLblImages: TVA508ImageListLabeler
+  object imgLblImages: TVA508ImageListLabeler [12]
     Components = <
       item

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;