source: cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm@ 459

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

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