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

Last change on this file since 1325 was 830, checked in by Kevin Toppenberg, 14 years ago

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