source: cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm@ 830

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

Fixed crash on non-login

File size: 65.5 KB
Line 
1inherited frmNotes: TfrmNotes
2 Left = 272
3 Top = 105
4 Width = 490
5 Height = 358
6 HelpContext = 5000
7 Caption = 'Progress Notes Page'
8 HelpFile = 'overvw'
9 KeyPreview = True
10 Menu = mnuNotes
11 OnDestroy = FormDestroy
12 OnHide = FormHide
13 OnMouseMove = FormMouseMove
14 OnShow = FormShow
15 PixelsPerInch = 96
16 TextHeight = 13
17 inherited shpPageBottom: TShape
18 Top = 299
19 Width = 482
20 end
21 inherited sptHorz: TSplitter
22 Left = 64
23 Height = 299
24 OnCanResize = sptHorzCanResize
25 end
26 inherited pnlLeft: TPanel
27 Width = 64
28 Height = 299
29 object lblNotes: TOROffsetLabel
30 Left = 0
31 Top = 0
32 Width = 64
33 Height = 19
34 Align = alTop
35 Caption = 'Last 100 Notes'
36 HorzOffset = 2
37 ParentShowHint = False
38 ShowHint = True
39 Transparent = True
40 VertOffset = 6
41 WordWrap = False
42 end
43 object lblSpace1: TLabel
44 Left = 0
45 Top = 254
46 Width = 64
47 Height = 3
48 Align = alBottom
49 AutoSize = False
50 Caption = ' '
51 end
52 object cmdNewNote: TORAlignButton
53 Left = 0
54 Top = 257
55 Width = 64
56 Height = 21
57 Caption = 'New Note'
58 TabOrder = 1
59 OnClick = cmdNewNoteClick
60 OnExit = cmdNewNoteExit
61 OnMouseMove = FormMouseMove
62 Align = alBottom
63 end
64 object cmdPCE: TORAlignButton
65 Left = 0
66 Top = 278
67 Width = 64
68 Height = 21
69 Caption = 'Encounter'
70 TabOrder = 2
71 Visible = False
72 OnClick = cmdPCEClick
73 OnExit = cmdPCEExit
74 OnMouseMove = FormMouseMove
75 Align = alBottom
76 end
77 object pnlDrawers: TPanel
78 Left = 0
79 Top = 19
80 Width = 64
81 Height = 235
82 Align = alClient
83 BevelOuter = bvNone
84 TabOrder = 0
85 object splDrawers: TSplitter
86 Left = 0
87 Top = 232
88 Width = 64
89 Height = 3
90 Cursor = crVSplit
91 Align = alBottom
92 end
93 object lstNotes: TORListBox
94 Left = 0
95 Top = 0
96 Width = 64
97 Height = 18
98 TabStop = False
99 Ctl3D = True
100 ItemHeight = 13
101 ParentCtl3D = False
102 ParentShowHint = False
103 PopupMenu = popNoteList
104 ShowHint = True
105 TabOrder = 0
106 Visible = False
107 OnClick = lstNotesClick
108 ItemTipColor = clWindow
109 LongList = False
110 Pieces = '2,3'
111 TabPositions = '10'
112 end
113 object tvNotes: TORTreeView
114 Left = 0
115 Top = 0
116 Width = 64
117 Height = 232
118 Align = alClient
119 Constraints.MinWidth = 30
120 HideSelection = False
121 Indent = 19
122 PopupMenu = popNoteList
123 ReadOnly = True
124 TabOrder = 1
125 OnAddition = tvNotesAddition
126 OnChange = tvNotesChange
127 OnClick = tvNotesClick
128 OnCollapsed = tvNotesCollapsed
129 OnDeletion = tvNotesDeletion
130 OnDragDrop = tvNotesDragDrop
131 OnDragOver = tvNotesDragOver
132 OnExit = tvNotesExit
133 OnExpanded = tvNotesExpanded
134 OnMouseMove = FormMouseMove
135 OnStartDrag = tvNotesStartDrag
136 Caption = 'Last 100 Notes'
137 NodePiece = 0
138 ShortNodeCaptions = True
139 end
140 end
141 end
142 inherited pnlRight: TPanel
143 Left = 68
144 Width = 414
145 Height = 299
146 object sptVert: TSplitter
147 Left = 0
148 Top = 250
149 Width = 414
150 Height = 4
151 Cursor = crVSplit
152 Align = alBottom
153 end
154 object memPCEShow: TRichEdit
155 Left = 0
156 Top = 254
157 Width = 414
158 Height = 45
159 Align = alBottom
160 Color = clCream
161 Lines.Strings = (
162 '<No encounter information entered>')
163 PlainText = True
164 ReadOnly = True
165 ScrollBars = ssVertical
166 TabOrder = 2
167 OnExit = memPCEShowExit
168 end
169 object pnlWrite: TPanel
170 Left = 0
171 Top = 0
172 Width = 414
173 Height = 250
174 Align = alClient
175 BevelOuter = bvNone
176 TabOrder = 1
177 Visible = False
178 OnResize = pnlWriteResize
179 object pnlFields: TPanel
180 Left = 0
181 Top = 0
182 Width = 414
183 Height = 67
184 Align = alTop
185 BevelOuter = bvNone
186 TabOrder = 0
187 OnResize = pnlFieldsResize
188 DesignSize = (
189 414
190 67)
191 object bvlNewTitle: TBevel
192 Left = 5
193 Top = 5
194 Width = 117
195 Height = 15
196 end
197 object lblRefDate: TStaticText
198 Left = 237
199 Top = 6
200 Width = 101
201 Height = 17
202 Hint = 'Press "Change..." to change date/time of note.'
203 Alignment = taCenter
204 Caption = 'Oct 20,1999@15:30'
205 ParentShowHint = False
206 ShowAccelChar = False
207 ShowHint = True
208 TabOrder = 2
209 end
210 object lblAuthor: TStaticText
211 Left = 196
212 Top = 6
213 Width = 152
214 Height = 17
215 Hint = 'Press "Change..." to select a different author.'
216 Alignment = taRightJustify
217 Anchors = [akTop, akRight]
218 Caption = 'Winchester,Charles Emerson III'
219 ParentShowHint = False
220 ShowAccelChar = False
221 ShowHint = True
222 TabOrder = 3
223 end
224 object lblVisit: TStaticText
225 Left = 6
226 Top = 21
227 Width = 204
228 Height = 17
229 Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
230 ShowAccelChar = False
231 TabOrder = 4
232 end
233 object lblCosigner: TStaticText
234 Left = 101
235 Top = 21
236 Width = 243
237 Height = 13
238 Hint = 'Press "Change..." to select a different cosigner.'
239 Alignment = taRightJustify
240 Anchors = [akTop, akRight]
241 AutoSize = False
242 Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
243 ParentShowHint = False
244 ShowAccelChar = False
245 ShowHint = True
246 TabOrder = 5
247 end
248 object lblSubject: TStaticText
249 Left = 6
250 Top = 43
251 Width = 43
252 Height = 17
253 Caption = 'Subject:'
254 TabOrder = 6
255 end
256 object lblNewTitle: TStaticText
257 Left = 6
258 Top = 6
259 Width = 119
260 Height = 17
261 Hint = 'Press "Change..." to select a different title.'
262 Caption = ' General Medicine Note '
263 Color = clCream
264 Font.Charset = DEFAULT_CHARSET
265 Font.Color = clWindowText
266 Font.Height = -11
267 Font.Name = 'MS Sans Serif'
268 Font.Style = []
269 ParentColor = False
270 ParentFont = False
271 ParentShowHint = False
272 ShowAccelChar = False
273 ShowHint = True
274 TabOrder = 7
275 end
276 object cmdChange: TButton
277 Left = 350
278 Top = 6
279 Width = 58
280 Height = 21
281 Anchors = [akTop, akRight]
282 Caption = 'Change...'
283 TabOrder = 0
284 OnClick = cmdChangeClick
285 OnExit = cmdChangeExit
286 end
287 object txtSubject: TCaptionEdit
288 Left = 48
289 Top = 40
290 Width = 360
291 Height = 21
292 Hint = 'Subject is limited to a maximum of 80 characters.'
293 Anchors = [akLeft, akTop, akRight]
294 MaxLength = 80
295 ParentShowHint = False
296 ShowHint = True
297 TabOrder = 1
298 Text = 'txtSubject'
299 Caption = 'Subject'
300 end
301 end
302 object pnlTextWrite: TPanel
303 Left = 0
304 Top = 67
305 Width = 414
306 Height = 183
307 Align = alClient
308 BevelOuter = bvNone
309 Caption = 'pnlTextWrite'
310 TabOrder = 1
311 object memNewNote: TRichEdit
312 Left = 0
313 Top = 0
314 Width = 414
315 Height = 183
316 Align = alClient
317 Font.Charset = DEFAULT_CHARSET
318 Font.Color = clWindowText
319 Font.Height = -11
320 Font.Name = 'Courier New'
321 Font.Style = []
322 ParentFont = False
323 PlainText = True
324 PopupMenu = popNoteMemo
325 ScrollBars = ssBoth
326 TabOrder = 0
327 WantTabs = True
328 OnChange = memNewNoteChange
329 OnKeyDown = memNewNoteKeyDown
330 OnKeyPress = memNewNoteKeyPress
331 OnKeyUp = memNewNoteKeyUp
332 end
333 end
334 object pnlHTMLWrite: TPanel
335 Left = 0
336 Top = 67
337 Width = 414
338 Height = 183
339 Align = alClient
340 BevelOuter = bvNone
341 Color = clInactiveBorder
342 TabOrder = 2
343 Visible = False
344 object pnlHTMLEdit: TPanel
345 Left = 0
346 Top = 25
347 Width = 414
348 Height = 158
349 Align = alClient
350 BevelOuter = bvNone
351 TabOrder = 0
352 end
353 object ToolBar: TToolBar
354 Left = 0
355 Top = 0
356 Width = 414
357 Height = 25
358 AutoSize = True
359 ButtonHeight = 21
360 Caption = 'ToolBar'
361 TabOrder = 1
362 TabStop = True
363 object cbFontNames: TComboBox
364 Left = 0
365 Top = 2
366 Width = 145
367 Height = 21
368 ItemHeight = 13
369 ParentShowHint = False
370 ShowHint = True
371 TabOrder = 0
372 OnClick = cbFontNamesChange
373 end
374 object cbFontSize: TComboBox
375 Left = 145
376 Top = 2
377 Width = 75
378 Height = 21
379 ItemHeight = 13
380 ItemIndex = 2
381 TabOrder = 1
382 Text = '3 (12 pt)'
383 OnClick = cbFontSizeChange
384 Items.Strings = (
385 '1 (8 pt)'
386 '2 (10 pt)'
387 '3 (12 pt)'
388 '4 (14 pt)'
389 '5 (18 pt)'
390 '6 (24 pt)'
391 '7 (36 pt)')
392 end
393 object btnFonts: TSpeedButton
394 Left = 220
395 Top = 2
396 Width = 23
397 Height = 21
398 Hint = 'Text Font'
399 Glyph.Data = {
400 82020000424D8202000000000000420000002800000012000000100000000100
401 10000300000040020000130B0000130B0000000000000000000000F80000E007
402 00001F000000FFFF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
403 5AEF5AEF5AEF5AEF5AEF5AEF100010005AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
404 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF100010005AEF7BEF5AEF5AEF5AEF5AEF
405 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF100010005AEF5AEF5AEF5AEF
406 5AEF5AEF5AEF5AEF5AEF53AD008053AD5AEF5AEF5AEF5AEF1000100010005AEF
407 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF00805AEF5AEF5AEF5AEF5AEF10001000
408 5AEF5AEF7BEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF00805AEF53AD5AEF5AEF5AEF
409 100010005AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF0080008000805AEF
410 5AEF5AEF10001000100010005AEF5AEF108010805AEF5AEF5AEF5AEF00805AEF
411 53AD5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF53AD10805AEF5AEF5AEF
412 00805AEF5AEF53AD5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF10805AEF
413 5AEF53AD00800080008000805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
414 10805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
415 5AEF1080108010805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
416 5AEF5AEF5AEF5AEF10805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
417 5AEF5AEF5AEF5AEF5AEF5AEF108053AD5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
418 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF108010805AEF5AEF5AEF5AEF5AEF
419 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
420 5AEF5AEF5AEF}
421 ParentShowHint = False
422 ShowHint = True
423 OnClick = btnFontsClick
424 end
425 object btnItalic: TSpeedButton
426 Left = 243
427 Top = 2
428 Width = 23
429 Height = 21
430 Hint = 'Italics'
431 Glyph.Data = {
432 42020000424D4202000000000000420000002800000010000000100000000100
433 10000300000000020000130B0000130B0000000000000000000000F80000E007
434 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
435 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
436 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
437 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
438 FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF
439 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFFFFFFFFFFFFFF
440 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF108400000000FFFFFFFFFFFFFFFFFFFF
441 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFFFFFFFFFF
442 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF108400000000FFFFFFFFFFFFFFFF
443 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFFFFFF
444 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF108400000000FFFFFFFFFFFF
445 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFF
446 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000FFFF
447 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
448 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
449 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
450 FFFFFFFFFFFF}
451 ParentShowHint = False
452 ShowHint = True
453 OnClick = btnItalicClick
454 end
455 object btnBold: TSpeedButton
456 Left = 266
457 Top = 2
458 Width = 23
459 Height = 21
460 Hint = 'Bold'
461 Glyph.Data = {
462 42020000424D4202000000000000420000002800000010000000100000000100
463 10000300000000020000130B0000130B00000000000000000000007C0000E003
464 00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
465 FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
466 FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
467 FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
468 FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7F
469 FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F
470 FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F
471 FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F
472 FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FFF7F
473 FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F
474 FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F
475 FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F
476 FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7F
477 FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
478 FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
479 FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
480 FF7FFF7FFF7F}
481 ParentShowHint = False
482 ShowHint = True
483 OnClick = btnBoldClick
484 end
485 object btnUnderline: TSpeedButton
486 Left = 289
487 Top = 2
488 Width = 23
489 Height = 21
490 Hint = 'Underline'
491 Glyph.Data = {
492 42020000424D4202000000000000420000002800000010000000100000000100
493 10000300000000020000130B0000130B0000000000000000000000F80000E007
494 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
495 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
496 FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF
497 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
498 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000FFFFFFFFFFFF
499 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFF108400000000FFFFFFFF
500 FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF
501 FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF
502 FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF
503 FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF
504 FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF
505 FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF
506 FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000FFFF0000000000000000FFFF
507 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
508 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
509 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
510 FFFFFFFFFFFF}
511 ParentShowHint = False
512 ShowHint = True
513 OnClick = btnUnderlineClick
514 end
515 object btnBullets: TSpeedButton
516 Left = 312
517 Top = 2
518 Width = 23
519 Height = 21
520 Hint = 'Bullets'
521 Glyph.Data = {
522 42020000424D4202000000000000420000002800000010000000100000000100
523 10000300000000020000130B0000130B0000000000000000000000F80000E007
524 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
525 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
526 FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
527 FFFFFFFFFFFF100010001000FFFFFFFF00000000000000000000000000000000
528 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
529 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
530 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
531 FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
532 FFFFFFFFFFFF100010001000FFFFFFFF00000000000000000000000000000000
533 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
534 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
535 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
536 FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
537 FFFFFFFFFFFF100010001000FFFFFFFF00000000000000000000000000000000
538 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
539 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
540 FFFFFFFFFFFF}
541 ParentShowHint = False
542 ShowHint = True
543 OnClick = btnBulletsClick
544 end
545 object btnNumbers: TSpeedButton
546 Left = 335
547 Top = 2
548 Width = 23
549 Height = 21
550 Hint = 'Numbering'
551 Glyph.Data = {
552 42020000424D4202000000000000420000002800000010000000100000000100
553 10000300000000020000130B0000130B0000000000000000000000F80000E007
554 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
555 FFFFFFFFFFFF10001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
556 FFFFFFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
557 FFFFFFFFFFFFFFFF1000FFFFFFFFFFFF00000000000000000000000000000000
558 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
559 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
560 FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
561 FFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
562 FFFFFFFFFFFFFFFFFFFF1000FFFFFFFF00000000000000000000000000000000
563 0000FFFFFFFF10001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
564 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
565 FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
566 FFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
567 FFFFFFFFFFFF10001000FFFFFFFFFFFF00000000000000000000000000000000
568 0000FFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
569 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
570 FFFFFFFFFFFF}
571 ParentShowHint = False
572 ShowHint = True
573 OnClick = btnNumbersClick
574 end
575 object btnLeftAlign: TSpeedButton
576 Left = 358
577 Top = 2
578 Width = 23
579 Height = 21
580 Hint = 'Align Left'
581 Glyph.Data = {
582 42020000424D4202000000000000420000002800000010000000100000000100
583 10000300000000020000130B0000130B0000000000000000000000F80000E007
584 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
585 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
586 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
587 FFFFFFFFFFFF0000000000000000000000000000000000000000FFFFFFFFFFFF
588 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
589 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
590 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
591 FFFFFFFFFFFF0000000000000000000000000000000000000000FFFFFFFFFFFF
592 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
593 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
594 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
595 FFFFFFFFFFFF0000000000000000000000000000000000000000FFFFFFFFFFFF
596 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
597 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
598 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
599 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
600 FFFFFFFFFFFF}
601 ParentShowHint = False
602 ShowHint = True
603 OnClick = btnLeftAlignClick
604 end
605 object btnCenterAlign: TSpeedButton
606 Left = 381
607 Top = 2
608 Width = 23
609 Height = 21
610 Hint = 'Align Center'
611 Glyph.Data = {
612 42020000424D4202000000000000420000002800000010000000100000000100
613 10000300000000020000130B0000130B0000000000000000000000F80000E007
614 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
615 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
616 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
617 FFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000FFFF
618 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
619 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
620 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
621 FFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000FFFF
622 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
623 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
624 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
625 FFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000FFFF
626 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
627 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
628 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
629 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
630 FFFFFFFFFFFF}
631 ParentShowHint = False
632 ShowHint = True
633 OnClick = btnCenterAlignClick
634 end
635 object btnRightAlign: TSpeedButton
636 Left = 404
637 Top = 2
638 Width = 23
639 Height = 21
640 Hint = 'Align Right'
641 Glyph.Data = {
642 42020000424D4202000000000000420000002800000010000000100000000100
643 10000300000000020000130B0000130B0000000000000000000000F80000E007
644 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
645 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
646 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
647 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
648 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
649 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
650 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
651 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
652 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
653 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
654 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
655 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
656 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
657 FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
658 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
659 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
660 FFFFFFFFFFFF}
661 ParentShowHint = False
662 ShowHint = True
663 OnClick = btnRightAlignClick
664 end
665 object btnMoreIndent: TSpeedButton
666 Left = 427
667 Top = 2
668 Width = 23
669 Height = 21
670 Hint = 'Indent'
671 Glyph.Data = {
672 42020000424D4202000000000000420000002800000010000000100000000100
673 10000300000000020000130B0000130B0000000000000000000000F80000E007
674 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
675 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
676 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
677 FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF00000000FFFFFFFFFFFFFFFF
678 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
679 FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000
680 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
681 FFFFFFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000
682 FFFFFFFFFFFFFFFFFFFF10001000FFFFFFFFFFFF000000000000000000000000
683 FFFFFFFFFFFF10001000100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
684 FFFFFFFFFFFFFFFFFFFF10001000FFFFFFFFFFFF000000000000000000000000
685 000000000000FFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000
686 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
687 FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000
688 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
689 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
690 FFFFFFFFFFFF}
691 ParentShowHint = False
692 ShowHint = True
693 OnClick = btnMoreIndentClick
694 end
695 object btnLessIndent: TSpeedButton
696 Left = 450
697 Top = 2
698 Width = 23
699 Height = 21
700 Hint = 'Outdent'
701 Glyph.Data = {
702 42020000424D4202000000000000420000002800000010000000100000000100
703 10000300000000020000130B0000130B0000000000000000000000F80000E007
704 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
705 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
706 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
707 FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF00000000FFFFFFFFFFFFFFFF
708 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
709 FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000
710 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
711 FFFFFFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000
712 FFFFFFFFFFFFFFFF10001000FFFFFFFFFFFFFFFF000000000000000000000000
713 FFFFFFFFFFFF10001000100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
714 FFFFFFFFFFFFFFFF10001000FFFFFFFFFFFFFFFF000000000000000000000000
715 000000000000FFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000
716 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
717 FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000
718 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
719 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
720 FFFFFFFFFFFF}
721 ParentShowHint = False
722 ShowHint = True
723 OnClick = btnLessIndentClick
724 end
725 object btnTextColor: TSpeedButton
726 Left = 473
727 Top = 2
728 Width = 23
729 Height = 21
730 Hint = 'Text Color'
731 Glyph.Data = {
732 42020000424D4202000000000000420000002800000010000000100000000100
733 10000300000000020000130B0000130B0000000000000000000000F80000E007
734 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
735 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFF
736 FFFFFFFFFFFF10001000FFFF0000000010841084108410841084108400000000
737 FFFFFFFFFFFF10001000100010841084E0FFF7BDE0FF1F001F00F7BD10841084
738 0000FFFFFFFFF7BD1000FFFFF7BDE0FFF7BDE0FF1F001F001F001F00F7BDE0FF
739 10840000FFFFF7BD1084FFFFE0FF00F800F8F7BDE0FF1F001F00F7BDE0FFF7BD
740 10840000FFFF1084FFFFE0FF00F800F800F800F8F7BDE0FFFFFFFFFFF7BDE0FF
741 10840000FFFF1084FFFFF7BDE0FF00F800F8F7BDE0FF108410001000FFFFF7BD
742 10840000FFFF1084FFFFE0FFF7BDE0FFF7BDE0FF10841000FF07100010001084
743 00000000FFFF1084FFFFF7BD00040004E0FFF7BDE0FF10841000FF0710001000
744 0000FFFFFFFF1084FFFF0004000400040004E0FFF7BDE0FF10841000E0FF0084
745 0084FFFFFFFF1084FFFFF7BD00040004E0FF1FF81FF8F7BDE0FF10840084E0FF
746 00840000FFFF1084FFFFE0FFF7BDE0FF1FF81FF81FF8E0FFFFFF1084FFFF0084
747 000000000000FFFF1084FFFFE0FFF7BD1FF81FF81FF8FFFF1084FFFFFFFFFFFF
748 0000F7BD0000FFFFFFFF1084FFFFFFFFFFFFFFFFFFFF10841084FFFFFFFFFFFF
749 FFFF00000000FFFFFFFFFFFF10841084108410841084FFFFFFFFFFFFFFFFFFFF
750 FFFFFFFF0000}
751 ParentShowHint = False
752 ShowHint = True
753 OnClick = btnTextColorClick
754 end
755 object btnBackColor: TSpeedButton
756 Left = 496
757 Top = 2
758 Width = 23
759 Height = 21
760 Hint = 'Background Color'
761 Glyph.Data = {
762 12030000424D1203000000000000420000002800000014000000120000000100
763 100003000000D0020000130B0000130B0000000000000000000000F80000E007
764 00001F0000005AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
765 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
766 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF0000
767 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF
768 5AEF5AEF5AEF0000E007E007E0070000FF07FF07FF0700001FF81FF81FF80000
769 5AEF5AEF5AEF5AEF5AEF5AEF5AEF0000E007E007E0070000FF07FF07FF070000
770 1FF81FF81FF800005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000E007E007E0070000
771 FF07FF07FF0700001FF81FF81FF800005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000
772 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF
773 5AEF5AEF5AEF000053AD53AD53AD0000FFFFFFFFFFFF00000000000000000000
774 5AEF5AEF5AEF5AEF5AEF5AEF5AEF000053AD53AD53AD0000FFFFFFFFFFFF0000
775 00000000000000005AEF5AEF5AEF5AEF5AEF5AEF5AEF000053AD53AD53AD0000
776 FFFFFFFFFFFF000000000000000000005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000
777 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF
778 5AEF5AEF5AEF000000F800F800F80000E0FFE0FFE0FF00001F001F001F000000
779 5AEF5AEF5AEF5AEF5AEF5AEF5AEF000000F800F800F80000E0FFE0FFE0FF0000
780 1F001F001F0000005AEF5AEF5AEF5AEF5AEF5AEF5AEF000000F800F800F80000
781 E0FFE0FFE0FF00001F001F001F0000005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000
782 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF
783 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
784 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
785 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF
786 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF}
787 ParentShowHint = False
788 ShowHint = True
789 OnClick = btnBackColorClick
790 end
791 object btnImage: TSpeedButton
792 Left = 519
793 Top = 2
794 Width = 23
795 Height = 21
796 Hint = 'Add Image'
797 Glyph.Data = {
798 F6000000424DF600000000000000760000002800000010000000100000000100
799 0400000000008000000000000000000000001000000000000000000000000000
800 8000008000000080800080000000800080008080000080808000C0C0C0000000
801 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
802 FFFFFFFFFFFFFFFFFFFFFFF7000000000FFFFFF7CCCCCCCC0FFFFFF7CCCCCCCC
803 0FFFFFF7CCCCCC220FFFFFF7EFEF22220FFFFFF7FEFEFE220FFFFFF7E88FEFEF
804 0FFFFFF78FB8FEFE0FFFFFF78BF8EFEF0FFFFFF7F88EFEFE0FFFFFF7EFEFEFEF
805 0FFFFFF7777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
806 ParentShowHint = False
807 ShowHint = True
808 OnClick = btnImageClick
809 end
810 end
811 end
812 end
813 object pnlRead: TPanel
814 Left = 0
815 Top = 0
816 Width = 414
817 Height = 250
818 Align = alClient
819 BevelOuter = bvNone
820 TabOrder = 0
821 OnExit = pnlReadExit
822 object lblTitle: TOROffsetLabel
823 Left = 0
824 Top = 0
825 Width = 414
826 Height = 19
827 Align = alTop
828 Caption = 'No Progress Notes Found'
829 HorzOffset = 2
830 Transparent = False
831 VertOffset = 6
832 WordWrap = False
833 end
834 object sptList: TSplitter
835 Left = 0
836 Top = 113
837 Width = 414
838 Height = 3
839 Cursor = crVSplit
840 Align = alTop
841 end
842 object WebBrowser1: TWebBrowser
843 Left = 0
844 Top = 116
845 Width = 414
846 Height = 134
847 TabStop = False
848 Align = alClient
849 TabOrder = 2
850 ControlData = {
851 4C000000CA2A0000D90D00000000000000000000000000000000000000000000
852 000000004C000000000000000000000001000000E0D057007335CF11AE690800
853 2B2E126208000000000000004C0000000114020000000000C000000000000046
854 8000000000000000000000000000000000000000000000000000000000000000
855 00000000000000000100000000000000000000000000000000000000}
856 end
857 object memNote: TRichEdit
858 Left = 0
859 Top = 116
860 Width = 414
861 Height = 134
862 Align = alClient
863 Color = clCream
864 Ctl3D = True
865 Font.Charset = DEFAULT_CHARSET
866 Font.Color = clWindowText
867 Font.Height = -11
868 Font.Name = 'Courier New'
869 Font.Style = []
870 Lines.Strings = (
871
872 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
873 'mnopqrstuvwxyz12')
874 ParentCtl3D = False
875 ParentFont = False
876 PlainText = True
877 PopupMenu = popNoteMemo
878 ReadOnly = True
879 ScrollBars = ssBoth
880 TabOrder = 1
881 WordWrap = False
882 OnMouseMove = FormMouseMove
883 end
884 object lvNotes: TCaptionListView
885 Left = 0
886 Top = 19
887 Width = 414
888 Height = 94
889 Align = alTop
890 Columns = <
891 item
892 Caption = 'Date'
893 Width = 100
894 end
895 item
896 AutoSize = True
897 Caption = 'Title'
898 end
899 item
900 AutoSize = True
901 Caption = 'Subject'
902 end
903 item
904 AutoSize = True
905 Caption = 'Author'
906 end
907 item
908 AutoSize = True
909 Caption = 'Location'
910 end
911 item
912 Caption = 'fmdate'
913 Width = 0
914 end
915 item
916 Caption = 'TIUDA'
917 Width = 0
918 end>
919 Constraints.MinHeight = 50
920 HideSelection = False
921 ReadOnly = True
922 RowSelect = True
923 TabOrder = 0
924 ViewStyle = vsReport
925 Visible = False
926 OnColumnClick = lvNotesColumnClick
927 OnCompare = lvNotesCompare
928 OnMouseMove = FormMouseMove
929 OnResize = lvNotesResize
930 OnSelectItem = lvNotesSelectItem
931 Caption = 'No Progress Notes Found'
932 end
933 object pnlHtmlViewer: TPanel
934 Left = 0
935 Top = 116
936 Width = 414
937 Height = 134
938 Align = alClient
939 BevelOuter = bvNone
940 Color = clBtnShadow
941 TabOrder = 3
942 end
943 end
944 end
945 object mnuNotes: TMainMenu [4]
946 Left = 601
947 Top = 304
948 object mnuView: TMenuItem
949 Caption = '&View'
950 GroupIndex = 3
951 object mnuViewChart: TMenuItem
952 Caption = 'Chart &Tab'
953 object mnuChartCover: TMenuItem
954 Tag = 1
955 Caption = 'Cover &Sheet'
956 ShortCut = 16467
957 OnClick = mnuChartTabClick
958 end
959 object mnuChartProbs: TMenuItem
960 Tag = 2
961 Caption = '&Problem List'
962 ShortCut = 16464
963 OnClick = mnuChartTabClick
964 end
965 object mnuChartMeds: TMenuItem
966 Tag = 3
967 Caption = '&Medications'
968 ShortCut = 16461
969 OnClick = mnuChartTabClick
970 end
971 object mnuChartOrders: TMenuItem
972 Tag = 4
973 Caption = '&Orders'
974 ShortCut = 16463
975 OnClick = mnuChartTabClick
976 end
977 object mnuChartNotes: TMenuItem
978 Tag = 6
979 Caption = 'Progress &Notes'
980 ShortCut = 16462
981 OnClick = mnuChartTabClick
982 end
983 object mnuChartCslts: TMenuItem
984 Tag = 7
985 Caption = 'Consul&ts'
986 ShortCut = 16468
987 OnClick = mnuChartTabClick
988 end
989 object mnuChartSurgery: TMenuItem
990 Tag = 11
991 Caption = 'S&urgery'
992 ShortCut = 16469
993 OnClick = mnuChartTabClick
994 end
995 object mnuChartDCSumm: TMenuItem
996 Tag = 8
997 Caption = '&Discharge Summaries'
998 ShortCut = 16452
999 OnClick = mnuChartTabClick
1000 end
1001 object mnuChartLabs: TMenuItem
1002 Tag = 9
1003 Caption = '&Laboratory'
1004 ShortCut = 16460
1005 OnClick = mnuChartTabClick
1006 end
1007 object mnuChartReports: TMenuItem
1008 Tag = 10
1009 Caption = '&Reports'
1010 ShortCut = 16466
1011 OnClick = mnuChartTabClick
1012 end
1013 end
1014 object mnuViewInformation: TMenuItem
1015 Caption = 'Information'
1016 OnClick = mnuViewInformationClick
1017 object mnuViewDemo: TMenuItem
1018 Tag = 1
1019 Caption = 'De&mographics...'
1020 OnClick = ViewInfo
1021 end
1022 object mnuViewVisits: TMenuItem
1023 Tag = 2
1024 Caption = 'Visits/Pr&ovider...'
1025 OnClick = ViewInfo
1026 end
1027 object mnuViewPrimaryCare: TMenuItem
1028 Tag = 3
1029 Caption = 'Primary &Care...'
1030 OnClick = ViewInfo
1031 end
1032 object mnuViewMyHealtheVet: TMenuItem
1033 Tag = 4
1034 Caption = 'MyHealthe&Vet...'
1035 OnClick = ViewInfo
1036 end
1037 object mnuInsurance: TMenuItem
1038 Tag = 5
1039 Caption = '&Insurance...'
1040 OnClick = ViewInfo
1041 end
1042 object mnuViewFlags: TMenuItem
1043 Tag = 6
1044 Caption = '&Flags...'
1045 OnClick = ViewInfo
1046 end
1047 object mnuViewRemoteData: TMenuItem
1048 Tag = 7
1049 Caption = 'Remote &Data...'
1050 OnClick = ViewInfo
1051 end
1052 object mnuViewReminders: TMenuItem
1053 Tag = 8
1054 Caption = '&Reminders...'
1055 Enabled = False
1056 OnClick = ViewInfo
1057 end
1058 object mnuViewPostings: TMenuItem
1059 Tag = 9
1060 Caption = '&Postings...'
1061 OnClick = ViewInfo
1062 end
1063 end
1064 object Z3: TMenuItem
1065 Caption = '-'
1066 end
1067 object mnuViewAll: TMenuItem
1068 Tag = 1
1069 Caption = '&Signed Notes (All)'
1070 OnClick = mnuViewClick
1071 end
1072 object mnuViewByAuthor: TMenuItem
1073 Tag = 4
1074 Caption = 'Signed Notes by &Author'
1075 OnClick = mnuViewClick
1076 end
1077 object mnuViewByDate: TMenuItem
1078 Tag = 5
1079 Caption = 'Signed Notes by Date &Range'
1080 OnClick = mnuViewClick
1081 end
1082 object mnuViewUncosigned: TMenuItem
1083 Tag = 3
1084 Caption = 'Un&cosigned Notes'
1085 OnClick = mnuViewClick
1086 end
1087 object mnuViewUnsigned: TMenuItem
1088 Tag = 2
1089 Caption = '&Unsigned Notes'
1090 OnClick = mnuViewClick
1091 end
1092 object mnuViewCustom: TMenuItem
1093 Tag = 6
1094 Caption = 'Custo&m View'
1095 OnClick = mnuViewClick
1096 end
1097 object mnuSearchForText: TMenuItem
1098 Tag = 7
1099 Caption = 'Search for Te&xt (Within Current View)'
1100 OnClick = mnuViewClick
1101 end
1102 object N1: TMenuItem
1103 Caption = '-'
1104 end
1105 object mnuViewSaveAsDefault: TMenuItem
1106 Caption = 'Sa&ve as Default View'
1107 OnClick = mnuViewSaveAsDefaultClick
1108 end
1109 object ReturntoDefault1: TMenuItem
1110 Caption = 'Return to De&fault View'
1111 OnClick = mnuViewReturntoDefaultClick
1112 end
1113 object Z1: TMenuItem
1114 Caption = '-'
1115 end
1116 object mnuViewDetail: TMenuItem
1117 Caption = '&Details'
1118 OnClick = mnuViewDetailClick
1119 end
1120 object N6: TMenuItem
1121 Caption = '-'
1122 end
1123 object mnuIconLegend: TMenuItem
1124 Caption = 'Icon Legend'
1125 OnClick = mnuIconLegendClick
1126 end
1127 end
1128 object mnuAct: TMenuItem
1129 Caption = '&Action'
1130 GroupIndex = 4
1131 object mnuActNew: TMenuItem
1132 Caption = '&New Progress Note...'
1133 Hint = 'Creates a new progress note'
1134 ShortCut = 24654
1135 OnClick = mnuActNewClick
1136 end
1137 object mnuActAddend: TMenuItem
1138 Caption = '&Make Addendum...'
1139 Hint = 'Makes an addendum for the currently selected note'
1140 ShortCut = 24653
1141 OnClick = mnuActAddendClick
1142 end
1143 object mnuActAddIDEntry: TMenuItem
1144 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1145 OnClick = mnuActAddIDEntryClick
1146 end
1147 object mnuActAttachtoIDParent: TMenuItem
1148 Caption = 'A&ttach to Interdisciplinary Note'
1149 OnClick = mnuActAttachtoIDParentClick
1150 end
1151 object mnuActDetachFromIDParent: TMenuItem
1152 Caption = 'Detac&h from Interdisciplinary Note'
1153 OnClick = mnuActDetachFromIDParentClick
1154 end
1155 object Z4: TMenuItem
1156 Caption = '-'
1157 end
1158 object mnuActChange: TMenuItem
1159 Caption = '&Change Title...'
1160 ShortCut = 24643
1161 OnClick = mnuActChangeClick
1162 end
1163 object mnuActLoadBoiler: TMenuItem
1164 Caption = 'Reload &Boilerplate Text'
1165 OnClick = mnuActLoadBoilerClick
1166 end
1167 object Z2: TMenuItem
1168 Caption = '-'
1169 end
1170 object mnuActSignList: TMenuItem
1171 Caption = 'Add to Signature &List'
1172 Hint = 'Adds the currently displayed note to list of things to be signed'
1173 OnClick = mnuActSignListClick
1174 end
1175 object mnuActDelete: TMenuItem
1176 Caption = '&Delete Progress Note...'
1177 ShortCut = 24644
1178 OnClick = mnuActDeleteClick
1179 end
1180 object mnuActEdit: TMenuItem
1181 Caption = '&Edit Progress Note...'
1182 ShortCut = 24645
1183 OnClick = mnuActEditClick
1184 end
1185 object mnuActSave: TMenuItem
1186 Caption = 'S&ave without Signature'
1187 Hint = 'Saves the note that is being edited'
1188 ShortCut = 24641
1189 OnClick = mnuActSaveClick
1190 end
1191 object mnuActSign: TMenuItem
1192 Caption = 'Si&gn Note Now...'
1193 ShortCut = 24647
1194 OnClick = mnuActSignClick
1195 end
1196 object mnuActIdentifyAddlSigners: TMenuItem
1197 Caption = '&Identify Additional Signers'
1198 OnClick = mnuActIdentifyAddlSignersClick
1199 end
1200 object mnuSearchNotes: TMenuItem
1201 Caption = '&Search Notes'
1202 OnClick = mnuSearchNotesClick
1203 end
1204 end
1205 object mnuOptions: TMenuItem
1206 Caption = '&Options'
1207 GroupIndex = 4
1208 OnClick = mnuOptionsClick
1209 object mnuEditTemplates: TMenuItem
1210 Caption = 'Edit &Templates...'
1211 OnClick = mnuEditTemplatesClick
1212 end
1213 object mnuNewTemplate: TMenuItem
1214 Caption = 'Create &New Template...'
1215 OnClick = mnuNewTemplateClick
1216 end
1217 object N2: TMenuItem
1218 Caption = '-'
1219 end
1220 object mnuEditSharedTemplates: TMenuItem
1221 Caption = 'Edit &Shared Templates...'
1222 OnClick = mnuEditSharedTemplatesClick
1223 end
1224 object mnuNewSharedTemplate: TMenuItem
1225 Caption = '&Create New Shared Template...'
1226 OnClick = mnuNewSharedTemplateClick
1227 end
1228 object N3: TMenuItem
1229 Caption = '-'
1230 OnClick = cmdChangeClick
1231 end
1232 object mnuEditDialgFields: TMenuItem
1233 Caption = 'Edit Template &Fields'
1234 OnClick = mnuEditDialgFieldsClick
1235 end
1236 end
1237 end
1238 object popNoteMemo: TPopupMenu [5]
1239 OnPopup = popNoteMemoPopup
1240 Left = 540
1241 Top = 304
1242 object popNoteMemoCut: TMenuItem
1243 Caption = 'Cu&t'
1244 ShortCut = 16472
1245 OnClick = popNoteMemoCutClick
1246 end
1247 object popNoteMemoCopy: TMenuItem
1248 Caption = '&Copy'
1249 ShortCut = 16451
1250 OnClick = popNoteMemoCopyClick
1251 end
1252 object popNoteMemoPaste: TMenuItem
1253 Caption = '&Paste'
1254 ShortCut = 16470
1255 OnClick = popNoteMemoPasteClick
1256 end
1257 object popNoteMemoPaste2: TMenuItem
1258 Caption = 'Paste2'
1259 ShortCut = 8237
1260 Visible = False
1261 OnClick = popNoteMemoPasteClick
1262 end
1263 object popNoteMemoReformat: TMenuItem
1264 Caption = 'Reformat Paragraph'
1265 ShortCut = 24658
1266 OnClick = popNoteMemoReformatClick
1267 end
1268 object popNoteMemoSaveContinue: TMenuItem
1269 Caption = 'Save && Continue Editing'
1270 ShortCut = 24659
1271 Visible = False
1272 OnClick = popNoteMemoSaveContinueClick
1273 end
1274 object popNoteMemoHTMLFormat: TMenuItem
1275 Caption = 'Change Edit M&ode to Formatted Text'
1276 OnClick = popNoteMemoHTMLFormatClick
1277 end
1278 object Z11: TMenuItem
1279 Caption = '-'
1280 end
1281 object popNoteMemoFind: TMenuItem
1282 Caption = '&Find in Selected Note'
1283 OnClick = popNoteMemoFindClick
1284 end
1285 object popNoteMemoReplace: TMenuItem
1286 Caption = '&Replace Text'
1287 OnClick = popNoteMemoReplaceClick
1288 end
1289 object N7: TMenuItem
1290 Caption = '-'
1291 OnClick = cmdChangeClick
1292 end
1293 object popNoteMemoGrammar: TMenuItem
1294 Caption = 'Check &Grammar'
1295 OnClick = popNoteMemoGrammarClick
1296 end
1297 object popNoteMemoSpell: TMenuItem
1298 Caption = 'C&heck Spelling'
1299 OnClick = popNoteMemoSpellClick
1300 end
1301 object Z12: TMenuItem
1302 Caption = '-'
1303 end
1304 object popNoteMemoTemplate: TMenuItem
1305 Caption = 'Copy into New &Template'
1306 OnClick = popNoteMemoTemplateClick
1307 end
1308 object Z10: TMenuItem
1309 Caption = '-'
1310 end
1311 object popNoteMemoSignList: TMenuItem
1312 Caption = 'Add to Signature &List'
1313 OnClick = mnuActSignListClick
1314 end
1315 object popNoteMemoDelete: TMenuItem
1316 Caption = '&Delete Progress Note...'
1317 OnClick = mnuActDeleteClick
1318 end
1319 object popNoteMemoEdit: TMenuItem
1320 Caption = '&Edit Progress Note...'
1321 OnClick = mnuActEditClick
1322 end
1323 object popNoteMemoAddend: TMenuItem
1324 Caption = '&Make Addendum...'
1325 OnClick = mnuActAddendClick
1326 end
1327 object popNoteMemoSave: TMenuItem
1328 Caption = 'S&ave without Signature'
1329 OnClick = mnuActSaveClick
1330 end
1331 object popNoteMemoSign: TMenuItem
1332 Caption = '&Sign Note Now...'
1333 OnClick = mnuActSignClick
1334 end
1335 object popNoteMemoAddlSign: TMenuItem
1336 Caption = '&Identify Additional Signers'
1337 OnClick = popNoteMemoAddlSignClick
1338 end
1339 object N8: TMenuItem
1340 Caption = '-'
1341 end
1342 object popNoteMemoPreview: TMenuItem
1343 Caption = 'Previe&w/Print Current Template'
1344 ShortCut = 16471
1345 OnClick = popNoteMemoPreviewClick
1346 end
1347 object popNoteMemoInsTemplate: TMenuItem
1348 Caption = 'Insert Current Template'
1349 ShortCut = 16429
1350 OnClick = popNoteMemoInsTemplateClick
1351 end
1352 object popNoteMemoEncounter: TMenuItem
1353 Caption = 'Edit Encounter Information'
1354 ShortCut = 16453
1355 OnClick = cmdPCEClick
1356 end
1357 end
1358 object popNoteList: TPopupMenu [6]
1359 OnPopup = popNoteListPopup
1360 Left = 500
1361 Top = 305
1362 object popNoteListAll: TMenuItem
1363 Tag = 1
1364 Caption = '&Signed Notes (All)'
1365 OnClick = mnuViewClick
1366 end
1367 object popNoteListByAuthor: TMenuItem
1368 Tag = 4
1369 Caption = 'Signed Notes by &Author'
1370 OnClick = mnuViewClick
1371 end
1372 object popNoteListByDate: TMenuItem
1373 Tag = 5
1374 Caption = 'Signed Notes by Date &Range'
1375 OnClick = mnuViewClick
1376 end
1377 object popNoteListUncosigned: TMenuItem
1378 Tag = 3
1379 Caption = 'Un&cosigned Notes'
1380 OnClick = mnuViewClick
1381 end
1382 object popNoteListUnsigned: TMenuItem
1383 Tag = 2
1384 Caption = '&Unsigned Notes'
1385 OnClick = mnuViewClick
1386 end
1387 object popNoteListCustom: TMenuItem
1388 Tag = 6
1389 Caption = 'Cus&tom View'
1390 OnClick = mnuViewClick
1391 end
1392 object popSearchForText: TMenuItem
1393 Tag = 7
1394 Caption = 'Search for Te&xt (Within Current View)'
1395 OnClick = mnuViewClick
1396 end
1397 object N4: TMenuItem
1398 Caption = '-'
1399 end
1400 object popNoteListExpandSelected: TMenuItem
1401 Caption = '&Expand Selected'
1402 OnClick = popNoteListExpandSelectedClick
1403 end
1404 object popNoteListExpandAll: TMenuItem
1405 Caption = 'E&xpand All'
1406 OnClick = popNoteListExpandAllClick
1407 end
1408 object popNoteListCollapseSelected: TMenuItem
1409 Caption = 'C&ollapse Selected'
1410 OnClick = popNoteListCollapseSelectedClick
1411 end
1412 object popNoteListCollapseAll: TMenuItem
1413 Caption = 'Co&llapse All'
1414 OnClick = popNoteListCollapseAllClick
1415 end
1416 object N5: TMenuItem
1417 Caption = '-'
1418 end
1419 object popNoteListAddIDEntry: TMenuItem
1420 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1421 OnClick = mnuActAddIDEntryClick
1422 end
1423 object popNoteListAttachtoIDParent: TMenuItem
1424 Caption = 'A&ttach to Interdisciplinary Note'
1425 OnClick = mnuActAttachtoIDParentClick
1426 end
1427 object popNoteListDetachFromIDParent: TMenuItem
1428 Caption = 'Detac&h from Interdisciplinary Note'
1429 OnClick = mnuActDetachFromIDParentClick
1430 end
1431 end
1432 object timAutoSave: TTimer [7]
1433 Enabled = False
1434 Interval = 300000
1435 OnTimer = timAutoSaveTimer
1436 Left = 592
1437 Top = 27
1438 end
1439 object dlgFindText: TFindDialog [8]
1440 Options = [frDown, frHideUpDown]
1441 OnFind = dlgFindTextFind
1442 Left = 452
1443 Top = 312
1444 end
1445 object dlgReplaceText: TReplaceDialog [9]
1446 OnFind = dlgReplaceTextFind
1447 OnReplace = dlgReplaceTextReplace
1448 Left = 413
1449 Top = 312
1450 end
1451 inherited DKLanguageController1: TDKLanguageController
1452 LangData = {
1453 080066726D4E6F746573010200000001000000070043617074696F6E02000000
1454 080048656C7046696C6501A70000000D0073687050616765426F74746F6D0000
1455 0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874
1456 000008006C626C4E6F746573010100000003000000070043617074696F6E0009
1457 006C626C53706163653100000A00636D644E65774E6F74650101000000040000
1458 00070043617074696F6E000600636D6450434501010000000500000007004361
1459 7074696F6E000A00706E6C4472617765727300000A0073706C44726177657273
1460 000008006C73744E6F7465730000070074764E6F746573010100000006000000
1461 070043617074696F6E0007007370745665727400000A006D656D50434553686F
1462 7701010000000700000005004C696E6573000800706E6C577269746500000A00
1463 6D656D4E65774E6F746500000900706E6C4669656C647300000B0062766C4E65
1464 775469746C6500000A006C626C52656644617465010200000009000000070043
1465 617074696F6E08000000040048696E740009006C626C417574686F7201020000
1466 000B000000070043617074696F6E0A000000040048696E740008006C626C5669
1467 73697401010000000C000000070043617074696F6E000B006C626C436F736967
1468 6E657201020000000E000000070043617074696F6E0D000000040048696E7400
1469 0A006C626C5375626A65637401010000000F000000070043617074696F6E000B
1470 006C626C4E65775469746C65010200000011000000070043617074696F6E1000
1471 0000040048696E74000900636D644368616E6765010100000012000000070043
1472 617074696F6E000A007478745375626A65637401030000001500000007004361
1473 7074696F6E13000000040048696E7414000000040054657874000700706E6C52
1474 656164000008006C626C5469746C65010100000016000000070043617074696F
1475 6E0007007370744C69737400000B0057656242726F7773657231000007006D65
1476 6D4E6F746501010000001700000005004C696E65730007006C764E6F74657301
1477 080000001F000000070043617074696F6E180000001200436F6C756D6E735B30
1478 5D2E43617074696F6E190000001200436F6C756D6E735B315D2E43617074696F
1479 6E1A0000001200436F6C756D6E735B325D2E43617074696F6E1B000000120043
1480 6F6C756D6E735B335D2E43617074696F6E1C0000001200436F6C756D6E735B34
1481 5D2E43617074696F6E1D0000001200436F6C756D6E735B355D2E43617074696F
1482 6E1E0000001200436F6C756D6E735B365D2E43617074696F6E0008006D6E754E
1483 6F746573000007006D6E7556696577010100000020000000070043617074696F
1484 6E000C006D6E7556696577436861727401010000002100000007004361707469
1485 6F6E000D006D6E754368617274436F7665720101000000220000000700436170
1486 74696F6E000D006D6E75436861727450726F6273010100000023000000070043
1487 617074696F6E000C006D6E7543686172744D6564730101000000240000000700
1488 43617074696F6E000E006D6E7543686172744F72646572730101000000250000
1489 00070043617074696F6E000D006D6E7543686172744E6F746573010100000026
1490 000000070043617074696F6E000D006D6E75436861727443736C747301010000
1491 0027000000070043617074696F6E000F006D6E75436861727453757267657279
1492 010100000028000000070043617074696F6E000E006D6E754368617274444353
1493 756D6D010100000029000000070043617074696F6E000C006D6E754368617274
1494 4C61627301010000002A000000070043617074696F6E000F006D6E7543686172
1495 745265706F72747301010000002B000000070043617074696F6E0012006D6E75
1496 56696577496E666F726D6174696F6E01010000002C000000070043617074696F
1497 6E000B006D6E755669657744656D6F01010000002D000000070043617074696F
1498 6E000D006D6E755669657756697369747301010000002E000000070043617074
1499 696F6E0012006D6E75566965775072696D6172794361726501010000002F0000
1500 00070043617074696F6E0013006D6E75566965774D794865616C746865566574
1501 010100000030000000070043617074696F6E000C006D6E75496E737572616E63
1502 65010100000031000000070043617074696F6E000C006D6E7556696577466C61
1503 6773010100000032000000070043617074696F6E0011006D6E75566965775265
1504 6D6F746544617461010100000033000000070043617074696F6E0010006D6E75
1505 5669657752656D696E64657273010100000034000000070043617074696F6E00
1506 0F006D6E7556696577506F7374696E6773010100000035000000070043617074
1507 696F6E0002005A3300000A006D6E7556696577416C6C01010000003600000007
1508 0043617074696F6E000F006D6E75566965774279417574686F72010100000037
1509 000000070043617074696F6E000D006D6E755669657742794461746501010000
1510 0038000000070043617074696F6E0011006D6E7556696577556E636F7369676E
1511 6564010100000039000000070043617074696F6E000F006D6E7556696577556E
1512 7369676E656401010000003A000000070043617074696F6E000D006D6E755669
1513 6577437573746F6D01010000003B000000070043617074696F6E0010006D6E75
1514 536561726368466F725465787401010000003C000000070043617074696F6E00
1515 02004E31000014006D6E755669657753617665417344656661756C7401010000
1516 003D000000070043617074696F6E00100052657475726E746F44656661756C74
1517 3101010000003E000000070043617074696F6E0002005A3100000D006D6E7556
1518 69657744657461696C01010000003F000000070043617074696F6E0002004E36
1519 00000D006D6E7549636F6E4C6567656E64010100000040000000070043617074
1520 696F6E0006006D6E75416374010100000041000000070043617074696F6E0009
1521 006D6E754163744E6577010200000042000000070043617074696F6E43000000
1522 040048696E74000C006D6E75416374416464656E640102000000440000000700
1523 43617074696F6E45000000040048696E740010006D6E75416374416464494445
1524 6E747279010100000046000000070043617074696F6E0016006D6E7541637441
1525 7474616368746F4944506172656E74010100000047000000070043617074696F
1526 6E0018006D6E7541637444657461636846726F6D4944506172656E7401010000
1527 0048000000070043617074696F6E0002005A3400000C006D6E75416374436861
1528 6E6765010100000049000000070043617074696F6E0010006D6E754163744C6F
1529 6164426F696C657201010000004A000000070043617074696F6E0002005A3200
1530 000E006D6E754163745369676E4C69737401020000004B000000070043617074
1531 696F6E4C000000040048696E74000C006D6E7541637444656C65746501010000
1532 004D000000070043617074696F6E000A006D6E75416374456469740101000000
1533 4E000000070043617074696F6E000A006D6E754163745361766501020000004F
1534 000000070043617074696F6E50000000040048696E74000A006D6E7541637453
1535 69676E010100000051000000070043617074696F6E0019006D6E754163744964
1536 656E746966794164646C5369676E657273010100000052000000070043617074
1537 696F6E000A006D6E754F7074696F6E7301010000005300000007004361707469
1538 6F6E0010006D6E754564697454656D706C617465730101000000540000000700
1539 43617074696F6E000E006D6E754E657754656D706C6174650101000000550000
1540 00070043617074696F6E0002004E32000016006D6E7545646974536861726564
1541 54656D706C61746573010100000056000000070043617074696F6E0014006D6E
1542 754E657753686172656454656D706C6174650101000000570000000700436170
1543 74696F6E0002004E33000012006D6E75456469744469616C674669656C647301
1544 0100000058000000070043617074696F6E000B00706F704E6F74654D656D6F00
1545 000E00706F704E6F74654D656D6F437574010100000059000000070043617074
1546 696F6E000F00706F704E6F74654D656D6F436F707901010000005A0000000700
1547 43617074696F6E001000706F704E6F74654D656D6F506173746501010000005B
1548 000000070043617074696F6E001100706F704E6F74654D656D6F506173746532
1549 01010000005C000000070043617074696F6E001300706F704E6F74654D656D6F
1550 5265666F726D617401010000005D000000070043617074696F6E001700706F70
1551 4E6F74654D656D6F53617665436F6E74696E756501010000005E000000070043
1552 617074696F6E0003005A313100000F00706F704E6F74654D656D6F46696E6401
1553 010000005F000000070043617074696F6E001200706F704E6F74654D656D6F52
1554 65706C616365010100000060000000070043617074696F6E0002004E37000012
1555 00706F704E6F74654D656D6F4772616D6D617201010000006100000007004361
1556 7074696F6E001000706F704E6F74654D656D6F5370656C6C0101000000620000
1557 00070043617074696F6E0003005A313200001300706F704E6F74654D656D6F54
1558 656D706C617465010100000063000000070043617074696F6E0003005A313000
1559 001300706F704E6F74654D656D6F5369676E4C69737401010000006400000007
1560 0043617074696F6E001100706F704E6F74654D656D6F44656C65746501010000
1561 0065000000070043617074696F6E000F00706F704E6F74654D656D6F45646974
1562 010100000066000000070043617074696F6E001100706F704E6F74654D656D6F
1563 416464656E64010100000067000000070043617074696F6E000F00706F704E6F
1564 74654D656D6F53617665010100000068000000070043617074696F6E000F0070
1565 6F704E6F74654D656D6F5369676E010100000069000000070043617074696F6E
1566 001300706F704E6F74654D656D6F4164646C5369676E01010000006A00000007
1567 0043617074696F6E0002004E3800001200706F704E6F74654D656D6F50726576
1568 69657701010000006B000000070043617074696F6E001600706F704E6F74654D
1569 656D6F496E7354656D706C61746501010000006C000000070043617074696F6E
1570 001400706F704E6F74654D656D6F456E636F756E74657201010000006D000000
1571 070043617074696F6E000B00706F704E6F74654C69737400000E00706F704E6F
1572 74654C697374416C6C01010000006E000000070043617074696F6E001300706F
1573 704E6F74654C6973744279417574686F7201010000006F000000070043617074
1574 696F6E001100706F704E6F74654C697374427944617465010100000070000000
1575 070043617074696F6E001500706F704E6F74654C697374556E636F7369676E65
1576 64010100000071000000070043617074696F6E001300706F704E6F74654C6973
1577 74556E7369676E6564010100000072000000070043617074696F6E001100706F
1578 704E6F74654C697374437573746F6D010100000073000000070043617074696F
1579 6E001000706F70536561726368466F7254657874010100000074000000070043
1580 617074696F6E0002004E3400001900706F704E6F74654C697374457870616E64
1581 53656C6563746564010100000075000000070043617074696F6E001400706F70
1582 4E6F74654C697374457870616E64416C6C010100000076000000070043617074
1583 696F6E001B00706F704E6F74654C697374436F6C6C6170736553656C65637465
1584 64010100000077000000070043617074696F6E001600706F704E6F74654C6973
1585 74436F6C6C61707365416C6C010100000078000000070043617074696F6E0002
1586 004E3500001500706F704E6F74654C6973744164644944456E74727901010000
1587 0079000000070043617074696F6E001B00706F704E6F74654C69737441747461
1588 6368746F4944506172656E7401010000007A000000070043617074696F6E001D
1589 00706F704E6F74654C69737444657461636846726F6D4944506172656E740101
1590 0000007B000000070043617074696F6E000B0074696D4175746F536176650000
1591 0B00646C6746696E645465787400000E00646C675265706C6163655465787400
1592 000D00706E6C48746D6C56696577657200000C00706E6C546578745772697465
1593 01010000008D000000070043617074696F6E001500706F704E6F74654D656D6F
1594 48544D4C466F726D617401010000008E000000070043617074696F6E000C0070
1595 6E6C48544D4C577269746500000B00706E6C48544D4C4564697400000700546F
1596 6F6C42617201010000008F000000070043617074696F6E000B006362466F6E74
1597 4E616D657300000A006362466F6E7453697A6501020000009200000005004974
1598 656D739100000004005465787400080062746E466F6E74730101000000930000
1599 00040048696E7400090062746E4974616C696301010000009400000004004869
1600 6E7400070062746E426F6C64010100000095000000040048696E74000C006274
1601 6E556E6465726C696E65010100000096000000040048696E74000A0062746E42
1602 756C6C657473010100000097000000040048696E74000A0062746E4E756D6265
1603 7273010100000098000000040048696E74000C0062746E4C656674416C69676E
1604 010100000099000000040048696E74000E0062746E43656E746572416C69676E
1605 01010000009A000000040048696E74000D0062746E5269676874416C69676E01
1606 010000009B000000040048696E74000D0062746E4D6F7265496E64656E740101
1607 0000009C000000040048696E74000D0062746E4C657373496E64656E74010100
1608 00009D000000040048696E74000C0062746E54657874436F6C6F720101000000
1609 9E000000040048696E74000C0062746E4261636B436F6C6F7201010000009F00
1610 0000040048696E7400080062746E496D6167650101000000A000000004004869
1611 6E74000D00706F707570416464496D616765000016006D6E7553656C65637445
1612 78697374696E67496D6167650101000000A1000000070043617074696F6E000E
1613 006D6E754164644E6577496D6167650101000000A2000000070043617074696F
1614 6E000E006D6E755365617263684E6F7465730101000000A30000000700436170
1615 74696F6E00}
1616 end
1617 object popupAddImage: TPopupMenu
1618 Left = 444
1619 Top = 264
1620 object mnuSelectExistingImage: TMenuItem
1621 Bitmap.Data = {
1622 F6000000424DF600000000000000760000002800000010000000100000000100
1623 0400000000008000000000000000000000001000000000000000000000000000
1624 8000008000000080800080000000800080008080000080808000C0C0C0000000
1625 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
1626 FFFFFFFFFFFFFFFFFFFFFFF7000000000FFFFFF7CCCCCCCC0FFFFFF7CCCCCCCC
1627 0FFFFFF7CCCCCC220FFFFFF7EFEF22220FFFFFF7FEFEFE220FFFFFF7E88FEFEF
1628 0FFFFFF78FB8FEFE0FFFFFF78BF8EFEF0FFFFFF7F88EFEFE0FFFFFF7EFEFEFEF
1629 0FFFFFF7777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
1630 Caption = 'Select &Existing Image'
1631 OnClick = mnuSelectExistingImageClick
1632 end
1633 object mnuAddNewImage: TMenuItem
1634 Bitmap.Data = {
1635 36010000424D3601000000000000760000002800000014000000100000000100
1636 040000000000C000000000000000000000001000000000000000000000000000
1637 8000008000000080800080000000800080008080000080808000C0C0C0000000
1638 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
1639 FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFF0
1640 000000000FFFFFFF0000FF00B8B8B8B8B0FFFFFF0000FF0F0B8B8B8B8B0FFFFF
1641 0000FF0BF0B8B8B8B8B0FFFF0000FF0FBF0000000000FFFF0000FF0BFBFBFBFB
1642 0FFFFFFF0000FF0FBFBFBFBF0FFFFFFF0000FF0BFBFBF000FFFFFFFF0000FFF0
1643 BFBF0FFFFFFFFFFF0000FFF700007FFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
1644 0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000}
1645 Caption = '&Add New Image'
1646 OnClick = mnuAddNewImageClick
1647 end
1648 end
1649end
Note: See TracBrowser for help on using the repository browser.