Changeset 1703 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNotes.dfm

Timestamp:

May 9, 2015, 7:38:52 AM (9 years ago)

Author:

healthsevak

Message:

updated this file to version 28 and Implemented the OpenSource based spell check feature

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNotes.dfm (modified) (21 diffs)

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

@@ -4 +4 @@
   HelpContext = 5000
   Caption = 'Progress Notes Page'
-  ClientHeight = 394
+  ClientHeight = 573
   ClientWidth = 679
   HelpFile = 'overvw'
@@ -12 +12 @@
   OnShow = FormShow
   ExplicitWidth = 687
-  ExplicitHeight = 440
+  ExplicitHeight = 627
   PixelsPerInch = 96
   TextHeight = 13
   inherited shpPageBottom: TShape
-    Top = 389
+    Top = 568
     Width = 679
-    ExplicitTop = 358
+    ExplicitTop = 408
     ExplicitWidth = 679
   end
   inherited sptHorz: TSplitter
     Left = 64
-    Height = 389
+    Height = 568
     OnCanResize = sptHorzCanResize
     ExplicitLeft = 64
-    ExplicitHeight = 358
+    ExplicitHeight = 408
   end
   inherited pnlLeft: TPanel
     Width = 64
-    Height = 389
+    Height = 568
+    Constraints.MinWidth = 37
     ExplicitWidth = 64
-    ExplicitHeight = 389
+    ExplicitHeight = 548
     object lblNotes: TOROffsetLabel
       Left = 0
@@ -49 +50 @@
     object lblSpace1: TLabel
       Left = 0
-      Top = 344
+      Top = 523
       Width = 64
       Height = 3
@@ -55 +56 @@
       AutoSize = False
       Caption = ' '
-      ExplicitTop = 313
+      ExplicitTop = 363
     end
     object cmdNewNote: TORAlignButton
       Left = 0
-      Top = 347
+      Top = 526
       Width = 64
       Height = 21
@@ -67 +68 @@
       OnClick = cmdNewNoteClick
       OnExit = cmdNewNoteExit
+      ExplicitTop = 506
     end
     object cmdPCE: TORAlignButton
       Left = 0
-      Top = 368
+      Top = 547
       Width = 64
       Height = 21
@@ -79 +81 @@
       OnClick = cmdPCEClick
       OnExit = cmdPCEExit
+      ExplicitTop = 527
     end
     object pnlDrawers: TPanel
@@ -84 +87 @@
       Top = 19
       Width = 64
-      Height = 325
+      Height = 504
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
+      ExplicitHeight = 484
       object splDrawers: TSplitter
         Left = 0
-        Top = 322
+        Top = 501
         Width = 64
         Height = 3
         Cursor = crVSplit
         Align = alBottom
-        ExplicitTop = 291
+        ExplicitTop = 342
       end
       object lstNotes: TORListBox
@@ -121 +125 @@
         Top = 0
         Width = 64
-        Height = 322
+        Height = 501
         Align = alClient
         Constraints.MinWidth = 30
@@ -142 +146 @@
         NodePiece = 0
         ShortNodeCaptions = True
+        ExplicitHeight = 481
       end
     end
@@ -148 +153 @@
     Left = 68
     Width = 611
-    Height = 389
+    Height = 568
+    Constraints.MinWidth = 30
     ExplicitLeft = 68
     ExplicitWidth = 611
-    ExplicitHeight = 389
+    ExplicitHeight = 548
     object sptVert: TSplitter
       Left = 0
-      Top = 340
+      Top = 519
       Width = 611
       Height = 4
       Cursor = crVSplit
       Align = alBottom
-      ExplicitTop = 309
+      ExplicitTop = 359
     end
     object memPCEShow: TRichEdit
       Left = 0
-      Top = 344
+      Top = 523
       Width = 611
       Height = 45
@@ -175 +181 @@
       TabOrder = 2
       OnExit = memPCEShowExit
+      ExplicitTop = 503
     end
     object pnlWrite: TPanel
@@ -180 +187 @@
       Top = 0
       Width = 611
-      Height = 340
+      Height = 519
       Align = alClient
       BevelOuter = bvNone
@@ -186 +193 @@
       Visible = False
       OnResize = pnlWriteResize
+      ExplicitHeight = 499
       object memNewNote: TRichEdit
         Left = 0
         Top = 67
         Width = 611
-        Height = 273
+        Height = 452
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -197 +205 @@
         Font.Name = 'Courier New'
         Font.Style = []
+        MaxLength = 2147483645
         ParentFont = False
         PlainText = True
@@ -207 +216 @@
         OnKeyPress = memNewNoteKeyPress
         OnKeyUp = memNewNoteKeyUp
+        ExplicitHeight = 432
       end
       object pnlFields: TPanel
@@ -295 +305 @@
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
-          Font.Height = -11
+          Font.Height = -12
           Font.Name = 'MS Sans Serif'
           Font.Style = []
@@ -335 +345 @@
       Top = 0
       Width = 611
-      Height = 340
+      Height = 519
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
       OnExit = pnlReadExit
+      ExplicitHeight = 499
       object lblTitle: TOROffsetLabel
         Left = 0
@@ -354 +365 @@
       object sptList: TSplitter
         Left = 0
-        Top = 113
+        Top = 19
         Width = 611
         Height = 3
         Cursor = crVSplit
         Align = alTop
+        ExplicitTop = 113
       end
       object memNote: TRichEdit
@@ -364 +376 @@
         Top = 116
         Width = 611
-        Height = 224
+        Height = 403
         Align = alClient
         Color = clCream
@@ -385 +397 @@
         TabOrder = 1
         WordWrap = False
+        ExplicitHeight = 383
       end
       object lvNotes: TCaptionListView
         Left = 0
-        Top = 19
+        Top = 22
         Width = 611
         Height = 94
@@ -860 +873 @@
       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