source: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsDays.dfm

Last change on this file was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch

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