[830] | 1 | inherited frmPrintLocation: TfrmPrintLocation
|
---|
| 2 | Left = 293
|
---|
| 3 | Top = 250
|
---|
| 4 | Width = 450
|
---|
| 5 | Height = 472
|
---|
| 6 | AutoScroll = True
|
---|
| 7 | BorderIcons = []
|
---|
| 8 | Caption = 'Order Location'
|
---|
| 9 | Constraints.MinWidth = 440
|
---|
| 10 | OldCreateOrder = False
|
---|
| 11 | Position = poMainFormCenter
|
---|
| 12 | OnClose = FormClose
|
---|
| 13 | ExplicitWidth = 450
|
---|
| 14 | ExplicitHeight = 472
|
---|
| 15 | DesignSize = (
|
---|
| 16 | 442
|
---|
[1693] | 17 | 438)
|
---|
[830] | 18 | PixelsPerInch = 96
|
---|
| 19 | TextHeight = 13
|
---|
| 20 | object lblEncounter: TLabel [0]
|
---|
| 21 | Left = 0
|
---|
| 22 | Top = 379
|
---|
| 23 | Width = 280
|
---|
| 24 | Height = 13
|
---|
| 25 | Caption = 'Where would you like to continue processing patient data? '
|
---|
| 26 | end
|
---|
| 27 | object pnlTop: TPanel [1]
|
---|
| 28 | Left = 0
|
---|
| 29 | Top = 0
|
---|
| 30 | Width = 442
|
---|
| 31 | Height = 153
|
---|
| 32 | Anchors = [akLeft, akTop, akRight]
|
---|
| 33 | BevelOuter = bvNone
|
---|
| 34 | TabOrder = 0
|
---|
| 35 | object lblText: TLabel
|
---|
| 36 | Left = 8
|
---|
| 37 | Top = 16
|
---|
| 38 | Width = 3
|
---|
| 39 | Height = 13
|
---|
| 40 | end
|
---|
| 41 | object orpnlTopBottom: TORAutoPanel
|
---|
| 42 | Left = 0
|
---|
| 43 | Top = 112
|
---|
| 44 | Width = 442
|
---|
| 45 | Height = 41
|
---|
| 46 | Align = alBottom
|
---|
| 47 | BevelOuter = bvNone
|
---|
| 48 | TabOrder = 0
|
---|
| 49 | object btnClinic: TButton
|
---|
| 50 | Left = 145
|
---|
| 51 | Top = 8
|
---|
| 52 | Width = 75
|
---|
| 53 | Height = 25
|
---|
| 54 | Caption = 'All Clinic'
|
---|
| 55 | TabOrder = 0
|
---|
| 56 | OnClick = btnClinicClick
|
---|
| 57 | end
|
---|
| 58 | object btnWard: TButton
|
---|
| 59 | Left = 230
|
---|
| 60 | Top = 8
|
---|
| 61 | Width = 75
|
---|
| 62 | Height = 25
|
---|
| 63 | Caption = 'All Ward'
|
---|
| 64 | TabOrder = 1
|
---|
| 65 | OnClick = btnWardClick
|
---|
| 66 | end
|
---|
| 67 | end
|
---|
| 68 | end
|
---|
| 69 | object pnlBottom: TORAutoPanel [2]
|
---|
| 70 | Left = 0
|
---|
| 71 | Top = 159
|
---|
| 72 | Width = 442
|
---|
| 73 | Height = 210
|
---|
| 74 | TabOrder = 1
|
---|
| 75 | object orderGrid: TStringGrid
|
---|
| 76 | Left = 1
|
---|
| 77 | Top = 1
|
---|
| 78 | Width = 440
|
---|
| 79 | Height = 208
|
---|
| 80 | Align = alClient
|
---|
| 81 | ColCount = 3
|
---|
| 82 | Constraints.MinWidth = 440
|
---|
| 83 | DefaultRowHeight = 30
|
---|
| 84 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing]
|
---|
| 85 | ParentShowHint = False
|
---|
| 86 | ShowHint = True
|
---|
| 87 | TabOrder = 2
|
---|
| 88 | OnDrawCell = OrderGridDrawCell
|
---|
| 89 | OnKeyPress = orderGridKeyPress
|
---|
| 90 | OnMouseDown = orderGridMouseDown
|
---|
| 91 | end
|
---|
| 92 | object pnlOrder: TPanel
|
---|
| 93 | Left = 264
|
---|
| 94 | Top = 56
|
---|
| 95 | Width = 97
|
---|
| 96 | Height = 25
|
---|
| 97 | TabOrder = 0
|
---|
| 98 | Visible = False
|
---|
| 99 | end
|
---|
| 100 | object cbolocation: TORComboBox
|
---|
| 101 | Left = 240
|
---|
| 102 | Top = 104
|
---|
| 103 | Width = 121
|
---|
| 104 | Height = 21
|
---|
| 105 | Style = orcsDropDown
|
---|
| 106 | AutoSelect = True
|
---|
| 107 | Color = clWindow
|
---|
| 108 | DropDownCount = 8
|
---|
| 109 | ItemHeight = 13
|
---|
| 110 | ItemTipColor = clWindow
|
---|
| 111 | ItemTipEnable = True
|
---|
| 112 | ListItemsOnly = False
|
---|
| 113 | LongList = False
|
---|
| 114 | LookupPiece = 1
|
---|
| 115 | MaxLength = 0
|
---|
| 116 | Sorted = False
|
---|
| 117 | SynonymChars = '<>'
|
---|
| 118 | TabOrder = 1
|
---|
| 119 | Visible = False
|
---|
| 120 | OnChange = cbolocationChange
|
---|
| 121 | OnExit = cbolocationExit
|
---|
| 122 | CharsNeedMatch = 1
|
---|
| 123 | UniqueAutoComplete = True
|
---|
| 124 | end
|
---|
| 125 | end
|
---|
| 126 | object ORpnlBottom: TORAutoPanel [3]
|
---|
| 127 | Left = 0
|
---|
| 128 | Top = 404
|
---|
| 129 | Width = 442
|
---|
| 130 | Height = 41
|
---|
| 131 | BevelEdges = []
|
---|
| 132 | BevelOuter = bvNone
|
---|
| 133 | TabOrder = 3
|
---|
| 134 | object btnOK: TButton
|
---|
| 135 | Left = 187
|
---|
| 136 | Top = 3
|
---|
| 137 | Width = 75
|
---|
| 138 | Height = 25
|
---|
| 139 | Caption = 'OK'
|
---|
| 140 | TabOrder = 0
|
---|
| 141 | OnClick = btnOKClick
|
---|
| 142 | end
|
---|
| 143 | end
|
---|
| 144 | object cboEncLoc: TComboBox [4]
|
---|
| 145 | Left = 284
|
---|
| 146 | Top = 375
|
---|
| 147 | Width = 104
|
---|
| 148 | Height = 21
|
---|
| 149 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 150 | ItemHeight = 0
|
---|
| 151 | TabOrder = 2
|
---|
| 152 | end
|
---|
| 153 | inherited amgrMain: TVA508AccessibilityManager
|
---|
| 154 | Data = (
|
---|
| 155 | (
|
---|
| 156 | 'Component = pnlTop'
|
---|
| 157 | 'Status = stsDefault')
|
---|
| 158 | (
|
---|
| 159 | 'Component = orpnlTopBottom'
|
---|
| 160 | 'Status = stsDefault')
|
---|
| 161 | (
|
---|
| 162 | 'Component = btnClinic'
|
---|
| 163 | 'Status = stsDefault')
|
---|
| 164 | (
|
---|
| 165 | 'Component = btnWard'
|
---|
| 166 | 'Status = stsDefault')
|
---|
| 167 | (
|
---|
| 168 | 'Component = pnlBottom'
|
---|
| 169 | 'Status = stsDefault')
|
---|
| 170 | (
|
---|
| 171 | 'Component = orderGrid'
|
---|
| 172 | 'Status = stsDefault')
|
---|
| 173 | (
|
---|
| 174 | 'Component = pnlOrder'
|
---|
| 175 | 'Status = stsDefault')
|
---|
| 176 | (
|
---|
| 177 | 'Component = cbolocation'
|
---|
| 178 | 'Status = stsDefault')
|
---|
| 179 | (
|
---|
| 180 | 'Component = ORpnlBottom'
|
---|
| 181 | 'Status = stsDefault')
|
---|
| 182 | (
|
---|
| 183 | 'Component = btnOK'
|
---|
| 184 | 'Status = stsDefault')
|
---|
| 185 | (
|
---|
| 186 | 'Component = cboEncLoc'
|
---|
| 187 | 'Status = stsDefault')
|
---|
| 188 | (
|
---|
| 189 | 'Component = frmPrintLocation'
|
---|
| 190 | 'Status = stsDefault'))
|
---|
| 191 | end
|
---|
| 192 | end
|
---|