source: cprs/trunk/CPRS-Chart/fVitals.dfm@ 1211

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

Upgrading to version 27
File size: 10.1 KB
Line 
1inherited frmVitals: TfrmVitals
2 Left = 224
3 Top = 211
4 BorderIcons = [biSystemMenu]
5 Caption = 'Vitals'
6 ClientHeight = 375
7 ClientWidth = 514
8 OldCreateOrder = True
9 Position = poScreenCenter
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnKeyUp = FormKeyUp
13 OnShow = FormShow
14 PixelsPerInch = 96
15 TextHeight = 13
16 object pnlTop: TPanel [0]
17 Left = 0
18 Top = 0
19 Width = 514
20 Height = 221
21 Align = alClient
22 BevelOuter = bvNone
23 TabOrder = 0
24 object lblNoResults: TStaticText
25 Left = 196
26 Top = 58
27 Width = 217
28 Height = 17
29 Caption = 'No measurement to graph for this date range.'
30 TabOrder = 2
31 end
32 object chtChart: TChart
33 Left = 95
34 Top = 0
35 Width = 419
36 Height = 221
37 AllowPanning = pmNone
38 AllowZoom = False
39 BackWall.Brush.Color = clWhite
40 BackWall.Brush.Style = bsClear
41 Title.Text.Strings = (
42 'test name')
43 Title.Visible = False
44 OnClickLegend = chtChartClickLegend
45 OnClickSeries = chtChartClickSeries
46 OnUndoZoom = chtChartUndoZoom
47 LeftAxis.Title.Caption = 'units'
48 Legend.Alignment = laTop
49 Legend.Inverted = True
50 Legend.ShadowSize = 2
51 View3D = False
52 Align = alClient
53 BevelOuter = bvNone
54 PopupMenu = popChart
55 TabOrder = 1
56 OnMouseDown = chtChartMouseDown
57 object serTestY: TLineSeries
58 Marks.ArrowLength = 8
59 Marks.Visible = False
60 SeriesColor = clBlue
61 Title = 'Mean'
62 Pointer.Brush.Color = clBlue
63 Pointer.Draw3D = False
64 Pointer.InflateMargins = True
65 Pointer.Style = psDiamond
66 Pointer.Visible = True
67 XValues.DateTime = True
68 XValues.Name = 'X'
69 XValues.Multiplier = 1.000000000000000000
70 XValues.Order = loAscending
71 YValues.DateTime = False
72 YValues.Name = 'Y'
73 YValues.Multiplier = 1.000000000000000000
74 YValues.Order = loNone
75 end
76 object serTestX: TLineSeries
77 Marks.ArrowLength = 8
78 Marks.Visible = False
79 SeriesColor = clBlue
80 Title = 'Dialstolic'
81 Pointer.Brush.Color = clBlue
82 Pointer.Draw3D = False
83 Pointer.HorizSize = 3
84 Pointer.InflateMargins = True
85 Pointer.Style = psRectangle
86 Pointer.VertSize = 3
87 Pointer.Visible = True
88 XValues.DateTime = True
89 XValues.Name = 'X'
90 XValues.Multiplier = 1.000000000000000000
91 XValues.Order = loAscending
92 YValues.DateTime = False
93 YValues.Name = 'Y'
94 YValues.Multiplier = 1.000000000000000000
95 YValues.Order = loNone
96 end
97 object serTest: TLineSeries
98 Marks.ArrowLength = 8
99 Marks.Visible = False
100 SeriesColor = clBlue
101 Title = 'Systolic'
102 Pointer.InflateMargins = True
103 Pointer.Style = psCircle
104 Pointer.Visible = True
105 XValues.DateTime = True
106 XValues.Name = 'X'
107 XValues.Multiplier = 1.000000000000000000
108 XValues.Order = loAscending
109 YValues.DateTime = False
110 YValues.Name = 'Y'
111 YValues.Multiplier = 1.000000000000000000
112 YValues.Order = loNone
113 end
114 object serTime: TPointSeries
115 Marks.ArrowLength = 8
116 Marks.Visible = False
117 SeriesColor = clSilver
118 ShowInLegend = False
119 Title = 'Time'
120 Pointer.Draw3D = False
121 Pointer.HorizSize = 3
122 Pointer.InflateMargins = True
123 Pointer.Style = psCircle
124 Pointer.VertSize = 3
125 Pointer.Visible = False
126 XValues.DateTime = False
127 XValues.Name = 'X'
128 XValues.Multiplier = 1.000000000000000000
129 XValues.Order = loAscending
130 YValues.DateTime = False
131 YValues.Name = 'Y'
132 YValues.Multiplier = 1.000000000000000000
133 YValues.Order = loNone
134 end
135 end
136 object pnlLeft: TORAutoPanel
137 Left = 0
138 Top = 0
139 Width = 95
140 Height = 221
141 Align = alLeft
142 TabOrder = 0
143 object lstDates: TORListBox
144 Left = 1
145 Top = 25
146 Width = 93
147 Height = 132
148 Align = alTop
149 ItemHeight = 13
150 Items.Strings = (
151 '1^Today'
152 '8^One Week'
153 '15^Two Weeks'
154 '31^One Month'
155 '183^Six Months'
156 '366^One Year'
157 '732^Two Years'
158 '66666^All Results'
159 'S^Date Range')
160 ParentShowHint = False
161 ShowHint = True
162 TabOrder = 1
163 OnClick = lstDatesClick
164 Caption = 'Select Vitals from:'
165 ItemTipColor = clWindow
166 LongList = False
167 Pieces = '2'
168 end
169 object pnlLeftClient: TORAutoPanel
170 Left = 1
171 Top = 157
172 Width = 93
173 Height = 68
174 BevelOuter = bvNone
175 TabOrder = 2
176 object chkValues: TCheckBox
177 Left = 9
178 Top = 8
179 Width = 76
180 Height = 17
181 Caption = 'Values'
182 TabOrder = 0
183 OnClick = chkValuesClick
184 end
185 object chk3D: TCheckBox
186 Left = 9
187 Top = 42
188 Width = 76
189 Height = 17
190 Caption = '3D'
191 TabOrder = 2
192 OnClick = chk3DClick
193 end
194 object chkZoom: TCheckBox
195 Left = 9
196 Top = 25
197 Width = 76
198 Height = 17
199 Caption = 'Zoom'
200 TabOrder = 1
201 OnClick = chkZoomClick
202 end
203 end
204 object pnlEnterVitals: TPanel
205 Left = 1
206 Top = 1
207 Width = 93
208 Height = 24
209 Align = alTop
210 Caption = 'pnlEnterVitals'
211 TabOrder = 0
212 OnResize = pnlEnterVitalsResize
213 object btnEnterVitals: TButton
214 Left = 8
215 Top = 0
216 Width = 75
217 Height = 25
218 Caption = 'Enter Vitals'
219 TabOrder = 0
220 OnClick = btnEnterVitalsClick
221 end
222 end
223 end
224 end
225 object pnlBottom: TPanel [1]
226 Left = 0
227 Top = 221
228 Width = 514
229 Height = 154
230 Align = alBottom
231 TabOrder = 1
232 object grdVitals: TCaptionStringGrid
233 Left = 96
234 Top = 1
235 Width = 417
236 Height = 152
237 Align = alClient
238 Color = clCream
239 ColCount = 6
240 Ctl3D = True
241 DefaultRowHeight = 15
242 FixedCols = 0
243 RowCount = 8
244 Font.Charset = DEFAULT_CHARSET
245 Font.Color = clWindowText
246 Font.Height = -11
247 Font.Name = 'MS Sans Serif'
248 Font.Style = []
249 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
250 ParentCtl3D = False
251 ParentFont = False
252 TabOrder = 1
253 OnSelectCell = grdVitalsSelectCell
254 Caption = 'Vitals Data'
255 ColWidths = (
256 64
257 64
258 64
259 64
260 64
261 64)
262 end
263 object pnlButtons: TPanel
264 Left = 1
265 Top = 1
266 Width = 95
267 Height = 152
268 Align = alLeft
269 BevelOuter = bvNone
270 TabOrder = 0
271 DesignSize = (
272 95
273 152)
274 object lstVitals: TCaptionListBox
275 Left = 0
276 Top = 16
277 Width = 95
278 Height = 119
279 Style = lbOwnerDrawFixed
280 Anchors = [akLeft, akTop, akRight, akBottom]
281 ItemHeight = 16
282 Items.Strings = (
283 'Temperature'
284 'Pulse'
285 'Respiration'
286 'Blood Pressure'
287 'Height'
288 'Weight'
289 'Pain')
290 TabOrder = 0
291 OnClick = lstVitalsClick
292 Caption = 'Vitals'
293 end
294 end
295 end
296 inherited amgrMain: TVA508AccessibilityManager
297 Data = (
298 (
299 'Component = pnlTop'
300 'Status = stsDefault')
301 (
302 'Component = lblNoResults'
303 'Status = stsDefault')
304 (
305 'Component = chtChart'
306 'Status = stsDefault')
307 (
308 'Component = pnlLeft'
309 'Status = stsDefault')
310 (
311 'Component = lstDates'
312 'Status = stsDefault')
313 (
314 'Component = pnlLeftClient'
315 'Status = stsDefault')
316 (
317 'Component = chkValues'
318 'Status = stsDefault')
319 (
320 'Component = chk3D'
321 'Status = stsDefault')
322 (
323 'Component = chkZoom'
324 'Status = stsDefault')
325 (
326 'Component = pnlEnterVitals'
327 'Status = stsDefault')
328 (
329 'Component = btnEnterVitals'
330 'Status = stsDefault')
331 (
332 'Component = pnlBottom'
333 'Status = stsDefault')
334 (
335 'Component = grdVitals'
336 'Status = stsDefault')
337 (
338 'Component = pnlButtons'
339 'Status = stsDefault')
340 (
341 'Component = lstVitals'
342 'Status = stsDefault')
343 (
344 'Component = frmVitals'
345 'Status = stsDefault'))
346 end
347 object popChart: TPopupMenu
348 OnPopup = popChartPopup
349 Left = 37
350 Top = 317
351 object popValues: TMenuItem
352 Caption = 'Values'
353 OnClick = popValuesClick
354 end
355 object pop3D: TMenuItem
356 Caption = '3D'
357 OnClick = pop3DClick
358 end
359 object popZoom: TMenuItem
360 Caption = 'Zoom Enabled'
361 OnClick = popZoomClick
362 end
363 object popZoomBack: TMenuItem
364 Caption = 'Zoom Back'
365 OnClick = popZoomBackClick
366 end
367 object N1: TMenuItem
368 Caption = '-'
369 end
370 object popCopy: TMenuItem
371 Caption = 'Copy'
372 OnClick = popCopyClick
373 end
374 object N2: TMenuItem
375 Caption = '-'
376 end
377 object popDetails: TMenuItem
378 Caption = 'Details'
379 OnClick = popDetailsClick
380 end
381 object N3: TMenuItem
382 Caption = '-'
383 end
384 object popPrint: TMenuItem
385 Caption = 'Print'
386 OnClick = popPrintClick
387 end
388 end
389 object calVitalsRange: TORDateRangeDlg
390 DateOnly = True
391 Instruction = 'Enter a date range -'
392 LabelStart = 'Begin Date'
393 LabelStop = 'End Date'
394 RequireTime = False
395 Format = 'mmm d,yy'
396 Left = 74
397 Top = 320
398 end
399 object dlgWinPrint: TPrintDialog
400 Left = 146
401 Top = 324
402 end
403end
Note: See TracBrowser for help on using the repository browser.