Changeset 829 for cprs/trunk/CPRS-Chart/Consults/fEditConsult.dfm

Timestamp:

Jul 7, 2010, 4:31:10 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Consults/fEditConsult.dfm (modified) (26 diffs)

cprs/trunk/CPRS-Chart/Consults/fEditConsult.dfm

@@ -1 @@
-object frmEditCslt: TfrmEditCslt
+inherited frmEditCslt: TfrmEditCslt
   Tag = 110
   Left = 409
   Top = 225
-  Width = 569
-  Height = 367
+  Width = 599
+  Height = 375
   HorzScrollBar.Range = 561
   VertScrollBar.Range = 340
-  AutoScroll = False
   Caption = 'Edit/Resubmit a Cancelled Consult'
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
+  Constraints.MinHeight = 371
+  Constraints.MinWidth = 573
   OldCreateOrder = True
   Position = poScreenCenter
+  ExplicitLeft = 409
+  ExplicitTop = 225
+  ExplicitWidth = 599
+  ExplicitHeight = 375
   DesignSize = (
-    561
-    340)
+    591
+    341)
   PixelsPerInch = 96
   TextHeight = 13
-  object lblService: TLabel
+  object lblService: TLabel [0]
     Left = 4
     Top = 4
@@ -29 +28 @@
     Caption = 'Consult to Service/Specialty'
   end
-  object lblReason: TLabel
+  object lblReason: TLabel [1]
     Left = 4
     Top = 166
@@ -36 +35 @@
     Caption = 'Reason for Consult'
   end
-  object lblComment: TLabel
+  object lblComment: TLabel [2]
     Left = 4
     Top = 105
@@ -43 +42 @@
     Caption = 'New Comments:'
   end
-  object lblComments: TLabel
+  object lblComments: TLabel [3]
     Left = 4
     Top = 51
@@ -50 +49 @@
     Caption = 'Display Comments:'
   end
-  object lblUrgency: TStaticText
+  object lblUrgency: TStaticText [4]
     Left = 196
     Top = 4
@@ -58 +57 @@
     TabOrder = 16
   end
-  object lblPlace: TStaticText
+  object lblPlace: TStaticText [5]
     Left = 376
     Top = 41
@@ -66 +65 @@
     TabOrder = 17
   end
-  object lblAttn: TStaticText
+  object lblAttn: TStaticText [6]
     Left = 376
     Top = 4
@@ -74 +73 @@
     TabOrder = 18
   end
-  object lblProvDiag: TStaticText
+  object lblProvDiag: TStaticText [7]
     Left = 195
     Top = 82
@@ -82 +81 @@
     TabOrder = 19
   end
-  object lblInpOutp: TStaticText
+  object lblInpOutp: TStaticText [8]
     Left = 197
     Top = 47
@@ -90 +89 @@
     TabOrder = 20
   end
-  object memReason: TRichEdit
+  object memReason: TRichEdit [9]
     Left = 4
     Top = 179
-    Width = 552
-    Height = 129
+    Width = 589
+    Height = 137
     Anchors = [akLeft, akTop, akRight, akBottom]
     Font.Charset = DEFAULT_CHARSET
@@ -111 +110 @@
     OnKeyPress = memCommentKeyPress
     OnKeyUp = memCommentKeyUp
-  end
-  object pnlMessage: TPanel
-    Left = 21
-    Top = 292
-    Width = 381
+    ExplicitHeight = 136
+  end
+  object pnlMessage: TPanel [10]
+    Left = 16
+    Top = 294
+    Width = 418
     Height = 44
     Anchors = [akLeft, akRight, akBottom]
@@ -146 +146 @@
     end
   end
-  object cboService: TORComboBox
+  object cboService: TORComboBox [11]
     Left = 4
     Top = 19
@@ -176 +176 @@
     CharsNeedMatch = 1
   end
-  object cboUrgency: TORComboBox
+  object cboUrgency: TORComboBox [12]
     Left = 196
     Top = 19
@@ -200 +200 @@
     CharsNeedMatch = 1
   end
-  object radInpatient: TRadioButton
+  object radInpatient: TRadioButton [13]
     Left = 197
     Top = 61
@@ -209 +209 @@
     OnClick = radInpatientClick
   end
-  object radOutpatient: TRadioButton
+  object radOutpatient: TRadioButton [14]
     Left = 269
     Top = 61
@@ -218 +218 @@
     OnClick = radOutpatientClick
   end
-  object cboPlace: TORComboBox
+  object cboPlace: TORComboBox [15]
     Left = 376
     Top = 54
-    Width = 179
+    Width = 216
     Height = 21
     Anchors = [akLeft, akTop, akRight]
@@ -243 +243 @@
     CharsNeedMatch = 1
   end
-  object txtProvDiag: TCaptionEdit
+  object txtProvDiag: TCaptionEdit [16]
     Left = 195
     Top = 95
-    Width = 309
+    Width = 346
     Height = 21
     Anchors = [akLeft, akTop, akRight]
@@ -257 +257 @@
     Caption = 'Provisional Diagnosis'
   end
-  object txtAttn: TORComboBox
+  object txtAttn: TORComboBox [17]
     Left = 376
     Top = 19
-    Width = 181
+    Width = 218
     Height = 21
     Anchors = [akLeft, akTop, akRight]
@@ -283 +283 @@
     CharsNeedMatch = 1
   end
-  object cboCategory: TORComboBox
+  object cboCategory: TORComboBox [18]
     Left = 561
     Top = 103
@@ -305 +305 @@
     CharsNeedMatch = 1
   end
-  object cmdAccept: TButton
-    Left = 407
-    Top = 313
+  object cmdAccept: TButton [19]
+    Left = 437
+    Top = 319
     Width = 72
     Height = 21
@@ -315 +315 @@
     OnClick = cmdAcceptClick
   end
-  object cmdQuit: TButton
-    Left = 484
-    Top = 313
+  object cmdQuit: TButton [20]
+    Left = 514
+    Top = 319
     Width = 72
     Height = 21
@@ -326 +326 @@
     OnClick = cmdQuitClick
   end
-  object memComment: TRichEdit
+  object memComment: TRichEdit [21]
     Left = 4
     Top = 121
-    Width = 550
+    Width = 587
     Height = 41
     Anchors = [akLeft, akTop, akRight]
@@ -340 +340 @@
     OnKeyUp = memCommentKeyUp
   end
-  object btnCmtCancel: TButton
+  object btnCmtCancel: TButton [22]
     Left = 110
     Top = 49
@@ -349 +349 @@
     OnClick = btnCmtCancelClick
   end
-  object btnCmtOther: TButton
+  object btnCmtOther: TButton [23]
     Left = 110
     Top = 75
@@ -358 +358 @@
     OnClick = btnCmtOtherClick
   end
-  object cmdLexSearch: TButton
-    Left = 508
+  object cmdLexSearch: TButton [24]
+    Left = 545
     Top = 95
     Width = 46
@@ -367 +367 @@
     TabOrder = 9
     OnClick = cmdLexSearchClick
+  end
+  inherited amgrMain: TVA508AccessibilityManager
+    Data = (
+      (
+        'Component = lblUrgency'
+        'Status = stsDefault')
+      (
+        'Component = lblPlace'
+        'Status = stsDefault')
+      (
+        'Component = lblAttn'
+        'Status = stsDefault')
+      (
+        'Component = lblProvDiag'
+        'Status = stsDefault')
+      (
+        'Component = lblInpOutp'
+        'Status = stsDefault')
+      (
+        'Component = memReason'
+        'Status = stsDefault')
+      (
+        'Component = pnlMessage'
+        'Status = stsDefault')
+      (
+        'Component = memMessage'
+        'Status = stsDefault')
+      (
+        'Component = cboService'
+        'Status = stsDefault')
+      (
+        'Component = cboUrgency'
+        'Status = stsDefault')
+      (
+        'Component = radInpatient'
+        'Status = stsDefault')
+      (
+        'Component = radOutpatient'
+        'Status = stsDefault')
+      (
+        'Component = cboPlace'
+        'Status = stsDefault')
+      (
+        'Component = txtProvDiag'
+        'Status = stsDefault')
+      (
+        'Component = txtAttn'
+        'Status = stsDefault')
+      (
+        'Component = cboCategory'
+        'Status = stsDefault')
+      (
+        'Component = cmdAccept'
+        'Status = stsDefault')
+      (
+        'Component = cmdQuit'
+        'Status = stsDefault')
+      (
+        'Component = memComment'
+        'Status = stsDefault')
+      (
+        'Component = btnCmtCancel'
+        'Status = stsDefault')
+      (
+        'Component = btnCmtOther'
+        'Status = stsDefault')
+      (
+        'Component = cmdLexSearch'
+        'Status = stsDefault')
+      (
+        'Component = frmEditCslt'
+        'Status = stsDefault'))
   end
   object mnuPopProvDx: TPopupMenu