source: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsLists.dfm@ 1742

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

Adding foia-cprs branch

File size: 7.5 KB
RevLine 
[459]1object frmOptionsLists: TfrmOptionsLists
2 Left = 354
3 Top = 178
4 HelpContext = 9070
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsSingle
7 Caption = 'Personal Lists'
8 ClientHeight = 387
9 ClientWidth = 407
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 = poScreenCenter
19 OnCreate = FormCreate
20 OnShow = FormShow
21 PixelsPerInch = 96
22 TextHeight = 13
23 object lblAddby: TLabel
24 Left = 7
25 Top = 97
26 Width = 42
27 Height = 13
28 Caption = 'Provider:'
29 end
30 object lblPatientsAdd: TLabel
31 Left = 7
32 Top = 200
33 Width = 74
34 Height = 13
35 Caption = 'Patients to add:'
36 end
37 object lblPersonalPatientList: TLabel
38 Left = 248
39 Top = 200
40 Width = 114
41 Height = 13
42 Caption = 'Patients on personal list:'
43 end
44 object lblPersonalLists: TLabel
45 Left = 248
46 Top = 97
47 Width = 68
48 Height = 13
49 Caption = 'Personal Lists:'
50 end
51 object lblInfo: TMemo
52 Left = 199
53 Top = 24
54 Width = 186
55 Height = 65
56 TabStop = False
57 BorderStyle = bsNone
58 Color = clBtnFace
59 Lines.Strings = (
60 'You can change your personal lists by '
61 'adding or removing patients.')
62 ReadOnly = True
63 TabOrder = 13
64 end
65 object pnlBottom: TPanel
66 Left = 0
67 Top = 354
68 Width = 407
69 Height = 33
70 HelpContext = 9070
71 Align = alBottom
72 BevelOuter = bvNone
73 ParentColor = True
74 TabOrder = 12
75 object bvlBottom: TBevel
76 Left = 0
77 Top = 0
78 Width = 407
79 Height = 2
80 Align = alTop
81 end
82 object btnOK: TButton
83 Left = 245
84 Top = 8
85 Width = 75
86 Height = 22
87 HelpContext = 9996
88 Caption = 'OK'
89 Default = True
90 ModalResult = 1
91 TabOrder = 0
92 OnClick = btnOKClick
93 end
94 object btnCancel: TButton
95 Left = 325
96 Top = 8
97 Width = 75
98 Height = 22
99 HelpContext = 9997
100 Cancel = True
101 Caption = 'Cancel'
102 ModalResult = 2
103 TabOrder = 1
104 end
105 end
106 object lstAddBy: TORComboBox
107 Left = 7
108 Top = 112
109 Width = 153
110 Height = 81
111 HelpContext = 9072
112 Style = orcsSimple
113 AutoSelect = True
114 Caption = 'Provider:'
115 Color = clWindow
116 DropDownCount = 8
117 ItemHeight = 13
118 ItemTipColor = clWindow
119 ItemTipEnable = True
120 ListItemsOnly = False
121 LongList = True
122 MaxLength = 0
123 Pieces = '2'
124 Sorted = False
125 SynonymChars = '<>'
126 TabOrder = 1
127 OnClick = lstAddByClick
128 OnKeyPress = lstAddByKeyPress
129 OnNeedData = lstAddByNeedData
130 end
131 object btnPersonalPatientRA: TButton
132 Left = 166
133 Top = 296
134 Width = 75
135 Height = 22
136 HelpContext = 9079
137 Caption = 'Remove All'
138 Enabled = False
139 Font.Charset = DEFAULT_CHARSET
140 Font.Color = clWindowText
141 Font.Height = -11
142 Font.Name = 'MS Sans Serif'
143 Font.Style = []
144 ParentFont = False
145 TabOrder = 9
146 OnClick = btnPersonalPatientRAClick
147 end
148 object btnPersonalPatientR: TButton
149 Left = 166
150 Top = 271
151 Width = 75
152 Height = 22
153 HelpContext = 9078
154 Caption = 'Remove'
155 Enabled = False
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 = 8
163 OnClick = btnPersonalPatientRClick
164 end
165 object lstListPats: TORListBox
166 Left = 7
167 Top = 215
168 Width = 153
169 Height = 134
170 HelpContext = 9073
171 ItemHeight = 13
172 MultiSelect = True
173 ParentShowHint = False
174 PopupMenu = mnuPopPatient
175 ShowHint = True
176 Sorted = True
177 TabOrder = 5
178 OnClick = lstListPatsChange
179 OnDblClick = btnListAddClick
180 OnMouseDown = lstListPatsMouseDown
181 Caption = 'Patients to add:'
182 ItemTipColor = clWindow
183 LongList = False
184 Pieces = '2'
185 OnChange = lstListPatsChange
186 end
187 object lstPersonalPatients: TORListBox
188 Left = 248
189 Top = 215
190 Width = 153
191 Height = 134
192 HelpContext = 9075
193 ItemHeight = 13
194 MultiSelect = True
195 ParentShowHint = False
196 PopupMenu = mnuPopPatient
197 ShowHint = True
198 Sorted = True
199 TabOrder = 11
200 OnClick = lstPersonalPatientsChange
201 OnDblClick = btnPersonalPatientRClick
202 OnMouseDown = lstPersonalPatientsMouseDown
203 Caption = 'Patients on personal list:'
204 ItemTipColor = clWindow
205 LongList = False
206 Pieces = '2'
207 OnChange = lstPersonalPatientsChange
208 end
209 object btnListAddAll: TButton
210 Left = 166
211 Top = 241
212 Width = 75
213 Height = 22
214 HelpContext = 9077
215 Caption = 'Add All'
216 Enabled = False
217 Font.Charset = DEFAULT_CHARSET
218 Font.Color = clWindowText
219 Font.Height = -11
220 Font.Name = 'MS Sans Serif'
221 Font.Style = []
222 ParentFont = False
223 TabOrder = 7
224 OnClick = btnListAddAllClick
225 end
226 object btnNewList: TButton
227 Left = 166
228 Top = 113
229 Width = 75
230 Height = 22
231 HelpContext = 9081
232 Caption = 'New List...'
233 Font.Charset = DEFAULT_CHARSET
234 Font.Color = clWindowText
235 Font.Height = -11
236 Font.Name = 'MS Sans Serif'
237 Font.Style = []
238 ParentFont = False
239 TabOrder = 2
240 OnClick = btnNewListClick
241 end
242 object btnDeleteList: TButton
243 Left = 165
244 Top = 171
245 Width = 75
246 Height = 22
247 HelpContext = 9082
248 Caption = 'Delete List'
249 Enabled = False
250 Font.Charset = DEFAULT_CHARSET
251 Font.Color = clWindowText
252 Font.Height = -11
253 Font.Name = 'MS Sans Serif'
254 Font.Style = []
255 ParentFont = False
256 TabOrder = 3
257 OnClick = btnDeleteListClick
258 end
259 object lstPersonalLists: TORListBox
260 Left = 248
261 Top = 112
262 Width = 153
263 Height = 81
264 HelpContext = 9074
265 ItemHeight = 13
266 ParentShowHint = False
267 ShowHint = True
268 Sorted = True
269 TabOrder = 4
270 Caption = 'Personal Lists:'
271 ItemTipColor = clWindow
272 LongList = False
273 Pieces = '2'
274 OnChange = lstPersonalListsChange
275 end
276 object radAddByType: TRadioGroup
277 Left = 7
278 Top = 8
279 Width = 153
280 Height = 86
281 HelpContext = 9071
282 Caption = 'Select patients by '
283 Columns = 2
284 ItemIndex = 0
285 Items.Strings = (
286 'P&atient'
287 '&Ward'
288 '&Clinic'
289 '&Provider'
290 '&Specialty'
291 '&List')
292 TabOrder = 0
293 OnClick = radAddByTypeClick
294 end
295 object btnListSaveChanges: TButton
296 Left = 166
297 Top = 328
298 Width = 75
299 Height = 22
300 HelpContext = 9080
301 Caption = 'Save Changes'
302 Enabled = False
303 Font.Charset = DEFAULT_CHARSET
304 Font.Color = clWindowText
305 Font.Height = -11
306 Font.Name = 'MS Sans Serif'
307 Font.Style = []
308 ParentFont = False
309 TabOrder = 10
310 OnClick = btnListSaveChangesClick
311 end
312 object btnListAdd: TButton
313 Left = 166
314 Top = 216
315 Width = 75
316 Height = 22
317 HelpContext = 9076
318 Caption = 'Add'
319 Enabled = False
320 Font.Charset = DEFAULT_CHARSET
321 Font.Color = clWindowText
322 Font.Height = -11
323 Font.Name = 'MS Sans Serif'
324 Font.Style = []
325 ParentFont = False
326 TabOrder = 6
327 OnClick = btnListAddClick
328 end
329 object mnuPopPatient: TPopupMenu
330 Left = 8
331 Top = 352
332 object mnuPatientID: TMenuItem
333 Caption = 'Patient ID...'
334 OnClick = mnuPatientIDClick
335 end
336 end
337end
Note: See TracBrowser for help on using the repository browser.