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

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

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