source: cprs/trunk/CPRS-Chart/fPtSel.dfm@ 1718

Last change on this file since 1718 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
File size: 9.2 KB
Line 
1inherited frmPtSel: TfrmPtSel
2 Left = 290
3 Top = 232
4 BorderIcons = [biSystemMenu]
5 Caption = 'Patient Selection'
6 ClientHeight = 555
7 ClientWidth = 785
8 OldCreateOrder = True
9 Position = poMainFormCenter
10 OnClose = FormClose
11 OnCreate = FormCreate
12 OnDestroy = FormDestroy
13 OnResize = FormResize
14 OnShow = FormShow
15 ExplicitTop = -20
16 ExplicitWidth = 793
17 ExplicitHeight = 589
18 PixelsPerInch = 96
19 TextHeight = 13
20 object sptVert: TSplitter [0]
21 Left = 0
22 Top = 290
23 Width = 785
24 Height = 4
25 Cursor = crVSplit
26 Align = alTop
27 end
28 object pnlDivide: TORAutoPanel [1]
29 Left = 0
30 Top = 294
31 Width = 785
32 Height = 17
33 Align = alTop
34 BevelOuter = bvNone
35 BevelWidth = 2
36 TabOrder = 0
37 Visible = False
38 object lblNotifications: TLabel
39 Left = 4
40 Top = 4
41 Width = 58
42 Height = 13
43 Caption = 'Notifications'
44 end
45 object ggeInfo: TGauge
46 Left = 212
47 Top = 1
48 Width = 100
49 Height = 15
50 BackColor = clHighlightText
51 Color = clBtnFace
52 ForeColor = clHighlight
53 Font.Charset = DEFAULT_CHARSET
54 Font.Color = clCaptionText
55 Font.Height = -11
56 Font.Name = 'MS Sans Serif'
57 Font.Style = []
58 ParentColor = False
59 ParentFont = False
60 Progress = 0
61 Visible = False
62 end
63 end
64 object pnlPtSel: TORAutoPanel [2]
65 Left = 0
66 Top = 0
67 Width = 785
68 Height = 290
69 Align = alTop
70 BevelWidth = 2
71 TabOrder = 3
72 OnResize = pnlPtSelResize
73 object lblPatient: TLabel
74 Left = 216
75 Top = 4
76 Width = 33
77 Height = 13
78 Caption = 'Patient'
79 ShowAccelChar = False
80 end
81 object cboPatient: TORComboBox
82 Left = 216
83 Top = 33
84 Width = 272
85 Height = 251
86 Hint = 'Enter name or use "Last 4" (x1234) format'
87 Style = orcsSimple
88 AutoSelect = True
89 Caption = 'Patient'
90 Color = clWindow
91 DropDownCount = 8
92 ItemHeight = 13
93 ItemTipColor = clWindow
94 ItemTipEnable = True
95 ListItemsOnly = False
96 LongList = True
97 LookupPiece = 2
98 MaxLength = 0
99 ParentShowHint = False
100 Pieces = '2,3'
101 ShowHint = True
102 Sorted = False
103 SynonymChars = '<>'
104 TabPositions = '20,25,30'
105 TabOrder = 1
106 OnChange = cboPatientChange
107 OnDblClick = cboPatientDblClick
108 OnEnter = cboPatientEnter
109 OnExit = cboPatientExit
110 OnKeyDown = cboPatientKeyDown
111 OnKeyUp = cboPatientKeyUp
112 OnKeyPause = cboPatientKeyPause
113 OnMouseClick = cboPatientMouseClick
114 OnNeedData = cboPatientNeedData
115 CharsNeedMatch = 1
116 UniqueAutoComplete = True
117 end
118 object cmdOK: TButton
119 Left = 682
120 Top = 3
121 Width = 78
122 Height = 21
123 Caption = 'OK'
124 TabOrder = 2
125 OnClick = cmdOKClick
126 end
127 object cmdCancel: TButton
128 Left = 682
129 Top = 24
130 Width = 78
131 Height = 21
132 Cancel = True
133 Caption = 'Cancel'
134 TabOrder = 3
135 OnClick = cmdCancelClick
136 end
137 object cmdSaveList: TButton
138 Left = 494
139 Top = 252
140 Width = 175
141 Height = 21
142 Caption = 'Save Patient List Settings'
143 TabOrder = 0
144 OnClick = cmdSaveListClick
145 end
146 end
147 object pnlNotifications: TORAutoPanel [3]
148 Left = 0
149 Top = 520
150 Width = 785
151 Height = 35
152 Align = alBottom
153 BevelOuter = bvNone
154 TabOrder = 2
155 Visible = False
156 object txtCmdComments: TVA508StaticText
157 Name = 'txtCmdComments'
158 Left = 441
159 Top = 0
160 Width = 159
161 Height = 15
162 Alignment = taLeftJustify
163 Caption = 'Show Comments Button Disabled'
164 TabOrder = 7
165 Visible = False
166 ShowAccelChar = True
167 end
168 object txtCmdRemove: TVA508StaticText
169 Name = 'txtCmdRemove'
170 Left = 577
171 Top = 0
172 Width = 120
173 Height = 15
174 Alignment = taLeftJustify
175 Caption = 'Remove Button Disabled'
176 TabOrder = 9
177 Visible = False
178 ShowAccelChar = True
179 end
180 object txtCmdForward: TVA508StaticText
181 Name = 'txtCmdForward'
182 Left = 344
183 Top = 0
184 Width = 118
185 Height = 15
186 Alignment = taLeftJustify
187 Caption = 'Forward Button Disabled'
188 TabOrder = 5
189 Visible = False
190 ShowAccelChar = True
191 end
192 object txtCmdProcess: TVA508StaticText
193 Name = 'txtCmdProcess'
194 Left = 232
195 Top = 0
196 Width = 118
197 Height = 15
198 Alignment = taLeftJustify
199 Caption = 'Process Button Disabled'
200 TabOrder = 3
201 Visible = False
202 ShowAccelChar = True
203 end
204 object cmdRemove: TButton
205 Left = 577
206 Top = 10
207 Width = 95
208 Height = 21
209 Caption = 'Remove'
210 Enabled = False
211 TabOrder = 8
212 OnClick = cmdRemoveClick
213 end
214 object cmdComments: TButton
215 Left = 441
216 Top = 10
217 Width = 95
218 Height = 21
219 Caption = 'Show Comments'
220 Enabled = False
221 TabOrder = 6
222 OnClick = cmdCommentsClick
223 end
224 object cmdForward: TButton
225 Left = 335
226 Top = 10
227 Width = 95
228 Height = 21
229 Caption = 'Forward'
230 Enabled = False
231 TabOrder = 4
232 OnClick = cmdForwardClick
233 end
234 object cmdProcess: TButton
235 Left = 229
236 Top = 10
237 Width = 95
238 Height = 21
239 Caption = 'Process'
240 Enabled = False
241 TabOrder = 2
242 OnClick = cmdProcessClick
243 end
244 object cmdProcessAll: TButton
245 Left = 120
246 Top = 10
247 Width = 95
248 Height = 21
249 Caption = 'Process All'
250 TabOrder = 1
251 OnClick = cmdProcessAllClick
252 end
253 object cmdProcessInfo: TButton
254 Left = 11
255 Top = 10
256 Width = 95
257 Height = 21
258 Caption = 'Process Info'
259 TabOrder = 0
260 OnClick = cmdProcessInfoClick
261 end
262 end
263 object lstvAlerts: TCaptionListView [4]
264 Left = 0
265 Top = 311
266 Width = 785
267 Height = 209
268 Align = alClient
269 Columns = <
270 item
271 Caption = 'Info'
272 Width = 30
273 end
274 item
275 Caption = 'Patient'
276 Tag = 1
277 Width = 120
278 end
279 item
280 Caption = 'Location'
281 Tag = 2
282 Width = 60
283 end
284 item
285 Caption = 'Urgency'
286 Tag = 3
287 Width = 67
288 end
289 item
290 Caption = 'Alert Date/Time'
291 Tag = 4
292 Width = 110
293 end
294 item
295 Caption = 'Message'
296 Tag = 5
297 Width = 280
298 end
299 item
300 Caption = 'Forwarded By/When'
301 Tag = 6
302 Width = 180
303 end>
304 HideSelection = False
305 HoverTime = 0
306 IconOptions.WrapText = False
307 MultiSelect = True
308 ReadOnly = True
309 RowSelect = True
310 ParentShowHint = False
311 PopupMenu = popNotifications
312 ShowWorkAreas = True
313 ShowHint = True
314 TabOrder = 1
315 ViewStyle = vsReport
316 OnColumnClick = lstvAlertsColumnClick
317 OnCompare = lstvAlertsCompare
318 OnDblClick = lstvAlertsDblClick
319 OnInfoTip = lstvAlertsInfoTip
320 OnKeyDown = lstvAlertsKeyDown
321 OnMouseUp = lstvAlertsMouseUp
322 OnSelectItem = lstvAlertsSelectItem
323 Caption = 'Notifications'
324 end
325 inherited amgrMain: TVA508AccessibilityManager
326 Data = (
327 (
328 'Component = pnlDivide'
329 'Status = stsDefault')
330 (
331 'Component = pnlPtSel'
332 'Status = stsDefault')
333 (
334 'Component = cboPatient'
335 'Status = stsDefault')
336 (
337 'Component = cmdOK'
338 'Status = stsDefault')
339 (
340 'Component = cmdCancel'
341 'Status = stsDefault')
342 (
343 'Component = cmdSaveList'
344 'Status = stsDefault')
345 (
346 'Component = pnlNotifications'
347 'Status = stsDefault')
348 (
349 'Component = cmdProcessInfo'
350 'Status = stsDefault')
351 (
352 'Component = cmdProcessAll'
353 'Status = stsDefault')
354 (
355 'Component = cmdProcess'
356 'Status = stsDefault')
357 (
358 'Component = cmdForward'
359 'Status = stsDefault')
360 (
361 'Component = cmdRemove'
362 'Status = stsDefault')
363 (
364 'Component = lstvAlerts'
365 'Status = stsDefault')
366 (
367 'Component = frmPtSel'
368 'Status = stsDefault')
369 (
370 'Component = cmdComments'
371 'Status = stsDefault')
372 (
373 'Component = txtCmdComments'
374 'Status = stsDefault')
375 (
376 'Component = txtCmdRemove'
377 'Status = stsDefault')
378 (
379 'Component = txtCmdForward'
380 'Status = stsDefault')
381 (
382 'Component = txtCmdProcess'
383 'Status = stsDefault'))
384 end
385 object popNotifications: TPopupMenu
386 Left = 508
387 Top = 323
388 object mnuProcess: TMenuItem
389 Caption = 'Process'
390 OnClick = cmdProcessClick
391 end
392 object mnuForward: TMenuItem
393 Caption = 'Forward'
394 OnClick = cmdForwardClick
395 end
396 object N1: TMenuItem
397 Caption = '-'
398 end
399 object mnuRemove: TMenuItem
400 Caption = 'Remove'
401 OnClick = cmdRemoveClick
402 end
403 end
404end
Note: See TracBrowser for help on using the repository browser.