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

Last change on this file since 834 was 793, checked in by Kevin Toppenberg, 14 years ago

update
File size: 9.3 KB
RevLine 
[453]1inherited frmODMedIV: TfrmODMedIV
2 Left = 587
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 inherited cmdAccept: TButton
165 Left = 495
166 Top = 255
167 TabOrder = 8
168 end
[793]169 object pnlXDuration: TPanel [15]
[453]170 Left = 229
171 Top = 210
172 Width = 121
173 Height = 21
174 BevelOuter = bvNone
175 TabOrder = 7
176 OnEnter = pnlXDurationEnter
177 DesignSize = (
178 121
179 21)
180 object btnXDuration: TBitBtn
181 Left = 69
182 Top = 1
183 Width = 50
184 Height = 20
185 Anchors = [akLeft, akTop, akRight, akBottom]
186 Caption = 'days'
187 TabOrder = 1
188 OnClick = btnXDurationClick
189 Glyph.Data = {
190 AE000000424DAE0000000000000076000000280000000E000000070000000100
191 0400000000003800000000000000000000001000000000000000000000000000
192 8000008000000080800080000000800080008080000080808000C0C0C0000000
193 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
194 330033333333333333003330333333733300330003333F87330030000033FFFF
195 F30033333333333333003333333333333300}
196 Layout = blGlyphRight
197 NumGlyphs = 2
198 Spacing = 0
199 end
200 object txtXDuration: TCaptionEdit
201 Left = 0
202 Top = 0
203 Width = 68
204 Height = 21
205 TabOrder = 0
206 OnChange = txtXDurationChange
207 OnExit = txtXDurationExit
208 Caption = 'Duration'
209 end
210 end
[793]211 object pnlCombo: TPanel [16]
[453]212 Left = 8
213 Top = 1
214 Width = 200
215 Height = 185
216 BevelOuter = bvNone
217 TabOrder = 17
218 object cboAdditive: TORComboBox
219 Left = 0
220 Top = 20
221 Width = 200
222 Height = 165
223 Style = orcsSimple
224 Align = alClient
225 AutoSelect = True
226 Caption = 'Additives'
227 Color = clWindow
228 DropDownCount = 11
229 ItemHeight = 13
230 ItemTipColor = clWindow
231 ItemTipEnable = True
232 ListItemsOnly = True
233 LongList = True
234 LookupPiece = 0
235 MaxLength = 0
236 Pieces = '2'
237 Sorted = False
238 SynonymChars = '<>'
239 TabPositions = '20'
240 TabOrder = 0
241 OnExit = cboAdditiveExit
242 OnMouseClick = cboAdditiveMouseClick
243 OnNeedData = cboAdditiveNeedData
244 CharsNeedMatch = 1
245 end
246 object tabFluid: TTabControl
247 Left = 0
248 Top = 0
249 Width = 200
250 Height = 20
251 Align = alTop
252 TabHeight = 15
253 TabOrder = 1
254 Tabs.Strings = (
255 ' Solutions '
256 ' Additives ')
257 TabIndex = 0
258 TabStop = False
259 OnChange = tabFluidChange
260 end
261 object cboSolution: TORComboBox
262 Left = 0
263 Top = 20
264 Width = 200
265 Height = 165
266 Style = orcsSimple
267 Align = alClient
268 AutoSelect = True
269 Caption = 'Solutions'
270 Color = clWindow
271 DropDownCount = 11
272 ItemHeight = 13
273 ItemTipColor = clWindow
274 ItemTipEnable = True
275 ListItemsOnly = True
276 LongList = True
277 LookupPiece = 0
278 MaxLength = 0
279 Pieces = '2'
280 Sorted = False
281 SynonymChars = '<>'
282 TabPositions = '20'
283 TabOrder = 2
284 OnExit = cboSolutionExit
285 OnMouseClick = cboSolutionMouseClick
286 OnNeedData = cboSolutionNeedData
287 CharsNeedMatch = 1
288 end
289 end
[793]290 inherited cmdQuit: TButton
291 Left = 495
292 Top = 282
293 TabOrder = 9
294 end
[453]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.