inherited frmNotes: TfrmNotes Left = 358 Top = 124 Width = 593 Height = 398 HelpContext = 5000 Caption = 'Progress Notes Page' HelpFile = 'overvw' KeyPreview = True Menu = mnuNotes OnDestroy = FormDestroy OnHide = FormHide OnMouseMove = FormMouseMove OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 inherited shpPageBottom: TShape Top = 339 Width = 585 end inherited sptHorz: TSplitter Left = 64 Height = 339 OnCanResize = sptHorzCanResize end inherited pnlLeft: TPanel Width = 64 Height = 339 object lblNotes: TOROffsetLabel Left = 0 Top = 0 Width = 64 Height = 19 Align = alTop Caption = 'Last 100 Notes' HorzOffset = 2 ParentShowHint = False ShowHint = True Transparent = True VertOffset = 6 WordWrap = False end object lblSpace1: TLabel Left = 0 Top = 294 Width = 64 Height = 3 Align = alBottom AutoSize = False Caption = ' ' end object cmdNewNote: TORAlignButton Left = 0 Top = 297 Width = 64 Height = 21 Caption = 'New Note' TabOrder = 1 OnClick = cmdNewNoteClick OnExit = cmdNewNoteExit OnMouseMove = FormMouseMove Align = alBottom end object cmdPCE: TORAlignButton Left = 0 Top = 318 Width = 64 Height = 21 Caption = 'Encounter' TabOrder = 2 Visible = False OnClick = cmdPCEClick OnExit = cmdPCEExit OnMouseMove = FormMouseMove Align = alBottom end object pnlDrawers: TPanel Left = 0 Top = 19 Width = 64 Height = 275 Align = alClient BevelOuter = bvNone TabOrder = 0 object splDrawers: TSplitter Left = 0 Top = 272 Width = 64 Height = 3 Cursor = crVSplit Align = alBottom end object lstNotes: TORListBox Left = 0 Top = 0 Width = 64 Height = 18 TabStop = False Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False PopupMenu = popNoteList ShowHint = True TabOrder = 0 Visible = False OnClick = lstNotesClick ItemTipColor = clWindow LongList = False Pieces = '2,3' TabPositions = '10' end object tvNotes: TORTreeView Left = 0 Top = 0 Width = 64 Height = 272 Align = alClient Constraints.MinWidth = 30 HideSelection = False Indent = 19 PopupMenu = popNoteList ReadOnly = True TabOrder = 1 OnAddition = tvNotesAddition OnChange = tvNotesChange OnClick = tvNotesClick OnCollapsed = tvNotesCollapsed OnDeletion = tvNotesDeletion OnDragDrop = tvNotesDragDrop OnDragOver = tvNotesDragOver OnExit = tvNotesExit OnExpanded = tvNotesExpanded OnMouseMove = FormMouseMove OnStartDrag = tvNotesStartDrag Caption = 'Last 100 Notes' NodePiece = 0 ShortNodeCaptions = True end end end inherited pnlRight: TPanel Left = 68 Width = 517 Height = 339 object sptVert: TSplitter Left = 0 Top = 290 Width = 517 Height = 4 Cursor = crVSplit Align = alBottom end object memPCEShow: TRichEdit Left = 0 Top = 294 Width = 517 Height = 45 Align = alBottom Color = clCream Lines.Strings = ( '') PlainText = True ReadOnly = True ScrollBars = ssVertical TabOrder = 2 OnExit = memPCEShowExit end object pnlWrite: TPanel Left = 0 Top = 0 Width = 517 Height = 290 Align = alClient BevelOuter = bvNone TabOrder = 1 Visible = False OnResize = pnlWriteResize object pnlFields: TPanel Left = 0 Top = 0 Width = 517 Height = 67 Align = alTop BevelOuter = bvNone TabOrder = 0 OnResize = pnlFieldsResize DesignSize = ( 517 67) object bvlNewTitle: TBevel Left = 5 Top = 5 Width = 117 Height = 15 end object lblRefDate: TStaticText Left = 237 Top = 6 Width = 101 Height = 17 Hint = 'Press "Change..." to change date/time of note.' Alignment = taCenter Caption = 'Oct 20,1999@15:30' ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 2 end object lblAuthor: TStaticText Left = 299 Top = 6 Width = 152 Height = 17 Hint = 'Press "Change..." to select a different author.' Alignment = taRightJustify Anchors = [akTop, akRight] Caption = 'Winchester,Charles Emerson III' ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 3 end object lblVisit: TStaticText Left = 6 Top = 21 Width = 204 Height = 17 Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby' ShowAccelChar = False TabOrder = 4 end object lblCosigner: TStaticText Left = 204 Top = 21 Width = 243 Height = 13 Hint = 'Press "Change..." to select a different cosigner.' Alignment = taRightJustify Anchors = [akTop, akRight] AutoSize = False Caption = 'Expected Cosigner: Winchester,Charles Emerson III' ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 5 end object lblSubject: TStaticText Left = 6 Top = 43 Width = 43 Height = 17 Caption = 'Subject:' TabOrder = 6 end object lblNewTitle: TStaticText Left = 6 Top = 6 Width = 119 Height = 17 Hint = 'Press "Change..." to select a different title.' Caption = ' General Medicine Note ' Color = clCream Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 7 end object cmdChange: TButton Left = 453 Top = 6 Width = 58 Height = 21 Anchors = [akTop, akRight] Caption = 'Change...' TabOrder = 0 OnClick = cmdChangeClick OnExit = cmdChangeExit end object txtSubject: TCaptionEdit Left = 48 Top = 40 Width = 463 Height = 21 Hint = 'Subject is limited to a maximum of 80 characters.' Anchors = [akLeft, akTop, akRight] MaxLength = 80 ParentShowHint = False ShowHint = True TabOrder = 1 Text = 'txtSubject' Caption = 'Subject' end end object pnlTextWrite: TPanel Left = 0 Top = 67 Width = 517 Height = 223 Align = alClient BevelOuter = bvNone Caption = 'pnlTextWrite' TabOrder = 1 object memNewNote: TRichEdit Left = 0 Top = 0 Width = 517 Height = 223 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False PlainText = True PopupMenu = popNoteMemo ScrollBars = ssBoth TabOrder = 0 WantTabs = True OnChange = memNewNoteChange OnKeyDown = memNewNoteKeyDown OnKeyPress = memNewNoteKeyPress OnKeyUp = memNewNoteKeyUp end end object pnlHTMLWrite: TPanel Left = 0 Top = 67 Width = 517 Height = 223 Align = alClient BevelOuter = bvNone Color = clInactiveBorder TabOrder = 2 Visible = False object pnlHTMLEdit: TPanel Left = 0 Top = 25 Width = 517 Height = 198 Align = alClient BevelOuter = bvNone TabOrder = 0 end object ToolBar: TToolBar Left = 0 Top = 0 Width = 517 Height = 25 AutoSize = True ButtonHeight = 21 Caption = 'ToolBar' TabOrder = 1 TabStop = True object cbFontNames: TComboBox Left = 0 Top = 2 Width = 145 Height = 21 ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = cbFontNamesChange end object cbFontSize: TComboBox Left = 145 Top = 2 Width = 75 Height = 21 ItemHeight = 13 ItemIndex = 2 TabOrder = 1 Text = '3 (12 pt)' OnClick = cbFontSizeChange Items.Strings = ( '1 (8 pt)' '2 (10 pt)' '3 (12 pt)' '4 (14 pt)' '5 (18 pt)' '6 (24 pt)' '7 (36 pt)') end object btnFonts: TSpeedButton Left = 220 Top = 2 Width = 23 Height = 21 Hint = 'Text Font' Glyph.Data = { 82020000424D8202000000000000420000002800000012000000100000000100 10000300000040020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF100010005AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF100010005AEF7BEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF100010005AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF53AD008053AD5AEF5AEF5AEF5AEF1000100010005AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF00805AEF5AEF5AEF5AEF5AEF10001000 5AEF5AEF7BEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF00805AEF53AD5AEF5AEF5AEF 100010005AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF0080008000805AEF 5AEF5AEF10001000100010005AEF5AEF108010805AEF5AEF5AEF5AEF00805AEF 53AD5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF53AD10805AEF5AEF5AEF 00805AEF5AEF53AD5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF10805AEF 5AEF53AD00800080008000805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 10805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF1080108010805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF10805AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF108053AD5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF108010805AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF} ParentShowHint = False ShowHint = True OnClick = btnFontsClick end object btnItalic: TSpeedButton Left = 243 Top = 2 Width = 23 Height = 21 Hint = 'Italics' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF108400000000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF108400000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF108400000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnItalicClick end object btnBold: TSpeedButton Left = 266 Top = 2 Width = 23 Height = 21 Hint = 'Bold' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B00000000000000000000007C0000E003 00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F000000000000FF7F FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F FF7FFF7FFF7F} ParentShowHint = False ShowHint = True OnClick = btnBoldClick end object btnUnderline: TSpeedButton Left = 289 Top = 2 Width = 23 Height = 21 Hint = 'Underline' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000001084FFFF108400000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF00000000FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000FFFF0000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnUnderlineClick end object btnBullets: TSpeedButton Left = 312 Top = 2 Width = 23 Height = 21 Hint = 'Bullets' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFF00000000000000000000000000000000 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFF00000000000000000000000000000000 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFF00000000000000000000000000000000 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnBulletsClick end object btnNumbers: TSpeedButton Left = 335 Top = 2 Width = 23 Height = 21 Hint = 'Numbering' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF10001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF1000FFFFFFFFFFFF00000000000000000000000000000000 0000FFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF1000FFFFFFFF00000000000000000000000000000000 0000FFFFFFFF10001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF10001000FFFFFFFFFFFF00000000000000000000000000000000 0000FFFFFFFFFFFF1000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnNumbersClick end object btnLeftAlign: TSpeedButton Left = 358 Top = 2 Width = 23 Height = 21 Hint = 'Align Left' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnLeftAlignClick end object btnCenterAlign: TSpeedButton Left = 381 Top = 2 Width = 23 Height = 21 Hint = 'Align Center' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnCenterAlignClick end object btnRightAlign: TSpeedButton Left = 404 Top = 2 Width = 23 Height = 21 Hint = 'Align Right' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnRightAlignClick end object btnMoreIndent: TSpeedButton Left = 427 Top = 2 Width = 23 Height = 21 Hint = 'Indent' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF00000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000 FFFFFFFFFFFFFFFFFFFF10001000FFFFFFFFFFFF000000000000000000000000 FFFFFFFFFFFF10001000100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF10001000FFFFFFFFFFFF000000000000000000000000 000000000000FFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnMoreIndentClick end object btnLessIndent: TSpeedButton Left = 450 Top = 2 Width = 23 Height = 21 Hint = 'Outdent' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF00000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000 FFFFFFFFFFFFFFFF10001000FFFFFFFFFFFFFFFF000000000000000000000000 FFFFFFFFFFFF10001000100010001000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF10001000FFFFFFFFFFFFFFFF000000000000000000000000 000000000000FFFFFFFF1000FFFFFFFFFFFFFFFF000000000000000000000000 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF0000000000000000FFFF000000000000000000000000 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnLessIndentClick end object btnTextColor: TSpeedButton Left = 473 Top = 2 Width = 23 Height = 21 Hint = 'Text Color' Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 10000300000000020000130B0000130B0000000000000000000000F80000E007 00001F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFF FFFFFFFFFFFF10001000FFFF0000000010841084108410841084108400000000 FFFFFFFFFFFF10001000100010841084E0FFF7BDE0FF1F001F00F7BD10841084 0000FFFFFFFFF7BD1000FFFFF7BDE0FFF7BDE0FF1F001F001F001F00F7BDE0FF 10840000FFFFF7BD1084FFFFE0FF00F800F8F7BDE0FF1F001F00F7BDE0FFF7BD 10840000FFFF1084FFFFE0FF00F800F800F800F8F7BDE0FFFFFFFFFFF7BDE0FF 10840000FFFF1084FFFFF7BDE0FF00F800F8F7BDE0FF108410001000FFFFF7BD 10840000FFFF1084FFFFE0FFF7BDE0FFF7BDE0FF10841000FF07100010001084 00000000FFFF1084FFFFF7BD00040004E0FFF7BDE0FF10841000FF0710001000 0000FFFFFFFF1084FFFF0004000400040004E0FFF7BDE0FF10841000E0FF0084 0084FFFFFFFF1084FFFFF7BD00040004E0FF1FF81FF8F7BDE0FF10840084E0FF 00840000FFFF1084FFFFE0FFF7BDE0FF1FF81FF81FF8E0FFFFFF1084FFFF0084 000000000000FFFF1084FFFFE0FFF7BD1FF81FF81FF8FFFF1084FFFFFFFFFFFF 0000F7BD0000FFFFFFFF1084FFFFFFFFFFFFFFFFFFFF10841084FFFFFFFFFFFF FFFF00000000FFFFFFFFFFFF10841084108410841084FFFFFFFFFFFFFFFFFFFF FFFFFFFF0000} ParentShowHint = False ShowHint = True OnClick = btnTextColorClick end object btnBackColor: TSpeedButton Left = 496 Top = 2 Width = 23 Height = 21 Hint = 'Background Color' Glyph.Data = { 12030000424D1203000000000000420000002800000014000000120000000100 100003000000D0020000130B0000130B0000000000000000000000F80000E007 00001F0000005AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF0000 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF 5AEF5AEF5AEF0000E007E007E0070000FF07FF07FF0700001FF81FF81FF80000 5AEF5AEF5AEF5AEF5AEF5AEF5AEF0000E007E007E0070000FF07FF07FF070000 1FF81FF81FF800005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000E007E007E0070000 FF07FF07FF0700001FF81FF81FF800005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF 5AEF5AEF5AEF000053AD53AD53AD0000FFFFFFFFFFFF00000000000000000000 5AEF5AEF5AEF5AEF5AEF5AEF5AEF000053AD53AD53AD0000FFFFFFFFFFFF0000 00000000000000005AEF5AEF5AEF5AEF5AEF5AEF5AEF000053AD53AD53AD0000 FFFFFFFFFFFF000000000000000000005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF 5AEF5AEF5AEF000000F800F800F80000E0FFE0FFE0FF00001F001F001F000000 5AEF5AEF5AEF5AEF5AEF5AEF5AEF000000F800F800F80000E0FFE0FFE0FF0000 1F001F001F0000005AEF5AEF5AEF5AEF5AEF5AEF5AEF000000F800F800F80000 E0FFE0FFE0FF00001F001F001F0000005AEF5AEF5AEF5AEF5AEF5AEF5AEF0000 0000000000000000000000000000000000000000000000005AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF 5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF5AEF} ParentShowHint = False ShowHint = True OnClick = btnBackColorClick end object btnImage: TSpeedButton Left = 519 Top = 2 Width = 23 Height = 21 Hint = 'Add Image' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFF7000000000FFFFFF7CCCCCCCC0FFFFFF7CCCCCCCC 0FFFFFF7CCCCCC220FFFFFF7EFEF22220FFFFFF7FEFEFE220FFFFFF7E88FEFEF 0FFFFFF78FB8FEFE0FFFFFF78BF8EFEF0FFFFFF7F88EFEFE0FFFFFF7EFEFEFEF 0FFFFFF7777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = btnImageClick end end end end object pnlRead: TPanel Left = 0 Top = 0 Width = 517 Height = 290 Align = alClient BevelOuter = bvNone TabOrder = 0 OnExit = pnlReadExit object lblTitle: TOROffsetLabel Left = 0 Top = 0 Width = 517 Height = 19 Align = alTop Caption = 'No Progress Notes Found' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object sptList: TSplitter Left = 0 Top = 113 Width = 517 Height = 3 Cursor = crVSplit Align = alTop end object WebBrowser1: TWebBrowser Left = 0 Top = 116 Width = 517 Height = 174 TabStop = False Align = alClient TabOrder = 2 ControlData = { 4C0000006F350000FC1100000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end object memNote: TRichEdit Left = 0 Top = 116 Width = 517 Height = 174 Align = alClient Color = clCream Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' + 'mnopqrstuvwxyz12') ParentCtl3D = False ParentFont = False PlainText = True PopupMenu = popNoteMemo ReadOnly = True ScrollBars = ssBoth TabOrder = 1 WordWrap = False OnMouseMove = FormMouseMove end object lvNotes: TCaptionListView Left = 0 Top = 19 Width = 517 Height = 94 Align = alTop Columns = < item Caption = 'Date' Width = 100 end item AutoSize = True Caption = 'Title' end item AutoSize = True Caption = 'Subject' end item AutoSize = True Caption = 'Author' end item AutoSize = True Caption = 'Location' end item Caption = 'fmdate' Width = 0 end item Caption = 'TIUDA' Width = 0 end> Constraints.MinHeight = 50 HideSelection = False ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport Visible = False OnColumnClick = lvNotesColumnClick OnCompare = lvNotesCompare OnMouseMove = FormMouseMove OnResize = lvNotesResize OnSelectItem = lvNotesSelectItem Caption = 'No Progress Notes Found' end object pnlHtmlViewer: TPanel Left = 0 Top = 116 Width = 517 Height = 174 Align = alClient BevelOuter = bvNone Color = clBtnShadow TabOrder = 3 end end end object mnuNotes: TMainMenu [4] Left = 601 Top = 304 object mnuView: TMenuItem Caption = '&View' GroupIndex = 3 object mnuViewChart: TMenuItem Caption = 'Chart &Tab' object mnuChartCover: TMenuItem Tag = 1 Caption = 'Cover &Sheet' ShortCut = 16467 OnClick = mnuChartTabClick end object mnuChartProbs: TMenuItem Tag = 2 Caption = '&Problem List' ShortCut = 16464 OnClick = mnuChartTabClick end object mnuChartMeds: TMenuItem Tag = 3 Caption = '&Medications' ShortCut = 16461 OnClick = mnuChartTabClick end object mnuChartOrders: TMenuItem Tag = 4 Caption = '&Orders' ShortCut = 16463 OnClick = mnuChartTabClick end object mnuChartNotes: TMenuItem Tag = 6 Caption = 'Progress &Notes' ShortCut = 16462 OnClick = mnuChartTabClick end object mnuChartCslts: TMenuItem Tag = 7 Caption = 'Consul&ts' ShortCut = 16468 OnClick = mnuChartTabClick end object mnuChartSurgery: TMenuItem Tag = 11 Caption = 'S&urgery' ShortCut = 16469 OnClick = mnuChartTabClick end object mnuChartDCSumm: TMenuItem Tag = 8 Caption = '&Discharge Summaries' ShortCut = 16452 OnClick = mnuChartTabClick end object mnuChartLabs: TMenuItem Tag = 9 Caption = '&Laboratory' ShortCut = 16460 OnClick = mnuChartTabClick end object mnuChartReports: TMenuItem Tag = 10 Caption = '&Reports' ShortCut = 16466 OnClick = mnuChartTabClick end end object mnuViewInformation: TMenuItem Caption = 'Information' OnClick = mnuViewInformationClick object mnuViewDemo: TMenuItem Tag = 1 Caption = 'De&mographics...' OnClick = ViewInfo end object mnuViewVisits: TMenuItem Tag = 2 Caption = 'Visits/Pr&ovider...' OnClick = ViewInfo end object mnuViewPrimaryCare: TMenuItem Tag = 3 Caption = 'Primary &Care...' OnClick = ViewInfo end object mnuViewMyHealtheVet: TMenuItem Tag = 4 Caption = 'MyHealthe&Vet...' OnClick = ViewInfo end object mnuInsurance: TMenuItem Tag = 5 Caption = '&Insurance...' OnClick = ViewInfo end object mnuViewFlags: TMenuItem Tag = 6 Caption = '&Flags...' OnClick = ViewInfo end object mnuViewRemoteData: TMenuItem Tag = 7 Caption = 'Remote &Data...' OnClick = ViewInfo end object mnuViewReminders: TMenuItem Tag = 8 Caption = '&Reminders...' Enabled = False OnClick = ViewInfo end object mnuViewPostings: TMenuItem Tag = 9 Caption = '&Postings...' OnClick = ViewInfo end end object Z3: TMenuItem Caption = '-' end object mnuViewAll: TMenuItem Tag = 1 Caption = '&Signed Notes (All)' OnClick = mnuViewClick end object mnuViewByAuthor: TMenuItem Tag = 4 Caption = 'Signed Notes by &Author' OnClick = mnuViewClick end object mnuViewByDate: TMenuItem Tag = 5 Caption = 'Signed Notes by Date &Range' OnClick = mnuViewClick end object mnuViewUncosigned: TMenuItem Tag = 3 Caption = 'Un&cosigned Notes' OnClick = mnuViewClick end object mnuViewUnsigned: TMenuItem Tag = 2 Caption = '&Unsigned Notes' OnClick = mnuViewClick end object mnuViewCustom: TMenuItem Tag = 6 Caption = 'Custo&m View' OnClick = mnuViewClick end object mnuSearchForText: TMenuItem Tag = 7 Caption = 'Search for Te&xt (Within Current View)' OnClick = mnuViewClick end object N1: TMenuItem Caption = '-' end object mnuViewSaveAsDefault: TMenuItem Caption = 'Sa&ve as Default View' OnClick = mnuViewSaveAsDefaultClick end object ReturntoDefault1: TMenuItem Caption = 'Return to De&fault View' OnClick = mnuViewReturntoDefaultClick end object Z1: TMenuItem Caption = '-' end object mnuViewDetail: TMenuItem Caption = '&Details' OnClick = mnuViewDetailClick end object N6: TMenuItem Caption = '-' end object mnuIconLegend: TMenuItem Caption = 'Icon Legend' OnClick = mnuIconLegendClick end end object mnuAct: TMenuItem Caption = '&Action' GroupIndex = 4 object mnuActNew: TMenuItem Caption = '&New Progress Note...' Hint = 'Creates a new progress note' ShortCut = 24654 OnClick = mnuActNewClick end object mnuActAddend: TMenuItem Caption = '&Make Addendum...' Hint = 'Makes an addendum for the currently selected note' ShortCut = 24653 OnClick = mnuActAddendClick end object mnuActAddIDEntry: TMenuItem Caption = 'Add Ne&w Entry to Interdisciplinary Note' OnClick = mnuActAddIDEntryClick end object mnuActAttachtoIDParent: TMenuItem Caption = 'A&ttach to Interdisciplinary Note' OnClick = mnuActAttachtoIDParentClick end object mnuActDetachFromIDParent: TMenuItem Caption = 'Detac&h from Interdisciplinary Note' OnClick = mnuActDetachFromIDParentClick end object Z4: TMenuItem Caption = '-' end object mnuActChange: TMenuItem Caption = '&Change Title...' ShortCut = 24643 OnClick = mnuActChangeClick end object mnuActLoadBoiler: TMenuItem Caption = 'Reload &Boilerplate Text' OnClick = mnuActLoadBoilerClick end object Z2: TMenuItem Caption = '-' end object mnuActSignList: TMenuItem Caption = 'Add to Signature &List' Hint = 'Adds the currently displayed note to list of things to be signed' OnClick = mnuActSignListClick end object mnuActDelete: TMenuItem Caption = '&Delete Progress Note...' ShortCut = 24644 OnClick = mnuActDeleteClick end object mnuActEdit: TMenuItem Caption = '&Edit Progress Note...' ShortCut = 24645 OnClick = mnuActEditClick end object mnuActSave: TMenuItem Caption = 'S&ave without Signature' Hint = 'Saves the note that is being edited' ShortCut = 24641 OnClick = mnuActSaveClick end object mnuActSign: TMenuItem Caption = 'Si&gn Note Now...' ShortCut = 24647 OnClick = mnuActSignClick end object mnuActIdentifyAddlSigners: TMenuItem Caption = '&Identify Additional Signers' OnClick = mnuActIdentifyAddlSignersClick end object mnuSearchNotes: TMenuItem Caption = '&Search Notes' OnClick = mnuSearchNotesClick end end object mnuOptions: TMenuItem Caption = '&Options' GroupIndex = 4 OnClick = mnuOptionsClick object mnuEditTemplates: TMenuItem Caption = 'Edit &Templates...' OnClick = mnuEditTemplatesClick end object mnuNewTemplate: TMenuItem Caption = 'Create &New Template...' OnClick = mnuNewTemplateClick end object N2: TMenuItem Caption = '-' end object mnuEditSharedTemplates: TMenuItem Caption = 'Edit &Shared Templates...' OnClick = mnuEditSharedTemplatesClick end object mnuNewSharedTemplate: TMenuItem Caption = '&Create New Shared Template...' OnClick = mnuNewSharedTemplateClick end object N3: TMenuItem Caption = '-' OnClick = cmdChangeClick end object mnuEditDialgFields: TMenuItem Caption = 'Edit Template &Fields' OnClick = mnuEditDialgFieldsClick end end end object popNoteMemo: TPopupMenu [5] OnPopup = popNoteMemoPopup Left = 540 Top = 304 object popNoteMemoCut: TMenuItem Caption = 'Cu&t' ShortCut = 16472 OnClick = popNoteMemoCutClick end object popNoteMemoCopy: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = popNoteMemoCopyClick end object popNoteMemoPaste: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = popNoteMemoPasteClick end object popNoteMemoPaste2: TMenuItem Caption = 'Paste2' ShortCut = 8237 Visible = False OnClick = popNoteMemoPasteClick end object popNoteMemoReformat: TMenuItem Caption = 'Reformat Paragraph' ShortCut = 24658 OnClick = popNoteMemoReformatClick end object popNoteMemoSaveContinue: TMenuItem Caption = 'Save && Continue Editing' ShortCut = 24659 Visible = False OnClick = popNoteMemoSaveContinueClick end object popNoteMemoHTMLFormat: TMenuItem Caption = 'Change Edit M&ode to Formatted Text' OnClick = popNoteMemoHTMLFormatClick end object Z11: TMenuItem Caption = '-' end object popNoteMemoFind: TMenuItem Caption = '&Find in Selected Note' OnClick = popNoteMemoFindClick end object popNoteMemoReplace: TMenuItem Caption = '&Replace Text' OnClick = popNoteMemoReplaceClick end object N7: TMenuItem Caption = '-' OnClick = cmdChangeClick end object popNoteMemoGrammar: TMenuItem Caption = 'Check &Grammar' OnClick = popNoteMemoGrammarClick end object popNoteMemoSpell: TMenuItem Caption = 'C&heck Spelling' OnClick = popNoteMemoSpellClick end object Z12: TMenuItem Caption = '-' end object popNoteMemoTemplate: TMenuItem Caption = 'Copy into New &Template' OnClick = popNoteMemoTemplateClick end object Z10: TMenuItem Caption = '-' end object popNoteMemoSignList: TMenuItem Caption = 'Add to Signature &List' OnClick = mnuActSignListClick end object popNoteMemoDelete: TMenuItem Caption = '&Delete Progress Note...' OnClick = mnuActDeleteClick end object popNoteMemoEdit: TMenuItem Caption = '&Edit Progress Note...' OnClick = mnuActEditClick end object popNoteMemoAddend: TMenuItem Caption = '&Make Addendum...' OnClick = mnuActAddendClick end object popNoteMemoSave: TMenuItem Caption = 'S&ave without Signature' OnClick = mnuActSaveClick end object popNoteMemoSign: TMenuItem Caption = '&Sign Note Now...' OnClick = mnuActSignClick end object popNoteMemoAddlSign: TMenuItem Caption = '&Identify Additional Signers' OnClick = popNoteMemoAddlSignClick end object N8: TMenuItem Caption = '-' end object popNoteMemoPreview: TMenuItem Caption = 'Previe&w/Print Current Template' ShortCut = 16471 OnClick = popNoteMemoPreviewClick end object popNoteMemoInsTemplate: TMenuItem Caption = 'Insert Current Template' ShortCut = 16429 OnClick = popNoteMemoInsTemplateClick end object popNoteMemoEncounter: TMenuItem Caption = 'Edit Encounter Information' ShortCut = 16453 OnClick = cmdPCEClick end end object popNoteList: TPopupMenu [6] OnPopup = popNoteListPopup Left = 500 Top = 305 object popNoteListAll: TMenuItem Tag = 1 Caption = '&Signed Notes (All)' OnClick = mnuViewClick end object popNoteListByAuthor: TMenuItem Tag = 4 Caption = 'Signed Notes by &Author' OnClick = mnuViewClick end object popNoteListByDate: TMenuItem Tag = 5 Caption = 'Signed Notes by Date &Range' OnClick = mnuViewClick end object popNoteListUncosigned: TMenuItem Tag = 3 Caption = 'Un&cosigned Notes' OnClick = mnuViewClick end object popNoteListUnsigned: TMenuItem Tag = 2 Caption = '&Unsigned Notes' OnClick = mnuViewClick end object popNoteListCustom: TMenuItem Tag = 6 Caption = 'Cus&tom View' OnClick = mnuViewClick end object popSearchForText: TMenuItem Tag = 7 Caption = 'Search for Te&xt (Within Current View)' OnClick = mnuViewClick end object N4: TMenuItem Caption = '-' end object popNoteListExpandSelected: TMenuItem Caption = '&Expand Selected' OnClick = popNoteListExpandSelectedClick end object popNoteListExpandAll: TMenuItem Caption = 'E&xpand All' OnClick = popNoteListExpandAllClick end object popNoteListCollapseSelected: TMenuItem Caption = 'C&ollapse Selected' OnClick = popNoteListCollapseSelectedClick end object popNoteListCollapseAll: TMenuItem Caption = 'Co&llapse All' OnClick = popNoteListCollapseAllClick end object N5: TMenuItem Caption = '-' end object popNoteListAddIDEntry: TMenuItem Caption = 'Add Ne&w Entry to Interdisciplinary Note' OnClick = mnuActAddIDEntryClick end object popNoteListAttachtoIDParent: TMenuItem Caption = 'A&ttach to Interdisciplinary Note' OnClick = mnuActAttachtoIDParentClick end object popNoteListDetachFromIDParent: TMenuItem Caption = 'Detac&h from Interdisciplinary Note' OnClick = mnuActDetachFromIDParentClick end end object timAutoSave: TTimer [7] Enabled = False Interval = 300000 OnTimer = timAutoSaveTimer Left = 592 Top = 27 end object dlgFindText: TFindDialog [8] Options = [frDown, frHideUpDown] OnFind = dlgFindTextFind Left = 452 Top = 312 end object dlgReplaceText: TReplaceDialog [9] OnFind = dlgReplaceTextFind OnReplace = dlgReplaceTextReplace Left = 413 Top = 312 end inherited DKLanguageController1: TDKLanguageController LangData = { 080066726D4E6F746573010200000001000000070043617074696F6E02000000 080048656C7046696C6501A70000000D0073687050616765426F74746F6D0000 0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874 000008006C626C4E6F746573010100000003000000070043617074696F6E0009 006C626C53706163653100000A00636D644E65774E6F74650101000000040000 00070043617074696F6E000600636D6450434501010000000500000007004361 7074696F6E000A00706E6C4472617765727300000A0073706C44726177657273 000008006C73744E6F7465730000070074764E6F746573010100000006000000 070043617074696F6E0007007370745665727400000A006D656D50434553686F 7701010000000700000005004C696E6573000800706E6C577269746500000A00 6D656D4E65774E6F746500000900706E6C4669656C647300000B0062766C4E65 775469746C6500000A006C626C52656644617465010200000009000000070043 617074696F6E08000000040048696E740009006C626C417574686F7201020000 000B000000070043617074696F6E0A000000040048696E740008006C626C5669 73697401010000000C000000070043617074696F6E000B006C626C436F736967 6E657201020000000E000000070043617074696F6E0D000000040048696E7400 0A006C626C5375626A65637401010000000F000000070043617074696F6E000B 006C626C4E65775469746C65010200000011000000070043617074696F6E1000 0000040048696E74000900636D644368616E6765010100000012000000070043 617074696F6E000A007478745375626A65637401030000001500000007004361 7074696F6E13000000040048696E7414000000040054657874000700706E6C52 656164000008006C626C5469746C65010100000016000000070043617074696F 6E0007007370744C69737400000B0057656242726F7773657231000007006D65 6D4E6F746501010000001700000005004C696E65730007006C764E6F74657301 080000001F000000070043617074696F6E180000001200436F6C756D6E735B30 5D2E43617074696F6E190000001200436F6C756D6E735B315D2E43617074696F 6E1A0000001200436F6C756D6E735B325D2E43617074696F6E1B000000120043 6F6C756D6E735B335D2E43617074696F6E1C0000001200436F6C756D6E735B34 5D2E43617074696F6E1D0000001200436F6C756D6E735B355D2E43617074696F 6E1E0000001200436F6C756D6E735B365D2E43617074696F6E0008006D6E754E 6F746573000007006D6E7556696577010100000020000000070043617074696F 6E000C006D6E7556696577436861727401010000002100000007004361707469 6F6E000D006D6E754368617274436F7665720101000000220000000700436170 74696F6E000D006D6E75436861727450726F6273010100000023000000070043 617074696F6E000C006D6E7543686172744D6564730101000000240000000700 43617074696F6E000E006D6E7543686172744F72646572730101000000250000 00070043617074696F6E000D006D6E7543686172744E6F746573010100000026 000000070043617074696F6E000D006D6E75436861727443736C747301010000 0027000000070043617074696F6E000F006D6E75436861727453757267657279 010100000028000000070043617074696F6E000E006D6E754368617274444353 756D6D010100000029000000070043617074696F6E000C006D6E754368617274 4C61627301010000002A000000070043617074696F6E000F006D6E7543686172 745265706F72747301010000002B000000070043617074696F6E0012006D6E75 56696577496E666F726D6174696F6E01010000002C000000070043617074696F 6E000B006D6E755669657744656D6F01010000002D000000070043617074696F 6E000D006D6E755669657756697369747301010000002E000000070043617074 696F6E0012006D6E75566965775072696D6172794361726501010000002F0000 00070043617074696F6E0013006D6E75566965774D794865616C746865566574 010100000030000000070043617074696F6E000C006D6E75496E737572616E63 65010100000031000000070043617074696F6E000C006D6E7556696577466C61 6773010100000032000000070043617074696F6E0011006D6E75566965775265 6D6F746544617461010100000033000000070043617074696F6E0010006D6E75 5669657752656D696E64657273010100000034000000070043617074696F6E00 0F006D6E7556696577506F7374696E6773010100000035000000070043617074 696F6E0002005A3300000A006D6E7556696577416C6C01010000003600000007 0043617074696F6E000F006D6E75566965774279417574686F72010100000037 000000070043617074696F6E000D006D6E755669657742794461746501010000 0038000000070043617074696F6E0011006D6E7556696577556E636F7369676E 6564010100000039000000070043617074696F6E000F006D6E7556696577556E 7369676E656401010000003A000000070043617074696F6E000D006D6E755669 6577437573746F6D01010000003B000000070043617074696F6E0010006D6E75 536561726368466F725465787401010000003C000000070043617074696F6E00 02004E31000014006D6E755669657753617665417344656661756C7401010000 003D000000070043617074696F6E00100052657475726E746F44656661756C74 3101010000003E000000070043617074696F6E0002005A3100000D006D6E7556 69657744657461696C01010000003F000000070043617074696F6E0002004E36 00000D006D6E7549636F6E4C6567656E64010100000040000000070043617074 696F6E0006006D6E75416374010100000041000000070043617074696F6E0009 006D6E754163744E6577010200000042000000070043617074696F6E43000000 040048696E74000C006D6E75416374416464656E640102000000440000000700 43617074696F6E45000000040048696E740010006D6E75416374416464494445 6E747279010100000046000000070043617074696F6E0016006D6E7541637441 7474616368746F4944506172656E74010100000047000000070043617074696F 6E0018006D6E7541637444657461636846726F6D4944506172656E7401010000 0048000000070043617074696F6E0002005A3400000C006D6E75416374436861 6E6765010100000049000000070043617074696F6E0010006D6E754163744C6F 6164426F696C657201010000004A000000070043617074696F6E0002005A3200 000E006D6E754163745369676E4C69737401020000004B000000070043617074 696F6E4C000000040048696E74000C006D6E7541637444656C65746501010000 004D000000070043617074696F6E000A006D6E75416374456469740101000000 4E000000070043617074696F6E000A006D6E754163745361766501020000004F 000000070043617074696F6E50000000040048696E74000A006D6E7541637453 69676E010100000051000000070043617074696F6E0019006D6E754163744964 656E746966794164646C5369676E657273010100000052000000070043617074 696F6E000A006D6E754F7074696F6E7301010000005300000007004361707469 6F6E0010006D6E754564697454656D706C617465730101000000540000000700 43617074696F6E000E006D6E754E657754656D706C6174650101000000550000 00070043617074696F6E0002004E32000016006D6E7545646974536861726564 54656D706C61746573010100000056000000070043617074696F6E0014006D6E 754E657753686172656454656D706C6174650101000000570000000700436170 74696F6E0002004E33000012006D6E75456469744469616C674669656C647301 0100000058000000070043617074696F6E000B00706F704E6F74654D656D6F00 000E00706F704E6F74654D656D6F437574010100000059000000070043617074 696F6E000F00706F704E6F74654D656D6F436F707901010000005A0000000700 43617074696F6E001000706F704E6F74654D656D6F506173746501010000005B 000000070043617074696F6E001100706F704E6F74654D656D6F506173746532 01010000005C000000070043617074696F6E001300706F704E6F74654D656D6F 5265666F726D617401010000005D000000070043617074696F6E001700706F70 4E6F74654D656D6F53617665436F6E74696E756501010000005E000000070043 617074696F6E0003005A313100000F00706F704E6F74654D656D6F46696E6401 010000005F000000070043617074696F6E001200706F704E6F74654D656D6F52 65706C616365010100000060000000070043617074696F6E0002004E37000012 00706F704E6F74654D656D6F4772616D6D617201010000006100000007004361 7074696F6E001000706F704E6F74654D656D6F5370656C6C0101000000620000 00070043617074696F6E0003005A313200001300706F704E6F74654D656D6F54 656D706C617465010100000063000000070043617074696F6E0003005A313000 001300706F704E6F74654D656D6F5369676E4C69737401010000006400000007 0043617074696F6E001100706F704E6F74654D656D6F44656C65746501010000 0065000000070043617074696F6E000F00706F704E6F74654D656D6F45646974 010100000066000000070043617074696F6E001100706F704E6F74654D656D6F 416464656E64010100000067000000070043617074696F6E000F00706F704E6F 74654D656D6F53617665010100000068000000070043617074696F6E000F0070 6F704E6F74654D656D6F5369676E010100000069000000070043617074696F6E 001300706F704E6F74654D656D6F4164646C5369676E01010000006A00000007 0043617074696F6E0002004E3800001200706F704E6F74654D656D6F50726576 69657701010000006B000000070043617074696F6E001600706F704E6F74654D 656D6F496E7354656D706C61746501010000006C000000070043617074696F6E 001400706F704E6F74654D656D6F456E636F756E74657201010000006D000000 070043617074696F6E000B00706F704E6F74654C69737400000E00706F704E6F 74654C697374416C6C01010000006E000000070043617074696F6E001300706F 704E6F74654C6973744279417574686F7201010000006F000000070043617074 696F6E001100706F704E6F74654C697374427944617465010100000070000000 070043617074696F6E001500706F704E6F74654C697374556E636F7369676E65 64010100000071000000070043617074696F6E001300706F704E6F74654C6973 74556E7369676E6564010100000072000000070043617074696F6E001100706F 704E6F74654C697374437573746F6D010100000073000000070043617074696F 6E001000706F70536561726368466F7254657874010100000074000000070043 617074696F6E0002004E3400001900706F704E6F74654C697374457870616E64 53656C6563746564010100000075000000070043617074696F6E001400706F70 4E6F74654C697374457870616E64416C6C010100000076000000070043617074 696F6E001B00706F704E6F74654C697374436F6C6C6170736553656C65637465 64010100000077000000070043617074696F6E001600706F704E6F74654C6973 74436F6C6C61707365416C6C010100000078000000070043617074696F6E0002 004E3500001500706F704E6F74654C6973744164644944456E74727901010000 0079000000070043617074696F6E001B00706F704E6F74654C69737441747461 6368746F4944506172656E7401010000007A000000070043617074696F6E001D 00706F704E6F74654C69737444657461636846726F6D4944506172656E740101 0000007B000000070043617074696F6E000B0074696D4175746F536176650000 0B00646C6746696E645465787400000E00646C675265706C6163655465787400 000D00706E6C48746D6C56696577657200000C00706E6C546578745772697465 01010000008D000000070043617074696F6E001500706F704E6F74654D656D6F 48544D4C466F726D617401010000008E000000070043617074696F6E000C0070 6E6C48544D4C577269746500000B00706E6C48544D4C4564697400000700546F 6F6C42617201010000008F000000070043617074696F6E000B006362466F6E74 4E616D657300000A006362466F6E7453697A6501020000009200000005004974 656D739100000004005465787400080062746E466F6E74730101000000930000 00040048696E7400090062746E4974616C696301010000009400000004004869 6E7400070062746E426F6C64010100000095000000040048696E74000C006274 6E556E6465726C696E65010100000096000000040048696E74000A0062746E42 756C6C657473010100000097000000040048696E74000A0062746E4E756D6265 7273010100000098000000040048696E74000C0062746E4C656674416C69676E 010100000099000000040048696E74000E0062746E43656E746572416C69676E 01010000009A000000040048696E74000D0062746E5269676874416C69676E01 010000009B000000040048696E74000D0062746E4D6F7265496E64656E740101 0000009C000000040048696E74000D0062746E4C657373496E64656E74010100 00009D000000040048696E74000C0062746E54657874436F6C6F720101000000 9E000000040048696E74000C0062746E4261636B436F6C6F7201010000009F00 0000040048696E7400080062746E496D6167650101000000A000000004004869 6E74000D00706F707570416464496D616765000016006D6E7553656C65637445 78697374696E67496D6167650101000000A1000000070043617074696F6E000E 006D6E754164644E6577496D6167650101000000A2000000070043617074696F 6E000E006D6E755365617263684E6F7465730101000000A30000000700436170 74696F6E00} end object popupAddImage: TPopupMenu Left = 444 Top = 264 object mnuSelectExistingImage: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFF7000000000FFFFFF7CCCCCCCC0FFFFFF7CCCCCCCC 0FFFFFF7CCCCCC220FFFFFF7EFEF22220FFFFFF7FEFEFE220FFFFFF7E88FEFEF 0FFFFFF78FB8FEFE0FFFFFF78BF8EFEF0FFFFFF7F88EFEFE0FFFFFF7EFEFEFEF 0FFFFFF7777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Caption = 'Select &Existing Image' OnClick = mnuSelectExistingImageClick end object mnuAddNewImage: TMenuItem Bitmap.Data = { 36010000424D3601000000000000760000002800000014000000100000000100 040000000000C000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFF0 000000000FFFFFFF0000FF00B8B8B8B8B0FFFFFF0000FF0F0B8B8B8B8B0FFFFF 0000FF0BF0B8B8B8B8B0FFFF0000FF0FBF0000000000FFFF0000FF0BFBFBFBFB 0FFFFFFF0000FF0FBFBFBFBF0FFFFFFF0000FF0BFBFBF000FFFFFFFF0000FFF0 BFBF0FFFFFFFFFFF0000FFF700007FFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF 0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000} Caption = '&Add New Image' OnClick = mnuAddNewImageClick end end end