1 | inherited frmODMedIV: TfrmODMedIV
|
---|
2 | Left = 321
|
---|
3 | Top = 199
|
---|
4 | Width = 610
|
---|
5 | Height = 341
|
---|
6 | Caption = 'IV Fluid Order'
|
---|
7 | OnKeyDown = FormKeyDown
|
---|
8 | PixelsPerInch = 96
|
---|
9 | TextHeight = 13
|
---|
10 | object lblInfusionRate: TLabel [0]
|
---|
11 | Left = 6
|
---|
12 | Top = 196
|
---|
13 | Width = 63
|
---|
14 | Height = 13
|
---|
15 | Caption = 'Infusion Rate'
|
---|
16 | end
|
---|
17 | object lblPriority: TLabel [1]
|
---|
18 | Left = 134
|
---|
19 | Top = 196
|
---|
20 | Width = 31
|
---|
21 | Height = 13
|
---|
22 | Caption = 'Priority'
|
---|
23 | end
|
---|
24 | object lblComponent: TLabel [2]
|
---|
25 | Left = 214
|
---|
26 | Top = 6
|
---|
27 | Width = 81
|
---|
28 | Height = 13
|
---|
29 | Caption = 'Solution/Additive'
|
---|
30 | end
|
---|
31 | object lblAmount: TLabel [3]
|
---|
32 | Left = 333
|
---|
33 | Top = 6
|
---|
34 | Width = 74
|
---|
35 | Height = 13
|
---|
36 | Caption = 'Volume/Strenth'
|
---|
37 | WordWrap = True
|
---|
38 | end
|
---|
39 | object lblComments: TLabel [4]
|
---|
40 | Left = 214
|
---|
41 | Top = 106
|
---|
42 | Width = 49
|
---|
43 | Height = 13
|
---|
44 | Caption = 'Comments'
|
---|
45 | end
|
---|
46 | object lblLimit: TLabel [5]
|
---|
47 | Left = 230
|
---|
48 | Top = 196
|
---|
49 | Width = 117
|
---|
50 | Height = 13
|
---|
51 | Caption = 'Duration or Total Volume'
|
---|
52 | end
|
---|
53 | object Label1: TStaticText [6]
|
---|
54 | Left = 100
|
---|
55 | Top = 213
|
---|
56 | Width = 28
|
---|
57 | Height = 17
|
---|
58 | Caption = 'ml/hr'
|
---|
59 | TabOrder = 15
|
---|
60 | end
|
---|
61 | object cboAdditive: TORComboBox [7]
|
---|
62 | Left = 6
|
---|
63 | Top = 20
|
---|
64 | Width = 200
|
---|
65 | Height = 125
|
---|
66 | Style = orcsSimple
|
---|
67 | AutoSelect = True
|
---|
68 | Caption = 'Additives'
|
---|
69 | Color = clWindow
|
---|
70 | DropDownCount = 11
|
---|
71 | ItemHeight = 13
|
---|
72 | ItemTipColor = clWindow
|
---|
73 | ItemTipEnable = True
|
---|
74 | ListItemsOnly = True
|
---|
75 | LongList = True
|
---|
76 | LookupPiece = 0
|
---|
77 | MaxLength = 0
|
---|
78 | Pieces = '2'
|
---|
79 | Sorted = False
|
---|
80 | SynonymChars = '<>'
|
---|
81 | TabPositions = '20'
|
---|
82 | TabOrder = 0
|
---|
83 | OnExit = cboAdditiveExit
|
---|
84 | OnMouseClick = cboAdditiveMouseClick
|
---|
85 | OnNeedData = cboAdditiveNeedData
|
---|
86 | CharsNeedMatch = 1
|
---|
87 | end
|
---|
88 | object tabFluid: TTabControl [8]
|
---|
89 | Left = 7
|
---|
90 | Top = 3
|
---|
91 | Width = 200
|
---|
92 | Height = 21
|
---|
93 | TabHeight = 15
|
---|
94 | TabOrder = 13
|
---|
95 | Tabs.Strings = (
|
---|
96 | ' Solutions '
|
---|
97 | ' Additives ')
|
---|
98 | TabIndex = 0
|
---|
99 | TabStop = False
|
---|
100 | OnChange = tabFluidChange
|
---|
101 | end
|
---|
102 | inherited memOrder: TCaptionMemo
|
---|
103 | Top = 255
|
---|
104 | Width = 475
|
---|
105 | TabOrder = 11
|
---|
106 | end
|
---|
107 | object txtRate: TCaptionEdit [10]
|
---|
108 | Left = 6
|
---|
109 | Top = 210
|
---|
110 | Width = 91
|
---|
111 | Height = 21
|
---|
112 | AutoSelect = False
|
---|
113 | TabOrder = 6
|
---|
114 | OnChange = ControlChange
|
---|
115 | Caption = 'Infusion Rate'
|
---|
116 | end
|
---|
117 | object cboPriority: TORComboBox [11]
|
---|
118 | Left = 134
|
---|
119 | Top = 210
|
---|
120 | Width = 72
|
---|
121 | Height = 21
|
---|
122 | Style = orcsDropDown
|
---|
123 | AutoSelect = True
|
---|
124 | Caption = 'Priority'
|
---|
125 | Color = clWindow
|
---|
126 | DropDownCount = 8
|
---|
127 | ItemHeight = 13
|
---|
128 | ItemTipColor = clWindow
|
---|
129 | ItemTipEnable = True
|
---|
130 | ListItemsOnly = False
|
---|
131 | LongList = False
|
---|
132 | LookupPiece = 0
|
---|
133 | MaxLength = 0
|
---|
134 | Pieces = '2'
|
---|
135 | Sorted = False
|
---|
136 | SynonymChars = '<>'
|
---|
137 | TabOrder = 7
|
---|
138 | OnChange = ControlChange
|
---|
139 | CharsNeedMatch = 1
|
---|
140 | end
|
---|
141 | object grdSelected: TCaptionStringGrid [12]
|
---|
142 | Left = 214
|
---|
143 | Top = 20
|
---|
144 | Width = 384
|
---|
145 | Height = 76
|
---|
146 | ColCount = 3
|
---|
147 | DefaultColWidth = 100
|
---|
148 | DefaultRowHeight = 19
|
---|
149 | FixedCols = 0
|
---|
150 | RowCount = 1
|
---|
151 | FixedRows = 0
|
---|
152 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
|
---|
153 | ScrollBars = ssVertical
|
---|
154 | TabOrder = 3
|
---|
155 | OnDrawCell = grdSelectedDrawCell
|
---|
156 | OnKeyPress = grdSelectedKeyPress
|
---|
157 | OnMouseDown = grdSelectedMouseDown
|
---|
158 | Caption = 'Selected Solution and Additives'
|
---|
159 | end
|
---|
160 | object cmdRemove: TButton [13]
|
---|
161 | Left = 443
|
---|
162 | Top = 99
|
---|
163 | Width = 72
|
---|
164 | Height = 18
|
---|
165 | Caption = 'Remove'
|
---|
166 | TabOrder = 4
|
---|
167 | OnClick = cmdRemoveClick
|
---|
168 | end
|
---|
169 | object memComments: TCaptionMemo [14]
|
---|
170 | Left = 214
|
---|
171 | Top = 120
|
---|
172 | Width = 384
|
---|
173 | Height = 66
|
---|
174 | Lines.Strings = (
|
---|
175 | 'memComments')
|
---|
176 | ScrollBars = ssVertical
|
---|
177 | TabOrder = 5
|
---|
178 | OnChange = ControlChange
|
---|
179 | Caption = 'Comments'
|
---|
180 | end
|
---|
181 | object txtSelected: TCaptionEdit [15]
|
---|
182 | Tag = -1
|
---|
183 | Left = 416
|
---|
184 | Top = 44
|
---|
185 | Width = 45
|
---|
186 | Height = 19
|
---|
187 | Ctl3D = False
|
---|
188 | ParentCtl3D = False
|
---|
189 | TabOrder = 1
|
---|
190 | Text = 'meq.'
|
---|
191 | Visible = False
|
---|
192 | OnChange = txtSelectedChange
|
---|
193 | OnExit = txtSelectedExit
|
---|
194 | Caption = 'Volume'
|
---|
195 | end
|
---|
196 | object cboSelected: TCaptionComboBox [16]
|
---|
197 | Tag = -1
|
---|
198 | Left = 460
|
---|
199 | Top = 44
|
---|
200 | Width = 53
|
---|
201 | Height = 21
|
---|
202 | Style = csDropDownList
|
---|
203 | Ctl3D = False
|
---|
204 | ItemHeight = 13
|
---|
205 | ParentCtl3D = False
|
---|
206 | TabOrder = 2
|
---|
207 | Visible = False
|
---|
208 | OnChange = cboSelectedChange
|
---|
209 | OnExit = cboSelectedExit
|
---|
210 | Caption = 'Volume/Strength'
|
---|
211 | end
|
---|
212 | inherited cmdAccept: TButton
|
---|
213 | Left = 495
|
---|
214 | Top = 255
|
---|
215 | TabOrder = 9
|
---|
216 | end
|
---|
217 | inherited cmdQuit: TButton
|
---|
218 | Left = 495
|
---|
219 | Top = 282
|
---|
220 | TabOrder = 10
|
---|
221 | end
|
---|
222 | inherited pnlMessage: TPanel
|
---|
223 | Top = 237
|
---|
224 | TabOrder = 12
|
---|
225 | end
|
---|
226 | object cboSolution: TORComboBox
|
---|
227 | Left = 6
|
---|
228 | Top = 19
|
---|
229 | Width = 200
|
---|
230 | Height = 164
|
---|
231 | Style = orcsSimple
|
---|
232 | AutoSelect = True
|
---|
233 | Caption = 'Solutions'
|
---|
234 | Color = clWindow
|
---|
235 | DropDownCount = 11
|
---|
236 | ItemHeight = 13
|
---|
237 | ItemTipColor = clWindow
|
---|
238 | ItemTipEnable = True
|
---|
239 | ListItemsOnly = True
|
---|
240 | LongList = True
|
---|
241 | LookupPiece = 0
|
---|
242 | MaxLength = 0
|
---|
243 | Pieces = '2'
|
---|
244 | Sorted = False
|
---|
245 | SynonymChars = '<>'
|
---|
246 | TabPositions = '20'
|
---|
247 | TabOrder = 14
|
---|
248 | OnExit = cboSolutionExit
|
---|
249 | OnMouseClick = cboSolutionMouseClick
|
---|
250 | OnNeedData = cboSolutionNeedData
|
---|
251 | CharsNeedMatch = 1
|
---|
252 | end
|
---|
253 | object pnlXDuration: TPanel
|
---|
254 | Left = 229
|
---|
255 | Top = 210
|
---|
256 | Width = 121
|
---|
257 | Height = 21
|
---|
258 | BevelOuter = bvNone
|
---|
259 | TabOrder = 8
|
---|
260 | OnEnter = pnlXDurationEnter
|
---|
261 | DesignSize = (
|
---|
262 | 121
|
---|
263 | 21)
|
---|
264 | object btnXDuration: TSpeedButton
|
---|
265 | Left = 69
|
---|
266 | Top = 1
|
---|
267 | Width = 50
|
---|
268 | Height = 20
|
---|
269 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
270 | Caption = 'days'
|
---|
271 | Glyph.Data = {
|
---|
272 | AE000000424DAE0000000000000076000000280000000E000000070000000100
|
---|
273 | 0400000000003800000000000000000000001000000000000000000000000000
|
---|
274 | 8000008000000080800080000000800080008080000080808000C0C0C0000000
|
---|
275 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
|
---|
276 | 330033333333333333003330333333733300330003333F87330030000033FFFF
|
---|
277 | F30033333333333333003333333333333300}
|
---|
278 | Layout = blGlyphRight
|
---|
279 | NumGlyphs = 2
|
---|
280 | Spacing = 0
|
---|
281 | Transparent = False
|
---|
282 | OnClick = btnXDurationClick
|
---|
283 | end
|
---|
284 | object txtXDuration: TCaptionEdit
|
---|
285 | Left = 0
|
---|
286 | Top = 0
|
---|
287 | Width = 68
|
---|
288 | Height = 21
|
---|
289 | TabOrder = 0
|
---|
290 | OnChange = txtXDurationChange
|
---|
291 | OnExit = txtXDurationExit
|
---|
292 | Caption = 'Duration'
|
---|
293 | end
|
---|
294 | end
|
---|
295 | object popDuration: TPopupMenu
|
---|
296 | AutoHotkeys = maManual
|
---|
297 | Left = 387
|
---|
298 | Top = 91
|
---|
299 | object popL: TMenuItem
|
---|
300 | Tag = 1
|
---|
301 | Caption = 'L'
|
---|
302 | OnClick = popDurationClick
|
---|
303 | end
|
---|
304 | object popML: TMenuItem
|
---|
305 | Tag = 2
|
---|
306 | Caption = 'ml'
|
---|
307 | OnClick = popDurationClick
|
---|
308 | end
|
---|
309 | object popDays: TMenuItem
|
---|
310 | Tag = 3
|
---|
311 | Caption = 'days'
|
---|
312 | OnClick = popDurationClick
|
---|
313 | end
|
---|
314 | object popHours: TMenuItem
|
---|
315 | Tag = 4
|
---|
316 | Caption = 'hours'
|
---|
317 | OnClick = popDurationClick
|
---|
318 | end
|
---|
319 | end
|
---|
320 | end
|
---|