source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMedIV.dfm

Last change on this file was 793, checked in by Kevin Toppenberg, 15 years ago

update
File size: 9.3 KB
Line 
1inherited frmODMedIV: TfrmODMedIV
2 Left = 414
3 Top = 331
4 Width = 610
5 Height = 341
6 Caption = 'Infusion Order'
7 OnKeyDown = FormKeyDown
8 PixelsPerInch = 96
9 TextHeight = 13
10 object lblInfusionRate: TLabel [0]
11 Left = 6
12 Top = 196
13 Width = 96
14 Height = 13
15 Caption = 'Infusion Rate (ml/hr)'
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 = 328
33 Top = 6
34 Width = 80
35 Height = 13
36 Caption = 'Volume/Strength'
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 txtRate: TCaptionEdit [6]
54 Left = 6
55 Top = 210
56 Width = 91
57 Height = 21
58 AutoSelect = False
59 TabOrder = 5
60 OnChange = ControlChange
61 OnExit = txtRateExit
62 Caption = 'Infusion Rate'
63 end
64 object cboPriority: TORComboBox [7]
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 = '<>'
84 TabOrder = 6
85 OnChange = ControlChange
86 CharsNeedMatch = 1
87 end
88 object grdSelected: TCaptionStringGrid [8]
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
101 TabOrder = 2
102 OnDrawCell = grdSelectedDrawCell
103 OnKeyPress = grdSelectedKeyPress
104 OnMouseDown = grdSelectedMouseDown
105 Caption = 'Selected Solution and Additives'
106 end
107 object cmdRemove: TButton [9]
108 Left = 443
109 Top = 99
110 Width = 72
111 Height = 18
112 Caption = 'Remove'
113 TabOrder = 3
114 OnClick = cmdRemoveClick
115 end
116 object memComments: TCaptionMemo [10]
117 Left = 214
118 Top = 120
119 Width = 384
120 Height = 66
121 Lines.Strings = (
122 'memComments')
123 ScrollBars = ssVertical
124 TabOrder = 4
125 OnChange = ControlChange
126 Caption = 'Comments'
127 end
128 object txtSelected: TCaptionEdit [11]
129 Tag = -1
130 Left = 416
131 Top = 44
132 Width = 45
133 Height = 19
134 Ctl3D = False
135 ParentCtl3D = False
136 TabOrder = 0
137 Text = 'meq.'
138 Visible = False
139 OnChange = txtSelectedChange
140 OnExit = txtSelectedExit
141 Caption = 'Volume'
142 end
143 object cboSelected: TCaptionComboBox [12]
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
153 TabOrder = 1
154 Visible = False
155 OnChange = cboSelectedChange
156 OnExit = cboSelectedExit
157 Caption = 'Volume/Strength'
158 end
159 inherited memOrder: TCaptionMemo
160 Top = 255
161 Width = 475
162 TabOrder = 10
163 end
164 object pnlXDuration: TPanel [14]
165 Left = 229
166 Top = 210
167 Width = 121
168 Height = 21
169 BevelOuter = bvNone
170 TabOrder = 7
171 OnEnter = pnlXDurationEnter
172 DesignSize = (
173 121
174 21)
175 object btnXDuration: TBitBtn
176 Left = 69
177 Top = 1
178 Width = 50
179 Height = 20
180 Anchors = [akLeft, akTop, akRight, akBottom]
181 Caption = 'days'
182 TabOrder = 1
183 OnClick = btnXDurationClick
184 Glyph.Data = {
185 AE000000424DAE0000000000000076000000280000000E000000070000000100
186 0400000000003800000000000000000000001000000000000000000000000000
187 8000008000000080800080000000800080008080000080808000C0C0C0000000
188 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
189 330033333333333333003330333333733300330003333F87330030000033FFFF
190 F30033333333333333003333333333333300}
191 Layout = blGlyphRight
192 NumGlyphs = 2
193 Spacing = 0
194 end
195 object txtXDuration: TCaptionEdit
196 Left = 0
197 Top = 0
198 Width = 68
199 Height = 21
200 TabOrder = 0
201 OnChange = txtXDurationChange
202 OnExit = txtXDurationExit
203 Caption = 'Duration'
204 end
205 end
206 object pnlCombo: TPanel [15]
207 Left = 8
208 Top = 1
209 Width = 200
210 Height = 185
211 BevelOuter = bvNone
212 TabOrder = 17
213 object cboAdditive: TORComboBox
214 Left = 0
215 Top = 20
216 Width = 200
217 Height = 165
218 Style = orcsSimple
219 Align = alClient
220 AutoSelect = True
221 Caption = 'Additives'
222 Color = clWindow
223 DropDownCount = 11
224 ItemHeight = 13
225 ItemTipColor = clWindow
226 ItemTipEnable = True
227 ListItemsOnly = True
228 LongList = True
229 LookupPiece = 0
230 MaxLength = 0
231 Pieces = '2'
232 Sorted = False
233 SynonymChars = '<>'
234 TabPositions = '20'
235 TabOrder = 0
236 OnExit = cboAdditiveExit
237 OnMouseClick = cboAdditiveMouseClick
238 OnNeedData = cboAdditiveNeedData
239 CharsNeedMatch = 1
240 end
241 object tabFluid: TTabControl
242 Left = 0
243 Top = 0
244 Width = 200
245 Height = 20
246 Align = alTop
247 TabHeight = 15
248 TabOrder = 1
249 Tabs.Strings = (
250 ' Solutions '
251 ' Additives ')
252 TabIndex = 0
253 TabStop = False
254 OnChange = tabFluidChange
255 end
256 object cboSolution: TORComboBox
257 Left = 0
258 Top = 20
259 Width = 200
260 Height = 165
261 Style = orcsSimple
262 Align = alClient
263 AutoSelect = True
264 Caption = 'Solutions'
265 Color = clWindow
266 DropDownCount = 11
267 ItemHeight = 13
268 ItemTipColor = clWindow
269 ItemTipEnable = True
270 ListItemsOnly = True
271 LongList = True
272 LookupPiece = 0
273 MaxLength = 0
274 Pieces = '2'
275 Sorted = False
276 SynonymChars = '<>'
277 TabPositions = '20'
278 TabOrder = 2
279 OnExit = cboSolutionExit
280 OnMouseClick = cboSolutionMouseClick
281 OnNeedData = cboSolutionNeedData
282 CharsNeedMatch = 1
283 end
284 end
285 inherited cmdAccept: TButton
286 Left = 495
287 Top = 255
288 TabOrder = 8
289 end
290 inherited cmdQuit: TButton
291 Left = 495
292 Top = 282
293 TabOrder = 9
294 end
295 inherited pnlMessage: TPanel
296 Top = 237
297 TabOrder = 11
298 end
299 inherited DKLanguageController1: TDKLanguageController
300 LangData = {
301 0A0066726D4F444D65644956010100000005000000070043617074696F6E011F
302 00000008006D656D4F72646572010100000002000000070043617074696F6E00
303 0900636D64416363657074010100000003000000070043617074696F6E000700
304 636D6451756974010100000004000000070043617074696F6E000A00706E6C4D
305 65737361676500000A00696D674D65737361676500000A006D656D4D65737361
306 676500000F006C626C496E667573696F6E526174650101000000060000000700
307 43617074696F6E000B006C626C5072696F726974790101000000070000000700
308 43617074696F6E000C006C626C436F6D706F6E656E7401010000000800000007
309 0043617074696F6E0009006C626C416D6F756E74010100000009000000070043
310 617074696F6E000B006C626C436F6D6D656E747301010000000A000000070043
311 617074696F6E0008006C626C4C696D697401010000000B000000070043617074
312 696F6E0007007478745261746501010000000C000000070043617074696F6E00
313 0B0063626F5072696F7269747901010000000D000000070043617074696F6E00
314 0B0067726453656C656374656401010000000E000000070043617074696F6E00
315 0900636D6452656D6F766501010000000F000000070043617074696F6E000B00
316 6D656D436F6D6D656E7473010200000011000000070043617074696F6E100000
317 0005004C696E6573000B0074787453656C656374656401020000001300000007
318 0043617074696F6E12000000040054657874000B0063626F53656C6563746564
319 010100000014000000070043617074696F6E000C00706E6C584475726174696F
320 6E00000C0062746E584475726174696F6E010100000015000000070043617074
321 696F6E000C00747874584475726174696F6E0101000000160000000700436170
322 74696F6E000800706E6C436F6D626F00000B0063626F41646469746976650101
323 00000017000000070043617074696F6E000800746162466C7569640101000000
324 18000000040054616273000B0063626F536F6C7574696F6E0101000000190000
325 00070043617074696F6E000B00706F704475726174696F6E00000400706F704C
326 01010000001A000000070043617074696F6E000500706F704D4C01010000001B
327 000000070043617074696F6E000700706F704461797301010000001C00000007
328 0043617074696F6E000800706F70486F75727301010000001D00000007004361
329 7074696F6E00}
330 end
331 object popDuration: TPopupMenu
332 AutoHotkeys = maManual
333 Left = 387
334 Top = 91
335 object popL: TMenuItem
336 Tag = 1
337 Caption = 'L'
338 OnClick = popDurationClick
339 end
340 object popML: TMenuItem
341 Tag = 2
342 Caption = 'ml'
343 OnClick = popDurationClick
344 end
345 object popDays: TMenuItem
346 Tag = 3
347 Caption = 'days'
348 OnClick = popDurationClick
349 end
350 object popHours: TMenuItem
351 Tag = 4
352 Caption = 'hours'
353 OnClick = popDurationClick
354 end
355 end
356end
Note: See TracBrowser for help on using the repository browser.