source: cprs/trunk/CPRS-Chart/fDrawers.dfm@ 1742

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

Updating the working copy to CPRS version 28

File size: 13.8 KB
Line 
1inherited frmDrawers: TfrmDrawers
2 Left = 285
3 Top = 335
4 BorderStyle = bsNone
5 Caption = 'frmDrawers'
6 ClientHeight = 365
7 ClientWidth = 189
8 OnCanResize = FormCanResize
9 OnCreate = FormCreate
10 OnDestroy = FormDestroy
11 OnResize = FormResize
12 ExplicitWidth = 189
13 ExplicitHeight = 365
14 PixelsPerInch = 96
15 TextHeight = 13
16 object pnlRemindersButton: TKeyClickPanel [0]
17 Left = 0
18 Top = 193
19 Width = 189
20 Height = 22
21 Align = alTop
22 BevelOuter = bvNone
23 Caption = 'Reminders'
24 TabOrder = 4
25 TabStop = True
26 OnClick = sbRemindersClick
27 OnEnter = pnlTemplatesButtonEnter
28 OnExit = pnlTemplatesButtonExit
29 object sbReminders: TORAlignSpeedButton
30 Left = 0
31 Top = 0
32 Width = 189
33 Height = 22
34 Align = alClient
35 AllowAllUp = True
36 GroupIndex = 1
37 Caption = 'Reminders'
38 Glyph.Data = {
39 3E010000424D3E010000000000007600000028000000280000000A0000000100
40 040000000000C800000000000000000000001000000010000000000000000000
41 8000008000000080800080000000800080008080000080808000C0C0C0000000
42 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
43 888888888888888888888888888888887788888888FF88888888FF88888888FF
44 88888888F7888888887F888888887F888888880F8888888F877888888778F888
45 888788F888888078F888888F887888888788F888888788F888888078F88888F8
46 8877888877888F888878888F888807888F8888F88887888878888F888878888F
47 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
48 777777F887777777F880000000F8888888888888888888888888888888888888
49 8888}
50 Margin = 60
51 NumGlyphs = 4
52 Spacing = 2
53 OnClick = sbRemindersClick
54 OnResize = sbResize
55 end
56 end
57 object pnlEncounterButton: TKeyClickPanel [1]
58 Left = 0
59 Top = 107
60 Width = 189
61 Height = 22
62 Align = alTop
63 BevelOuter = bvNone
64 Caption = 'Encounter'
65 TabOrder = 2
66 TabStop = True
67 OnClick = sbEncounterClick
68 OnEnter = pnlTemplatesButtonEnter
69 OnExit = pnlTemplatesButtonExit
70 object sbEncounter: TORAlignSpeedButton
71 Left = 0
72 Top = 0
73 Width = 189
74 Height = 22
75 Align = alClient
76 AllowAllUp = True
77 GroupIndex = 1
78 Caption = 'Encounter'
79 Glyph.Data = {
80 3E010000424D3E010000000000007600000028000000280000000A0000000100
81 040000000000C800000000000000000000001000000010000000000000000000
82 8000008000000080800080000000800080008080000080808000C0C0C0000000
83 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
84 888888888888888888888888888888887788888888FF88888888FF88888888FF
85 88888888F7888888887F888888887F888888880F8888888F877888888778F888
86 888788F888888078F888888F887888888788F888888788F888888078F88888F8
87 8877888877888F888878888F888807888F8888F88887888878888F888878888F
88 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
89 777777F887777777F880000000F8888888888888888888888888888888888888
90 8888}
91 Margin = 60
92 NumGlyphs = 4
93 Spacing = 2
94 OnClick = sbEncounterClick
95 OnResize = sbResize
96 end
97 end
98 object pnlTemplatesButton: TKeyClickPanel [2]
99 Left = 0
100 Top = 0
101 Width = 189
102 Height = 22
103 Align = alTop
104 BevelOuter = bvNone
105 Caption = 'Templates'
106 TabOrder = 0
107 TabStop = True
108 OnClick = sbTemplatesClick
109 OnEnter = pnlTemplatesButtonEnter
110 OnExit = pnlTemplatesButtonExit
111 object sbTemplates: TORAlignSpeedButton
112 Left = 0
113 Top = 0
114 Width = 189
115 Height = 22
116 Align = alClient
117 AllowAllUp = True
118 GroupIndex = 1
119 Caption = 'Templates'
120 Glyph.Data = {
121 3E010000424D3E010000000000007600000028000000280000000A0000000100
122 040000000000C800000000000000000000001000000010000000000000000000
123 8000008000000080800080000000800080008080000080808000C0C0C0000000
124 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
125 888888888888888888888888888888887788888888FF88888888FF88888888FF
126 88888888F7888888887F888888887F888888880F8888888F877888888778F888
127 888788F888888078F888888F887888888788F888888788F888888078F88888F8
128 8877888877888F888878888F888807888F8888F88887888878888F888878888F
129 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
130 777777F887777777F880000000F8888888888888888888888888888888888888
131 8888}
132 Margin = 60
133 NumGlyphs = 4
134 PopupMenu = popTemplates
135 Spacing = 2
136 OnClick = sbTemplatesClick
137 OnResize = sbResize
138 ExplicitTop = -6
139 end
140 end
141 object pnlOrdersButton: TKeyClickPanel [3]
142 Left = 0
143 Top = 279
144 Width = 189
145 Height = 22
146 Align = alTop
147 BevelOuter = bvNone
148 Caption = 'Orders'
149 TabOrder = 6
150 TabStop = True
151 OnClick = sbOrdersClick
152 OnEnter = pnlTemplatesButtonEnter
153 OnExit = pnlTemplatesButtonExit
154 object sbOrders: TORAlignSpeedButton
155 Left = 0
156 Top = 0
157 Width = 189
158 Height = 22
159 Align = alClient
160 AllowAllUp = True
161 GroupIndex = 1
162 Caption = 'Orders'
163 Glyph.Data = {
164 3E010000424D3E010000000000007600000028000000280000000A0000000100
165 040000000000C800000000000000000000001000000010000000000000000000
166 8000008000000080800080000000800080008080000080808000C0C0C0000000
167 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
168 888888888888888888888888888888887788888888FF88888888FF88888888FF
169 88888888F7888888887F888888887F888888880F8888888F877888888778F888
170 888788F888888078F888888F887888888788F888888788F888888078F88888F8
171 8877888877888F888878888F888807888F8888F88887888878888F888878888F
172 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
173 777777F887777777F880000000F8888888888888888888888888888888888888
174 8888}
175 Margin = 60
176 NumGlyphs = 4
177 Spacing = 11
178 OnClick = sbOrdersClick
179 OnResize = sbResize
180 end
181 end
182 object lbOrders: TORListBox [4]
183 Left = 0
184 Top = 301
185 Width = 189
186 Height = 64
187 Align = alTop
188 ItemHeight = 13
189 Items.Strings = (
190 'Orders')
191 ParentShowHint = False
192 ShowHint = True
193 TabOrder = 7
194 Visible = False
195 Caption = 'Orders'
196 ItemTipColor = clWindow
197 LongList = False
198 end
199 object lbEncounter: TORListBox [5]
200 Left = 0
201 Top = 129
202 Width = 189
203 Height = 64
204 Align = alTop
205 ItemHeight = 13
206 Items.Strings = (
207 'Encounter')
208 ParentShowHint = False
209 ShowHint = True
210 TabOrder = 3
211 Visible = False
212 Caption = 'Encounter'
213 ItemTipColor = clWindow
214 LongList = False
215 end
216 object pnlTemplates: TPanel [6]
217 Left = 0
218 Top = 22
219 Width = 189
220 Height = 85
221 Align = alTop
222 BevelOuter = bvNone
223 TabOrder = 1
224 Visible = False
225 object tvTemplates: TORTreeView
226 Left = 0
227 Top = 38
228 Width = 189
229 Height = 47
230 Align = alClient
231 DragMode = dmAutomatic
232 HideSelection = False
233 Images = dmodShared.imgTemplates
234 Indent = 19
235 ParentShowHint = False
236 PopupMenu = popTemplates
237 ReadOnly = True
238 RightClickSelect = True
239 ShowHint = False
240 TabOrder = 1
241 OnClick = tvTemplatesClick
242 OnCollapsing = tvTemplatesCollapsing
243 OnDblClick = tvTemplatesDblClick
244 OnExpanding = tvTemplatesExpanding
245 OnGetImageIndex = tvTemplatesGetImageIndex
246 OnGetSelectedIndex = tvTemplatesGetSelectedIndex
247 OnKeyDown = tvTemplatesKeyDown
248 OnKeyUp = tvTemplatesKeyUp
249 Caption = 'Templates'
250 NodePiece = 2
251 OnDragging = tvTemplatesDragging
252 end
253 object pnlTemplateSearch: TPanel
254 Left = 0
255 Top = 0
256 Width = 189
257 Height = 38
258 Align = alTop
259 BevelOuter = bvNone
260 TabOrder = 0
261 OnResize = pnlTemplateSearchResize
262 DesignSize = (
263 189
264 38)
265 object btnFind: TORAlignButton
266 Left = 134
267 Top = 0
268 Width = 55
269 Height = 21
270 Hint = 'Find Template'
271 Anchors = [akTop, akRight]
272 Caption = 'Find'
273 ParentShowHint = False
274 PopupMenu = popTemplates
275 ShowHint = True
276 TabOrder = 1
277 OnClick = btnFindClick
278 end
279 object edtSearch: TCaptionEdit
280 Left = 0
281 Top = 0
282 Width = 134
283 Height = 21
284 Anchors = [akLeft, akTop, akRight]
285 TabOrder = 0
286 OnChange = edtSearchChange
287 OnEnter = edtSearchEnter
288 OnExit = edtSearchExit
289 Caption = 'Text to find'
290 end
291 object cbMatchCase: TCheckBox
292 Left = 0
293 Top = 21
294 Width = 80
295 Height = 17
296 Caption = 'Match Case'
297 TabOrder = 2
298 OnClick = cbFindOptionClick
299 end
300 object cbWholeWords: TCheckBox
301 Left = 80
302 Top = 21
303 Width = 109
304 Height = 17
305 Caption = 'Whole Words Only'
306 TabOrder = 3
307 OnClick = cbFindOptionClick
308 end
309 end
310 end
311 object tvReminders: TORTreeView [7]
312 Left = 0
313 Top = 215
314 Width = 189
315 Height = 64
316 HelpContext = 11300
317 Align = alTop
318 HideSelection = False
319 Images = dmodShared.imgReminders
320 Indent = 23
321 ReadOnly = True
322 RightClickSelect = True
323 StateImages = dmodShared.imgReminders
324 TabOrder = 5
325 OnCollapsed = tvRemindersCurListChanged
326 OnExpanded = tvRemindersCurListChanged
327 OnKeyDown = tvRemindersKeyDown
328 OnMouseUp = tvRemindersMouseUp
329 Caption = 'Reminders'
330 NodePiece = 0
331 OnNodeCaptioning = tvRemindersNodeCaptioning
332 end
333 inherited amgrMain: TVA508AccessibilityManager
334 Left = 72
335 Top = 72
336 Data = (
337 (
338 'Component = pnlRemindersButton'
339 'Status = stsDefault')
340 (
341 'Component = pnlEncounterButton'
342 'Status = stsDefault')
343 (
344 'Component = pnlTemplatesButton'
345 'Status = stsDefault')
346 (
347 'Component = pnlOrdersButton'
348 'Status = stsDefault')
349 (
350 'Component = lbOrders'
351 'Status = stsDefault')
352 (
353 'Component = lbEncounter'
354 'Status = stsDefault')
355 (
356 'Component = pnlTemplates'
357 'Status = stsDefault')
358 (
359 'Component = tvTemplates'
360 'Status = stsDefault')
361 (
362 'Component = pnlTemplateSearch'
363 'Status = stsDefault')
364 (
365 'Component = btnFind'
366 'Status = stsDefault')
367 (
368 'Component = edtSearch'
369 'Status = stsDefault')
370 (
371 'Component = cbMatchCase'
372 'Status = stsDefault')
373 (
374 'Component = cbWholeWords'
375 'Status = stsDefault')
376 (
377 'Component = tvReminders'
378 'Status = stsDefault')
379 (
380 'Component = frmDrawers'
381 'Status = stsDefault'))
382 end
383 object popTemplates: TPopupMenu
384 OnPopup = popTemplatesPopup
385 Left = 8
386 Top = 70
387 object mnuCopyTemplate: TMenuItem
388 Caption = 'Copy Template Text'
389 ShortCut = 16451
390 OnClick = mnuCopyTemplateClick
391 end
392 object mnuInsertTemplate: TMenuItem
393 Caption = '&Insert Template'
394 ShortCut = 16429
395 OnClick = mnuInsertTemplateClick
396 end
397 object mnuPreviewTemplate: TMenuItem
398 Caption = '&Preview/Print Template'
399 ShortCut = 16471
400 OnClick = mnuPreviewTemplateClick
401 end
402 object N1: TMenuItem
403 Caption = '-'
404 end
405 object mnuGotoDefault: TMenuItem
406 Caption = '&Goto Default'
407 ShortCut = 16455
408 OnClick = mnuGotoDefaultClick
409 end
410 object mnuDefault: TMenuItem
411 Caption = '&Mark as Default'
412 ShortCut = 16416
413 OnClick = mnuDefaultClick
414 end
415 object N3: TMenuItem
416 Caption = '-'
417 end
418 object mnuViewNotes: TMenuItem
419 Caption = '&View Template Notes'
420 ShortCut = 16470
421 OnClick = mnuViewNotesClick
422 end
423 object N4: TMenuItem
424 Caption = '-'
425 end
426 object mnuFindTemplates: TMenuItem
427 Caption = '&Find Templates'
428 ShortCut = 16454
429 OnClick = mnuFindTemplatesClick
430 end
431 object mnuCollapseTree: TMenuItem
432 Caption = '&Collapse Tree'
433 OnClick = mnuCollapseTreeClick
434 end
435 object N2: TMenuItem
436 Caption = '-'
437 end
438 object mnuEditTemplates: TMenuItem
439 Caption = '&Edit Templates'
440 OnClick = mnuEditTemplatesClick
441 end
442 object mnuNewTemplate: TMenuItem
443 Caption = 'Create &New Template'
444 OnClick = mnuNewTemplateClick
445 end
446 object N5: TMenuItem
447 Caption = '-'
448 end
449 object mnuViewTemplateIconLegend: TMenuItem
450 Caption = 'Template Icon Legend'
451 OnClick = mnuViewTemplateIconLegendClick
452 end
453 end
454 object fldAccessTemplates: TVA508ComponentAccessibility
455 Component = pnlTemplatesButton
456 OnStateQuery = fldAccessTemplatesStateQuery
457 OnInstructionsQuery = fldAccessTemplatesInstructionsQuery
458 ComponentName = 'Drawer'
459 Left = 104
460 Top = 72
461 end
462 object fldAccessReminders: TVA508ComponentAccessibility
463 Component = pnlRemindersButton
464 OnStateQuery = fldAccessRemindersStateQuery
465 OnInstructionsQuery = fldAccessRemindersInstructionsQuery
466 ComponentName = 'Drawer'
467 Left = 128
468 Top = 232
469 end
470 object imgLblReminders: TVA508ImageListLabeler
471 Components = <
472 item
473 Component = tvReminders
474 end>
475 Labels = <>
476 RemoteLabeler = dmodShared.imgLblReminders
477 Left = 96
478 Top = 232
479 end
480 object imgLblTemplates: TVA508ImageListLabeler
481 Components = <
482 item
483 Component = tvTemplates
484 end>
485 Labels = <>
486 RemoteLabeler = dmodShared.imgLblHealthFactorLabels
487 Left = 136
488 Top = 72
489 end
490end
Note: See TracBrowser for help on using the repository browser.