Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/fODMeds.dfm

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Orders/fODMeds.dfm (modified) (32 diffs)

cprs/trunk/CPRS-Chart/Orders/fODMeds.dfm

@@ -3 +3 @@
   Top = 183
   Width = 584
-  Height = 572
-  HorzScrollBar.Range = 558
-  VertScrollBar.Range = 399
+  Height = 578
+  AutoScroll = True
   Caption = 'Medication Order'
   Constraints.MinHeight = 325
+  Constraints.MinWidth = 452
   OnShow = FormShow
   ExplicitWidth = 584
-  ExplicitHeight = 572
+  ExplicitHeight = 578
   DesignSize = (
     576
-    545)
+    544)
   PixelsPerInch = 96
   TextHeight = 13
@@ -20 +20 @@
     Top = 34
     Width = 580
-    Height = 470
+    Height = 476
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
@@ -68 +68 @@
       Top = 137
       Width = 580
-      Height = 333
+      Height = 339
       Align = alClient
       BevelInner = bvLowered
@@ -99 +99 @@
   inherited memOrder: TCaptionMemo
     Tag = 13
-    Top = 505
+    Top = 511
     Width = 502
-    TabStop = True
     Anchors = [akLeft, akRight, akBottom]
     TabOrder = 4
-    ExplicitTop = 505
+    ExplicitTop = 511
     ExplicitWidth = 502
   end
   object txtMed: TEdit [2]
     Left = 6
-    Top = 6
+    Top = 12
     Width = 580
     Height = 21
@@ -123 +122 @@
   object btnSelect: TButton [3]
     Left = 515
-    Top = 505
+    Top = 511
     Width = 72
     Height = 21
@@ -135 +134 @@
   object pnlFields: TPanel [4]
     Left = 6
-    Top = 34
+    Top = 44
     Width = 580
-    Height = 470
+    Height = 465
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
@@ -148 +147 @@
       Top = 0
       Width = 580
-      Height = 197
+      Height = 192
       Align = alClient
       Constraints.MinHeight = 80
@@ -154 +153 @@
       DesignSize = (
         580
-        197)
+        192)
       object lblRoute: TLabel
         Left = 280
@@ -195 +194 @@
         Top = 36
         Width = 580
-        Height = 156
+        Height = 151
         Anchors = [akLeft, akTop, akRight, akBottom]
         ColCount = 7
@@ -259 +258 @@
         Top = 36
         Width = 279
-        Height = 155
+        Height = 150
         Anchors = [akLeft, akTop, akRight, akBottom]
         Style = orcsSimple
@@ -289 +288 @@
         Top = 36
         Width = 113
-        Height = 156
+        Height = 151
         Anchors = [akTop, akRight, akBottom]
         Style = orcsSimple
@@ -312 +311 @@
         OnClick = ControlChange
         OnExit = cboRouteExit
+        OnKeyUp = cboRouteKeyUp
         CharsNeedMatch = 1
         UniqueAutoComplete = True
@@ -319 +319 @@
         Top = 36
         Width = 178
-        Height = 156
+        Height = 151
         Anchors = [akTop, akRight, akBottom]
         Style = orcsSimple
@@ -341 +341 @@
         OnEnter = cboScheduleEnter
         OnExit = cboScheduleExit
+        OnKeyUp = cboScheduleKeyUp
         CharsNeedMatch = 1
         UniqueAutoComplete = True
@@ -473 +474 @@
         TabStop = True
         OnClick = btnXDurationClick
+        OnEnter = pnlXDurationButtonEnter
         object btnXDuration: TSpeedButton
           Left = 0
@@ -558 +560 @@
         OnExit = cboXScheduleExit
         OnKeyDown = memMessageKeyDown
+        OnKeyUp = cboXScheduleKeyUp
         CharsNeedMatch = 1
         UniqueAutoComplete = True
@@ -575 +578 @@
     object pnlBottom: TPanel
       Left = 0
-      Top = 197
+      Top = 192
       Width = 580
       Height = 273
@@ -600 +603 @@
       end
       object lblQuantity: TLabel
-        Left = 84
+        Left = 81
         Top = 65
         Width = 39
@@ -609 +612 @@
       end
       object lblRefills: TLabel
-        Left = 164
+        Left = 140
         Top = 65
         Width = 28
@@ -616 +619 @@
       end
       object lblPriority: TLabel
-        Left = 500
+        Left = 503
         Top = 61
         Width = 31
@@ -682 +685 @@
       end
       object txtQuantity: TCaptionEdit
-        Left = 83
+        Left = 80
         Top = 78
-        Width = 60
+        Width = 40
         Height = 21
         AutoSize = False
@@ -694 +697 @@
       end
       object spnQuantity: TUpDown
-        Left = 143
+        Left = 120
         Top = 78
         Width = 16
@@ -703 +706 @@
       end
       object txtRefills: TCaptionEdit
-        Left = 164
+        Left = 140
         Top = 78
         Width = 30
@@ -715 +718 @@
       end
       object spnRefills: TUpDown
-        Left = 194
+        Left = 170
         Top = 78
         Width = 15
@@ -724 +727 @@
       end
       object grpPickup: TGroupBox
-        Left = 283
+        Left = 188
         Top = 66
         Width = 172
         Height = 36
-        Anchors = [akTop, akRight]
         Caption = 'Pick Up'
         TabOrder = 7
@@ -760 +762 @@
       end
       object cboPriority: TORComboBox
-        Left = 499
+        Left = 502
         Top = 76
         Width = 72
@@ -782 +784 @@
         TabOrder = 9
         OnChange = ControlChange
+        OnKeyUp = cboPriorityKeyUp
         CharsNeedMatch = 1
       end
@@ -885 +888 @@
       OnExit = cboXSequenceExit
       OnKeyDown = memMessageKeyDown
+      OnKeyUp = cboXSequenceKeyUp
       CharsNeedMatch = 1
     end
@@ -890 +894 @@
   inherited cmdAccept: TButton
     Left = 514
-    Top = 505
+    Top = 511
     Anchors = [akRight, akBottom]
     TabOrder = 6
@@ -896 +900 @@
     Visible = False
     ExplicitLeft = 514
-    ExplicitTop = 505
+    ExplicitTop = 511
   end
   inherited cmdQuit: TButton
     Left = 514
-    Top = 530
+    Top = 536
     Width = 51
     Anchors = [akRight, akBottom]
     TabOrder = 7
     ExplicitLeft = 514
-    ExplicitTop = 530
+    ExplicitTop = 536
     ExplicitWidth = 51
   end
@@ -1064 +1068 @@
       (
         'Component = memOrder'
-        'Status = stsDefault')
+        'Text = Order Sig'
+        'Status = stsOK')
       (
         'Component = cmdAccept'
@@ -1085 +1090 @@
       (
         'Component = lblAdminSch'
-        'Status = stsDefault')
+        'Text = Admin Schedule.'
+        'Status = stsOK')
       (
         'Component = lblAdminTime'