Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm (modified) (24 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm

@@ -1 +1 @@
 inherited frmODCslt: TfrmODCslt
   Tag = 110
-  Left = 377
-  Top = 11
-  Width = 536
-  Height = 321
-  HorzScrollBar.Range = 528
-  HorzScrollBar.Visible = True
-  VertScrollBar.Range = 294
-  VertScrollBar.Visible = True
-  AutoScroll = False
+  Left = 430
+  Top = 203
+  Width = 606
+  Height = 376
+  HorzScrollBar.Range = 590
+  VertScrollBar.Range = 340
   Caption = 'Order a Consult'
+  Constraints.MinHeight = 376
+  Constraints.MinWidth = 606
   Font.Charset = ANSI_CHARSET
   PixelsPerInch = 96
@@ -23 +22 @@
   object pnlReason: TPanel [1]
     Left = 3
-    Top = 117
-    Width = 516
-    Height = 132
-    Anchors = [akLeft, akTop, akRight, akBottom]
+    Top = 154
+    Width = 585
+    Height = 135
+    Anchors = [akLeft, akTop, akRight]
     BevelOuter = bvNone
     TabOrder = 11
@@ -32 +31 @@
       Left = 0
       Top = 0
-      Width = 516
+      Width = 585
       Height = 13
       Align = alTop
@@ -40 +39 @@
       Left = 0
       Top = 13
-      Width = 516
-      Height = 119
+      Width = 585
+      Height = 122
       Align = alClient
       Font.Charset = ANSI_CHARSET
@@ -48 +47 @@
       Font.Name = 'Courier New'
       Font.Style = []
+      Constraints.MinHeight = 40
       ParentFont = False
       PopupMenu = popReason
@@ -61 +61 @@
   end
   object lblUrgency: TStaticText [2]
-    Left = 239
+    Left = 309
     Top = 2
     Width = 44
@@ -70 +70 @@
   end
   object lblPlace: TStaticText [3]
-    Left = 384
+    Left = 454
     Top = 43
     Width = 104
@@ -79 +79 @@
   end
   object lblAttn: TStaticText [4]
-    Left = 384
+    Left = 454
     Top = 2
     Width = 46
@@ -88 +88 @@
   end
   object lblProvDiag: TStaticText [5]
-    Left = 239
+    Left = 309
     Top = 81
     Width = 104
@@ -98 +98 @@
   inherited memOrder: TCaptionMemo
     Left = 3
-    Top = 255
-    Width = 347
-    Height = 36
-    Anchors = [akLeft, akRight, akBottom]
+    Top = 305
+    Width = 417
+    Height = 41
     Lines.Strings = (
       'The order text...'
@@ -110 +109 @@
   end
   inherited cmdAccept: TButton
-    Left = 357
-    Top = 265
-    Anchors = [akRight, akBottom]
+    Left = 427
+    Top = 315
     TabOrder = 12
   end
   inherited cmdQuit: TButton
-    Left = 453
-    Top = 265
+    Left = 531
+    Top = 315
     Width = 61
-    Anchors = [akRight, akBottom]
     TabOrder = 13
   end
   inherited pnlMessage: TPanel
-    Left = 61
-    Top = 245
-    Width = 277
+    Left = 13
+    Top = 295
+    Width = 377
     Anchors = [akLeft, akRight, akBottom]
     TabOrder = 14
     inherited memMessage: TRichEdit
-      Width = 227
+      Width = 292
     end
   end
@@ -135 +132 @@
     Left = 0
     Top = 16
-    Width = 204
-    Height = 73
+    Width = 274
+    Height = 113
     Anchors = [akLeft, akTop, akRight]
     Style = orcsSimple
@@ -156 +153 @@
     OnChange = ControlChange
     OnClick = cboServiceSelect
+    OnExit = cboServiceExit
     OnKeyDown = cboServiceKeyDown
     OnKeyUp = cboServiceKeyUp
@@ -161 +159 @@
   end
   object cboUrgency: TORComboBox
-    Left = 239
+    Left = 309
     Top = 16
     Width = 133
@@ -187 +185 @@
   end
   object cboPlace: TORComboBox
-    Left = 384
+    Left = 454
     Top = 56
     Width = 136
@@ -212 +210 @@
   end
   object txtProvDiag: TCaptionEdit
-    Left = 239
+    Left = 309
     Top = 94
     Width = 231
     Height = 21
     Anchors = [akTop, akRight]
+    MaxLength = 180
     ParentShowHint = False
     PopupMenu = mnuPopProvDx
@@ -225 +224 @@
   end
   object txtAttn: TORComboBox
-    Left = 384
+    Left = 454
     Top = 16
     Width = 136
@@ -252 +251 @@
   object treService: TORTreeView
     Left = 0
-    Top = 37
-    Width = 228
-    Height = 201
+    Top = 38
+    Width = 298
+    Height = 220
     Anchors = [akLeft, akTop, akRight, akBottom]
     Font.Charset = DEFAULT_CHARSET
@@ -299 +298 @@
   end
   object pnlServiceTreeButton: TKeyClickPanel
-    Left = 204
+    Left = 274
     Top = 14
-    Width = 25
-    Height = 24
+    Width = 26
+    Height = 26
     Hint = 'View services/specialties hierarchically'
     Anchors = [akTop, akRight]
     BevelOuter = bvNone
+    BevelWidth = 2
     Caption = 'View services/specialties hierarchically'
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clBtnFace
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
     TabOrder = 2
     TabStop = True
@@ -313 +319 @@
     OnExit = pnlServiceTreeButtonExit
     object btnServiceTree: TSpeedButton
-      Left = 1
-      Top = 1
-      Width = 23
+      Left = 2
+      Top = 2
+      Width = 22
       Height = 22
       Glyph.Data = {
@@ -360 +366 @@
         FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
         FFFFFFFFFFFFFFFFFFFF}
+      Margin = 0
       OnClick = btnServiceTreeClick
     end
   end
   object cmdLexSearch: TButton
-    Left = 473
-    Top = 96
+    Left = 543
+    Top = 94
     Width = 49
-    Height = 17
+    Height = 21
     Anchors = [akTop, akRight]
     Caption = 'Lexicon'
@@ -374 +381 @@
   end
   object gbInptOpt: TGroupBox
-    Left = 239
+    Left = 309
     Top = 35
     Width = 140
@@ -401 +408 @@
   end
   object btnDiagnosis: TButton
-    Left = 473
+    Left = 543
     Top = 95
-    Width = 52
+    Width = 49
     Height = 20
     Anchors = [akTop, akRight]
@@ -421 +428 @@
     OnPopup = popReasonPopup
     Left = 411
-    Top = 169
+    Top = 188
     object popReasonCut: TMenuItem
       Caption = 'Cu&t'