source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fBAOptionsDiagnoses.dfm@ 1797

Last change on this file since 1797 was 541, checked in by Kevin Toppenberg, 15 years ago

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