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