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

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

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