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

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

Updating the working copy to CPRS version 28
File size: 9.2 KB
RevLine 
[830]1inherited frmPtSel: TfrmPtSel
[1679]2 Left = 290
3 Top = 232
4 BorderIcons = [biSystemMenu]
[456]5 Caption = 'Patient Selection'
[830]6 ClientHeight = 555
7 ClientWidth = 785
[456]8 OldCreateOrder = True
[1679]9 Position = poMainFormCenter
[456]10 OnClose = FormClose
[830]11 OnCreate = FormCreate
[456]12 OnDestroy = FormDestroy
[830]13 OnResize = FormResize
[456]14 OnShow = FormShow
[1679]15 ExplicitTop = -20
[830]16 ExplicitWidth = 793
17 ExplicitHeight = 589
[456]18 PixelsPerInch = 96
19 TextHeight = 13
[830]20 object sptVert: TSplitter [0]
[456]21 Left = 0
22 Top = 290
23 Width = 785
24 Height = 4
25 Cursor = crVSplit
26 Align = alTop
27 end
[830]28 object pnlDivide: TORAutoPanel [1]
[456]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
[830]50 BackColor = clHighlightText
[456]51 Color = clBtnFace
[830]52 ForeColor = clHighlight
[456]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
[830]64 object pnlPtSel: TORAutoPanel [2]
[456]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
[830]74 Left = 216
75 Top = 4
[456]76 Width = 33
77 Height = 13
78 Caption = 'Patient'
79 ShowAccelChar = False
80 end
81 object cboPatient: TORComboBox
[830]82 Left = 216
83 Top = 33
[456]84 Width = 272
[830]85 Height = 251
[1679]86 Hint = 'Enter name or use "Last 4" (x1234) format'
[456]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 = '<>'
[1679]104 TabPositions = '20,25,30'
[456]105 TabOrder = 1
106 OnChange = cboPatientChange
107 OnDblClick = cboPatientDblClick
108 OnEnter = cboPatientEnter
109 OnExit = cboPatientExit
110 OnKeyDown = cboPatientKeyDown
[1679]111 OnKeyUp = cboPatientKeyUp
[456]112 OnKeyPause = cboPatientKeyPause
113 OnMouseClick = cboPatientMouseClick
114 OnNeedData = cboPatientNeedData
115 CharsNeedMatch = 1
[830]116 UniqueAutoComplete = True
[456]117 end
118 object cmdOK: TButton
[1679]119 Left = 682
[830]120 Top = 3
[456]121 Width = 78
[830]122 Height = 21
[456]123 Caption = 'OK'
124 TabOrder = 2
125 OnClick = cmdOKClick
126 end
127 object cmdCancel: TButton
[1679]128 Left = 682
[830]129 Top = 24
[456]130 Width = 78
[830]131 Height = 21
[456]132 Cancel = True
133 Caption = 'Cancel'
134 TabOrder = 3
135 OnClick = cmdCancelClick
136 end
137 object cmdSaveList: TButton
[830]138 Left = 494
[1679]139 Top = 252
[456]140 Width = 175
[830]141 Height = 21
[456]142 Caption = 'Save Patient List Settings'
143 TabOrder = 0
144 OnClick = cmdSaveListClick
145 end
146 end
[830]147 object pnlNotifications: TORAutoPanel [3]
[456]148 Left = 0
149 Top = 520
150 Width = 785
151 Height = 35
152 Align = alBottom
153 BevelOuter = bvNone
154 TabOrder = 2
155 Visible = False
[1679]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
[456]167 end
[1679]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
[456]206 Top = 10
207 Width = 95
208 Height = 21
[1679]209 Caption = 'Remove'
210 Enabled = False
211 TabOrder = 8
212 OnClick = cmdRemoveClick
[456]213 end
[1679]214 object cmdComments: TButton
215 Left = 441
[456]216 Top = 10
217 Width = 95
218 Height = 21
[1679]219 Caption = 'Show Comments'
[456]220 Enabled = False
[1679]221 TabOrder = 6
222 OnClick = cmdCommentsClick
[456]223 end
224 object cmdForward: TButton
225 Left = 335
226 Top = 10
227 Width = 95
228 Height = 21
229 Caption = 'Forward'
230 Enabled = False
[1679]231 TabOrder = 4
[456]232 OnClick = cmdForwardClick
233 end
[1679]234 object cmdProcess: TButton
235 Left = 229
[456]236 Top = 10
237 Width = 95
238 Height = 21
[1679]239 Caption = 'Process'
[456]240 Enabled = False
[1679]241 TabOrder = 2
242 OnClick = cmdProcessClick
[456]243 end
[1679]244 object cmdProcessAll: TButton
245 Left = 120
[830]246 Top = 10
247 Width = 95
248 Height = 21
[1679]249 Caption = 'Process All'
250 TabOrder = 1
251 OnClick = cmdProcessAllClick
[830]252 end
[1679]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
[456]262 end
[830]263 object lstvAlerts: TCaptionListView [4]
[456]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>
[830]304 HideSelection = False
[456]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
[1679]321 OnMouseUp = lstvAlertsMouseUp
[456]322 OnSelectItem = lstvAlertsSelectItem
323 Caption = 'Notifications'
324 end
[830]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'
[1679]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'
[830]383 'Status = stsDefault'))
384 end
[456]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.