source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.dfm@ 1707

Last change on this file since 1707 was 460, checked in by Kevin Toppenberg, 16 years ago

Uploading from OR_30_258

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