source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsDays.dfm@ 1802

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 7.6 KB
RevLine 
[453]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 Max = 999
166 Position = 1
167 TabOrder = 1
168 Thousands = False
169 OnClick = spnLabInpatientClick
170 end
171 object txtLabOutpatient: TCaptionEdit
172 Left = 15
173 Top = 121
174 Width = 42
175 Height = 21
176 HelpContext = 9014
177 TabOrder = 2
178 Text = '1'
179 OnChange = txtLabOutpatientChange
180 OnExit = txtLabOutpatientExit
181 OnKeyPress = txtLabInpatientKeyPress
182 Caption = 'Outpatient days'
183 end
184 object spnLabOutpatient: TUpDown
185 Left = 57
186 Top = 121
187 Width = 16
188 Height = 21
189 HelpContext = 9014
190 Associate = txtLabOutpatient
191 Max = 999
192 Position = 1
193 TabOrder = 3
194 Thousands = False
195 OnClick = spnLabOutpatientClick
196 end
197 object txtVisitStart: TCaptionEdit
198 Tag = -180
199 Left = 15
200 Top = 214
201 Width = 79
202 Height = 21
203 HelpContext = 9015
204 MaxLength = 12
205 TabOrder = 5
206 Text = '0'
207 OnExit = txtVisitStartExit
208 OnKeyPress = txtVisitStartKeyPress
209 OnKeyUp = txtVisitStartKeyUp
210 Caption = 'Start'
211 end
212 object spnVisitStart: TUpDown
213 Tag = -180
214 Left = 94
215 Top = 214
216 Width = 15
217 Height = 21
218 HelpContext = 9015
219 Associate = txtVisitStart
220 Min = -999
221 Max = 999
222 TabOrder = 6
223 Thousands = False
224 OnClick = spnVisitStartClick
225 end
226 object txtVisitStop: TCaptionEdit
227 Tag = 30
228 Left = 15
229 Top = 269
230 Width = 79
231 Height = 21
232 HelpContext = 9015
233 MaxLength = 12
234 TabOrder = 7
235 Text = '0'
236 OnExit = txtVisitStopExit
237 OnKeyPress = txtVisitStopKeyPress
238 OnKeyUp = txtVisitStopKeyUp
239 Caption = 'Stop'
240 end
241 object spnVisitStop: TUpDown
242 Tag = 30
243 Left = 94
244 Top = 269
245 Width = 16
246 Height = 21
247 HelpContext = 9015
248 Associate = txtVisitStop
249 Min = -999
250 Max = 999
251 TabOrder = 8
252 Thousands = False
253 OnClick = spnVisitStopClick
254 end
255 object btnLabDefaults: TButton
256 Left = 245
257 Top = 32
258 Width = 75
259 Height = 22
260 HelpContext = 9011
261 Caption = 'Use Defaults'
262 Font.Charset = DEFAULT_CHARSET
263 Font.Color = clWindowText
264 Font.Height = -11
265 Font.Name = 'MS Sans Serif'
266 Font.Style = []
267 ParentFont = False
268 TabOrder = 4
269 OnClick = btnLabDefaultsClick
270 end
271 object btnVisitDefaults: TButton
272 Left = 245
273 Top = 184
274 Width = 75
275 Height = 22
276 HelpContext = 9012
277 Caption = 'Use Defaults'
278 Font.Charset = DEFAULT_CHARSET
279 Font.Color = clWindowText
280 Font.Height = -11
281 Font.Name = 'MS Sans Serif'
282 Font.Style = []
283 ParentFont = False
284 TabOrder = 9
285 OnClick = btnVisitDefaultsClick
286 end
287 object DKLanguageController1: TDKLanguageController
288 Left = 152
289 Top = 168
290 LangData = {
291 0E0066726D4F7074696F6E734461797301020000000100000007004361707469
292 6F6E02000000080048656C7046696C650118000000060062766C546F70000009
293 0062766C4D6964646C6500000C006C626C566973697453746F70010100000003
294 000000070043617074696F6E000D006C626C5669736974537461727401010000
295 0004000000070043617074696F6E0010006C626C4C61624F757470617469656E
296 74010100000005000000070043617074696F6E000F006C626C4C6162496E7061
297 7469656E74010100000006000000070043617074696F6E000D006C626C566973
298 697456616C756501010000000700000005004C696E6573000B006C626C4C6162
299 56616C756501010000000800000005004C696E65730008006C626C5669736974
300 010100000009000000070043617074696F6E0006006C626C4C61620101000000
301 0A000000070043617074696F6E000900706E6C426F74746F6D0000090062766C
302 426F74746F6D0000050062746E4F4B01010000000B000000070043617074696F
303 6E00090062746E43616E63656C01010000000C000000070043617074696F6E00
304 0F007478744C6162496E70617469656E7401010000000D000000070043617074
305 696F6E000F0073706E4C6162496E70617469656E74000010007478744C61624F
306 757470617469656E7401010000000E000000070043617074696F6E0010007370
307 6E4C61624F757470617469656E7400000D007478745669736974537461727401
308 010000000F000000070043617074696F6E000D0073706E566973697453746172
309 7400000C00747874566973697453746F70010100000010000000070043617074
310 696F6E000C0073706E566973697453746F7000000E0062746E4C616244656661
311 756C7473010100000011000000070043617074696F6E00100062746E56697369
312 7444656661756C7473010100000012000000070043617074696F6E00}
313 end
314end
Note: See TracBrowser for help on using the repository browser.