1 | inherited 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
|
---|
337 | end
|
---|