source: cprs/branches/tmg-cprs/CPRS-Chart/fVitals.dfm@ 768

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 11.4 KB
RevLine 
[453]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 = 214
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 = 214
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.000000000000000000
77 XValues.Order = loAscending
78 YValues.DateTime = False
79 YValues.Name = 'Y'
80 YValues.Multiplier = 1.000000000000000000
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.000000000000000000
98 XValues.Order = loAscending
99 YValues.DateTime = False
100 YValues.Name = 'Y'
101 YValues.Multiplier = 1.000000000000000000
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.000000000000000000
115 XValues.Order = loAscending
116 YValues.DateTime = False
117 YValues.Name = 'Y'
118 YValues.Multiplier = 1.000000000000000000
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.000000000000000000
136 XValues.Order = loAscending
137 YValues.DateTime = False
138 YValues.Name = 'Y'
139 YValues.Multiplier = 1.000000000000000000
140 YValues.Order = loNone
141 end
142 end
143 object pnlLeft: TORAutoPanel
144 Left = 0
145 Top = 0
146 Width = 95
147 Height = 214
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 = 214
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
359 object DKLanguageController1: TDKLanguageController
360 Left = 111
361 Top = 8
362 LangData = {
363 090066726D566974616C73010100000001000000070043617074696F6E012000
364 00000600706E6C546F7000000C006C626C4E6F526573756C7473010100000002
365 000000070043617074696F6E0008006368744368617274010200000004000000
366 16004C656674417869732E5469746C652E43617074696F6E030000000A005469
367 746C652E54657874000800736572546573745901030000000500000005005469
368 746C65060000000C005856616C7565732E4E616D65070000000C005956616C75
369 65732E4E616D6500080073657254657374580103000000080000000500546974
370 6C65090000000C005856616C7565732E4E616D650A0000000C005956616C7565
371 732E4E616D650007007365725465737401030000000B00000005005469746C65
372 0C0000000C005856616C7565732E4E616D650D0000000C005956616C7565732E
373 4E616D6500070073657254696D6501030000000E00000005005469746C650F00
374 00000C005856616C7565732E4E616D65100000000C005956616C7565732E4E61
375 6D65000700706E6C4C656674000008006C737444617465730102000000120000
376 00070043617074696F6E1100000005004974656D73000D00706E6C4C65667443
377 6C69656E740000090063686B56616C7565730101000000130000000700436170
378 74696F6E00050063686B3344010100000014000000070043617074696F6E0007
379 0063686B5A6F6F6D010100000015000000070043617074696F6E000E00706E6C
380 456E746572566974616C73010100000016000000070043617074696F6E000E00
381 62746E456E746572566974616C73010100000017000000070043617074696F6E
382 000900706E6C426F74746F6D00000900677264566974616C7301010000001800
383 0000070043617074696F6E000A00706E6C427574746F6E73000009006C737456
384 6974616C7301020000001A000000070043617074696F6E190000000500497465
385 6D73000800706F70436861727400000900706F7056616C75657301010000001B
386 000000070043617074696F6E000500706F70334401010000001C000000070043
387 617074696F6E000700706F705A6F6F6D01010000001D00000007004361707469
388 6F6E000B00706F705A6F6F6D4261636B01010000001E00000007004361707469
389 6F6E0002004E3100000700706F70436F707901010000001F0000000700436170
390 74696F6E0002004E3200000A00706F7044657461696C73010100000020000000
391 070043617074696F6E0002004E3300000800706F705072696E74010100000021
392 000000070043617074696F6E000E0063616C566974616C7352616E6765010400
393 0000250000000600466F726D6174220000000B00496E737472756374696F6E23
394 0000000A004C6162656C53746172742400000009004C6162656C53746F70000B
395 00646C6757696E5072696E740000}
396 end
397end
Note: See TracBrowser for help on using the repository browser.