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

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 17 years ago

Adding foia-cprs branch
File size: 7.1 KB
RevLine 
[459]1inherited 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
320end
Note: See TracBrowser for help on using the repository browser.