Changeset 1699 for cprs/branches

Timestamp:

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

Author:

healthsevak

Message:

Implemented the OpenSource based spell check feature

Location:

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates

Files:

• fTemplateEditor.dfm (modified) (7 diffs)
• fTemplateEditor.pas (modified) (3 diffs)
• fTemplateFieldEditor.dfm (modified) (2 diffs)
• fTemplateFieldEditor.pas (modified) (5 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateEditor.dfm

@@ -964 +964 @@
           Align = alLeft
           AutoSize = True
-          ButtonHeight = 0
-          ButtonWidth = 0
+          ButtonHeight = 21
+          ButtonWidth = 37
           Caption = 'mbMain'
           Menu = mnuMain
@@ -1096 +1096 @@
     Align = alClient
     TabOrder = 4
-    ExplicitLeft = 138
-    ExplicitTop = 221
     object pnlBoilerplate: TPanel
       Left = 1
@@ -1108 +1106 @@
       OnCanResize = pnlBoilerplateCanResize
       OnResize = pnlBoilerplateResize
-      ExplicitLeft = 17
-      ExplicitTop = 2
       object splBoil: TSplitter
         Left = 0
@@ -1173 +1169 @@
         TabOrder = 2
         Visible = False
-        ExplicitLeft = -1
-        ExplicitTop = 154
         object lblGroupBP: TLabel
           Left = 0
@@ -1282 +1276 @@
         TabOrder = 3
         Visible = False
-        ExplicitTop = 158
         object lblNotes: TLabel
           Left = 0
           Top = 0
-          Width = 78
+          Width = 738
           Height = 13
           Align = alTop
           Caption = 'Template Notes:'
+          ExplicitWidth = 78
         end
         object reNotes: TRichEdit
@@ -1326 +1320 @@
     BevelOuter = bvNone
     TabOrder = 2
-    ExplicitLeft = 40
-    ExplicitTop = 498
     DesignSize = (
       740
@@ -1755 +1747 @@
       OnClick = mnuBPCheckGrammarClick
     end
+    object popNoteMemoSpellOpenSource: TMenuItem
+      Caption = 'Chec&k Spelling (OpenSource based)'
+      ShortCut = 118
+      OnClick = mnuBPSpellCheckClick
+    end
     object mnuBPSpellCheck: TMenuItem
-      Caption = 'Check &Spelling'
+      Caption = 'C&heck Spelling (MS Office based)'
       ShortCut = 16467
       OnClick = mnuBPSpellCheckClick

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateEditor.pas

@@ -212 +212 @@
     lblNotes: TLabel;
     reNotes: TRichEdit;
+    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     procedure btnNewClick(Sender: TObject);
     procedure btnApplyClick(Sender: TObject);
@@ -2612 +2613 @@
   mnuBPTry.Enabled := tryOK;
   mnuBPSpellCheck.Enabled := ok and SpellCheckAvailable;
+  popNoteMemoSpellOpenSource.Enabled   := ok and SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
   mnuBPCheckGrammar.Enabled := ok and SpellCheckAvailable;
 
@@ -2709 +2711 @@
 procedure TfrmTemplateEditor.mnuBPSpellCheckClick(Sender: TObject);
 begin
-  SpellCheckForControl(reBoil);
+  SpellCheckForControl(reBoil, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
 end;
 

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.dfm

@@ -825 +825 @@
       AutoSize = True
       ButtonHeight = 21
-      ButtonWidth = 43
+      ButtonWidth = 37
       Caption = 'MenuBar1'
       Menu = mnuMain
@@ -1090 +1090 @@
       OnClick = mnuBPCheckGrammarClick
     end
+    object popNoteMemoSpellOpenSource: TMenuItem
+      Caption = 'Chec&k Spelling (OpenSource based)'
+      ShortCut = 118
+      OnClick = mnuBPSpellCheckClick
+    end
     object mnuBPSpellCheck: TMenuItem
-      Caption = 'Check &Spelling'
+      Caption = 'Check &Spelling (MS Office based)'
       ShortCut = 16467
       OnClick = mnuBPSpellCheckClick

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.pas

@@ -100 +100 @@
     N14: TMenuItem;
     mnuInsertTemplateField: TMenuItem;
+    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     procedure cbxObjsNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
@@ -1041 +1042 @@
 
   mnuBPSpellCheck.Visible := isre;
+  popNoteMemoSpellOpenSource.Visible   := isre;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
   mnuBPCheckGrammar.Visible := isre;
 
@@ -1046 +1048 @@
   begin
     mnuBPSpellCheck.Enabled   := SpellCheckAvailable;
+    popNoteMemoSpellOpenSource.Enabled   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     mnuBPCheckGrammar.Enabled := SpellCheckAvailable;
   end
@@ -1051 +1054 @@
   begin
     mnuBPSpellCheck.Enabled   := FALSE;
+    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
     mnuBPCheckGrammar.Enabled := FALSE;
   end;
@@ -1130 +1134 @@
   ce := GetPopupControl;
   if(assigned(ce) and (ce is TRichEdit)) then
-    SpellCheckForControl(TRichEdit(ce));
+    SpellCheckForControl(TRichEdit(ce), Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
 end;