source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/Options/fOptionsDays.dfm@ 1702

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

Upgrade to version 27
File size: 7.3 KB
Line 
1inherited frmOptionsDays: TfrmOptionsDays
2 Left = 516
3 Top = 90
4 HelpContext = 9010
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsDialog
7 Caption = 'Date Range Defaults on Cover Sheet'
8 ClientHeight = 337
9 ClientWidth = 328
10 HelpFile = 'CPRSWT.HLP'
11 Position = poDefault
12 OnCreate = FormCreate
13 OnShow = FormShow
14 PixelsPerInch = 96
15 TextHeight = 13
16 object bvlTop: TBevel [0]
17 Left = 11
18 Top = 9
19 Width = 310
20 Height = 2
21 end
22 object bvlMiddle: TBevel [1]
23 Left = 11
24 Top = 155
25 Width = 310
26 Height = 2
27 end
28 object lblVisitStop: TLabel [2]
29 Left = 15
30 Top = 251
31 Width = 25
32 Height = 13
33 Caption = 'Stop:'
34 end
35 object lblVisitStart: TLabel [3]
36 Left = 15
37 Top = 197
38 Width = 25
39 Height = 13
40 Caption = 'Start:'
41 end
42 object lblLabOutpatient: TLabel [4]
43 Left = 15
44 Top = 103
45 Width = 77
46 Height = 13
47 Caption = 'Outpatient days:'
48 end
49 object lblLabInpatient: TLabel [5]
50 Left = 15
51 Top = 47
52 Width = 69
53 Height = 13
54 Caption = 'Inpatient days:'
55 end
56 object lblVisitValue: TMemo [6]
57 Left = 136
58 Top = 219
59 Width = 169
60 Height = 73
61 TabStop = False
62 BorderStyle = bsNone
63 Color = clBtnFace
64 Lines.Strings = (
65 'lblVisitValue')
66 ReadOnly = True
67 TabOrder = 13
68 end
69 object lblLabValue: TMemo [7]
70 Left = 136
71 Top = 71
72 Width = 169
73 Height = 74
74 TabStop = False
75 BorderStyle = bsNone
76 Color = clBtnFace
77 Lines.Strings = (
78 'lblLabValue')
79 ReadOnly = True
80 TabOrder = 14
81 end
82 object lblVisit: TStaticText [8]
83 Left = 15
84 Top = 164
85 Width = 115
86 Height = 17
87 Caption = 'Appointments and visits'
88 TabOrder = 11
89 end
90 object lblLab: TStaticText [9]
91 Left = 15
92 Top = 16
93 Width = 55
94 Height = 17
95 Caption = 'Lab results'
96 TabOrder = 12
97 end
98 object pnlBottom: TPanel [10]
99 Left = 0
100 Top = 304
101 Width = 328
102 Height = 33
103 HelpContext = 9010
104 Align = alBottom
105 BevelOuter = bvNone
106 ParentColor = True
107 TabOrder = 10
108 object bvlBottom: TBevel
109 Left = 0
110 Top = 0
111 Width = 328
112 Height = 2
113 Align = alTop
114 end
115 object btnOK: TButton
116 Left = 167
117 Top = 8
118 Width = 75
119 Height = 22
120 HelpContext = 9996
121 Caption = 'OK'
122 ModalResult = 1
123 TabOrder = 0
124 OnClick = btnOKClick
125 end
126 object btnCancel: TButton
127 Left = 247
128 Top = 8
129 Width = 75
130 Height = 22
131 HelpContext = 9997
132 Cancel = True
133 Caption = 'Cancel'
134 ModalResult = 2
135 TabOrder = 1
136 end
137 end
138 object txtLabInpatient: TCaptionEdit [11]
139 Left = 15
140 Top = 66
141 Width = 42
142 Height = 21
143 HelpContext = 9013
144 TabOrder = 0
145 Text = '1'
146 OnChange = txtLabInpatientChange
147 OnExit = txtLabInpatientExit
148 OnKeyPress = txtLabInpatientKeyPress
149 Caption = 'Inpatient days'
150 end
151 object spnLabInpatient: TUpDown [12]
152 Left = 57
153 Top = 66
154 Width = 16
155 Height = 21
156 HelpContext = 9013
157 Associate = txtLabInpatient
158 Max = 999
159 Position = 1
160 TabOrder = 1
161 Thousands = False
162 OnClick = spnLabInpatientClick
163 end
164 object txtLabOutpatient: TCaptionEdit [13]
165 Left = 15
166 Top = 121
167 Width = 42
168 Height = 21
169 HelpContext = 9014
170 TabOrder = 2
171 Text = '1'
172 OnChange = txtLabOutpatientChange
173 OnExit = txtLabOutpatientExit
174 OnKeyPress = txtLabInpatientKeyPress
175 Caption = 'Outpatient days'
176 end
177 object spnLabOutpatient: TUpDown [14]
178 Left = 57
179 Top = 121
180 Width = 16
181 Height = 21
182 HelpContext = 9014
183 Associate = txtLabOutpatient
184 Max = 999
185 Position = 1
186 TabOrder = 3
187 Thousands = False
188 OnClick = spnLabOutpatientClick
189 end
190 object txtVisitStart: TCaptionEdit [15]
191 Tag = -180
192 Left = 15
193 Top = 214
194 Width = 79
195 Height = 21
196 HelpContext = 9015
197 MaxLength = 12
198 TabOrder = 5
199 Text = '0'
200 OnExit = txtVisitStartExit
201 OnKeyPress = txtVisitStartKeyPress
202 OnKeyUp = txtVisitStartKeyUp
203 Caption = 'Start'
204 end
205 object spnVisitStart: TUpDown [16]
206 Tag = -180
207 Left = 94
208 Top = 214
209 Width = 15
210 Height = 21
211 HelpContext = 9015
212 Associate = txtVisitStart
213 Min = -999
214 Max = 999
215 TabOrder = 6
216 Thousands = False
217 OnClick = spnVisitStartClick
218 end
219 object txtVisitStop: TCaptionEdit [17]
220 Tag = 30
221 Left = 15
222 Top = 269
223 Width = 79
224 Height = 21
225 HelpContext = 9015
226 MaxLength = 12
227 TabOrder = 7
228 Text = '0'
229 OnExit = txtVisitStopExit
230 OnKeyPress = txtVisitStopKeyPress
231 OnKeyUp = txtVisitStopKeyUp
232 Caption = 'Stop'
233 end
234 object spnVisitStop: TUpDown [18]
235 Tag = 30
236 Left = 94
237 Top = 269
238 Width = 16
239 Height = 21
240 HelpContext = 9015
241 Associate = txtVisitStop
242 Min = -999
243 Max = 999
244 TabOrder = 8
245 Thousands = False
246 OnClick = spnVisitStopClick
247 end
248 object btnLabDefaults: TButton [19]
249 Left = 245
250 Top = 32
251 Width = 75
252 Height = 22
253 HelpContext = 9011
254 Caption = 'Use Defaults'
255 Font.Charset = DEFAULT_CHARSET
256 Font.Color = clWindowText
257 Font.Height = -11
258 Font.Name = 'MS Sans Serif'
259 Font.Style = []
260 ParentFont = False
261 TabOrder = 4
262 OnClick = btnLabDefaultsClick
263 end
264 object btnVisitDefaults: TButton [20]
265 Left = 245
266 Top = 184
267 Width = 75
268 Height = 22
269 HelpContext = 9012
270 Caption = 'Use Defaults'
271 Font.Charset = DEFAULT_CHARSET
272 Font.Color = clWindowText
273 Font.Height = -11
274 Font.Name = 'MS Sans Serif'
275 Font.Style = []
276 ParentFont = False
277 TabOrder = 9
278 OnClick = btnVisitDefaultsClick
279 end
280 inherited amgrMain: TVA508AccessibilityManager
281 Data = (
282 (
283 'Component = lblVisitValue'
284 'Status = stsDefault')
285 (
286 'Component = lblLabValue'
287 'Status = stsDefault')
288 (
289 'Component = lblVisit'
290 'Status = stsDefault')
291 (
292 'Component = lblLab'
293 'Status = stsDefault')
294 (
295 'Component = pnlBottom'
296 'Status = stsDefault')
297 (
298 'Component = btnOK'
299 'Status = stsDefault')
300 (
301 'Component = btnCancel'
302 'Status = stsDefault')
303 (
304 'Component = txtLabInpatient'
305 'Status = stsDefault')
306 (
307 'Component = spnLabInpatient'
308 'Status = stsDefault')
309 (
310 'Component = txtLabOutpatient'
311 'Status = stsDefault')
312 (
313 'Component = spnLabOutpatient'
314 'Status = stsDefault')
315 (
316 'Component = txtVisitStart'
317 'Status = stsDefault')
318 (
319 'Component = spnVisitStart'
320 'Status = stsDefault')
321 (
322 'Component = txtVisitStop'
323 'Status = stsDefault')
324 (
325 'Component = spnVisitStop'
326 'Status = stsDefault')
327 (
328 'Component = btnLabDefaults'
329 'Status = stsDefault')
330 (
331 'Component = btnVisitDefaults'
332 'Status = stsDefault')
333 (
334 'Component = frmOptionsDays'
335 'Status = stsDefault'))
336 end
337end
Note: See TracBrowser for help on using the repository browser.