source: cprs/branches/foia-cprs/CPRS-Chart/fVitals.dfm@ 640

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

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