source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm@ 1722

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

Upgrade to version 27
File size: 9.2 KB
Line 
1inherited frmBAOptionsDiagnoses: TfrmBAOptionsDiagnoses
2 Left = 231
3 Top = 183
4 Caption = 'Personal Diagnoses List'
5 ClientHeight = 530
6 ClientWidth = 739
7 Constraints.MinHeight = 100
8 Constraints.MinWidth = 200
9 OnActivate = FormActivate
10 OnCreate = FormCreate
11 OnShow = FormShow
12 ExplicitWidth = 747
13 ExplicitHeight = 557
14 PixelsPerInch = 96
15 TextHeight = 13
16 object Panel1: TPanel [0]
17 Left = 0
18 Top = 0
19 Width = 739
20 Height = 530
21 Align = alClient
22 Caption = 'Panel1'
23 Constraints.MinHeight = 344
24 Constraints.MinWidth = 576
25 TabOrder = 0
26 object Panel2: TPanel
27 Left = 16
28 Top = 10
29 Width = 713
30 Height = 519
31 Caption = 'Panel1'
32 TabOrder = 0
33 object Splitter1: TSplitter
34 Left = 458
35 Top = 26
36 Width = -3
37 Height = 463
38 end
39 object Splitter2: TSplitter
40 Left = 169
41 Top = 26
42 Width = 7
43 Height = 463
44 end
45 object Splitter3: TSplitter
46 Left = 457
47 Top = 26
48 Width = 1
49 Height = 463
50 end
51 object Splitter5: TSplitter
52 Left = 455
53 Top = 26
54 Width = 2
55 Height = 463
56 end
57 object pnlBottom: TPanel
58 Left = 1
59 Top = 489
60 Width = 711
61 Height = 29
62 Align = alBottom
63 BevelOuter = bvNone
64 Caption = ' '
65 TabOrder = 0
66 DesignSize = (
67 711
68 29)
69 object btnOther: TButton
70 Left = 13
71 Top = 3
72 Width = 129
73 Height = 23
74 Anchors = [akLeft, akBottom]
75 Caption = 'Other &Diagnoses'
76 Constraints.MinHeight = 23
77 Constraints.MinWidth = 115
78 TabOrder = 0
79 OnClick = btnOtherClick
80 end
81 object btnOK: TButton
82 Left = 523
83 Top = 3
84 Width = 75
85 Height = 23
86 Anchors = [akRight, akBottom]
87 Caption = '&OK'
88 TabOrder = 1
89 OnClick = btnOKClick
90 end
91 object Button1: TButton
92 Left = 632
93 Top = 4
94 Width = 75
95 Height = 21
96 Anchors = [akRight, akBottom]
97 Caption = '&Cancel'
98 TabOrder = 2
99 OnClick = Button1Click
100 end
101 end
102 object Panel3: TPanel
103 Left = 1
104 Top = 26
105 Width = 168
106 Height = 463
107 Align = alLeft
108 BevelOuter = bvNone
109 Font.Charset = DEFAULT_CHARSET
110 Font.Color = clWindowText
111 Font.Height = -11
112 Font.Name = 'MS Sans Serif'
113 Font.Style = []
114 ParentFont = False
115 TabOrder = 1
116 object lbSections: TORListBox
117 Left = 0
118 Top = 17
119 Width = 161
120 Height = 446
121 Font.Charset = DEFAULT_CHARSET
122 Font.Color = clWindowText
123 Font.Height = -11
124 Font.Name = 'MS Sans Serif'
125 Font.Style = []
126 ItemHeight = 13
127 ParentFont = False
128 ParentShowHint = False
129 ShowHint = True
130 TabOrder = 0
131 OnClick = lbSectionsClick
132 OnEnter = lbSectionsEnter
133 ItemTipColor = clWindow
134 LongList = False
135 Pieces = '3'
136 end
137 object hdrCntlDxSections: THeaderControl
138 Left = 0
139 Top = 0
140 Width = 168
141 Height = 17
142 Sections = <
143 item
144 Alignment = taCenter
145 ImageIndex = -1
146 Text = 'Diagnoses Sections'
147 Width = 50
148 end>
149 end
150 end
151 object Panel4: TPanel
152 Left = 176
153 Top = 26
154 Width = 201
155 Height = 463
156 Align = alLeft
157 BevelOuter = bvNone
158 Font.Charset = DEFAULT_CHARSET
159 Font.Color = clWindowText
160 Font.Height = -11
161 Font.Name = 'MS Sans Serif'
162 Font.Style = []
163 ParentFont = False
164 TabOrder = 2
165 object lbDiagnosis: TORListBox
166 Left = 0
167 Top = 17
168 Width = 201
169 Height = 446
170 Align = alClient
171 ItemHeight = 13
172 MultiSelect = True
173 ParentShowHint = False
174 ShowHint = True
175 Sorted = True
176 TabOrder = 0
177 OnClick = lbDiagnosisChange
178 OnEnter = lbDiagnosisEnter
179 ItemTipColor = clWindow
180 LongList = False
181 Pieces = '1,2,3'
182 OnChange = lbDiagnosisChange
183 end
184 object hdrCntlDxAdd: THeaderControl
185 Left = 0
186 Top = 0
187 Width = 201
188 Height = 17
189 Sections = <
190 item
191 Alignment = taCenter
192 ImageIndex = -1
193 Text = 'Diagnoses to add'
194 Width = 50
195 end>
196 end
197 end
198 object Panel5: TPanel
199 Left = 455
200 Top = 26
201 Width = 257
202 Height = 463
203 Align = alClient
204 BevelOuter = bvNone
205 Caption = 'Panel5'
206 TabOrder = 3
207 object lbPersonalDx: TORListBox
208 Left = 0
209 Top = 17
210 Width = 257
211 Height = 446
212 Align = alClient
213 Anchors = [akRight]
214 Color = clInfoBk
215 ItemHeight = 13
216 MultiSelect = True
217 ParentShowHint = False
218 ShowHint = True
219 Sorted = True
220 TabOrder = 0
221 OnClick = lbPersonalDxClick
222 ItemTipColor = clWindow
223 LongList = False
224 Pieces = '2,1,3'
225 end
226 object hdrCntlDx: THeaderControl
227 Left = 0
228 Top = 0
229 Width = 257
230 Height = 17
231 Sections = <
232 item
233 Alignment = taCenter
234 ImageIndex = -1
235 MinWidth = 150
236 Text = 'Diagnoses Codes'
237 Width = 150
238 end>
239 OnSectionClick = hdrCntlDxSectionClick
240 end
241 end
242 object pnlTop: TPanel
243 Left = 1
244 Top = 1
245 Width = 711
246 Height = 25
247 Align = alTop
248 BevelOuter = bvNone
249 TabOrder = 4
250 object StaticText3: TStaticText
251 Left = 472
252 Top = 8
253 Width = 140
254 Height = 17
255 Caption = 'Personal Diagnoses List'
256 Font.Charset = DEFAULT_CHARSET
257 Font.Color = clWindowText
258 Font.Height = -11
259 Font.Name = 'MS Sans Serif'
260 Font.Style = [fsBold]
261 ParentFont = False
262 TabOrder = 0
263 TabStop = True
264 end
265 end
266 object Panel7: TPanel
267 Left = 377
268 Top = 26
269 Width = 78
270 Height = 463
271 Align = alLeft
272 BevelOuter = bvNone
273 TabOrder = 5
274 DesignSize = (
275 78
276 463)
277 object btnAdd: TBitBtn
278 Left = 1
279 Top = 88
280 Width = 75
281 Height = 25
282 Anchors = [akLeft, akTop, akRight]
283 Caption = '&Add'
284 Constraints.MinHeight = 25
285 Constraints.MinWidth = 70
286 Enabled = False
287 TabOrder = 0
288 OnClick = btnAddClick
289 NumGlyphs = 2
290 end
291 object btnDelete: TBitBtn
292 Left = 2
293 Top = 136
294 Width = 75
295 Height = 25
296 Caption = '&Remove'
297 Constraints.MinHeight = 25
298 Constraints.MinWidth = 70
299 Enabled = False
300 TabOrder = 1
301 OnClick = btnDeleteClick
302 NumGlyphs = 2
303 end
304 end
305 end
306 end
307 inherited amgrMain: TVA508AccessibilityManager
308 Data = (
309 (
310 'Component = Panel1'
311 'Status = stsDefault')
312 (
313 'Component = Panel2'
314 'Status = stsDefault')
315 (
316 'Component = pnlBottom'
317 'Status = stsDefault')
318 (
319 'Component = btnOther'
320 'Status = stsDefault')
321 (
322 'Component = btnOK'
323 'Status = stsDefault')
324 (
325 'Component = Button1'
326 'Status = stsDefault')
327 (
328 'Component = Panel3'
329 'Status = stsDefault')
330 (
331 'Component = lbSections'
332 'Status = stsDefault')
333 (
334 'Component = hdrCntlDxSections'
335 'Status = stsDefault')
336 (
337 'Component = Panel4'
338 'Status = stsDefault')
339 (
340 'Component = lbDiagnosis'
341 'Status = stsDefault')
342 (
343 'Component = hdrCntlDxAdd'
344 'Status = stsDefault')
345 (
346 'Component = Panel5'
347 'Status = stsDefault')
348 (
349 'Component = lbPersonalDx'
350 'Status = stsDefault')
351 (
352 'Component = hdrCntlDx'
353 'Status = stsDefault')
354 (
355 'Component = pnlTop'
356 'Status = stsDefault')
357 (
358 'Component = StaticText3'
359 'Status = stsDefault')
360 (
361 'Component = Panel7'
362 'Status = stsDefault')
363 (
364 'Component = btnAdd'
365 'Status = stsDefault')
366 (
367 'Component = btnDelete'
368 'Status = stsDefault')
369 (
370 'Component = frmBAOptionsDiagnoses'
371 'Status = stsDefault'))
372 end
373end
Note: See TracBrowser for help on using the repository browser.