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
|
---|