| 1 | inherited frmODMedComplex: TfrmODMedComplex
|
|---|
| 2 | Left = 291
|
|---|
| 3 | Top = 307
|
|---|
| 4 | BorderIcons = []
|
|---|
| 5 | Caption = 'Complex Dose'
|
|---|
| 6 | ClientHeight = 227
|
|---|
| 7 | ClientWidth = 445
|
|---|
| 8 | Position = poScreenCenter
|
|---|
| 9 | OnCreate = FormCreate
|
|---|
| 10 | ExplicitWidth = 453
|
|---|
| 11 | ExplicitHeight = 254
|
|---|
| 12 | PixelsPerInch = 96
|
|---|
| 13 | TextHeight = 13
|
|---|
| 14 | object Bevel1: TBevel [0]
|
|---|
| 15 | Left = 6
|
|---|
| 16 | Top = 174
|
|---|
| 17 | Width = 433
|
|---|
| 18 | Height = 2
|
|---|
| 19 | end
|
|---|
| 20 | object grdDoses: TStringGrid [1]
|
|---|
| 21 | Left = 6
|
|---|
| 22 | Top = 6
|
|---|
| 23 | Width = 433
|
|---|
| 24 | Height = 135
|
|---|
| 25 | DefaultColWidth = 78
|
|---|
| 26 | DefaultRowHeight = 21
|
|---|
| 27 | RowCount = 6
|
|---|
| 28 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs]
|
|---|
| 29 | ScrollBars = ssVertical
|
|---|
| 30 | TabOrder = 4
|
|---|
| 31 | OnDrawCell = grdDosesDrawCell
|
|---|
| 32 | OnKeyPress = grdDosesKeyPress
|
|---|
| 33 | OnMouseDown = grdDosesMouseDown
|
|---|
| 34 | OnMouseUp = grdDosesMouseUp
|
|---|
| 35 | RowHeights = (
|
|---|
| 36 | 21
|
|---|
| 37 | 21
|
|---|
| 38 | 21
|
|---|
| 39 | 21
|
|---|
| 40 | 21
|
|---|
| 41 | 21)
|
|---|
| 42 | end
|
|---|
| 43 | object cmdOK: TButton [2]
|
|---|
| 44 | Left = 290
|
|---|
| 45 | Top = 184
|
|---|
| 46 | Width = 72
|
|---|
| 47 | Height = 21
|
|---|
| 48 | Caption = 'OK'
|
|---|
| 49 | TabOrder = 5
|
|---|
| 50 | OnClick = cmdOKClick
|
|---|
| 51 | end
|
|---|
| 52 | object cmdCancel: TButton [3]
|
|---|
| 53 | Left = 368
|
|---|
| 54 | Top = 184
|
|---|
| 55 | Width = 72
|
|---|
| 56 | Height = 21
|
|---|
| 57 | Caption = 'Cancel'
|
|---|
| 58 | TabOrder = 6
|
|---|
| 59 | OnClick = cmdCancelClick
|
|---|
| 60 | end
|
|---|
| 61 | object cboRoute: TORComboBox [4]
|
|---|
| 62 | Left = 170
|
|---|
| 63 | Top = 200
|
|---|
| 64 | Width = 72
|
|---|
| 65 | Height = 21
|
|---|
| 66 | Style = orcsDropDown
|
|---|
| 67 | AutoSelect = False
|
|---|
| 68 | Color = clWindow
|
|---|
| 69 | DropDownCount = 8
|
|---|
| 70 | ItemHeight = 13
|
|---|
| 71 | ItemTipColor = clWindow
|
|---|
| 72 | ItemTipEnable = True
|
|---|
| 73 | ListItemsOnly = False
|
|---|
| 74 | LongList = False
|
|---|
| 75 | LookupPiece = 0
|
|---|
| 76 | MaxLength = 0
|
|---|
| 77 | Pieces = '2'
|
|---|
| 78 | Sorted = False
|
|---|
| 79 | SynonymChars = '<>'
|
|---|
| 80 | TabOrder = 1
|
|---|
| 81 | Visible = False
|
|---|
| 82 | OnClick = cboRouteClick
|
|---|
| 83 | OnExit = cboRouteExit
|
|---|
| 84 | CharsNeedMatch = 1
|
|---|
| 85 | end
|
|---|
| 86 | object cboSchedule: TORComboBox [5]
|
|---|
| 87 | Left = 169
|
|---|
| 88 | Top = 176
|
|---|
| 89 | Width = 72
|
|---|
| 90 | Height = 21
|
|---|
| 91 | Style = orcsDropDown
|
|---|
| 92 | AutoSelect = False
|
|---|
| 93 | Color = clWindow
|
|---|
| 94 | DropDownCount = 8
|
|---|
| 95 | ItemHeight = 13
|
|---|
| 96 | ItemTipColor = clWindow
|
|---|
| 97 | ItemTipEnable = True
|
|---|
| 98 | ListItemsOnly = False
|
|---|
| 99 | LongList = False
|
|---|
| 100 | LookupPiece = 0
|
|---|
| 101 | MaxLength = 0
|
|---|
| 102 | Sorted = False
|
|---|
| 103 | SynonymChars = '<>'
|
|---|
| 104 | TabOrder = 2
|
|---|
| 105 | Visible = False
|
|---|
| 106 | OnExit = cboScheduleExit
|
|---|
| 107 | CharsNeedMatch = 1
|
|---|
| 108 | end
|
|---|
| 109 | object pnlInstruct: TPanel [6]
|
|---|
| 110 | Left = 6
|
|---|
| 111 | Top = 177
|
|---|
| 112 | Width = 150
|
|---|
| 113 | Height = 21
|
|---|
| 114 | BevelOuter = bvNone
|
|---|
| 115 | TabOrder = 0
|
|---|
| 116 | Visible = False
|
|---|
| 117 | OnEnter = pnlInstructEnter
|
|---|
| 118 | OnExit = pnlInstructExit
|
|---|
| 119 | object btnUnits: TSpeedButton
|
|---|
| 120 | Left = 86
|
|---|
| 121 | Top = 1
|
|---|
| 122 | Width = 63
|
|---|
| 123 | Height = 15
|
|---|
| 124 | Caption = 'TABLET(S)'
|
|---|
| 125 | Flat = True
|
|---|
| 126 | Glyph.Data = {
|
|---|
| 127 | AE000000424DAE0000000000000076000000280000000E000000070000000100
|
|---|
| 128 | 0400000000003800000000000000000000001000000010000000000000000000
|
|---|
| 129 | 8000008000000080800080000000800080008080000080808000C0C0C0000000
|
|---|
| 130 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
|
|---|
| 131 | 330033333333333333003330333333733300330003333F87330030000033FFFF
|
|---|
| 132 | F30033333333333333003333333333333300}
|
|---|
| 133 | Layout = blGlyphRight
|
|---|
| 134 | NumGlyphs = 2
|
|---|
| 135 | Spacing = 0
|
|---|
| 136 | OnClick = btnUnitsClick
|
|---|
| 137 | end
|
|---|
| 138 | object cboInstruct: TORComboBox
|
|---|
| 139 | Left = -1
|
|---|
| 140 | Top = -1
|
|---|
| 141 | Width = 86
|
|---|
| 142 | Height = 21
|
|---|
| 143 | Style = orcsDropDown
|
|---|
| 144 | AutoSelect = False
|
|---|
| 145 | Color = clWindow
|
|---|
| 146 | DropDownCount = 8
|
|---|
| 147 | ItemHeight = 13
|
|---|
| 148 | ItemTipColor = clWindow
|
|---|
| 149 | ItemTipEnable = True
|
|---|
| 150 | ListItemsOnly = False
|
|---|
| 151 | LongList = False
|
|---|
| 152 | LookupPiece = 0
|
|---|
| 153 | MaxLength = 80
|
|---|
| 154 | Sorted = False
|
|---|
| 155 | SynonymChars = '<>'
|
|---|
| 156 | TabOrder = 0
|
|---|
| 157 | CharsNeedMatch = 1
|
|---|
| 158 | end
|
|---|
| 159 | end
|
|---|
| 160 | object pnlDays: TPanel [7]
|
|---|
| 161 | Left = 6
|
|---|
| 162 | Top = 201
|
|---|
| 163 | Width = 67
|
|---|
| 164 | Height = 21
|
|---|
| 165 | BevelOuter = bvNone
|
|---|
| 166 | TabOrder = 3
|
|---|
| 167 | Visible = False
|
|---|
| 168 | OnEnter = pnlDaysEnter
|
|---|
| 169 | OnExit = pnlDaysExit
|
|---|
| 170 | object Label1: TLabel
|
|---|
| 171 | Left = 43
|
|---|
| 172 | Top = 4
|
|---|
| 173 | Width = 22
|
|---|
| 174 | Height = 13
|
|---|
| 175 | Caption = 'days'
|
|---|
| 176 | end
|
|---|
| 177 | object txtDays: TCaptionEdit
|
|---|
| 178 | Left = 0
|
|---|
| 179 | Top = 0
|
|---|
| 180 | Width = 25
|
|---|
| 181 | Height = 21
|
|---|
| 182 | AutoSelect = False
|
|---|
| 183 | TabOrder = 0
|
|---|
| 184 | Text = '0'
|
|---|
| 185 | OnChange = txtDaysChange
|
|---|
| 186 | Caption = 'days'
|
|---|
| 187 | end
|
|---|
| 188 | object UpDown2: TUpDown
|
|---|
| 189 | Left = 25
|
|---|
| 190 | Top = 0
|
|---|
| 191 | Width = 15
|
|---|
| 192 | Height = 21
|
|---|
| 193 | Associate = txtDays
|
|---|
| 194 | Max = 999
|
|---|
| 195 | TabOrder = 1
|
|---|
| 196 | end
|
|---|
| 197 | end
|
|---|
| 198 | object cmdInsert: TButton [8]
|
|---|
| 199 | Left = 6
|
|---|
| 200 | Top = 149
|
|---|
| 201 | Width = 79
|
|---|
| 202 | Height = 17
|
|---|
| 203 | Caption = 'Insert Row'
|
|---|
| 204 | TabOrder = 7
|
|---|
| 205 | OnClick = cmdInsertClick
|
|---|
| 206 | end
|
|---|
| 207 | object cmdRemove: TButton [9]
|
|---|
| 208 | Left = 92
|
|---|
| 209 | Top = 149
|
|---|
| 210 | Width = 91
|
|---|
| 211 | Height = 17
|
|---|
| 212 | Caption = 'Remove Row'
|
|---|
| 213 | TabOrder = 8
|
|---|
| 214 | OnClick = cmdRemoveClick
|
|---|
| 215 | end
|
|---|
| 216 | inherited amgrMain: TVA508AccessibilityManager
|
|---|
| 217 | Data = (
|
|---|
| 218 | (
|
|---|
| 219 | 'Component = grdDoses'
|
|---|
| 220 | 'Status = stsDefault')
|
|---|
| 221 | (
|
|---|
| 222 | 'Component = cmdOK'
|
|---|
| 223 | 'Status = stsDefault')
|
|---|
| 224 | (
|
|---|
| 225 | 'Component = cmdCancel'
|
|---|
| 226 | 'Status = stsDefault')
|
|---|
| 227 | (
|
|---|
| 228 | 'Component = cboRoute'
|
|---|
| 229 | 'Status = stsDefault')
|
|---|
| 230 | (
|
|---|
| 231 | 'Component = cboSchedule'
|
|---|
| 232 | 'Status = stsDefault')
|
|---|
| 233 | (
|
|---|
| 234 | 'Component = pnlInstruct'
|
|---|
| 235 | 'Status = stsDefault')
|
|---|
| 236 | (
|
|---|
| 237 | 'Component = cboInstruct'
|
|---|
| 238 | 'Status = stsDefault')
|
|---|
| 239 | (
|
|---|
| 240 | 'Component = pnlDays'
|
|---|
| 241 | 'Status = stsDefault')
|
|---|
| 242 | (
|
|---|
| 243 | 'Component = txtDays'
|
|---|
| 244 | 'Status = stsDefault')
|
|---|
| 245 | (
|
|---|
| 246 | 'Component = UpDown2'
|
|---|
| 247 | 'Status = stsDefault')
|
|---|
| 248 | (
|
|---|
| 249 | 'Component = cmdInsert'
|
|---|
| 250 | 'Status = stsDefault')
|
|---|
| 251 | (
|
|---|
| 252 | 'Component = cmdRemove'
|
|---|
| 253 | 'Status = stsDefault')
|
|---|
| 254 | (
|
|---|
| 255 | 'Component = frmODMedComplex'
|
|---|
| 256 | 'Status = stsDefault'))
|
|---|
| 257 | end
|
|---|
| 258 | object popUnits: TPopupMenu
|
|---|
| 259 | AutoPopup = False
|
|---|
| 260 | Left = 109
|
|---|
| 261 | Top = 193
|
|---|
| 262 | end
|
|---|
| 263 | end
|
|---|