object TDocsCompCont
  List = <
    item
      Title = 'Introduction'
      ImageIndex = 1
      MacroBack = <>
      MacroDemo = <
        item
          Cmd = mcMouseToPoint
          Point = 'DesignPoint1'
        end
        item
          Cmd = mcSelect
          SelectDocIndex = -5
        end>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\gr' +
        'een0\blue0;}'#13#10'\deflang1053\pard\plain\f4\fs32 Introduction'#13#10'\par' +
        ' \plain\f5\fs16 The StreamSec TDocs component for Delphi is a co' +
        'ntainer for rich text documents. \plain\f4\fs24 '#13#10'\par \pard\li2' +
        '00\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f5' +
        '\fs16 {\pntext\f1\'#39'b7\tab}It facilitates the use of pre-defined ' +
        'rich text in Delphi applications, by making it possible to store' +
        ' these documents in the code of the application EXE.\plain\f4\fs' +
        '24 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}It lets you organiz' +
        'e your documents in a tree structure, and displays the contents ' +
        'of your document collection in accordance with this structure.\p' +
        'lain\f4\fs24 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}It provid' +
        'es means for associating each document with four unique macros, ' +
        'providing control over the mouse, selection of documents, notify' +
        ' events and more.\plain\f4\fs24 '#13#10'\par }'#13#10#0
      StateIndex = 0
    end
    item
      Title = 'License'
      ImageIndex = 2
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fswiss\fprq2 System;}{\f6\fnil\fcharset1 Defa' +
        'ult;}{\f7\fmodern\fcharset1 Courier New;}}'#13#10'{\colortbl\red0\gree' +
        'n0\blue0;\red0\green0\blue255;}'#13#10'\deflang1053\pard\plain\f4\fs24' +
        '\cf1 Copyright\plain\f6\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16 Copyri' +
        'ght \'#39'a9 2000, StreamSec HB - http://www.streamsec.com/'#13#10'\par Al' +
        'l rights reserved.'#13#10'\par '#13#10'\par \plain\f4\fs24\cf1 License\plain' +
        '\f3\fs16 '#13#10'\par '#13#10'\par Redistribution and use in source and bina' +
        'ry forms, with or without modification, are permitted provided t' +
        'hat the following conditions are met:'#13#10'\par '#13#10'\par \pard\li200\f' +
        'i-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f3\fs1' +
        '6 {\pntext\f1\'#39'b7\tab}Redistribution of the source and binary co' +
        'de in the files DocsReg.pas/DocsReg.dcu and MacroReg.pas/MacroRe' +
        'g.dcu is \plain\f3\fs18\b\i not\plain\f3\fs16  permitted under a' +
        'ny circumstances. (These files are not included in the freely re' +
        'distributable trialware version of this product.)\plain\f3\fs24 ' +
        #13#10'\par \plain\f3\fs16 {\pntext\f1\'#39'b7\tab}Redistributions of sou' +
        'rce code must retain the above copyright notice, this list of co' +
        'nditions and the following.\plain\f3\fs24 '#13#10'\par \plain\f3\fs16 ' +
        '{\pntext\f1\'#39'b7\tab}Redistributions in binary form must reproduc' +
        'e the above copyright notice, this list of conditions and the fo' +
        'llowing in the documentation and/or other materials provided wit' +
        'h the distribution.\plain\f3\fs24 '#13#10'\par \plain\f3\fs16 {\pntext' +
        '\f1\'#39'b7\tab}All advertising materials mentioning features or use' +
        ' of this software must display the following acknowledgement:\pl' +
        'ain\f3\fs24 '#13#10'\par \pard\plain\f3\fs16 '#13#10'\par \pard\li500\plain\' +
        'f7\fs20 This product includes software developed by StreamSec HB' +
        ' - http://www.streamsec.com/\plain\f7\fs24 '#13#10'\par \pard\plain\f3' +
        '\fs16 '#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{' +
        '\pntxtb\'#39'b7}}\plain\f3\fs16 {\pntext\f1\'#39'b7\tab}No personal name' +
        's or organization names associated with StreamSec HB may be used' +
        ' to endorse or promote products derived from this software witho' +
        'ut specific prior written permission of the specific individual ' +
        'or organization.\plain\f3\fs24 '#13#10'\par \pard\plain\f3\fs16 '#13#10'\par' +
        ' \plain\f4\fs24\cf1 Liability disclaimer\plain\f3\fs16 '#13#10'\par '#13#10 +
        '\par THIS SOFTWARE IS PROVIDED BY StreamSec HB AS IS AND ANY EXP' +
        'RESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE' +
        ' IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICU' +
        'LAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CON' +
        'TRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIA' +
        'L, EXEMPLARY,OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITE' +
        'D TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, ' +
        'DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND O' +
        'N ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,STRICT LIABILITY,' +
        ' OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY ' +
        'OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBIL' +
        'ITY OF SUCH DAMAGE.'#13#10'\par }'#13#10#0
      StateIndex = 0
    end
    item
      Title = 'Freeware version'
      ImageIndex = 2
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fswiss\fch' +
        'arset1 Arial;}{\f5\fnil\fcharset1 Default;}{\f6\fmodern\fcharset' +
        '1 Courier New;}{\f7\fswiss\fcharset1 Arial Black;}{\f8\fmodern C' +
        'ourier New;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard' +
        '\plain\f3\fs32 Freeware version'#13#10'\par \plain\f4\fs16 The freewar' +
        'e version of this product consists of the following units:'#13#10'\par' +
        ' '#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntx' +
        'tb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}Docs.pas\plain\f4\fs1' +
        '6 , '#13#10'\par \plain\f8\fs16 {\pntext\f1\'#39'b7\tab}Macro.pas\plain\f4' +
        '\fs16 , '#13#10'\par \plain\f8\fs16 {\pntext\f1\'#39'b7\tab}FilerSup.pas\p' +
        'lain\f4\fs16  and '#13#10'\par \plain\f6\fs16 {\pntext\f1\'#39'b7\tab}Desi' +
        'gnPoint.pas\plain\f4\fs16 .\plain\f5\fs16 '#13#10'\par \pard\plain\f4\' +
        'fs16 '#13#10'\par These units are sufficient to install complete versi' +
        'ons of the TDocs and TDesignPoint components. They do however no' +
        't include full design time support for creating document collect' +
        'ions. If you are using this version of the product you will have' +
        ' to create document collections with an external application and' +
        ' manually import the code into the Delphi IDE.\plain\f5\fs16 '#13#10'\' +
        'par '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Commersial version'
      ImageIndex = 2
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fp' +
        'rq2 System;}{\f5\fswiss\fcharset1 Arial;}{\f6\fmodern Courier Ne' +
        'w;}{\f7\fnil\fcharset1 Default;}{\f8\fswiss\fcharset1 Arial Blac' +
        'k;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f8' +
        '\fs32 Commersial version'#13#10'\par \plain\f5\fs16 The commersial ver' +
        'sion of this product consists of the following units:'#13#10'\par '#13#10'\p' +
        'ar \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b' +
        '7}}\plain\f3\fs16 {\pntext\f1\'#39'b7\tab}Docs.pas\plain\f5\fs16 , '#13 +
        #10'\par \plain\f3\fs16 {\pntext\f1\'#39'b7\tab}DocsReg.pas\plain\f5\fs' +
        '16 , '#13#10'\par \plain\f6\fs16 {\pntext\f1\'#39'b7\tab}Macro.pas\plain\f' +
        '5\fs16 , '#13#10'\par \plain\f6\fs16 {\pntext\f1\'#39'b7\tab}MacroReg.pas\' +
        'plain\f5\fs16 ,'#13#10'\par \plain\f6\fs16 {\pntext\f1\'#39'b7\tab}REMain.' +
        'pas\plain\f5\fs16 ,'#13#10'\par \plain\f6\fs16 {\pntext\f1\'#39'b7\tab}REA' +
        'bout.pas\plain\f5\fs16 ,'#13#10'\par \plain\f6\fs16 {\pntext\f1\'#39'b7\ta' +
        'b}FilerSup.pas\plain\f5\fs16  and '#13#10'\par \plain\f3\fs16 {\pntext' +
        '\f1\'#39'b7\tab}DesignPoint.pas\plain\f5\fs16 .\plain\f7\fs16 '#13#10'\par' +
        ' \pard\plain\f5\fs16 '#13#10'\par These units are sufficient to instal' +
        'l complete versions of the TDocs and TDesignPoint components and' +
        ' include full design time support for creating document collecti' +
        'ons. Documents, document collections and macros are easily creat' +
        'ed and maintained inside the Delphi IDE.\plain\f7\fs16 '#13#10'\par '#13#10 +
        '\par \pard\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Docs.pas unit'
      ImageIndex = 5
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1' +
        ' Arial;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\green0\blue' +
        '0;}'#13#10'\deflang1053\pard\plain\f4\fs32 Docs.pas Unit\plain\f3\fs16' +
        ' '#13#10'\par \plain\f6\fs16 This unit contains the declaration and im' +
        'plementation of the TDocs component, as well as the declaration ' +
        'and implementation of some related classes and subclasses.'#13#10'\par' +
        ' '#13#10'\par Registred components:'#13#10'\par \pard\li200\fi-200{\*\pn\pnl' +
        'vlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39 +
        'b7\tab}TDocs'#13#10'\par \pard\plain\f6\fs16 '#13#10'\par Subclasses to TDoc' +
        's:'#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pnt' +
        'xtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}TDocList'#13#10'\par {\pnt' +
        'ext\f1\'#39'b7\tab}TDoc'#13#10'\par {\pntext\f1\'#39'b7\tab}TRTFStream'#13#10'\par \' +
        'pard\plain\f6\fs16 '#13#10'\par Registred actions:'#13#10'\par \pard\li200\f' +
        'i-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f6\fs1' +
        '6 {\pntext\f1\'#39'b7\tab}TDocBack'#13#10'\par {\pntext\f1\'#39'b7\tab}TDocDem' +
        'o'#13#10'\par {\pntext\f1\'#39'b7\tab}TDocNext'#13#10'\par {\pntext\f1\'#39'b7\tab}T' +
        'DocPrev'#13#10'\par \pard\plain\f6\fs16 '#13#10'\par Filer support classes (' +
        'internal use only):'#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1' +
        '\pnindent200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}TDo' +
        'cCollection'#13#10'\par {\pntext\f1\'#39'b7\tab}TDocCollectionItem'#13#10'\par \' +
        'pard\plain\f6\fs16 '#13#10'\par Base classes (internal use only):'#13#10'\pa' +
        'r \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7' +
        '}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}TDocAction'#13#10'\par \pard\plai' +
        'n\f6\fs16 '#13#10'\par Interfaces:'#13#10'\par \pard\li200\fi-200{\*\pn\pnlv' +
        'lblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b' +
        '7\tab}IRTFDesigner\plain\f3\fs16 '#13#10'\par \plain\f6\fs16 {\pntext\' +
        'f1\'#39'b7\tab}IDocsDesigner\plain\f3\fs16 '#13#10'\par \pard\plain\f3\fs1' +
        '6 '#13#10'\par }'#13#10#0
      StateIndex = 0
    end
    item
      Title = 'TDocs component'
      ImageIndex = 4
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sys' +
        'tem;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs32 TDocs component\plain\f8\fs16 '#13#10'\par \plain\f3\fs16 The' +
        ' TDocs component is a container for RTF document collections. As' +
        'sociate it with a TTreeView component and TRichText component fo' +
        'r visual display of the collection and its documents.'#13#10'\par '#13#10'\p' +
        'ar Declaration:'#13#10'\par '#13#10'\par   TDocs = \plain\f3\fs16\b class\pl' +
        'ain\f3\fs16 (TComponent, IOwnerObject, IUnknown)'#13#10'\par '#13#10'\par Pu' +
        'blished properties:'#13#10'\par '#13#10'\par \plain\f7\fs16     \plain\f7\fs' +
        '16\b property\plain\f7\fs16  Count: Integer \plain\f7\fs16\b rea' +
        'd\plain\f7\fs16  GetCount \plain\f7\fs16\b write\plain\f7\fs16  ' +
        'SetCount \plain\f7\fs16\b stored\plain\f7\fs16  False;'#13#10'\par    ' +
        ' \plain\f7\fs16\b property\plain\f7\fs16  DocDisplay: TTreeView ' +
        '\plain\f7\fs16\b read\plain\f7\fs16  FDocDisplay \plain\f7\fs16\' +
        'b write\plain\f7\fs16  SetDocDisplay;'#13#10'\par     \plain\f7\fs16\b' +
        ' property\plain\f7\fs16  DocList: TDocList \plain\f7\fs16\b read' +
        '\plain\f7\fs16  FDocs \plain\f7\fs16\b write\plain\f7\fs16  SetD' +
        'ocs;'#13#10'\par     \plain\f7\fs16\b property\plain\f7\fs16  ForceVis' +
        'ible: Boolean \plain\f7\fs16\b read\plain\f7\fs16  FForceVisible' +
        #13#10'\par                                    \plain\f7\fs16\b write' +
        '\plain\f7\fs16  SetForceVisible \plain\f7\fs16\b default\plain\f' +
        '7\fs16  False;'#13#10'\par     \plain\f7\fs16\b property\plain\f7\fs16' +
        '  RichEdit: TRichEdit \plain\f7\fs16\b read\plain\f7\fs16  FRich' +
        'Edit \plain\f7\fs16\b write\plain\f7\fs16  SetRichEdit;'#13#10'\par   ' +
        '  \plain\f7\fs16\b property\plain\f7\fs16  SelIndex: Integer \pl' +
        'ain\f7\fs16\b read\plain\f7\fs16  GetSelIndex \plain\f7\fs16\b w' +
        'rite\plain\f7\fs16  SetSelIndex \plain\f7\fs16\b stored\plain\f7' +
        '\fs16  False;'#13#10'\par     \plain\f7\fs16\b property\plain\f7\fs16 ' +
        ' UpWhenBack: Boolean \plain\f7\fs16\b read\plain\f7\fs16  FUpWhe' +
        'nBack \plain\f7\fs16\b write\plain\f7\fs16  SetUpWhenBack \plain' +
        '\f7\fs16\b default\plain\f7\fs16  False;\plain\f3\fs16 '#13#10'\par '#13#10 +
        '\par Published events:'#13#10'\par '#13#10'\par \plain\f7\fs16     \plain\f7' +
        '\fs16\b property\plain\f7\fs16  OnGetData: TDocEvent \plain\f7\f' +
        's16\b read\plain\f7\fs16  FOnGetData \plain\f7\fs16\b write\plai' +
        'n\f7\fs16  SetOnGetData;'#13#10'\par     \plain\f7\fs16\b property\pla' +
        'in\f7\fs16  OnDeletion: TDocEvent \plain\f7\fs16\b read\plain\f7' +
        '\fs16  FOnDeletion \plain\f7\fs16\b write\plain\f7\fs16  SetOnDe' +
        'letion;'#13#10'\par     \plain\f7\fs16\b property\plain\f7\fs16  OnSel' +
        'ection: TDocEvent \plain\f7\fs16\b read\plain\f7\fs16  FOnSelect' +
        'ion \plain\f7\fs16\b write \plain\f7\fs16 SetOnSelection;'#13#10'\par ' +
        '    \plain\f7\fs16\b property\plain\f7\fs16  OnUpdate: TNotifyEv' +
        'ent \plain\f7\fs16\b read \plain\f7\fs16 FOnUpdate \plain\f7\fs1' +
        '6\b write\plain\f7\fs16  SetOnUpdate;\plain\f3\fs16 '#13#10'\par '#13#10'\pa' +
        'r Public properties:  '#13#10'\par '#13#10'\par \plain\f7\fs16     \plain\f7' +
        '\fs16\b property\plain\f7\fs16  DocsDesigner: IDocsDesigner \pla' +
        'in\f7\fs16\b read\plain\f7\fs16  FDocsDesigner'#13#10'\par            ' +
        '                            \plain\f7\fs16\b write\plain\f7\fs16' +
        '  SetDocsDesigner'#13#10'\par                                        \' +
        'plain\f7\fs16\b stored\plain\f7\fs16  False;'#13#10'\par     \plain\f7' +
        '\fs16\b property\plain\f7\fs16  RTFDesigner: IRTFDesigner \plain' +
        '\f7\fs16\b read \plain\f7\fs16 FRTFDesigner'#13#10'\par               ' +
        '                         \plain\f7\fs16\b write \plain\f7\fs16 S' +
        'etRTFDesigner'#13#10'\par                                        \plai' +
        'n\f7\fs16\b stored\plain\f7\fs16  False;\plain\f3\fs16 '#13#10'\par '#13#10 +
        '\par Public methods:'#13#10'\par '#13#10'\par \plain\f7\fs16     \plain\f7\f' +
        's16\b constructor\plain\f7\fs16  Create(AOwner: TComponent); \pl' +
        'ain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\' +
        'b destructor \plain\f7\fs16 Destroy; \plain\f7\fs16\b override\p' +
        'lain\f7\fs16 ;   '#13#10'\par     \plain\f7\fs16\b function\plain\f7\f' +
        's16  AsPersistent: TPersistent; '#13#10'\par     \plain\f7\fs16\b proc' +
        'edure\plain\f7\fs16  BackExecute(Sender: TObject); \plain\f7\fs1' +
        '6\b dynamic\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b procedure' +
        '\plain\f7\fs16  DemoExecute(Sender: TObject); \plain\f7\fs16\b d' +
        'ynamic\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b function\plain' +
        '\f7\fs16  GetForm: TCustomForm; \plain\f7\fs16\b virtual\plain\f' +
        '7\fs16 ;'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\fs16  Nex' +
        'tExecute(Sender: TObject); \plain\f7\fs16\b dynamic\plain\f7\fs1' +
        '6 ;'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\fs16  PrevExec' +
        'ute(Sender: TObject); \plain\f7\fs16\b dynamic\plain\f7\fs16 ; '#13 +
        #10'\par '#13#10'\par \plain\f3\fs16 '#13#10'\par Protected methods:'#13#10'\par '#13#10'\p' +
        'ar \plain\f7\fs16     \plain\f7\fs16\b procedure\plain\f7\fs16  ' +
        'DefineProperties(Filer: TFiler); \plain\f7\fs16\b override\plain' +
        '\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\fs16  D' +
        'oAddDoc(RefItem, NewItem: TDoc; Action: TAddDocAction);'#13#10'\par   ' +
        '  \plain\f7\fs16\b procedure\plain\f7\fs16  DoChangeDoc(Item: TD' +
        'oc);'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\fs16  DoDelet' +
        'eDoc(Item: TDoc);'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\' +
        'fs16  DoSelectDoc(Item: TDoc);'#13#10'\par     \plain\f7\fs16\b proced' +
        'ure\plain\f7\fs16  DoUpdate;'#13#10'\par     \plain\f7\fs16\b procedur' +
        'e\plain\f7\fs16  Notification(AComponent: TComponent; Operation:' +
        ' TOperation); \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par   ' +
        '  \plain\f7\fs16\b function\plain\f7\fs16  OwnerInterface: IOwne' +
        'rObject;\plain\f8\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Published properties'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fswiss\fcharset1 Arial;}{\f6\fmodern\fcharset' +
        '1 Courier New;}{\f7\fswiss\fcharset1 Arial;}{\f8\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs32 TDocs published properties\plain\f5\fs16 '#13#10'\par Use the' +
        ' tree view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f6\fs16 ' +
        '    \plain\f6\fs16\b property\plain\f6\fs16  Count: Integer \pla' +
        'in\f6\fs16\b read\plain\f6\fs16  GetCount \plain\f6\fs16\b write' +
        '\plain\f6\fs16  SetCount \plain\f6\fs16\b stored\plain\f6\fs16  ' +
        'False;'#13#10'\par     \plain\f6\fs16\b property\plain\f6\fs16  DocDis' +
        'play: TTreeView \plain\f6\fs16\b read\plain\f6\fs16  FDocDisplay' +
        ' \plain\f6\fs16\b write\plain\f6\fs16  SetDocDisplay;'#13#10'\par     ' +
        '\plain\f6\fs16\b property\plain\f6\fs16  DocList: TDocList \plai' +
        'n\f6\fs16\b read\plain\f6\fs16  FDocs \plain\f6\fs16\b write\pla' +
        'in\f6\fs16  SetDocs;'#13#10'\par     \plain\f6\fs16\b property\plain\f' +
        '6\fs16  ForceVisible: Boolean \plain\f6\fs16\b read\plain\f6\fs1' +
        '6  FForceVisible'#13#10'\par                                    \plain' +
        '\f6\fs16\b write\plain\f6\fs16  SetForceVisible \plain\f6\fs16\b' +
        ' default\plain\f6\fs16  False;'#13#10'\par     \plain\f6\fs16\b proper' +
        'ty\plain\f6\fs16  RichEdit: TRichEdit \plain\f6\fs16\b read\plai' +
        'n\f6\fs16  FRichEdit \plain\f6\fs16\b write\plain\f6\fs16  SetRi' +
        'chEdit;'#13#10'\par     \plain\f6\fs16\b property\plain\f6\fs16  SelIn' +
        'dex: Integer \plain\f6\fs16\b read\plain\f6\fs16  GetSelIndex \p' +
        'lain\f6\fs16\b write\plain\f6\fs16  SetSelIndex \plain\f6\fs16\b' +
        ' stored\plain\f6\fs16  False;'#13#10'\par     \plain\f6\fs16\b propert' +
        'y\plain\f6\fs16  UpWhenBack: Boolean \plain\f6\fs16\b read\plain' +
        '\f6\fs16  FUpWhenBack \plain\f6\fs16\b write\plain\f6\fs16  SetU' +
        'pWhenBack \plain\f6\fs16\b default\plain\f6\fs16  False;\plain\f' +
        '5\fs16 '#13#10'\par \plain\f3\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\' +
        'deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\f' +
        'charset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fnil\' +
        'fcharset1 Default;}{\f4\fmodern\fcharset1 Courier New;}{\f5\fswi' +
        'ss\fcharset1 Arial;}{\f6\fswiss\fprq2 System;}{\f7\fswiss\fchars' +
        'et1 Arial Black;}{\f8\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0' +
        '\green0\blue0;}'#13#10'\deflang1053\pard\plain\f7\fs32 TDocs published' +
        ' properties\plain\f5\fs16 '#13#10'\par Use the tree view on the left t' +
        'o navigate.'#13#10'\par '#13#10'\par \plain\f4\fs16     \plain\f4\fs16\b pro' +
        'perty\plain\f4\fs16  Count: Integer \plain\f4\fs16\b read\plain\' +
        'f4\fs16  GetCount \plain\f4\fs16\b write\plain\f4\fs16  SetCount' +
        ' \plain\f4\fs16\b stored\plain\f4\fs16  False;'#13#10'\par     \plain\' +
        'f4\fs16\b property\plain\f4\fs16  DocDisplay: TTreeView \plain\f' +
        '4\fs16\b read\plain\f4\fs16  FDocDisplay \plain\f4\fs16\b write\' +
        'plain\f4\fs16  SetDocDisplay;'#13#10'\par     \plain\f4\fs16\b propert' +
        'y\plain\f4\fs16  DocList: TDocList \plain\f4\fs16\b read\plain\f' +
        '4\fs16  FDocs \plain\f4\fs16\b write\plain\f4\fs16  SetDocs;'#13#10'\p' +
        'ar     \plain\f4\fs16\b property\plain\f4\fs16  ForceVisible: Bo' +
        'olean \plain\f4\fs16\b read\plain\f4\fs16  FForceVisible'#13#10'\par  ' +
        '                                  \plain\f4\fs16\b write\plain\f' +
        '4\fs16  SetForceVisible \plain\f4\fs16\b default\plain\f4\fs16  ' +
        'False;'#13#10'\par     \plain\f4\fs16\b property\plain\f4\fs16  RichEd' +
        'it: TRichEdit \plain\f4\fs16\b read\plain\f4\fs16  FRichEdit \pl' +
        'ain\f4\fs16\b write\plain\f4\fs16  SetRichEdit;'#13#10'\par     \plain' +
        '\f4\fs16\b property\plain\f4\fs16  SelIndex: Integer \plain\f4\f' +
        's16\b read\plain\f4\fs16  GetSelIndex \plain\f4\fs16\b write\pla' +
        'in\f4\fs16  SetSelIndex \plain\f4\fs16\b stored\plain\f4\fs16  F' +
        'alse;'#13#10'\par     \plain\f4\fs16\b property\plain\f4\fs16  UpWhenB' +
        'ack: Boolean \plain\f4\fs16\b read\plain\f4\fs16  FUpWhenBack \p' +
        'lain\f4\fs16\b write\plain\f4\fs16  SetUpWhenBack \plain\f4\fs16' +
        '\b default\plain\f4\fs16  False;\plain\f5\fs16 '#13#10'\par \plain\f3\' +
        'fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Count'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   property\plai' +
        'n\f4\fs16  Count: Integer \plain\f4\fs16\b read\plain\f4\fs16  G' +
        'etCount \plain\f4\fs16\b write\plain\f4\fs16  SetCount \plain\f4' +
        '\fs16\b stored\plain\f4\fs16  False;'#13#10'\par \plain\f3\fs16 '#13#10'\par' +
        ' '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\pa' +
        'r Read Count to obtain the total number of documents held by the' +
        ' component. '#13#10'\par '#13#10'\par Althought Count is formally declared a' +
        's a read/write property, setting Count will have no effect. Use ' +
        'the DocList.Clear method to delete all documents and set Count t' +
        'o zero.\plain\f4\fs16 '#13#10'\par \plain\f5\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DocDisplay'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fmodern\fcharse' +
        't1 Courier New;}{\f7\fswiss\fcharset1 Arial;}{\f8\fswiss\fprq2 S' +
        'ystem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plai' +
        'n\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f6\fs16 '#13#10'\par \pl' +
        'ain\f6\fs16\b '#13#10'\par   property\plain\f6\fs16  DocDisplay: TTree' +
        'View \plain\f6\fs16\b read\plain\f6\fs16  FDocDisplay \plain\f6\' +
        'fs16\b write\plain\f6\fs16  SetDocDisplay;'#13#10'\par \plain\f5\fs16 ' +
        #13#10'\par '#13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par' +
        ' '#13#10'\par Set DocDisplay to associate the component with a TTreeVi' +
        'ew control. If a value is assigned to DocDisplay, this control w' +
        'ill automatically display the visible contents of the document c' +
        'ollection.'#13#10'\par '#13#10'\par \plain\f5\fs16\b Note\plain\f5\fs16 : Th' +
        'e Data property of each automatically created TTreeNode will hol' +
        'd a pointer to the associated TDoc object. This TDoc object is n' +
        'ot automatically selected when the TTreeNode is selected. Use th' +
        'e OnChange event of the DocDisplay control to select the associa' +
        'ted TDoc object.'#13#10'\par '#13#10'\par \plain\f5\fs16\b Example\plain\f5\' +
        'fs16 :'#13#10'\par \plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b procedure\pl' +
        'ain\f4\fs16  TMainForm.TreeView1Change(Sender: TObject; Node: TT' +
        'reeNode);'#13#10'\par \plain\f4\fs16\b var\plain\f4\fs16 '#13#10'\par   Doc:' +
        ' TDoc;'#13#10'\par \plain\f4\fs16\b begin\plain\f4\fs16 '#13#10'\par   \plai' +
        'n\f4\fs16\b if\plain\f4\fs16  Node.Selected \plain\f4\fs16\b the' +
        'n\plain\f4\fs16  \plain\f4\fs16\b begin\plain\f4\fs16 '#13#10'\par    ' +
        ' \plain\f4\fs16\b try\plain\f4\fs16 '#13#10'\par       Doc := TObject(' +
        'Node.Data) \plain\f4\fs16\b as\plain\f4\fs16  TDoc;    '#13#10'\par   ' +
        '  \plain\f4\fs16\b except\plain\f4\fs16 '#13#10'\par       Doc := nil;' +
        #13#10'\par     \plain\f4\fs16\b end\plain\f4\fs16 ;'#13#10'\par     \plain' +
        '\f4\fs16\b if\plain\f4\fs16  Assigned(Doc) \plain\f4\fs16\b then' +
        '\plain\f4\fs16  Doc.Selected := True;'#13#10'\par   \plain\f4\fs16\b e' +
        'nd\plain\f4\fs16 ;'#13#10'\par \plain\f4\fs16\b end\plain\f4\fs16 ;'#13#10'\' +
        'par '#13#10'\par \plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DocList'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  DocList: TDocList \plain\f5\fs16\b read\plain\f5\fs16' +
        '  FDocs \plain\f5\fs16\b write\plain\f5\fs16  SetDocs;'#13#10'\par \pl' +
        'ain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\' +
        'fs16 :'#13#10'\par '#13#10'\par Read DocList to obtain the wrapper object th' +
        'at holds the components document collection. See the documentati' +
        'on for the TDocList class for a detailed description of the meth' +
        'ods and properties of this object.'#13#10'\par '#13#10'\par \plain\f3\fs16\b' +
        ' Note\plain\f3\fs16 : DocList is stored to the resource or DFM-f' +
        'ile with the format of a TCollection object under the name "List' +
        '".\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'ForceVisible'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset' +
        '1 Arial;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  ForceVisible: Boolean \plain\f5\fs16\b read\plain\f5\' +
        'fs16  FForceVisible'#13#10'\par                                  \plai' +
        'n\f5\fs16\b write\plain\f5\fs16  SetForceVisible \plain\f5\fs16\' +
        'b default\plain\f5\fs16  False;'#13#10'\par \plain\f4\fs16 '#13#10'\par '#13#10'\p' +
        'ar \plain\f4\fs16\b Description\plain\f4\fs16 :'#13#10'\par '#13#10'\par If ' +
        'ForceVisible is True, then all documents are displayed in the Do' +
        'cDisplay control. If ForceVisible is False, only Visible documen' +
        'ts are displayed in the DocDisplay. Not visible documents can st' +
        'ill be selected and displayed in the RichEdit control, but they ' +
        'must be selected programmatically.\plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'RichEdit'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset' +
        '1 Arial;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  RichEdit: TRichEdit \plain\f5\fs16\b read\plain\f5\fs' +
        '16  FRichEdit \plain\f5\fs16\b write\plain\f5\fs16  SetRichEdit;' +
        #13#10'\par \plain\f4\fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description' +
        '\plain\f4\fs16 :'#13#10'\par '#13#10'\par Set RichEdit to associate the comp' +
        'onent with a TRichEdit (or TRichEdit descendant) control. If a v' +
        'alue is assigned to RichEdit, this control will automatically di' +
        'splay RTF text of the currently selected document.'#13#10'\par '#13#10'\par ' +
        '\plain\f4\fs16\b Note\plain\f4\fs16 : RichEdit should be read-on' +
        'ly, since it is not indended to be used when the selected docume' +
        'nt is edited. To edit documents, use the RTFDesigner included in' +
        ' the commersial version instead.\plain\f3\fs16 '#13#10'\par '#13#10'\par '#13#10'\' +
        'par }'#13#10#0
    end
    item
      Title = 'SelIndex'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  SelIndex: Integer \plain\f5\fs16\b read\plain\f5\fs16' +
        '  GetSelIndex \plain\f5\fs16\b write\plain\f5\fs16  SetSelIndex ' +
        '\plain\f5\fs16\b stored\plain\f5\fs16  False;\plain\f3\fs16 '#13#10'\p' +
        'ar '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\' +
        'par '#13#10'\par Read SelIndex to obtain the index of the currently se' +
        'lected document. Set SelIndex to change the current selection. '#13 +
        #10'\par '#13#10'\par A value of -1 represents that no document is curren' +
        'tly selected.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs16 :' +
        ' The value of SelIndex must be in the range -1..Count-1. Attempt' +
        's to set SelIndex to any other value has no effect and leaves th' +
        'e current selection unchanged.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Not' +
        'e\plain\f3\fs16 : SelIndex is declared with the storage specifie' +
        'r "stored False" for internal reasons. The current value is stor' +
        'ed to the resource or DFM-file under the name "Selected".\plain\' +
        'f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'UpWhenBack'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset' +
        '1 Arial;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  UpWhenBack: Boolean \plain\f5\fs16\b read\plain\f5\fs' +
        '16  FUpWhenBack \plain\f5\fs16\b write\plain\f5\fs16  SetUpWhenB' +
        'ack \plain\f5\fs16\b default\plain\f5\fs16  False;\plain\f4\fs16' +
        ' '#13#10'\par '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs16' +
        ' :'#13#10'\par '#13#10'\par The value of UpWhenBack determines the default b' +
        'ehavior of the BackExecute method. If the MacroBack of the curre' +
        'ntly selected document is empty, then BackExecute calls the DocL' +
        'ist.Up method if UpWhenBack is True, selecting the parent of the' +
        ' currently selected document, otherwise it calls the DocList.Bac' +
        'k method, selecting the last document in the internal history st' +
        'ack.'#13#10'\par \plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Published events'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fswiss\fprq2 System;}{\f8\fswiss\fcharset1 A' +
        'rial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f6\fs32 TDocs published events\plain\f5\fs16 '#13#10'\par Use the tre' +
        'e view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f4\fs16     ' +
        '\plain\f4\fs16\b property\plain\f4\fs16  OnChange: TDocEvent \pl' +
        'ain\f4\fs16\b read\plain\f4\fs16  FOnChange \plain\f4\fs16\b wri' +
        'te\plain\f4\fs16  SetOnChange;'#13#10'\par     \plain\f4\fs16\b proper' +
        'ty\plain\f4\fs16  OnGetData: TDocEvent \plain\f4\fs16\b read\pla' +
        'in\f4\fs16  FOnGetData \plain\f4\fs16\b write\plain\f4\fs16  Set' +
        'OnGetData;'#13#10'\par     \plain\f4\fs16\b property\plain\f4\fs16  On' +
        'Deletion: TDocEvent \plain\f4\fs16\b read\plain\f4\fs16  FOnDele' +
        'tion \plain\f4\fs16\b write\plain\f4\fs16  SetOnDeletion;'#13#10'\par ' +
        '    \plain\f4\fs16\b property\plain\f4\fs16  OnSelection: TDocEv' +
        'ent \plain\f4\fs16\b read\plain\f4\fs16  FOnSelection \plain\f4\' +
        'fs16\b write \plain\f4\fs16 SetOnSelection;'#13#10'\par     \plain\f4\' +
        'fs16\b property\plain\f4\fs16  OnUpdate: TNotifyEvent \plain\f4\' +
        'fs16\b read \plain\f4\fs16 FOnUpdate \plain\f4\fs16\b write\plai' +
        'n\f4\fs16  SetOnUpdate;\plain\f5\fs16 '#13#10'\par \plain\f3\fs16 '#13#10'\p' +
        'ar }'#13#10#0
    end
    item
      Title = 'OnGetData'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial Black;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   type \plain\f5\fs16 TDocEvent = \plain\f5\' +
        'fs16\b procedure\plain\f5\fs16 (Sender: TObject; Doc: TDoc) \pla' +
        'in\f5\fs16\b of object\plain\f5\fs16 ;\plain\f5\fs16\b '#13#10'\par   ' +
        'property\plain\f5\fs16  OnGetData: TDocEvent \plain\f5\fs16\b re' +
        'ad\plain\f5\fs16  FOnGetData \plain\f5\fs16\b write\plain\f5\fs1' +
        '6  SetOnGetData;\plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b De' +
        'scription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The OnGetData event occur' +
        's immediately after a TDoc object has been added to DocList. The' +
        ' newly created TDoc object is passed by the Doc parameter.'#13#10'\par' +
        ' '#13#10'\par If a control is assigned to the DocDisplay property and ' +
        'either ForceVisible or Doc.Visible is true, then Doc.Data will r' +
        'eference the automatically created TTreeNode which represents Do' +
        'c, and the Data property of this node will hold the address of D' +
        'oc.\plain\f8\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'OnDeletion'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   type \plain\f' +
        '5\fs16 TDocEvent = \plain\f5\fs16\b procedure\plain\f5\fs16 (Sen' +
        'der: TObject; Doc: TDoc) \plain\f5\fs16\b of object\plain\f5\fs1' +
        '6 ;\plain\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  OnDeletion:' +
        ' TDocEvent \plain\f5\fs16\b read\plain\f5\fs16  FOnDeletion \pla' +
        'in\f5\fs16\b write\plain\f5\fs16  SetOnDeletion;'#13#10'\par \plain\f3' +
        '\fs16 '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par ' +
        #13#10'\par The OnDeletetion event occurs after the object referenced' +
        ' by Doc has been deleted and immediately before it is destroyed.' +
        #13#10'\par '#13#10'\par If Doc.Data references a TTreeNode object, then th' +
        'is node will be deleted prior to the OnDeletetion event. If any ' +
        'other kind of object has been programatically assigned to the Do' +
        'c.Data property, this is the time to absolve this association.\p' +
        'lain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'OnSelection'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   type \plain\f' +
        '5\fs16 TDocEvent = \plain\f5\fs16\b procedure\plain\f5\fs16 (Sen' +
        'der: TObject; Doc: TDoc) \plain\f5\fs16\b of object\plain\f5\fs1' +
        '6 ;\plain\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  OnSelection' +
        ': TDocEvent \plain\f5\fs16\b read\plain\f5\fs16  FOnSelection \p' +
        'lain\f5\fs16\b write \plain\f5\fs16 SetOnSelection;'#13#10'\par \plain' +
        '\f3\fs16 '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\p' +
        'ar '#13#10'\par The OnSelection event occurs when the value of the Doc' +
        '.Selected property has changed. This event is also triggered by ' +
        'changing the SelIndex property of the TDocs component, since the' +
        ' setter method of this property changes the Selected property of' +
        ' the corresponding TDocs object.'#13#10'\par '#13#10'\par If Doc.Selected ha' +
        's been changed to False or if SelIndex has been set to -1, then ' +
        'the object references by Doc is the lastly selected TDoc object.' +
        ' If SelIndex is set to a value different from -1, then no notifi' +
        'cation is given about the de-selection of the previosly selected' +
        ' TDoc object. The DocList.History property might however be used' +
        ' to keep track of previously selected TDoc objects.\plain\f7\fs1' +
        '6 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'OnUpdate'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   type \plain\f' +
        '5\fs16 TDocEvent = \plain\f5\fs16\b procedure\plain\f5\fs16 (Sen' +
        'der: TObject; Doc: TDoc) \plain\f5\fs16\b of object\plain\f5\fs1' +
        '6 ;\plain\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  OnUpdate: T' +
        'NotifyEvent \plain\f5\fs16\b read \plain\f5\fs16 FOnUpdate \plai' +
        'n\f5\fs16\b write\plain\f5\fs16  SetOnUpdate;\plain\f3\fs16 '#13#10'\p' +
        'ar '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\' +
        'par The OnUpdate event occurs when the value of the DocList.Inte' +
        'rnalUpdating swithes from True to False, as a result of a call t' +
        'o the DocList.EndUpdate method. Any trapped changes or deletions' +
        ' of TDoc objects are executed when this event returns.\plain\f7\' +
        'fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl' +
        '{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fs' +
        'wiss\fcharset1 MS Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\' +
        'fmodern\fcharset1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6' +
        '\fswiss\fprq2 System;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl' +
        '\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declarat' +
        'ion\plain\f5\fs16 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par' +
        '   type \plain\f4\fs16 TDocEvent = \plain\f4\fs16\b procedure\pl' +
        'ain\f4\fs16 (Sender: TObject; Doc: TDoc) \plain\f4\fs16\b of obj' +
        'ect\plain\f4\fs16 ;\plain\f4\fs16\b '#13#10'\par   property\plain\f4\f' +
        's16  OnUpdate: TNotifyEvent \plain\f4\fs16\b read \plain\f4\fs16' +
        ' FOnUpdate \plain\f4\fs16\b write\plain\f4\fs16  SetOnUpdate;\pl' +
        'ain\f5\fs16 '#13#10'\par '#13#10'\par \plain\f5\fs16\b Description\plain\f5\' +
        'fs16 :'#13#10'\par '#13#10'\par The OnUpdate event occurs when the value of ' +
        'the DocList.InternalUpdating swithes from True to False, as a re' +
        'sult of a call to the DocList.EndUpdate method. Any trapped chan' +
        'ges or deletions of TDoc objects are executed when this event re' +
        'turns.\plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'OnChange'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   type \plain\f' +
        '4\fs16 TDocEvent = \plain\f4\fs16\b procedure\plain\f4\fs16 (Sen' +
        'der: TObject; Doc: TDoc) \plain\f4\fs16\b of object\plain\f4\fs1' +
        '6 ;\plain\f4\fs16\b '#13#10'\par   property\plain\f4\fs16  OnChange: T' +
        'DocEvent \plain\f4\fs16\b read\plain\f4\fs16  FOnChange \plain\f' +
        '4\fs16\b write\plain\f4\fs16  SetOnChange;\plain\f5\fs16 '#13#10'\par ' +
        #13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par' +
        ' The OnChange event occurs immediately after a property of a TDo' +
        'c object has modified. The modified TDoc object is passed by the' +
        ' Doc parameter.'#13#10'\par '#13#10'\par If a control is assigned to the Doc' +
        'Display property and either ForceVisible or Doc.Visible is true,' +
        ' then Doc.Data will reference the automatically created TTreeNod' +
        'e which represents Doc, and the Data property of this node will ' +
        'hold the address of Doc.\plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Public properties'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial Black;}{\f5\fswiss\fcharset1 Arial;}{\f6\fnil\fprq' +
        '13\fcharset1 Default;}{\f7\fnil\fcharset1 Default;}{\f8\fswiss\f' +
        'prq2 System;}{\f9\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\gre' +
        'en0\blue0;}'#13#10'\deflang1053\pard\plain\f4\fs32 TDocs public proper' +
        'ties\plain\f5\fs16 '#13#10'\par Use the tree view on the left to navig' +
        'ate.'#13#10'\par '#13#10'\par \plain\f3\fs16     \plain\f3\fs16\b property\p' +
        'lain\f3\fs16  DocsDesigner: IDocsDesigner \plain\f3\fs16\b read\' +
        'plain\f3\fs16  FDocsDesigner'#13#10'\par                              ' +
        '          \plain\f3\fs16\b write\plain\f3\fs16  SetDocsDesigner'#13 +
        #10'\par                                        \plain\f3\fs16\b st' +
        'ored\plain\f3\fs16  False;'#13#10'\par     \plain\f3\fs16\b property\p' +
        'lain\f3\fs16  RTFDesigner: IRTFDesigner \plain\f3\fs16\b read \p' +
        'lain\f3\fs16 FRTFDesigner'#13#10'\par                                 ' +
        '       \plain\f3\fs16\b write \plain\f3\fs16 SetRTFDesigner'#13#10'\pa' +
        'r                                        \plain\f3\fs16\b stored' +
        '\plain\f3\fs16  False;\plain\f5\fs16 '#13#10'\par '#13#10'\par \plain\f7\fs1' +
        '6 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DocsDesigner'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial Black;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  DocsDesigner: IDoc' +
        'sDesigner \plain\f5\fs16\b read\plain\f5\fs16  FDocsDesigner'#13#10'\p' +
        'ar                                        \plain\f5\fs16\b write' +
        '\plain\f5\fs16  SetDocsDesigner'#13#10'\par                           ' +
        '             \plain\f5\fs16\b stored\plain\f5\fs16  False;\plain' +
        '\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs1' +
        '6 :'#13#10'\par '#13#10'\par The DocsDesigner property is used internally to' +
        ' reference the currently active DocsDesigner, which is included ' +
        'in the commersial version of this product. There should normally' +
        ' be no need to use this property in an application.\plain\f8\fs1' +
        '6 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'RTFDesigner'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial Black;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  RTFDesigner: IRTFD' +
        'esigner \plain\f5\fs16\b read \plain\f5\fs16 FRTFDesigner'#13#10'\par ' +
        '                                       \plain\f5\fs16\b write \p' +
        'lain\f5\fs16 SetRTFDesigner'#13#10'\par                               ' +
        '         \plain\f5\fs16\b stored\plain\f5\fs16  False;\plain\f3\' +
        'fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13 +
        #10'\par '#13#10'\par The RTFDesigner property is used internally to refe' +
        'rence the currently active RTFDesigner, which is included in the' +
        ' commersial version of this product. There should normally be no' +
        ' need to use this property in an application.\plain\f8\fs16 '#13#10'\p' +
        'ar }'#13#10#0
    end
    item
      Title = 'Public methods'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sys' +
        'tem;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs32 TDocs public methods\plain\f3\fs16 '#13#10'\par Use the tree ' +
        'view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f7\fs16     \p' +
        'lain\f7\fs16\b constructor\plain\f7\fs16  Create(AOwner: TCompon' +
        'ent); \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par     \plain' +
        '\f7\fs16\b destructor \plain\f7\fs16 Destroy; \plain\f7\fs16\b o' +
        'verride\plain\f7\fs16 ;   '#13#10'\par     \plain\f7\fs16\b function\p' +
        'lain\f7\fs16  AsPersistent: TPersistent; '#13#10'\par     \plain\f7\fs' +
        '16\b procedure\plain\f7\fs16  BackExecute(Sender: TObject); \pla' +
        'in\f7\fs16\b dynamic\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b ' +
        'procedure\plain\f7\fs16  DemoExecute(Sender: TObject); \plain\f7' +
        '\fs16\b dynamic\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b funct' +
        'ion\plain\f7\fs16  GetForm: TCustomForm; \plain\f7\fs16\b virtua' +
        'l\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\' +
        'fs16  NextExecute(Sender: TObject); \plain\f7\fs16\b dynamic\pla' +
        'in\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\fs16 ' +
        ' PrevExecute(Sender: TObject); \plain\f7\fs16\b dynamic\plain\f7' +
        '\fs16 ; '#13#10'\par '#13#10'\par \plain\f8\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Create'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   constructor\p' +
        'lain\f6\fs16  Create(AOwner: TComponent); \plain\f6\fs16\b overr' +
        'ide\plain\f6\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3' +
        '\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par See the VCL onl' +
        'ine help for a description of constructors.\plain\f7\fs16 '#13#10'\par' +
        ' }'#13#10#0
    end
    item
      Title = 'Destroy'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   destructor \p' +
        'lain\f5\fs16 Destroy; \plain\f5\fs16\b override\plain\f5\fs16 ; ' +
        '  '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Descripti' +
        'on\plain\f3\fs16 :'#13#10'\par '#13#10'\par See the VCL online help for a de' +
        'scription of destructors.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\a' +
        'nsicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\' +
        'f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;' +
        '}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\' +
        'fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fn' +
        'il\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflan' +
        'g1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\' +
        'fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   destructor \plain\f6\fs16 ' +
        'Destroy; \plain\f6\fs16\b override\plain\f6\fs16 ;   '#13#10'\par \pla' +
        'in\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\f' +
        's16 :'#13#10'\par '#13#10'\par See the VCL online help for a description of ' +
        'destructors.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'AsPersistent'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  AsPersistent: TPersistent;  '#13#10'\par \plain\f3\fs16 '#13#10'\' +
        'par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10 +
        '\par The AsPersistent method implements the corresponding method' +
        ' of the IOwnerObject interface. It returns the instance itself.\' +
        'plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'BackExecute'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  BackExecute(Sender: TObject); \plain\f5\fs16\b dynam' +
        'ic\plain\f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\' +
        'fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The BackExecute ' +
        'method executes the BackMacro of the currently selected TDoc obj' +
        'ect, if this macro is non-empty. Otherwise it calls the DocList.' +
        'Back method if UpWhenBack is False, and DocList.Up if UpWhenBack' +
        ' is True.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs16 : The' +
        ' Sender parameter is unused in the TDocs implementation of BackE' +
        'xecute. BackExecute is declared as a TNotifyEvent to make it ass' +
        'ignable to the OnExecute event of a TDocBack action.\plain\f7\fs' +
        '16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DemoExecute'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  DemoExecute(Sender: TObject); \plain\f5\fs16\b dynam' +
        'ic\plain\f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\' +
        'fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The DemoExecute ' +
        'method executes the DemoMacro of the currently selected TDoc obj' +
        'ect, if this macro is non-empty. Otherwise it calls the DocList.' +
        'Down method.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs16 : ' +
        'The Sender parameter is unused in the TDocs implementation of De' +
        'moExecute. DemoExecute is declared as a TNotifyEvent to make it ' +
        'assignable to the OnExecute event of a TDocDemo action.\plain\f7' +
        '\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetForm'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetForm: TCustomForm; \plain\f5\fs16\b virtual\plain\' +
        'f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b De' +
        'scription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The GetForm method implem' +
        'ents the GetForm method of the IOwnerObject interface. This meth' +
        'od returns Owner if Owner is TCustomForm, otherwise it returns n' +
        'il.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\defta' +
        'b720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Sy' +
        'mbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1' +
        ' Arial;}{\f4\fswiss\fprq2 System;}{\f5\fmodern\fcharset1 Courier' +
        ' New;}{\f6\fswiss\fcharset1 Arial;}{\f7\fnil\fcharset1 Default;}' +
        '}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3\fs' +
        '16\b Declaration\plain\f3\fs16 :\plain\f5\fs16 '#13#10'\par \plain\f5\' +
        'fs16\b '#13#10'\par   function\plain\f5\fs16  GetForm: TCustomForm; \p' +
        'lain\f5\fs16\b virtual\plain\f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\p' +
        'ar '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\' +
        'par The GetForm method implements the GetForm method of the IOwn' +
        'erObject interface. This method returns Owner if Owner is TCusto' +
        'mForm, otherwise it returns nil.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1' +
        '\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Se' +
        'rif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans' +
        ' Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 System;}{' +
        '\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 Arial;}' +
        '{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10 +
        '\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16 :\pl' +
        'ain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plain\f5\{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1 ' +
        'Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier ' +
        'New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue' +
        '0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16' +
        ' :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plain' +
        '\f6\fs16  GetForm: TCustomForm; \plain\f6\fs16\b virtual\plain\f' +
        '6\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Des' +
        'cription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The GetForm method impleme' +
        'nts the GetForm method of the IOwnerObject interface. This metho' +
        'd returns Owner if Owner is TCustomForm, otherwise it returns ni' +
        'l.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'NextExecute'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  NextExecute(Sender: TObject); \plain\f5\fs16\b dynam' +
        'ic\plain\f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\' +
        'fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The NextExecute ' +
        'method executes the NextMacro of the currently selected TDoc obj' +
        'ect, if this macro is non-empty. Otherwise it calls the DocList.' +
        'Next method.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs16 : ' +
        'The Sender parameter is unused in the TDocs implementation of Ne' +
        'xtExecute. NextExecute is declared as a TNotifyEvent to make it ' +
        'assignable to the OnExecute event of a TDocNext action.\plain\f7' +
        '\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'PrevExecute'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  PrevExecute(Sender: TObject); \plain\f5\fs16\b dynam' +
        'ic\plain\f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\' +
        'fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The PrevExecute ' +
        'method executes the PrevMacro of the currently selected TDoc obj' +
        'ect, if this macro is non-empty. Otherwise it calls the DocList.' +
        'Prev method.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs16 : ' +
        'The Sender parameter is unused in the TDocs implementation of Pr' +
        'evExecute. PrevExecute is declared as a TNotifyEvent to make it ' +
        'assignable to the OnExecute event of a TDocPrev action.\plain\f7' +
        '\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttb' +
        'l{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\f' +
        'swiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4' +
        '\fswiss\fprq2 System;}{\f5\fmodern\fcharset1 Courier New;}{\f6\f' +
        'swiss\fcharset1 Arial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortb' +
        'l\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declara' +
        'tion\plain\f3\fs16 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\pa' +
        'r   procedure\plain\f5\fs16  PrevExecute(Sender: TObject); \plai' +
        'n\f5\fs16\b dynamic\plain\f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par ' +
        #13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par' +
        ' The PrevExecute method executes the PrevMacro of the currently ' +
        'selected TDoc object, if this macro is non-empty. Otherwise it c' +
        'alls the DocList.Prev method.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note' +
        '\plain\f3\fs16 : The Sender parameter is unused in the TDocs imp' +
        'lementation of PrevExecute. PrevExecute is declared as a TNotify' +
        'Event to make it assignable to the OnExecute event of a TDocPrev' +
        ' action.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Protected methods'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\g' +
        'reen0\blue0;}'#13#10'\deflang1053\pard\plain\f6\fs32 TDocs protected m' +
        'ethods\plain\f3\fs16 '#13#10'\par Use the tree view on the left to nav' +
        'igate.'#13#10'\par \plain\f4\fs16 '#13#10'\par     \plain\f4\fs16\b procedur' +
        'e\plain\f4\fs16  DefineProperties(Filer: TFiler); \plain\f4\fs16' +
        '\b override\plain\f4\fs16 ;'#13#10'\par     \plain\f4\fs16\b procedure' +
        '\plain\f4\fs16  DoAddDoc(RefItem, NewItem: TDoc; Action: TAddDoc' +
        'Action);'#13#10'\par     \plain\f4\fs16\b procedure\plain\f4\fs16  DoC' +
        'hangeDoc(Item: TDoc);'#13#10'\par     \plain\f4\fs16\b procedure\plain' +
        '\f4\fs16  DoDeleteDoc(Item: TDoc);'#13#10'\par     \plain\f4\fs16\b pr' +
        'ocedure\plain\f4\fs16  DoSelectDoc(Item: TDoc);'#13#10'\par     \plain' +
        '\f4\fs16\b procedure\plain\f4\fs16  DoUpdate;'#13#10'\par     \plain\f' +
        '4\fs16\b procedure\plain\f4\fs16  Notification(AComponent: TComp' +
        'onent; Operation: TOperation); \plain\f4\fs16\b override\plain\f' +
        '4\fs16 ;'#13#10'\par     \plain\f4\fs16\b function\plain\f4\fs16  Owne' +
        'rInterface: IOwnerObject;\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\a' +
        'nsicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\' +
        'f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;' +
        '}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset1 Courier New' +
        ';}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 System;}{\f7\fs' +
        'wiss\fcharset1 Arial Black;}{\f8\fswiss\fcharset1 Arial;}}'#13#10'{\co' +
        'lortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f7\fs32 TDoc' +
        's protected methods\plain\f5\fs16 '#13#10'\par Use the tree view on th' +
        'e left to navigate.'#13#10'\par \plain\f4\fs16 '#13#10'\par     \plain\f4\fs' +
        '16\b procedure\plain\f4\fs16  DefineProperties(Filer: TFiler); \' +
        'plain\f4\fs16\b override\plain\f4\fs16 ;'#13#10'\par     \plain\f4\fs1' +
        '6\b procedure\plain\f4\fs16  DoAddDoc(RefItem, NewItem: TDoc; Ac' +
        'tion: TAddDocAction);'#13#10'\par     \plain\f4\fs16\b procedure\plai{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset1' +
        ' Courier New;}{\f5\fswiss\fcharset1 Arial Black;}{\f6\fswiss\fpr' +
        'q2 System;}{\f7\fswiss\fcharset1 Arial;}{\f8\fswiss\fcharset1 Ar' +
        'ial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\' +
        'f5\fs32 TDocs protected methods\plain\f7\fs16 '#13#10'\par Use the tre' +
        'e view on the left to navigate.'#13#10'\par \plain\f4\fs16 '#13#10'\par     ' +
        '\plain\f4\fs16\b procedure\plain\f4\fs16  DefineProperties(Filer' +
        ': TFiler); \plain\f4\fs16\b override\plain\f4\fs16 ;'#13#10'\par     \' +
        'plain\f4\fs16\b procedure\plain\f4\fs16  DoAddDoc(RefItem, NewIt' +
        'em: TDoc; Action: TAddDocAction);'#13#10'\par     \plain\f4\fs16\b pro' +
        'cedure\plain\f4\fs16  DoChangeDoc(Item: TDoc);'#13#10'\par     \plain\' +
        'f4\fs16\b procedure\plain\f4\fs16  DoDeleteDoc(Item: TDoc);'#13#10'\pa' +
        'r     \plain\f4\fs16\b procedure\plain\f4\fs16  DoSelectDoc(Item' +
        ': TDoc);'#13#10'\par     \plain\f4\fs16\b procedure\plain\f4\fs16  DoU' +
        'pdate;'#13#10'\par     \plain\f4\fs16\b procedure\plain\f4\fs16  Notif' +
        'ication(AComponent: TComponent; Operation: TOperation); \plain\f' +
        '4\fs16\b override\plain\f4\fs16 ;'#13#10'\par     \plain\f4\fs16\b fun' +
        'ction\plain\f4\fs16  OwnerInterface: IOwnerObject;\plain\f3\fs16' +
        ' '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DefineProperties'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   procedure\pla' +
        'in\f4\fs16  DefineProperties(Filer: TFiler); \plain\f4\fs16\b ov' +
        'erride\plain\f4\fs16 ;'#13#10'\par \plain\f5\fs16 '#13#10'\par '#13#10'\par \plain' +
        '\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par The DefinePr' +
        'operties method is used by the internal streaming system in orde' +
        'r to write the contents of the DocList and SelIndex properties t' +
        'o a resource or DFM-file.\plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoAddDoc'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   procedure\pla' +
        'in\f4\fs16  DoAddDoc(RefItem, NewItem: TDoc; Action: TAddDocActi' +
        'on);'#13#10'\par \plain\f5\fs16 '#13#10'\par '#13#10'\par \plain\f5\fs16\b Descrip' +
        'tion\plain\f5\fs16 :'#13#10'\par '#13#10'\par The DoAddDoc method is normall' +
        'y called internally as a result of the addtion of a TDoc object ' +
        'to DocList. The DoAddDoc method does the following:'#13#10'\par '#13#10'\par' +
        ' \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}' +
        '}\plain\f5\fs16 {\pntext\f1\'#39'b7\tab}If DocDisplay is not nil, an' +
        'd either ForceVisible or NewItem.Visible is True, a child node t' +
        'o the node associated with RefItem is added to DocDisplay.\plain' +
        '\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}If RTFDesigne' +
        'r is not nil (i.e. the RTF Editor window is showing), NewItem is' +
        ' added as a new tab in the RTF Editor window.\plain\f3\fs16 '#13#10'\p' +
        'ar \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}An OnGetData event occurs.' +
        '\plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoChangeDoc'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fswiss\fprq2 System;}{\f8\fswiss\fcharset1 A' +
        'rial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f4\fs16 '#13#10'\par \pla' +
        'in\f4\fs16\b '#13#10'\par   procedure\plain\f4\fs16  DoChangeDoc(Item:' +
        ' TDoc);'#13#10'\par \plain\f5\fs16 '#13#10'\par '#13#10'\par \plain\f5\fs16\b Desc' +
        'ription\plain\f5\fs16 :'#13#10'\par '#13#10'\par The DoChangeDoc method is n' +
        'ormally called internally when any property (except Selected) of' +
        ' a TDoc object in DocList has changed. The DoChangeDoc method do' +
        'es the following:'#13#10'\par '#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt' +
        '\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f5\fs16 {\pntext\f1\'#39'b7\ta' +
        'b}If Item.Selected is True and RichEdit is not nil, the contents' +
        ' of Item.TextAsStream is loaded by the RichEdit control.\plain\f' +
        '3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}If a TTreeNode ' +
        'is assigned to Item.Data, the Caption property of this TTreeNode' +
        ' is changed to reflect changes to the Item.Title property.\plain' +
        '\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}If DocDisplay' +
        ' is not nil and Item has turned visible, a corresponding TTreeNo' +
        'de is added to DocDisplay.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {' +
        '\pntext\f1\'#39'b7\tab}If RTFDesigner is not nil, RTFDesigner.Change' +
        'Doc(Item) is called.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntex' +
        't\f1\'#39'b7\tab}An OnChange event occurs.\plain\f3\fs16 '#13#10'\par }'#13#10#0 +
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fswiss\fprq2 System;}{\f8\fswiss\fcharset1 A' +
        'rial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f4\fs16 '#13#10'\par \pl{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset1' +
        ' Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sys' +
        'tem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue' +
        '0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs16' +
        ' :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   procedure\plai' +
        'n\f4\fs16  DoChangeDoc(Item: TDoc);'#13#10'\par \plain\f5\fs16 '#13#10'\par ' +
        #13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par' +
        ' The DoChangeDoc method is normally called internally when any p' +
        'roperty (except Selected) of a TDoc object in DocList has change' +
        'd. The DoChangeDoc method does the following:'#13#10'\par '#13#10'\par \pard' +
        '\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plai' +
        'n\f5\fs16 {\pntext\f1\'#39'b7\tab}If Item.Selected is True and RichE' +
        'dit is not nil, the contents of Item.TextAsStream is loaded by t' +
        'he RichEdit control.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntex' +
        't\f1\'#39'b7\tab}If a TTreeNode is assigned to Item.Data, the Captio' +
        'n property of this TTreeNode is changed to reflect changes to th' +
        'e Item.Title property.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pnt' +
        'ext\f1\'#39'b7\tab}If DocDisplay is not nil and Item has turned visi' +
        'ble, a corresponding TTreeNode is added to DocDisplay.\plain\f3\' +
        'fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}If RTFDesigner is' +
        ' not nil, RTFDesigner.ChangeDoc(Item) is called.\plain\f3\fs16 '#13 +
        #10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}An OnChange event occur' +
        's.\plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoDeleteDoc'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   procedure\pla' +
        'in\f4\fs16  DoDeleteDoc(Item: TDoc);'#13#10'\par \plain\f5\fs16 '#13#10'\par' +
        ' '#13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\pa' +
        'r The DoDeleteDoc method is normally called internally when any ' +
        ' TDoc object in DocList has been deleted. The DoDeleteDoc method' +
        ' does the following:'#13#10'\par '#13#10'\par \pard\li200\fi-200{\*\pn\pnlvl' +
        'blt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f5\fs16 {\pntext\f1\'#39'b7' +
        '\tab}If Item.Data is a TTreeNode, this TTreeNode is deleted.\pla' +
        'in\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}If RTFDesig' +
        'ner is not nil (i.e. the RTF Editor window is showing), RTFDesig' +
        'ner.RemoveDoc(Item) is called, making the tab corresponding to I' +
        'tem to be removed.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\' +
        'f1\'#39'b7\tab}An OnDeletion event occurs.\plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoSelectDoc'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   procedure\pla' +
        'in\f4\fs16  DoSelectDoc(Item: TDoc);'#13#10'\par \plain\f5\fs16 '#13#10'\par' +
        ' '#13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\pa' +
        'r The DoSelectDoc method is normally called internally when the ' +
        'Selected property of a TDoc object in DocList has been changed. ' +
        'The DoSelectDoc method does the following:'#13#10'\par '#13#10'\par \pard\li' +
        '200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f' +
        '5\fs16 {\pntext\f1\'#39'b7\tab}If RichEdit is not nil and Item.Selec' +
        'ted is True, the contents of Item.TextAsStream is loaded by the ' +
        'RichEdit control.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f' +
        '1\'#39'b7\tab}If a TTreeNode is assigned to Item.Data, this TTreeNod' +
        'e is selected.'#13#10'\par {\pntext\f1\'#39'b7\tab}If RTFDesigner is not n' +
        'il (i.e. the RTF Editor window is showing), RTFDesigner.SelectDo' +
        'c(Item) is called, making the tab corresponding to Item to be se' +
        'lected.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}' +
        'An OnSelection event occurs.'#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\d' +
        'eff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fc' +
        'harset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fnil\f' +
        'charset1 Default;}{\f4\fmodern\fcharset1 Courier New;}{\f5\fswis' +
        's\fcharset1 Arial;}{\f6\fswiss\fprq2 System;}{\f7\fswiss\fcharse' +
        't1 Arial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\p' +
        'lain\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f4\fs16 '#13#10'\par ' +
        '\plain\f4\fs16\b '#13#10'\par   procedure\plain\f4\fs16  DoSelectDoc(I' +
        'tem: TDoc);'#13#10'\par \plain\f5\fs16 '#13#10'\par '#13#10'\par \plain\f5\fs16\b ' +
        'Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par The DoSelectDoc method ' +
        'is normally called internally when the Selected property of a T{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset1' +
        ' Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sys' +
        'tem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue' +
        '0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs16' +
        ' :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   procedure\plai' +
        'n\f4\fs16  DoSelectDoc(Item: TDoc);'#13#10'\par \plain\f5\fs16 '#13#10'\par ' +
        #13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par' +
        ' The DoSelectDoc method is normally called internally when the S' +
        'elected property of a TDoc object in DocList has been changed. T' +
        'he DoSelectDoc method does the following:'#13#10'\par '#13#10'\par \pard\li2' +
        '00\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f5' +
        '\fs16 {\pntext\f1\'#39'b7\tab}If RichEdit is not nil and Item.Select' +
        'ed is True, the contents of Item.TextAsStream is loaded by the R' +
        'ichEdit control.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1' +
        '\'#39'b7\tab}If a TTreeNode is assigned to Item.Data, this TTreeNode' +
        ' is selected.'#13#10'\par {\pntext\f1\'#39'b7\tab}If RTFDesigner is not ni' +
        'l (i.e. the RTF Editor window is showing), RTFDesigner.SelectDoc' +
        '(Item) is called, making the tab corresponding to Item to be sel' +
        'ected.\plain\f3\fs16 '#13#10'\par \plain\f5\fs16 {\pntext\f1\'#39'b7\tab}A' +
        'n OnSelection event occurs.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Notification'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   procedure\pla' +
        'in\f4\fs16  Notification(AComponent: TComponent; Operation: TOpe' +
        'ration); \plain\f4\fs16\b override\plain\f4\fs16 ;\plain\f5\fs16' +
        ' '#13#10'\par '#13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\pa' +
        'r '#13#10'\par The Notification method is used internally to update th' +
        'e DocDisplay and RichEdit properties, should these controls be d' +
        'eleted.\plain\f3\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\d' +
        'eftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset' +
        '2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fnil\fcharse' +
        't1 Default;}{\f4\fmodern\fcharset1 Courier New;}{\f5\fswiss\fcha' +
        'rset1 Arial;}{\f6\fswiss\fprq2 System;}{\f7\fswiss\fcharset1 Ari' +
        'al;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f' +
        '5\fs16\b Declaration\plain\f5\fs16 :\plain\f4\fs16 '#13#10'\par \plain' +
        '\f4\fs16\b '#13#10'\par   procedure\plain\f4\fs16  Notification(ACompo' +
        'nent: TComponent; Operation: TOperation); \plain\f4\fs16\b overr' +
        'ide\plain\f4\fs16 ;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f5' +
        '\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par The Notificatio' +
        'n method is used internally to update the DocDisplay and RichEdi' +
        't properties, should these controls be deleted.\plain\f3\fs16 '#13#10 +
        '\par }'#13#10#0
    end
    item
      Title = 'OwnerInterface'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f5\fs16\b Declaration\plain\f5\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   function\plai' +
        'n\f4\fs16  OwnerInterface: IOwnerObject;\plain\f5\fs16 '#13#10'\par '#13#10 +
        '\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par T' +
        'he OwnerInterface method implements the corresponding method of ' +
        'the IOwnerObject interface, and returns the Owner if the Owner i' +
        'nherits from IOwnerInterface, otherwise it returns nil.\plain\f3' +
        '\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'TDocList class'
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial Black;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fchar' +
        'set1 Arial;}{\f7\fnil\fcharset1 Default;}{\f8\fswiss\fcharset1 A' +
        'rial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs32 TDocList class\plain\f7\fs16 '#13#10'\par \plain\f6\fs16 The ' +
        'TDocList class is a container for a RTF document collection, nor' +
        'mally owned by a TDocs component. '#13#10'\par '#13#10'\par Declaration:'#13#10'\p' +
        'ar '#13#10'\par   \plain\f5\fs16 TDocList = \plain\f5\fs16\b class\pla' +
        'in\f5\fs16 (TOwnedObject)\plain\f6\fs16 '#13#10'\par '#13#10'\par Published ' +
        'properties:'#13#10'\par '#13#10'\par \plain\f5\fs16     \plain\f5\fs16\b pro' +
        'perty\plain\f5\fs16  Lines: TStrings \plain\f5\fs16\b read\plain' +
        '\f5\fs16  GetLines \plain\f5\fs16\b write\plain\f5\fs16  SetLine' +
        's \plain\f5\fs16\b stored\plain\f5\fs16  False;\plain\f6\fs16 '#13#10 +
        '\par '#13#10'\par Public properties:  '#13#10'\par \plain\f5\fs16 '#13#10'\par    ' +
        ' \plain\f5\fs16\b property\plain\f5\fs16  Count: Integer \plain\' +
        'f5\fs16\b read\plain\f5\fs16  GetCount;'#13#10'\par     \plain\f5\fs16' +
        '\b property\plain\f5\fs16  History: TStrings \plain\f5\fs16\b re' +
        'ad\plain\f5\fs16  FHistory;'#13#10'\par     \plain\f5\fs16\b property\' +
        'plain\f5\fs16  Items[\plain\f5\fs16\b index\plain\f5\fs16 : Inte' +
        'ger]: TDoc \plain\f5\fs16\b read\plain\f5\fs16  GetItems \plain\' +
        'f5\fs16\b write\plain\f5\fs16  SetItems; \plain\f5\fs16\b defaul' +
        't\plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\f' +
        's16  Owner: TDocs \plain\f5\fs16\b read\plain\f5\fs16  GetDocsCo' +
        'mponent;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\fs16  Owne' +
        'rName: string \plain\f5\fs16\b read\plain\f5\fs16  FOwnerName \p' +
        'lain\f5\fs16\b write\plain\f5\fs16  SetOwnerName;'#13#10'\par     \pla' +
        'in\f5\fs16\b property\plain\f5\fs16  Selected: TDoc \plain\f5\fs' +
        '16\b read\plain\f5\fs16  FSelected;'#13#10'\par     \plain\f5\fs16\b p' +
        'roperty\plain\f5\fs16  InternalUpdating: Boolean \plain\f5\fs16\' +
        'b read\plain\f5\fs16  GetUpdating; \plain\f6\fs16 '#13#10'\par '#13#10'\par ' +
        'Public methods:'#13#10'\par '#13#10'\par \plain\f5\fs16     \plain\f5\fs16\b' +
        ' constructor\plain\f5\fs16  Create(\plain\f5\fs16\b const\plain\' +
        'f5\fs16  AOwner: IOwnerObject);'#13#10'\par     \plain\f5\fs16\b destr' +
        'uctor\plain\f5\fs16  Destroy; \plain\f5\fs16\b override\plain\f5' +
        '\fs16 ;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  Add(L' +
        'evel: Integer): TDoc;'#13#10'\par     \plain\f5\fs16\b function\plain\' +
        'f5\fs16  AddFirst: TDoc;'#13#10'\par     \plain\f5\fs16\b function\pla' +
        'in\f5\fs16  AddFirstChild(Item: TDoc): TDoc;'#13#10'\par     \plain\f5' +
        '\fs16\b function\plain\f5\fs16  AddFirstSibling(Item: TDoc): TDo' +
        'c;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  AddLast: T' +
        'Doc;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  AddLastC' +
        'hild(Item: TDoc): TDoc;'#13#10'\par     \plain\f5\fs16\b function\plai' +
        'n\f5\fs16  AddLastSibling(Item: TDoc): TDoc;'#13#10'\par     \plain\f5' +
        '\fs16\b procedure\plain\f5\fs16  Back;'#13#10'\par     \plain\f5\fs16\' +
        'b procedure\plain\f5\fs16  BeginUpdate;'#13#10'\par     \plain\f5\fs16' +
        '\b procedure\plain\f5\fs16  Clear;'#13#10'\par     \plain\f5\fs16\b pr' +
        'ocedure\plain\f5\fs16  Down;'#13#10'\par     \plain\f5\fs16\b procedur' +
        'e\plain\f5\fs16  EndUpdate;'#13#10'\par     \plain\f5\fs16\b function\' +
        'plain\f5\fs16  GetForm: TCustomForm; \plain\f5\fs16\b override\p' +
        'lain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16' +
        '  GetNamePath: string; \plain\f5\fs16\b override\plain\f5\fs16 ;' +
        #13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  LoadFromFil' +
        'e(\plain\f5\fs16\b const\plain\f5\fs16  FileName: \plain\f5\fs16' +
        '\b string\plain\f5\fs16 );'#13#10'\par     \plain\f5\fs16\b procedure\' +
        'plain\f5\fs16  LoadFromStream(AStream: TStream);'#13#10'\par     \plai' +
        'n\f5\fs16\b procedure \plain\f5\fs16 MakeIndex(\plain\f5\fs16\b ' +
        'const\plain\f5\fs16  SearchStr: string; List: TStrings);'#13#10'\par  ' +
        '   \plain\f5\fs16\b procedure\plain\f5\fs16  Next;'#13#10'\par     \pl' +
        'ain\f5\fs16\b procedure\plain\f5\fs16  Prev;'#13#10'\par     \plain\f5' +
        '\fs16\b procedure\plain\f5\fs16  SaveToFile(\plain\f5\fs16\b con' +
        'st\plain\f5\fs16  FileName: \plain\f5\fs16\b string\plain\f5\fs1' +
        '6 );'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  SaveToS' +
        'tream(AStream: TStream);'#13#10'\par     \plain\f5\fs16\b procedure\pl' +
        'ain\f5\fs16  Up;'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\f' +
        's16  UpNext; '#13#10'\par '#13#10'\par \plain\f6\fs16 '#13#10'\par Protected metho' +
        'ds:'#13#10'\par '#13#10'\par \plain\f5\fs16     \plain\f5\fs16\b procedure\p' +
        'lain\f5\fs16  AssignTo(Dest: TPersistent); \plain\f5\fs16\b over' +
        'ride\plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b procedure\plain\' +
        'f5\fs16  DoAddItem(RefItem, NewItem: TDoc; Action: TAddDocAction' +
        ');'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  DoChangeI' +
        'tem(Item: TDoc);'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs' +
        '16  DoDeleteItem(Item: TDoc): Boolean;'#13#10'\par     \plain\f5\fs16\' +
        'b procedure\plain\f5\fs16  DoSelect(Item: TDoc);'#13#10'\par     \plai' +
        'n\f5\fs16\b procedure\plain\f5\fs16  DoUpdate;'#13#10'\par     \plain\' +
        'f5\fs16\b function\plain\f5\fs16  InternalInsert(Index, Level: I' +
        'nteger): TDoc;\plain\f7\fs16 '#13#10'\par '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansic' +
        'pg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\f' +
        'roman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f' +
        '3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Arial Black;}{\f5\f' +
        'modern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 Arial;}{\f7\' +
        'fnil\fcharset1 Default;}{\f8\fswiss\fcharset1 Arial;}}'#13#10'{\colort' +
        'bl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f4\fs32 TDocList' +
        ' class\plain\f7\fs16 '#13#10'\par \plain\f6\fs16 The TDocList class is' +
        ' a container for a RTF document collection, normally owned by a ' +
        'TDocs component. '#13#10'\par '#13#10'\par Declaration:'#13#10'\par '#13#10'\par   \plai' +
        'n\f5\fs16 TDocList = \plain\f5\fs16\b class\plain\f5\fs16 (TOwne' +
        'dObject)\plain\f6\fs16 '#13#10'\par '#13#10'\par Published properties:'#13#10'\par' +
        ' '#13#10'\par \plain\f5\fs16     \plain\f5\fs16\b property\plain\f5\fs' +
        '16  Lines: TStrings \plain\f5\fs16\b read\plain\f5\fs16  GetLine' +
        's \plain\f5\fs16\b write\plain\f5\fs16  SetLines \plain\f5\fs16\' +
        'b stored\plain\f5\fs16  False;\plain\f6\fs16 '#13#10'\par '#13#10'\par Publi' +
        'c properties:  '#13#10'\par \plain\f5\fs16 '#13#10'\par     \plain\f5\fs16\b' +
        ' property\plain\f5\fs16  Count: Integer \plain\f5\fs16\b read\pl' +
        'ain\f5\fs16  GetCount;'#13#10'\par     \plain\f5\fs16\b property\plain' +
        '\f5\fs16  History: TStrings \plain\f5\fs16\b read\plain\f5\fs16 ' +
        ' FHistory;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\fs16  It' +
        'ems[\plain\f5\fs16\b index\plain\f5\fs16 : Integer]: TDoc \plain' +
        '\f5\fs16\b read\plain\f5\fs16  GetItems \plain\f5\fs16\b write\p' +
        'lain\f5\fs16  SetItems; \plain\f5\fs16\b default\plain\f5\fs16 ;' +
        #13#10'\par     \plain\f5\fs16\b property\plain\f5\fs16  Owner: TDocs' +
        ' \plain\f5\fs16\b read\plain\f5\fs16  GetDocsComponent;'#13#10'\par   ' +
        '  \plain\f5\fs16\b property\plain\f5\fs16  OwnerName: string \pl' +
        'ain\f5\fs16\b read\plain\f5\fs16  FOwnerName \plain\f5\fs16\b wr' +
        'ite\plain\f5\fs16  SetOwnerName;'#13#10'\par     \plain\f5\fs16\b prop' +
        'erty\plain\f5\fs16  Selected: TDoc \plain\f5\fs16\b read\plain\f' +
        '5\fs16  FSelected;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\' +
        'fs16  InternalUpdating: Boolean \plain\f5\fs16\b read\plain\f5\f' +
        's16  GetUpdating; \plain\f6\fs16 '#13#10'\par '#13#10'\par Public methods:'#13#10 +
        '\par '#13#10'\par \plain\f5\fs16     \plain\f5\fs16\b constructor\plai' +
        'n\f5\fs16  Create(\plain\f5\fs16\b const\plain\f5\fs16  AOwner: ' +
        'IOwnerObject);'#13#10'\par     \plain\f5\fs16\b destructor\plain\f5\fs' +
        '16  Destroy; \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par    ' +
        ' \plain\f5\fs16\b function\plain\f5\fs16  Add(Level: Integer): T' +
        'Doc;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  AddFirst' +
        ': TDoc;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  AddFi' +
        'rstChild(Item: TDoc): TDoc;'#13#10'\par     \plain\f5\fs16\b function\' +
        'plain\f5\fs16  AddFirstSibling(Item: TDoc): TDoc;'#13#10'\par     \pla' +
        'in\f5\fs16\b function\plain\f5\fs16  AddLast: TDoc;'#13#10'\par     \p' +
        'lain\f5\fs16\b function\plain\f5\fs16  AddLastChild(Item: TDoc):' +
        ' TDoc;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  AddLas' +
        'tSibling(Item: TDoc): TDoc;'#13#10'\par     \plain\f5\fs16\b procedure' +
        '\plain\f5\fs16  Back;'#13#10'\par     \plain\f5\fs16\b procedure\plain' +
        '\f5\fs16  BeginUpdate;'#13#10'\par     \plain\f5\fs16\b procedure\plai' +
        'n\f5\fs16  Clear;'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\' +
        'fs16  Down;'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  ' +
        'EndUpdate;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  Ge' +
        'tForm: TCustomForm; \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\' +
        'par     \plain\f5\fs16\b function\plain\f5\fs16  GetNamePath: st' +
        'ring; \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \plain' +
        '\f5\fs16\b procedure\plain\f5\fs16  LoadFromFile(\plain\f5\fs16\' +
        'b const\plain\f5\fs16  FileName: \plain\f5\fs16\b string\plain\f' +
        '5\fs16 );'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  Lo' +
        'adFromStream(AStream: TStream);'#13#10'\par     \plain\f5\fs16\b proce' +
        'dure \plain\f5\fs16 MakeIndex(\plain\f5\fs16\b const\plain\f5\fs' +
        '16  SearchStr: string; List: TStrings);'#13#10'\par     \plain\f5\fs16' +
        '\b procedure\plain\f5\fs16  Next;'#13#10'\par     \plain\f5\fs16\b pro' +
        'cedure\plain\f5\fs16  Prev;'#13#10'\par     \plain\f5\fs16\b procedure' +
        '\plain\f5\fs16  SaveToFile(\plain\f5\fs16\b const\plain\f5\fs16 ' +
        ' FileName: \plain\f5\fs16\b string\plain\f5\fs16 );'#13#10'\par     \p' +
        'lain\f5\fs16\b procedure\plain\f5\fs16  SaveToStream(AStream: TS' +
        'tream);'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  Up;'#13 +
        #10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  UpNext; '#13#10'\p' +
        'ar '#13#10'\par \plain\f6\fs16 '#13#10'\par Protected methods:'#13#10'\par '#13#10'\par ' +
        '\plain\f5\fs16     \plain\f5\fs16\b procedure\plain\f5\fs16  Ass' +
        'ignTo(Dest: TPersistent); \plain\f5\fs16\b override\plain\f5\fs1' +
        '6 ;'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  DoAddIte' +
        'm(RefItem, NewItem: TDoc; Action: TAddDocAction);'#13#10'\par     \pla' +
        'in\f5\fs16\b procedure\plain\f5\fs16  DoChangeItem(Item: TDoc);'#13 +
        #10'\par     \plain\f5\fs16\b function\plain\f5\fs16  DoDeleteItem(' +
        'Item: TDoc): Boolean;'#13#10'\par     \plain\f5\fs16\b procedure\plain' +
        '\f5\fs16  DoSelect(Item: TDoc);'#13#10'\par     \plain\f5\fs16\b proce' +
        'dure\plain\f5\fs16  DoUpdate;'#13#10'\par     \plain\f5\fs16\b functio' +
        'n\plain\f5\fs16  InternalInsert(Index, Level: Integer): TDoc;\pl' +
        'ain\f7\fs16 '#13#10'\par '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Published properties'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial Black;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fchar' +
        'set1 Arial;}{\f7\fnil\fcharset1 Default;}{\f8\fswiss\fcharset1 A' +
        'rial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs32 TDocList published properties\plain\f6\fs16 '#13#10'\par Use ' +
        'the tree view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f5\fs' +
        '16     \plain\f5\fs16\b property\plain\f5\fs16  Lines: TStrings ' +
        '\plain\f5\fs16\b read\plain\f5\fs16  GetLines \plain\f5\fs16\b w' +
        'rite\plain\f5\fs16  SetLines \plain\f5\fs16\b stored\plain\f5\fs' +
        '16  False;\plain\f6\fs16 '#13#10'\par \plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Lines'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}{\f8\fswiss\fcharset1 Arial B' +
        'lack;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f4\fs16 '#13#10'\par \pla' +
        'in\f4\fs16\b '#13#10'\par   property\plain\f4\fs16  Lines: TStrings \p' +
        'lain\f4\fs16\b read\plain\f4\fs16  GetLines \plain\f4\fs16\b wri' +
        'te\plain\f4\fs16  SetLines \plain\f4\fs16\b stored\plain\f4\fs16' +
        '  False;\plain\f3\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f3\fs16\b Des' +
        'cription\plain\f3\fs16 :'#13#10'\par '#13#10'\par Lines reflects the content' +
        's of the TDocList object and corresponds to what would be writte' +
        'n by the SaveToStream method. Lines.SaveToStream is equivalent t' +
        'o SaveToStream, and Lines.LoadFromStream is equivalent to LoadFr' +
        'omStream, although the latter alternatives are preferrable in bo' +
        'th cases.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs16 : Do ' +
        'not try to access this property at design-time if the TDocList o' +
        'bject holds a large document collection. Instead, use the corres' +
        'ponding Open and Save buttons in the Docs DocList Editor window.' +
        '\plain\f5\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Public properties'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fnil\fcha' +
        'rset1 Default;}{\f5\fswiss\fprq2 System;}{\f6\fswiss\fcharset1 A' +
        'rial Black;}{\f7\fswiss\fcharset1 Arial;}{\f8\fswiss\fprq11\fcha' +
        'rset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\par' +
        'd\plain\f6\fs32 TDocList public properties\plain\f8\fs16 '#13#10'\par ' +
        'Use the tree view on the left to navigate.'#13#10'\par \plain\f3\fs16 ' +
        #13#10'\par     \plain\f3\fs16\b property\plain\f3\fs16  Count: Integ' +
        'er \plain\f3\fs16\b read\plain\f3\fs16  GetCount;'#13#10'\par     \pla' +
        'in\f3\fs16\b property\plain\f3\fs16  History: TStrings \plain\f3' +
        '\fs16\b read\plain\f3\fs16  FHistory;'#13#10'\par     \plain\f3\fs16\b' +
        ' property\plain\f3\fs16  Items[\plain\f3\fs16\b index\plain\f3\f' +
        's16 : Integer]: TDoc \plain\f3\fs16\b read\plain\f3\fs16  GetIte' +
        'ms \plain\f3\fs16\b write\plain\f3\fs16  SetItems; \plain\f3\fs1' +
        '6\b default\plain\f3\fs16 ;'#13#10'\par     \plain\f3\fs16\b property\' +
        'plain\f3\fs16  Owner: TDocs \plain\f3\fs16\b read\plain\f3\fs16 ' +
        ' GetDocsComponent;'#13#10'\par     \plain\f3\fs16\b property\plain\f3\' +
        'fs16  OwnerName: string \plain\f3\fs16\b read\plain\f3\fs16  FOw' +
        'nerName \plain\f3\fs16\b write\plain\f3\fs16  SetOwnerName;'#13#10'\pa' +
        'r     \plain\f3\fs16\b property\plain\f3\fs16  Selected: TDoc \p' +
        'lain\f3\fs16\b read\plain\f3\fs16  FSelected;'#13#10'\par     \plain\f' +
        '3\fs16\b property\plain\f3\fs16  InternalUpdating: Boolean \plai' +
        'n\f3\fs16\b read\plain\f3\fs16  GetUpdating; \plain\f8\fs16 '#13#10'\p' +
        'ar \plain\f4\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Count'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fnil\fcha' +
        'rset1 Default;}{\f5\fswiss\fprq2 System;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f6\fs16\b Declaration\plain\f6\fs1' +
        '6 :\plain\f3\fs16 '#13#10'\par \plain\f3\fs16\b '#13#10'\par   property\plai' +
        'n\f3\fs16  Count: Integer \plain\f3\fs16\b read\plain\f3\fs16  G' +
        'etCount;'#13#10'\par \plain\f6\fs16 '#13#10'\par '#13#10'\par \plain\f6\fs16\b Des' +
        'cription\plain\f6\fs16 :'#13#10'\par '#13#10'\par Read Count to obtain the t' +
        'otal number of documents held by the object. '#13#10'\par \plain\f4\fs' +
        '16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'History'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fmodern\fc' +
        'harset1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fp' +
        'rq2 System;}{\f7\fswiss\fcharset1 Arial;}{\f8\fswiss\fcharset1 A' +
        'rial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f7\fs16\b Declaration\plain\f7\fs16 :\plain\f4\fs16 '#13#10'\par \pla' +
        'in\f4\fs16\b '#13#10'\par   property\plain\f4\fs16  History: TStrings ' +
        '\plain\f4\fs16\b read\plain\f4\fs16  FHistory;'#13#10'\par \plain\f7\f' +
        's16 '#13#10'\par '#13#10'\par \plain\f7\fs16\b Description\plain\f7\fs16 :'#13#10 +
        '\par '#13#10'\par The History property contains the history stack of t' +
        'he object. History.Strings[0] equals the title of the firstly se' +
        'lected TDoc object and History.Objects[0] holds the firstly sele' +
        'cted TDoc object itself, and so on. Calling the Back method make' +
        's History.Objects[History.Count-1] selected and deletes the last' +
        ' entry from History.\plain\f5\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicp' +
        'g1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\fr' +
        'oman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3' +
        '\fswiss\fcharset1 Arial Black;}{\f4\fmodern\fcharset1 Courier Ne' +
        'w;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 System;}{\f7\f' +
        'swiss\fcharset1 Arial;}{\f8\fswiss\fcharset1 Arial;}}'#13#10'{\colortb' +
        'l\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f7\fs16\b Declara' +
        'tion\plain\f7\fs16 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\pa' +
        'r   property\plain\f4\fs16  History: TStrings \plain\f4\fs16\b r' +
        'ead\plain\f4\fs16  FHistory;'#13#10'\par \plain\f7\fs16 '#13#10'\par '#13#10'\par ' +
        '\plain\f7\fs16\b Description\plain\f7\fs16 :'#13#10'\par '#13#10'\par The Hi' +
        'story property contains the history stack of the object. History' +
        '.Strings[0] equals the title of the firstly selected TDoc object' +
        ' and History.Objects[0] holds the firstly selected TDoc object i' +
        'tself, and so on. Calling the Back method makes History.Objects[' +
        'History.Count-1] selected and deletes the last entry from Histor' +
        'y.\plain\f5\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\defta{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset1' +
        ' Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 Sys' +
        'tem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue' +
        '0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16' +
        ' :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   property\plain' +
        '\f4\fs16  History: TStrings \plain\f4\fs16\b read\plain\f4\fs16 ' +
        ' FHistory;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b D' +
        'escription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The History property con' +
        'tains the history stack of the object. History.Strings[0] equals' +
        ' the title of the firstly selected TDoc object and History.Objec' +
        'ts[0] holds the firstly selected TDoc object itself, and so on. ' +
        'Calling the Back method makes History.Objects[History.Count-1] s' +
        'elected and deletes the last entry from History.\plain\f5\fs16 '#13 +
        #10'\par }'#13#10#0
    end
    item
      Title = 'Items'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   property\plai' +
        'n\f4\fs16  Items[\plain\f4\fs16\b index\plain\f4\fs16 : Integer]' +
        ': TDoc \plain\f4\fs16\b read\plain\f4\fs16  GetItems \plain\f4\f' +
        's16\b write\plain\f4\fs16  SetItems; \plain\f4\fs16\b default\pl' +
        'ain\f4\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\' +
        'b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Read Items to obtain ' +
        'the TDoc object with the corresponding index.'#13#10'\par '#13#10'\par \plai' +
        'n\f3\fs16\b Note\plain\f3\fs16 : Avoid altering the properties o' +
        'f TDoc objects accessed directly by Items. This might cause a On' +
        'Change event to occur once for each property of the TDoc object.' +
        ' Instead, use a TDoc variable as an intermediary:'#13#10'\par '#13#10'\par \' +
        'plain\f3\fs16\b Example\plain\f3\fs16 :'#13#10'\par \plain\f4\fs16 '#13#10'\' +
        'par   \plain\f4\fs16\b var\plain\f4\fs16 '#13#10'\par     Doc: TDoc'#13#10'\' +
        'par   \plain\f4\fs16\b begin\plain\f4\fs16 '#13#10'\par     Doc := Doc' +
        's1.DocList[0];'#13#10'\par     Doc.Title := '#39'New title'#39';'#13#10'\par   \plai' +
        'n\f4\fs16\b end\plain\f4\fs16 ;\plain\f5\fs16 '#13#10'\par }'#13#10#0'{\rtf1\' +
        'ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Ser' +
        'if;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans ' +
        'Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset1 Couri' +
        'er New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 System;}{' +
        '\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\' +
        'deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16 :\pla' +
        'in\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   property\plain\f4\fs' +
        '16  Items[\plain\f4\fs16\b index\plain\f4\fs16 : Integer]: TDoc ' +
        '\plain\f4\fs16\b read\plain\f4\fs16  GetItems \plain\f4\fs16\b w' +
        'rite\plain\f4\fs16  SetItems; \plain\f4\fs16\b default\plain\f4\' +
        'fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Descr' +
        'iption\plain\f3\fs16 :'#13#10'\par '#13#10'\par Read Items to obtain the TDo' +
        'c object with the corresponding index.'#13#10'\par '#13#10'\par \plain\f3\fs' +
        '16\b Note\plain\f3\fs16 : Avoid altering the properties of TDoc ' +
        'objects accessed directly by Items. This might cause a OnChange ' +
        'event to occur once for each property of the TDoc object. Instea' +
        'd, use a TDoc variable as an intermediary:'#13#10'\par '#13#10'\par \plain\f' +
        '3\fs16\b Example\plain\f3\fs16 :'#13#10'\par \plain\f4\fs16 '#13#10'\par   \' +
        'plain\f4\fs16\b var\plain\f4\fs16 '#13#10'\par     Doc: TDoc'#13#10'\par   \' +
        'plain\f4\fs16\b begin\plain\f4\fs16 '#13#10'\par     Doc := Docs1.DocL' +
        'ist[0];'#13#10'\par     Doc.Title := '#39'New title'#39';'#13#10'\par   \plain\f4\fs' +
        '16\b end\plain\f4\fs16 ;\plain\f5\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Owner'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   property\plai' +
        'n\f4\fs16  Owner: TDocs \plain\f4\fs16\b read\plain\f4\fs16  Get' +
        'DocsComponent;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16' +
        '\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par If the TDocList obje' +
        'ct is owned by a TDocs component, Owner is that component. Other' +
        'wise Owner is nil.\plain\f5\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'OwnerName'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   property\plai' +
        'n\f4\fs16  OwnerName: string \plain\f4\fs16\b read\plain\f4\fs16' +
        '  FOwnerName \plain\f4\fs16\b write\plain\f4\fs16  SetOwnerName;' +
        #13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description' +
        '\plain\f3\fs16 :'#13#10'\par '#13#10'\par OwnerName is used internally by th' +
        'e streaming system, as well as by the design interfaces. '#13#10'\par ' +
        #13#10'\par Normally, OwnerName is the same as Owner.Name. \plain\f5\' +
        'fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl' +
        '{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fs' +
        'wiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\' +
        'fmodern\fcharset1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6' +
        '\fswiss\fprq2 System;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl' +
        '\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declarat' +
        'ion\plain\f3\fs16 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par' +
        '   property\plain\f4\fs16  OwnerName: string \plain\f4\fs16\b re' +
        'ad\plain\f4\fs16  FOwnerName \plain\f4\fs16\b write\plain\f4\fs1' +
        '6  SetOwnerName;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs' +
        '16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par OwnerName is used ' +
        'internally by the streaming system, as well as by the design int' +
        'erfaces. '#13#10'\par '#13#10'\par Normally, OwnerName is the same as Owner.' +
        'Name. \plain\f5\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Selected'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fnil\fcha' +
        'rset1 Default;}{\f5\fswiss\fprq2 System;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f6\fs16\b Declaration\plain\f6\fs1' +
        '6 :\plain\f3\fs16 '#13#10'\par \plain\f3\fs16\b '#13#10'\par   property\plai' +
        'n\f3\fs16  Selected: TDoc \plain\f3\fs16\b read\plain\f3\fs16  F' +
        'Selected;'#13#10'\par \plain\f6\fs16 '#13#10'\par '#13#10'\par \plain\f6\fs16\b De' +
        'scription\plain\f6\fs16 :'#13#10'\par '#13#10'\par Read Selected to obtain t' +
        'he currently selected TDoc object.\plain\f4\fs16 '#13#10'\par }'#13#10#0'{\rt' +
        'f1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans ' +
        'Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sa' +
        'ns Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fnil\fcharset' +
        '1 Default;}{\f5\fswiss\fprq2 System;}{\f6\fswiss\fcharset1 Arial' +
        ';}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue0;}' +
        #13#10'\deflang1053\pard\plain\f6\fs16\b Declaration\plain\f6\fs16 :\' +
        'plain\f3\fs16 '#13#10'\par \plain\f3\fs16\b '#13#10'\par   property\plain\f3' +
        '\fs16  Selected: TDoc \plain\f3\fs16\b read\plain\f3\fs16  FSele' +
        'cted;'#13#10'\par \plain\f6\fs16 '#13#10'\par '#13#10'\par \plain\f6\fs16\b Descri' +
        'ption\plain\f6\fs16 :'#13#10'\par '#13#10'\par Read Selected to obtain the c' +
        'urrently selected TDoc object.\plain\f4\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'InternalUpdating'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fmodern\fcharset' +
        '1 Courier New;}{\f5\fnil\fcharset1 Default;}{\f6\fswiss\fprq2 Sy' +
        'stem;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   property\plai' +
        'n\f4\fs16  InternalUpdating: Boolean \plain\f4\fs16\b read\plain' +
        '\f4\fs16  GetUpdating;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain' +
        '\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par InternalUpda' +
        'ting is True whenever BeginUpdate has been called without a matc' +
        'hing subsequent call to EndUpdate.'#13#10'\par '#13#10'\par If InternalUpdat' +
        'ing is True, Owner.OnChange events do not occur and deletions ar' +
        'e suspended. When InternalUpdating turns from True to False, an ' +
        'Owner.OnUpdate event occurs and all trapped changes and deletion' +
        's are executed.\plain\f5\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Public methods'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fswiss\fch' +
        'arset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sys' +
        'tem;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs32 TDocList public methods\plain\f4\fs16 '#13#10'\par Use the tr' +
        'ee view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f7\fs16    ' +
        ' \plain\f7\fs16\b constructor\plain\f7\fs16  Create(\plain\f7\fs' +
        '16\b const\plain\f7\fs16  AOwner: IOwnerObject);'#13#10'\par     \plai' +
        'n\f7\fs16\b destructor\plain\f7\fs16  Destroy; \plain\f7\fs16\b ' +
        'override\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b function\pla' +
        'in\f7\fs16  Add(Level: Integer): TDoc;'#13#10'\par     \plain\f7\fs16\' +
        'b function\plain\f7\fs16  AddFirst: TDoc;'#13#10'\par     \plain\f7\fs' +
        '16\b function\plain\f7\fs16  AddFirstChild(Item: TDoc): TDoc;'#13#10'\' +
        'par     \plain\f7\fs16\b function\plain\f7\fs16  AddFirstSibling' +
        '(Item: TDoc): TDoc;'#13#10'\par     \plain\f7\fs16\b function\plain\f7' +
        '\fs16  AddLast: TDoc;'#13#10'\par     \plain\f7\fs16\b function\plain\' +
        'f7\fs16  AddLastChild(Item: TDoc): TDoc;'#13#10'\par     \plain\f7\fs1' +
        '6\b function\plain\f7\fs16  AddLastSibling(Item: TDoc): TDoc;'#13#10'\' +
        'par     \plain\f7\fs16\b procedure\plain\f7\fs16  Back;'#13#10'\par   ' +
        '  \plain\f7\fs16\b procedure\plain\f7\fs16  BeginUpdate;'#13#10'\par  ' +
        '   \plain\f7\fs16\b procedure\plain\f7\fs16  Clear;'#13#10'\par     \p' +
        'lain\f7\fs16\b procedure\plain\f7\fs16  Down;'#13#10'\par     \plain\f' +
        '7\fs16\b procedure\plain\f7\fs16  EndUpdate;'#13#10'\par     \plain\f7' +
        '\fs16\b function\plain\f7\fs16  GetForm: TCustomForm; \plain\f7\' +
        'fs16\b override\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b funct' +
        'ion\plain\f7\fs16  GetNamePath: string; \plain\f7\fs16\b overrid' +
        'e\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\' +
        'fs16  LoadFromFile(\plain\f7\fs16\b const\plain\f7\fs16  FileNam' +
        'e: \plain\f7\fs16\b string\plain\f7\fs16 );'#13#10'\par     \plain\f7\' +
        'fs16\b procedure\plain\f7\fs16  LoadFromStream(AStream: TStream)' +
        ';'#13#10'\par     \plain\f7\fs16\b procedure \plain\f7\fs16 MakeIndex(' +
        '\plain\f7\fs16\b const\plain\f7\fs16  SearchStr: string; List: T' +
        'Strings);'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\fs16  Ne' +
        'xt;'#13#10'\par     \plain\f7\fs16\b procedure\plain\f7\fs16  Prev;'#13#10'\' +
        'par     \plain\f7\fs16\b procedure\plain\f7\fs16  SaveToFile(\pl' +
        'ain\f7\fs16\b const\plain\f7\fs16  FileName: \plain\f7\fs16\b st' +
        'ring\plain\f7\fs16 );'#13#10'\par     \plain\f7\fs16\b procedure\plain' +
        '\f7\fs16  SaveToStream(AStream: TStream);'#13#10'\par     \plain\f7\fs' +
        '16\b procedure\plain\f7\fs16  Up;'#13#10'\par     \plain\f7\fs16\b pro' +
        'cedure\plain\f7\fs16  UpNext; '#13#10'\par \plain\f8\fs16 '#13#10'\par }'#13#10#0'{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fswiss\fcha' +
        'rset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Syst' +
        'em;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fnil\fcharset1 Defa' +
        'ult;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\' +
        'f3\fs32 TDocList public methods\plain\f5\fs16 '#13#10'\par Use the tre' +
        'e view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f7\fs16     ' +
        '\plain\f7\fs16\b constructor\plain\f7\fs16  Create(\plain\f7\fs1' +
        '6\b const\plain\f7\fs16  AOwner: IOwnerObject);'#13#10'\par     \plain' +
        '\f7\fs16\b destructor\plain\f7\fs16  Destroy; \plain\f7\fs16\b o' +
        'verride\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b function\plai' +
        'n\f7\fs16  Add(Level: Integer): TDoc;'#13#10'\par     \plain\f7\fs16\b' +
        ' function\plain\f7\fs16  AddFirst: TDoc;'#13#10'\par     \plain\f7\fs1' +
        '6\b function\plain\f7\fs16  AddFirstChild(Item: TDoc): TDoc;'#13#10'\p' +
        'ar     \plain\f7\fs16\b function\plain\f7\fs16  AddFirstSibling(' +
        'Item: TDoc): TDoc;'#13#10'\par     \plain\f7\fs16\b function\plain\f7\' +
        'fs16  AddLast: TDoc;'#13#10'\par     \plain\f7\fs16\b function\plain\f' +
        '7\fs16  AddLastChild(Item: TDoc): TDoc;'#13#10'\par     \plain\f7\fs16' +
        '\b function\plain\f7\fs16  AddLastSibling(Item: TDoc): TDoc;'#13#10'\p' +
        'ar     \plain\f7\fs16\b procedure\plain\f7\fs16  Back;'#13#10'\par    ' +
        ' \plain\f7\fs16\b procedure\plain\f7\fs16  BeginUpdate;'#13#10'\par {\' +
        'rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS San' +
        's Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS ' +
        'Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Syste' +
        'm;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 Ari' +
        'al;}{\f7\fswiss\fcharset1 Arial Black;}{\f8\fnil\fcharset1 Defau' +
        'lt;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f' +
        '7\fs32 TDocList public methods\plain\f3\fs16 '#13#10'\par Use the tree' +
        ' view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f5\fs16     \' +
        'plain\f5\fs16\b constructor\plain\f5\fs16  Create(\plain\f5\fs16' +
        '\b const\plain\f5\fs16  AOwner: IOwnerObject);'#13#10'\par     \plain\' +
        'f5\fs16\b destructor\plain\f5\fs16  Destroy; \plain\f5\fs16\b ov' +
        'erride\plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b function\plain' +
        '\f5\fs16  Add(Level: Integer): TDoc;'#13#10'\par     \plain\f5\fs16\b ' +
        'function\plain\f5\fs16  AddFirst: TDoc;'#13#10'\par     \plain\f5\fs16' +
        '\b function\plain\f5\fs16  AddFirstChild(Item: TDoc): TDoc;'#13#10'\pa' +
        'r     \plain\f5\fs16\b function\plain\f5\fs16  AddFirstSibling(I' +
        'tem: TDoc): TDoc;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\f' +
        's16  AddLast: TDoc;'#13#10'\par     \plain\f5\fs16\b function\plain\f5' +
        '\fs16  AddLastChild(Item: TDoc): TDoc;'#13#10'\par     \plain\f5\fs16\' +
        'b function\plain\f5\fs16  AddLastSibling(Item: TDoc): TDoc;'#13#10'\pa' +
        'r     \plain\f5\fs16\b procedure\plain\f5\fs16  Back;'#13#10'\par     ' +
        '\plain\f5\fs16\b procedure\plain\f5\fs16  BeginUpdate;'#13#10'\par    ' +
        ' \plain\f5\fs16\b procedure\plain\f5\fs16  Clear;'#13#10'\par     \pla' +
        'in\f5\fs16\b procedure\plain\f5\fs16  Down;'#13#10'\par     \plain\f5\' +
        'fs16\b procedure\plain\f5\fs16  EndUpdate;'#13#10'\par     \plain\f5\f' +
        's16\b function\plain\f5\fs16  GetForm: TCustomForm; \plain\f5\fs' +
        '16\b override\plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b functio' +
        'n\plain\f5\fs16  GetNamePath: string; \plain\f5\fs16\b override\' +
        'plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs' +
        '16  LoadFromFile(\plain\f5\fs16\b const\plain\f5\fs16  FileName:' +
        ' \plain\f5\fs16\b string\plain\f5\fs16 );'#13#10'\par     \plain\f5\fs' +
        '16\b procedure\plain\f5\fs16  LoadFromStream(AStream: TStream);'#13 +
        #10'\par     \plain\f5\fs16\b procedure \plain\f5\fs16 MakeIndex(\p' +
        'lain\f5\fs16\b const\plain\f5\fs16  SearchStr: string; List: TSt' +
        'rings);'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  Next' +
        ';'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  Prev;'#13#10'\pa' +
        'r     \plain\f5\fs16\b procedure\plain\f5\fs16  SaveToFile(\plai' +
        'n\f5\fs16\b const\plain\f5\fs16  FileName: \plain\f5\fs16\b stri' +
        'ng\plain\f5\fs16 );'#13#10'\par     \plain\f5\fs16\b procedure\plain\f' +
        '5\fs16  SaveToStream(AStream: TStream);'#13#10'\par     \plain\f5\fs16' +
        '\b procedure\plain\f5\fs16  Up;'#13#10'\par     \plain\f5\fs16\b proce' +
        'dure\plain\f5\fs16  UpNext; '#13#10'\par \plain\f8\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Create'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fswiss\fch' +
        'arset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sys' +
        'tem;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f7\fs16 '#13#10'\par \pla' +
        'in\f7\fs16\b '#13#10'\par   constructor\plain\f7\fs16  Create(\plain\f' +
        '7\fs16\b const\plain\f7\fs16  AOwner: IOwnerObject);'#13#10'\par \plai' +
        'n\f4\fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs' +
        '16 :'#13#10'\par '#13#10'\par See the VCL online help for a description of c' +
        'onstructors.\plain\f8\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Destroy'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   destructor \p' +
        'lain\f6\fs16 Destroy; \plain\f6\fs16\b override\plain\f6\fs16 ; ' +
        '  '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Descripti' +
        'on\plain\f3\fs16 :'#13#10'\par '#13#10'\par See the VCL online help for a de' +
        'scription of destructors.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Add'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  Add(Level: Integer): TDoc;   '#13#10'\par \plain\f3\fs16 '#13#10 +
        '\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13 +
        #10'\par Call Add to create a TDoc object with the specified level ' +
        'and append it to the list of items. The new object is returned b' +
        'y the function.'#13#10'\par '#13#10'\par Do not call Add directly. Add is us' +
        'ed internally by other methods and by the streaming system. Inst' +
        'ead, use AddFirst, AddFirstChild, AddFirstSibling, AddLast, AddL' +
        'astChild or AddLastSibling.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi' +
        '\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}' +
        '{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Seri' +
        'f;}{\f3\fswiss\fprq2 System;}{\f4\fmodern\fcharset1 Courier New;' +
        '}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1 Arial;}{\f7\' +
        'fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\defl' +
        'ang1053\pard\plain\f6\fs16\b Declaration\plain\f6\fs16 :\plain\f' +
        '4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   function\plain\f4\fs16  ' +
        'Add(Level: Integer): TDoc;   '#13#10'\par \plain\f6\fs16 '#13#10'\par '#13#10'\par' +
        ' \plain\f6\fs16\b Description\plain\f6\fs16 :'#13#10'\par '#13#10'\par Call ' +
        'Add to create a TDoc object with the specified level and append ' +
        'it to the list of items. The new object is returned by the funct' +
        'ion.'#13#10'\par '#13#10'\par Do not call Add directly. Add is used internal' +
        'ly by other methods and by the streaming system. Instead, use Ad' +
        'dFirst, AddFirstChild, AddFirstSibling, AddLast, AddLastChild or' +
        ' AddLastSibling.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'AddFirst'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  AddFirst: TDoc;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par' +
        ' \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call ' +
        'AddFirst to create a TDoc object and insert it as the first item' +
        ' in the list. The new object is returned by the function.'#13#10'\par ' +
        '\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'AddFirstChild'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  AddFirstChild(Item: TDoc): TDoc;   '#13#10'\par \plain\f3\f' +
        's16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10 +
        '\par '#13#10'\par Call AddFirstChild to create a TDoc object and inser' +
        't it as the first child of Item. The new object is returned by t' +
        'he function.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\de' +
        'ff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fch' +
        'arset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\' +
        'fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\fprq2 ' +
        'System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fnil\fcharset1 ' +
        'Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\pl' +
        'ain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\par \' +
        'plain\f6\fs16\b '#13#10'\par   function\plain\f6\fs16  AddFirstChild(I' +
        'tem: TDoc): TDoc;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f' +
        '3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call AddFirstC' +
        'hild to create a TDoc object and insert it as the first child of' +
        ' Item. The new object is returned by the function.\plain\f7\fs16' +
        ' '#13#10'\par }'#13#10#0
    end
    item
      Title = 'AddFirstSibling'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  AddFirstSibling(Item: TDoc): TDoc;   '#13#10'\par \plain\f3' +
        '\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :' +
        #13#10'\par '#13#10'\par Call \plain\f4\fs16 AddFirstSibling\plain\f3\fs16 ' +
        ' to create a TDoc object and insert it as the first sibling of I' +
        'tem. The new object is returned by the function.\plain\f7\fs16 '#13 +
        #10'\par }'#13#10#0
    end
    item
      Title = 'AddLast'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  AddLast: TDoc;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par ' +
        '\plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call A' +
        'ddLast to create a TDoc object and append it as the last item in' +
        ' the list. The new object will have level zero, and is returned ' +
        'by the function.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg125' +
        '2\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman' +
        '\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fsw' +
        'iss\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\fp' +
        'rq2 System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fnil\fchars' +
        'et1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\par' +
        'd\plain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\p' +
        'ar \plain\f6\fs16\b '#13#10'\par   function\plain\f6\fs16  AddLast: TD' +
        'oc;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Descr' +
        'iption\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call AddLast to create a TDo' +
        'c object and append it as the last item in the list. The new obj' +
        'ect will have level zero, and is returned by the function.\plain' +
        '\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'AddLastChild'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  AddLastChild(Item: TDoc): TDoc;   '#13#10'\par \plain\f3\fs' +
        '16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\' +
        'par '#13#10'\par Call AddLastChild to create a TDoc object and insert ' +
        'it as the last child of Item. The new object is returned by the ' +
        'function.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'AddLastSibling'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  AddLastSibling(Item: TDoc): TDoc;   '#13#10'\par \plain\f3\' +
        'fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13 +
        #10'\par '#13#10'\par Call AddLastSibling to create a TDoc object and ins' +
        'ert it as the last sibling of Item. The new object is returned b' +
        'y the function.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252' +
        '\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\' +
        'fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswi' +
        'ss\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\fpr' +
        'q2 System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fnil\fcharse' +
        't1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard' +
        '\plain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\pa' +
        'r \plain\f6\fs16\b '#13#10'\par   function\plain\f6\fs16  AddLastSibli' +
        'ng(Item: TDoc): TDoc;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \pla' +
        'in\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call AddLa' +
        'stSibling to create a TDoc object and insert it as the last sibl' +
        'ing of Item. The new object is returned by the function.\plain\f' +
        '7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Back'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  Back;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f' +
        '3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Back to r' +
        'e-select the previously selected item.'#13#10'\par '#13#10'\par \plain\f3\fs' +
        '16\b Note\plain\f3\fs16 : The item which is selected prior to a ' +
        'call to Back will not be added to the history stack.\plain\f7\fs' +
        '16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\' +
        'f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswi' +
        'ss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fs' +
        'wiss\fcharset1 Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fch' +
        'arset1 Courier New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\r' +
        'ed0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaratio' +
        'n\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par  ' +
        ' procedure\plain\f6\fs16  Back;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13 +
        #10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par ' +
        'Call Back to re-select the previously selected item.'#13#10'\par '#13#10'\pa' +
        'r \plain\f3\fs16\b Note\plain\f3\fs16 : The item which is select' +
        'ed prior to a call to Back will not be added to the history stac' +
        'k.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'BeginUpdate'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  BeginUpdate;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \' +
        'plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Be' +
        'ginUpdate to suspend Owner.OnChange and Owner.OnDeletion events.' +
        #13#10'\par '#13#10'\par Every call to BeginUpdate should be matched by a c' +
        'all to EndUpdate.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs' +
        '16 : BeginUpdate does not suspend selection and addition of item' +
        's.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Clear'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  Clear;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\' +
        'f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Clear to' +
        ' delete all items. Clear is called automatically by the Assign m' +
        'ethod and by the destructor.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Down'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  Down;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f' +
        '3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Down to s' +
        'elect the first child of the currently selected item. '#13#10'\par '#13#10'\' +
        'par If no item is selected prior to the call to Down, or if the ' +
        'currently selected item does not have any children, the current ' +
        'selection is unchanged.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ans' +
        'icpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1' +
        '\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{' +
        '\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fs' +
        'wiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fnil' +
        '\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1' +
        '053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\fs' +
        '16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\plain\f6\fs16  Dow' +
        'n;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Descri' +
        'ption\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Down to select the first' +
        ' child of the currently selected item. '#13#10'\par '#13#10'\par If no item ' +
        'is selected prior to the call to Down, or if the currently selec' +
        'ted item does not have any children, the current selection is un' +
        'changed.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\' +
        'deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharse' +
        't2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcha' +
        'rset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\fprq2 Syst' +
        'em;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fnil\fcharset1 Defa' +
        'ult;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\' +
        'f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\par \plai' +
        'n\f6\fs16\b '#13#10'\par   procedure\plain\f6\fs16  Down;   '#13#10'\par \pl' +
        'ain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\' +
        'fs16 :'#13#10'\par '#13#10'\par Call Down to select the first child of the c' +
        'urrently selected item. '#13#10'\par '#13#10'\par If no item is selected pri' +
        'or to the call to Down, or if the currently selected item does n' +
        'ot have any children, the current selection is unchanged.\plain\' +
        'f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'EndUpdate'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  EndUpdate;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \pl' +
        'ain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call EndU' +
        'pdate to induce an Owner.OnUpdate event and to resume all suspen' +
        'ded Owner.OnChange and Owner.OnDeletion events.'#13#10'\par '#13#10'\par Eve' +
        'ry call to BeginUpdate should be matched by a call to EndUpdate.' +
        '\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab72' +
        '0{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbo' +
        'l;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Ar' +
        'ial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\fprq2 System;}{\f6' +
        '\fmodern\fcharset1 Courier New;}{\f7\fnil\fcharset1 Default;}}'#13#10 +
        '{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3\fs16\' +
        'b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs1' +
        '6\b '#13#10'\par   procedure\plain\f6\fs16  EndUpdate;   '#13#10'\par \plain' +
        '\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs1' +
        '6 :'#13#10'\par '#13#10'\par Call EndUpdate to induce an Owner.OnUpdate even' +
        't and to resume all suspended Owner.OnChange and Owner.OnDeletio' +
        'n events.'#13#10'\par '#13#10'\par Every call to BeginUpdate should be match' +
        'ed by a call to EndUpdate.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetForm'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  GetForm: TCustomForm; \plain\f6\fs16\b override\plain' +
        '\f6\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b D' +
        'escription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The GetForm method imple' +
        'ments the GetForm method of the IOwnerObject interface. This met' +
        'hod returns Owner.GetForm if Owner.GetForm exists, otherwise it ' +
        'returns nil.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetNamePath'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   function\plai' +
        'n\f6\fs16  GetNamePath: string; \plain\f6\fs16\b override\plain\' +
        'f6\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b De' +
        'scription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The GetForm method implem' +
        'ents the GetForm method of the IOwnerObject interface. This meth' +
        'od returns Owner if Owner is TCustomForm, otherwise it returns n' +
        'il.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'LoadFromFile'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  LoadFromFile(\plain\f6\fs16\b const\plain\f6\fs16  F' +
        'ileName: \plain\f6\fs16\b string\plain\f6\fs16 );   '#13#10'\par \plai' +
        'n\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs' +
        '16 :'#13#10'\par '#13#10'\par Call LoadFromFile to load a document collectio' +
        'n from an external file.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\an' +
        'sicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f' +
        '1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}' +
        '{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\f' +
        'swiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fni' +
        'l\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang' +
        '1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\f' +
        's16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\plain\f6\fs16  Lo' +
        'adFromFile(\plain\f6\fs16\b const\plain\f6\fs16  FileName: \plai' +
        'n\f6\fs16\b string\plain\f6\fs16 );   '#13#10'\par \plain\f3\fs16 '#13#10'\p' +
        'ar '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\' +
        'par Call LoadFromFile to load a document collection from an exte' +
        'rnal file.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'LoadFromStream'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  LoadFromStream(AStream: TStream);   '#13#10'\par \plain\f3' +
        '\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :' +
        #13#10'\par '#13#10'\par Call LoadFromStream to load a document collection ' +
        'from a stream.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\' +
        'deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\f' +
        'charset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswis' +
        's\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\fprq' +
        '2 System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fnil\fcharset' +
        '1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\' +
        'plain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\par' +
        ' \plain\f6\fs16\b '#13#10'\par   procedure\plain\f6\fs16  LoadFromStre' +
        'am(AStream: TStream);   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \pla' +
        'in\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call LoadF' +
        'romStream to load a document collection from a stream.\plain\f7\' +
        'fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'MakeIndex'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure \pl' +
        'ain\f6\fs16 MakeIndex(\plain\f6\fs16\b const\plain\f6\fs16  Sear' +
        'chStr: string; List: TStrings);   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13 +
        #10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par ' +
        'Call MakeIndex to create an index of all documents that contain ' +
        'SearchStr. The index is returned by the List parameter. List.Str' +
        'ings will hold the titles and List.Objects will hold the TDoc ob' +
        'jects.'#13#10'\par '#13#10'\par \plain\f3\fs16\b Note\plain\f3\fs16 : List m' +
        'ust be created and maintained by the application.\plain\f7\fs16 ' +
        #13#10'\par }'#13#10#0
    end
    item
      Title = 'Next'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  Next;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f' +
        '3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Next to s' +
        'elect the succeding sibling of the currently selected item. '#13#10'\p' +
        'ar '#13#10'\par If no item is selected prior to the call to Next, Item' +
        's[0] is selected. If the currently selected item does not have a' +
        'ny succeding siblings, the current selection is unchanged.\plain' +
        '\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Prev'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  Prev;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f' +
        '3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Prev to s' +
        'elect the preceding sibling of the currently selected item. '#13#10'\p' +
        'ar '#13#10'\par If no item is selected prior to the call to Prev, Item' +
        's[Count-1] is selected. If the currently selected item does not ' +
        'have any preceding siblings, the current selection is unchanged.' +
        '\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab72' +
        '0{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbo' +
        'l;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Ar' +
        'ial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\fprq2 System;}{\f6' +
        '\fmodern\fcharset1 Courier New;}{\f7\fnil\fcharset1 Default;}}'#13#10 +
        '{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3\fs16\' +
        'b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs1' +
        '6\b '#13#10'\par   procedure\plain\f6\fs16  Prev;   '#13#10'\par \plain\f3\f' +
        's16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10 +
        '\par '#13#10'\par Call Prev to select the preceding sibling of the cur' +
        'rently selected item. '#13#10'\par '#13#10'\par If no item is selected prior' +
        ' to the call to Prev, Items[Count-1] is selected. If the current' +
        'ly selected item does not have any preceding siblings, the curre' +
        'nt selection is unchanged.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'SaveToFile'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  SaveToFile(\plain\f6\fs16\b const\plain\f6\fs16  Fil' +
        'eName: \plain\f6\fs16\b string\plain\f6\fs16 );   '#13#10'\par \plain\' +
        'f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16' +
        ' :'#13#10'\par '#13#10'\par Call SaveToFile to save the current document col' +
        'lection to an external file.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'SaveToStream'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  SaveToStream(AStream: TStream);   '#13#10'\par \plain\f3\f' +
        's16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10 +
        '\par '#13#10'\par Call SaveToStream to save the current document colle' +
        'ction to a stream.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1' +
        '252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\from' +
        'an\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\f' +
        'swiss\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial;}{\f5\fswiss\' +
        'fprq2 System;}{\f6\fmodern\fcharset1 Courier New;}{\f7\fnil\fcha' +
        'rset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\p' +
        'ard\plain\f3\fs16\b Declaration\plain\f3\fs16 :\plain\f6\fs16 '#13#10 +
        '\par \plain\f6\fs16\b '#13#10'\par   procedure\plain\f6\fs16  SaveToSt' +
        'ream(AStream: TStream);   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \p' +
        'lain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Sav' +
        'eToStream to save the current document collection to a stream.\p' +
        'lain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Up'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  Up;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\' +
        'fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Up to selec' +
        't the parent of the currently selected item. '#13#10'\par '#13#10'\par If no' +
        ' item is selected prior to the call to Up, or if the currently s' +
        'elected item does not have a parent, the current selection is un' +
        'changed.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'UpNext'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fswiss\fprq2 System;}{\f6\fmodern\fcharset1 Courier' +
        ' New;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f6\fs16 '#13#10'\par \plain\f6\fs16\b '#13#10'\par   procedure\pla' +
        'in\f6\fs16  UpNext;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain' +
        '\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call UpNext ' +
        'to select the succeding sibling of the parent of the currently s' +
        'elected item. '#13#10'\par '#13#10'\par If no item is selected prior to the ' +
        'call to UpNext, or if the currently selected item does not have ' +
        'a parent, or the parent does not have a succeding sibling, the c' +
        'urrent selection is unchanged.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Protected methods'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fc' +
        'harset1 Arial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\g' +
        'reen0\blue0;}'#13#10'\deflang1053\pard\plain\f4\fs32 TDocList protecte' +
        'd methods\plain\f3\fs16 '#13#10'\par Use the tree view on the left to ' +
        'navigate.'#13#10'\par '#13#10'\par \plain\f5\fs16     \plain\f5\fs16\b proce' +
        'dure\plain\f5\fs16  AssignTo(Dest: TPersistent); \plain\f5\fs16\' +
        'b override\plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b procedure\' +
        'plain\f5\fs16  DoAddItem(RefItem, NewItem: TDoc; Action: TAddDoc' +
        'Action);'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  DoC' +
        'hangeItem(Item: TDoc);'#13#10'\par     \plain\f5\fs16\b function\plain' +
        '\f5\fs16  DoDeleteItem(Item: TDoc): Boolean;'#13#10'\par     \plain\f5' +
        '\fs16\b procedure\plain\f5\fs16  DoSelect(Item: TDoc);'#13#10'\par    ' +
        ' \plain\f5\fs16\b procedure\plain\f5\fs16  DoUpdate;'#13#10'\par     \' +
        'plain\f5\fs16\b function\plain\f5\fs16  InternalInsert(Index, Le' +
        'vel: Integer): TDoc;\plain\f7\fs16 '#13#10'\par '#13#10'\par }'#13#10#0'{\rtf1\ansi' +
        '\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}' +
        '{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Seri' +
        'f;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1 Arial Blac' +
        'k;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 Ari' +
        'al;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0' +
        ';}'#13#10'\deflang1053\pard\plain\f4\fs32 TDocList protected methods\p' +
        'lain\f3\fs16 '#13#10'\par Use the tree view on the left to navigate.'#13#10 +
        '\par '#13#10'\par \plain\f5\fs16     \plain\f5\fs16\b procedure\plain\' +
        'f5\fs16  AssignTo(Dest: TPersistent); \plain\f5\fs16\b override\' +
        'plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs' +
        '16  DoAddItem(RefItem, NewItem: TDoc; Action: TAddDocAction);'#13#10'\' +
        'par     \plain\f5\fs16\b procedure\plain\f5\fs16  DoChangeItem(I' +
        'tem: TDoc);'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  D' +
        'oDeleteItem(Item: TDoc): Boolean;'#13#10'\par     \plain\f5\fs16\b pr{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ari' +
        'al Black;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fchars' +
        'et1 Arial;}{\f7\fswiss\fcharset1 Arial;}{\f8\fnil\fcharset1 Defa' +
        'ult;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\' +
        'f4\fs32 TDocList protected methods\plain\f7\fs16 '#13#10'\par Use the ' +
        'tree view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f5\fs16  ' +
        '   \plain\f5\fs16\b procedure\plain\f5\fs16  AssignTo(Dest: TPer' +
        'sistent); \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \p' +
        'lain\f5\fs16\b procedure\plain\f5\fs16  DoAddItem(RefItem, NewIt' +
        'em: TDoc; Action: TAddDocAction);'#13#10'\par     \plain\f5\fs16\b pro' +
        'cedure\plain\f5\fs16  DoChangeItem(Item: TDoc);'#13#10'\par     \plain' +
        '\f5\fs16\b function\plain\f5\fs16  DoDeleteItem(Item: TDoc): Boo' +
        'lean;'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs16  DoSele' +
        'ct(Item: TDoc);'#13#10'\par     \plain\f5\fs16\b procedure\plain\f5\fs' +
        '16  DoUpdate;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16 ' +
        ' InternalInsert(Index, Level: Integer): TDoc;\plain\f8\fs16 '#13#10'\p' +
        'ar '#13#10'\par }'#13#10#0
    end
    item
      Title = 'AssignTo'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  AssignTo(Dest: TPersistent); \plain\f5\fs16\b overri' +
        'de\plain\f5\fs16 ;   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\' +
        'f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par By default So' +
        'urce.AssignTo(Dest) is called by Dest.Assign(Source), if the lat' +
        'ter method does not know how to assign Source to Dest.'#13#10'\par '#13#10'\' +
        'par The AssignTo method of class TDocList implements assignment ' +
        'to another TDocList object. If Dest is not a TDocList object, th' +
        'e inherited AssignTo method of TPersistent is called, which rais' +
        'es an exception.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoAddItem'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  DoAddItem(RefItem, NewItem: TDoc; Action: TAddDocAct' +
        'ion);   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Des' +
        'cription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The DoAddItem method calls' +
        ' the DoAddDoc method of the owning TDocs component.'#13#10'\par \plain' +
        '\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoChangeItem'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  DoChangeItem(Item: TDoc);   '#13#10'\par \plain\f3\fs16 '#13#10 +
        '\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13 +
        #10'\par The DoChangeItem method checks if the InternalUpdating fla' +
        'g is set. If not, the DoChangeDoc method of the owning TDocs com' +
        'ponent is called. Otherwise Item is placed on a stack.\plain\f7\' +
        'fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl' +
        '{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fs' +
        'wiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\' +
        'fswiss\fprq2 System;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fs' +
        'wiss\fcharset1 Arial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl' +
        '\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declarat' +
        'ion\plain\f3\fs16 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par' +
        '   procedure\plain\f5\fs16  DoChangeItem(Item: TDoc);   '#13#10'\par \' +
        'plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f' +
        '3\fs16 :'#13#10'\par '#13#10'\par The DoChangeItem method checks if the Inte' +
        'rnalUpdating flag is set. If not, the DoChangeDoc method of the ' +
        'owning TDocs component is called. Otherwise Item is placed on a ' +
        'stack.\plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\de' +
        'ftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2' +
        ' Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fchars' +
        'et1 Arial;}{\f4\fswiss\fprq2 System;}{\f5\fmodern\fcharset1 Cour' +
        'ier New;}{\f6\fswiss\fcharset1 Arial;}{\f7\fnil\fcharset1 Defaul' +
        't;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain\f3' +
        '\fs16\b Declaration\plain\f3\fs16 :\plain\f5\fs16 '#13#10'\par \plain\' +
        'f5\fs16\b '#13#10'\par   procedure\plain\f5\fs16  DoChangeItem(Item: T' +
        'Doc);   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Des' +
        'cription\plain\f3\fs16 :'#13#10'\par '#13#10'\par The DoChangeItem method ch' +
        'ecks if the InternalUpdating flag is set. If not, the DoChangeDo' +
        'c method of the owning TDocs component is called. Otherwise Item' +
        ' is placed on a stack.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoDeleteItem'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fmodern\fcharset1 C' +
        'ourier New;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f6\fs16\b Declaration\plain\f6\fs1' +
        '6 :\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b '#13#10'\par   function\plai' +
        'n\f4\fs16  DoDeleteItem(Item: TDoc): Boolean;   '#13#10'\par \plain\f6' +
        '\fs16 '#13#10'\par '#13#10'\par \plain\f6\fs16\b Description\plain\f6\fs16 :' +
        #13#10'\par '#13#10'\par The DoDeleteItem method checks if the InternalUpda' +
        'ting flag is set. If not, the DoDeleteDoc method of the owning T' +
        'Docs component is called and True is return. Otherwise Item is p' +
        'laced on a stack and False is returned.'#13#10'\par '#13#10'\par \plain\f6\f' +
        's16\b Note\plain\f6\fs16 : DoDeleteItem is normally called by It' +
        'em itself. A return value of True makes Item destroy itself. A r' +
        'eturn value of False makes Item set its Item.Deleteing flag and ' +
        'skip destruction for the time being.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoSelect'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  DoSelect(Item: TDoc);   '#13#10'\par \plain\f3\fs16 '#13#10'\par' +
        ' '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\pa' +
        'r The DoSelect method calls the DoSelectDoc method of the owning' +
        ' TDocs component.'#13#10'\par '#13#10'\par \plain\f7\fs16 '#13#10'\par }'#13#10#0'{\rtf1\' +
        'ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Ser' +
        'if;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans ' +
        'Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 System;}{\' +
        'f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 Arial;}{' +
        '\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\' +
        'deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs16 :\pla' +
        'in\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\plain\f5\f' +
        's16  DoSelect(Item: TDoc);   '#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par' +
        ' \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The D' +
        'oSelect method calls the DoSelectDoc method of the owning TDocs ' +
        'component.'#13#10'\par '#13#10'\par \plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'DoUpdate'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  DoUpdate;   '#13#10'\par \plain\f4\fs16 '#13#10'\par '#13#10'\par \pla' +
        'in\f4\fs16\b Description\plain\f4\fs16 :'#13#10'\par '#13#10'\par The DoUpda' +
        'te method calls the DoUpdate method of the owning TDocs componen' +
        't. Stacked changes and deletions are handled internally.\plain\f' +
        '7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'InternalInsert'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fcharset1 A' +
        'rial;}{\f7\fnil\fcharset1 Default;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  InternalInsert(Index, Level: Integer): TDoc;   '#13#10'\par' +
        ' \plain\f4\fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain' +
        '\f4\fs16 :'#13#10'\par '#13#10'\par The InternalInsert method attempts to cr' +
        'eate a TDoc object with the specified Index and Level. If Index ' +
        'is zero or if the newly inserted item would be a child of the pr' +
        'eceding item, Level might be adjusted to fit in context. The new' +
        ' item is passed as the result value.\plain\f7\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'TDoc class'
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fnil\fchar' +
        'set1 Default;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1' +
        ' Arial;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs32 TDoc class\plain\f4\fs16 '#13#10'\par \plain\f6\fs16 The TDoc' +
        ' class is a container for a RTF document, and optionally associa' +
        'ted macros.'#13#10'\par '#13#10'\par Declaration:'#13#10'\par '#13#10'\par   \plain\f7\f' +
        's16 TDoc = \plain\f7\fs16\b class\plain\f7\fs16 (TOwnedObject)\p' +
        'lain\f6\fs16 '#13#10'\par '#13#10'\par Published properties:'#13#10'\par '#13#10'\par \p' +
        'lain\f7\fs16     \plain\f7\fs16\b property\plain\f7\fs16  ImageI' +
        'ndex: Integer \plain\f7\fs16\b read\plain\f7\fs16  FImageIndex \' +
        'plain\f7\fs16\b write\plain\f7\fs16  SetImageIndex;'#13#10'\par     \p' +
        'lain\f7\fs16\b property\plain\f7\fs16  MacroBack: TCustomMacro \' +
        'plain\f7\fs16\b read\plain\f7\fs16  FMacroBack \plain\f7\fs16\b ' +
        'write\plain\f7\fs16  SetMacroBack;'#13#10'\par     \plain\f7\fs16\b pr' +
        'operty\plain\f7\fs16  MacroDemo: TCustomMacro \plain\f7\fs16\b r' +
        'ead\plain\f7\fs16  FMacroDemo \plain\f7\fs16\b write\plain\f7\fs' +
        '16  SetMacroDemo;'#13#10'\par     \plain\f7\fs16\b property\plain\f7\f' +
        's16  MacroNext: TCustomMacro \plain\f7\fs16\b read\plain\f7\fs16' +
        '  FMacroNext \plain\f7\fs16\b write\plain\f7\fs16  SetMacroNext;' +
        #13#10'\par     \plain\f7\fs16\b property\plain\f7\fs16  MacroPrev: T' +
        'CustomMacro \plain\f7\fs16\b read\plain\f7\fs16  FMacroPrev \pla' +
        'in\f7\fs16\b write\plain\f7\fs16  SetMacroPrev;'#13#10'\par     \plain' +
        '\f7\fs16\b property\plain\f7\fs16  StateIndex: Integer \plain\f7' +
        '\fs16\b read\plain\f7\fs16  FStateIndex \plain\f7\fs16\b write\p' +
        'lain\f7\fs16  SetStateIndex;'#13#10'\par     \plain\f7\fs16\b property' +
        '\plain\f7\fs16  Tag: Integer \plain\f7\fs16\b read\plain\f7\fs16' +
        '  FTag \plain\f7\fs16\b write\plain\f7\fs16  SetTag;'#13#10'\par     \' +
        'plain\f7\fs16\b property\plain\f7\fs16  TextAsStream: TStream \p' +
        'lain\f7\fs16\b read\plain\f7\fs16  GetAsStream \plain\f7\fs16\b ' +
        'write\plain\f7\fs16  SetAsStream;       '#13#10'\par     \plain\f7\fs1' +
        '6\b property\plain\f7\fs16  Title: string \plain\f7\fs16\b read\' +
        'plain\f7\fs16  GetCaption \plain\f7\fs16\b write\plain\f7\fs16  ' +
        'SetCaption;'#13#10'\par     \plain\f7\fs16\b property \plain\f7\fs16 V' +
        'isible: Boolean \plain\f7\fs16\b read\plain\f7\fs16  FVisible \p' +
        'lain\f7\fs16\b write\plain\f7\fs16  SetVisible;\plain\f6\fs16 '#13#10 +
        '\par '#13#10'\par Public properties:  '#13#10'\par \plain\f7\fs16 '#13#10'\par    ' +
        ' \plain\f7\fs16\b property\plain\f7\fs16  Data: TObject \plain\f' +
        '7\fs16\b read\plain\f7\fs16  FData \plain\f7\fs16\b write\plain\' +
        'f7\fs16  SetData;'#13#10'\par     \plain\f7\fs16\b property\plain\f7\f' +
        's16  Deleted: Boolean \plain\f7\fs16\b read\plain\f7\fs16  FDele' +
        'ted \plain\f7\fs16\b write\plain\f7\fs16  SetDeleted;'#13#10'\par     ' +
        '\plain\f7\fs16\b property\plain\f7\fs16  Index: Integer \plain\f' +
        '7\fs16\b read\plain\f7\fs16  GetIndex;'#13#10'\par     \plain\f7\fs16\' +
        'b property\plain\f7\fs16  Level: Integer \plain\f7\fs16\b read\p' +
        'lain\f7\fs16  GetLevel;   '#13#10'\par     \plain\f7\fs16\b property\p' +
        'lain\f7\fs16  Owner: TDocList \plain\f7\fs16\b read\plain\f7\fs1' +
        '6  GetDocList; '#13#10'\par     \plain\f7\fs16\b property\plain\f7\fs1' +
        '6  Selected: Boolean \plain\f7\fs16\b read\plain\f7\fs16  GetSel' +
        'ected \plain\f7\fs16\b write \plain\f7\fs16 SetSelected;'#13#10'\par  ' +
        '   \plain\f7\fs16\b property\plain\f7\fs16  Text: \plain\f7\fs16' +
        '\b string\plain\f7\fs16  \plain\f7\fs16\b read\plain\f7\fs16  Ge' +
        'tAsString \plain\f7\fs16\b write\plain\f7\fs16  SetAsString; \pl' +
        'ain\f6\fs16 '#13#10'\par '#13#10'\par Public methods:'#13#10'\par '#13#10'\par \plain\f7' +
        '\fs16     \plain\f7\fs16\b constructor\plain\f7\fs16  Create(AOw' +
        'ner: TDocList);'#13#10'\par     \plain\f7\fs16\b destructor\plain\f7\f' +
        's16  Destroy; \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par   ' +
        '  \plain\f7\fs16\b procedure\plain\f7\fs16  Assign(Source: TPers' +
        'istent); \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par     \pl' +
        'ain\f7\fs16\b procedure\plain\f7\fs16  Change;'#13#10'\par     \plain\' +
        'f7\fs16\b procedure\plain\f7\fs16  Delete;'#13#10'\par     \plain\f7\f' +
        's16\b procedure\plain\f7\fs16  DeleteChildren;'#13#10'\par     \plain\' +
        'f7\fs16\b function\plain\f7\fs16  GetParent: TDoc;'#13#10'\par     \pl' +
        'ain\f7\fs16\b function\plain\f7\fs16  GetFirstChild: TDoc;'#13#10'\par' +
        '     \plain\f7\fs16\b function\plain\f7\fs16  GetNamePath: strin' +
        'g; \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par     \plain\f7' +
        '\fs16\b function\plain\f7\fs16  GetNextBranch: TDoc;'#13#10'\par     \' +
        'plain\f7\fs16\b function\plain\f7\fs16  GetNextChild(Item: TDoc)' +
        ': TDoc;'#13#10'\par     \plain\f7\fs16\b function\plain\f7\fs16  GetNe' +
        'xtSibling: TDoc;           '#13#10'\par     \plain\f7\fs16\b function\' +
        'plain\f7\fs16  GetPrevSibling: TDoc;'#13#10'\par     \plain\f7\fs16\b ' +
        'function\plain\f7\fs16  HasSubString(\plain\f7\fs16\b const\plai' +
        'n\f7\fs16  Value: \plain\f7\fs16\b string\plain\f7\fs16 ): Boole' +
        'an; '#13#10'\par '#13#10'\par \plain\f6\fs16 '#13#10'\par Protected methods:'#13#10'\par' +
        ' \plain\f7\fs16    '#13#10'\par     \plain\f7\fs16\b function\plain\f7' +
        '\fs16  CheckDelete: Boolean;'#13#10'\par     \plain\f7\fs16\b procedur' +
        'e\plain\f7\fs16  DoChange;'#13#10'\par     \plain\f7\fs16\b procedure\' +
        'plain\f7\fs16  DoSelected; '#13#10'\par     \plain\f7\fs16\b function\' +
        'plain\f7\fs16  GetDocList: TDocList;\plain\f6\fs16 '#13#10'\par '#13#10'\par' +
        ' }'#13#10#0
    end
    item
      Title = 'Published properties'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\gree' +
        'n0\blue0;}'#13#10'\deflang1053\pard\plain\f6\fs32 TDoc published prope' +
        'rties\plain\f5\fs16 '#13#10'\par Use the tree view on the left to navi' +
        'gate.'#13#10'\par '#13#10'\par \plain\f3\fs16     \plain\f3\fs16\b property\' +
        'plain\f3\fs16  ImageIndex: Integer \plain\f3\fs16\b read\plain\f' +
        '3\fs16  FImageIndex \plain\f3\fs16\b write\plain\f3\fs16  SetIma' +
        'geIndex;'#13#10'\par     \plain\f3\fs16\b property\plain\f3\fs16  Macr' +
        'oBack: TCustomMacro \plain\f3\fs16\b read\plain\f3\fs16  FMacroB' +
        'ack \plain\f3\fs16\b write\plain\f3\fs16  SetMacroBack;'#13#10'\par   ' +
        '  \plain\f3\fs16\b property\plain\f3\fs16  MacroDemo: TCustomMac' +
        'ro \plain\f3\fs16\b read\plain\f3\fs16  FMacroDemo \plain\f3\fs1' +
        '6\b write\plain\f3\fs16  SetMacroDemo;'#13#10'\par     \plain\f3\fs16\' +
        'b property\plain\f3\fs16  MacroNext: TCustomMacro \plain\f3\fs16' +
        '\b read\plain\f3\fs16  FMacroNext \plain\f3\fs16\b write\plain\f' +
        '3\fs16  SetMacroNext;'#13#10'\par     \plain\f3\fs16\b property\plain\' +
        'f3\fs16  MacroPrev: TCustomMacro \plain\f3\fs16\b read\plain\f3\' +
        'fs16  FMacroPrev \plain\f3\fs16\b write\plain\f3\fs16  SetMacroP' +
        'rev;'#13#10'\par     \plain\f3\fs16\b property\plain\f3\fs16  StateInd' +
        'ex: Integer \plain\f3\fs16\b read\plain\f3\fs16  FStateIndex \pl' +
        'ain\f3\fs16\b write\plain\f3\fs16  SetStateIndex;'#13#10'\par     \pla' +
        'in\f3\fs16\b property\plain\f3\fs16  Tag: Integer \plain\f3\fs16' +
        '\b read\plain\f3\fs16  FTag \plain\f3\fs16\b write\plain\f3\fs16' +
        '  SetTag;'#13#10'\par     \plain\f3\fs16\b property\plain\f3\fs16  Tex' +
        'tAsStream: TStream \plain\f3\fs16\b read\plain\f3\fs16  GetAsStr' +
        'eam \plain\f3\fs16\b write\plain\f3\fs16  SetAsStream;       '#13#10'\' +
        'par     \plain\f3\fs16\b property\plain\f3\fs16  Title: string \' +
        'plain\f3\fs16\b read\plain\f3\fs16  GetCaption \plain\f3\fs16\b ' +
        'write\plain\f3\fs16  SetCaption;'#13#10'\par     \plain\f3\fs16\b prop' +
        'erty \plain\f3\fs16 Visible: Boolean \plain\f3\fs16\b read\plain' +
        '\f3\fs16  FVisible \plain\f3\fs16\b write\plain\f3\fs16  SetVisi' +
        'ble;\plain\f5\fs16 '#13#10'\par '#13#10'\par }'#13#10#0
    end
    item
      Title = 'ImageIndex'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   property\plain\f3\fs16  ImageIndex: Intege' +
        'r \plain\f3\fs16\b read\plain\f3\fs16  FImageIndex \plain\f3\fs1' +
        '6\b write\plain\f3\fs16  SetImageIndex;\plain\f5\fs16 '#13#10'\par '#13#10'\' +
        'par '#13#10'\par \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10 +
        '\par Use ImageIndex to determine the ImageIndex of the associate' +
        'd TTreeNode, should one be created automatically.'#13#10'\par '#13#10'\par \' +
        'pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\' +
        'plain\f5\fs16 {\pntext\f1\'#39'b7\tab}Use StateIndex to determine th' +
        'e StateIndex of the associated TTreeNode.'#13#10'\par {\pntext\f1\'#39'b7\' +
        'tab}SelectedIndex of the associated TTreeNode is always set to z' +
        'ero by default.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'MacroBack'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b  \plain\f5\fs16 '#13#10'\par' +
        '     \plain\f5\fs16\b property\plain\f5\fs16  MacroBack: TCustom' +
        'Macro \plain\f5\fs16\b read\plain\f5\fs16  FMacroBack \plain\f5\' +
        'fs16\b write\plain\f5\fs16  SetMacroBack;'#13#10'\par     \plain\f5\fs' +
        '16\b property\plain\f5\fs16  MacroDemo: TCustomMacro \plain\f5\f' +
        's16\b read\plain\f5\fs16  FMacroDemo \plain\f5\fs16\b write\plai' +
        'n\f5\fs16  SetMacroDemo;'#13#10'\par     \plain\f5\fs16\b property\pla' +
        'in\f5\fs16  MacroNext: TCustomMacro \plain\f5\fs16\b read\plain\' +
        'f5\fs16  FMacroNext \plain\f5\fs16\b write\plain\f5\fs16  SetMac' +
        'roNext;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\fs16  Macro' +
        'Prev: TCustomMacro \plain\f5\fs16\b read\plain\f5\fs16  FMacroPr' +
        'ev \plain\f5\fs16\b write\plain\f5\fs16  SetMacroPrev;\plain\f4\' +
        'fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs16 :'#13 +
        #10'\par '#13#10'\par These four properties hold collection which represe' +
        'nt executable macros. Call the BackExecute, DemoExecute, NextExe' +
        'cute or PrevExecute methods of the TDocs component held by Owner' +
        '.Owner to invoke the default macro execution behavior.'#13#10'\par }'#13#10 +
        #0
    end
    item
      Title = 'MacroDemo'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b  \plain\f5\fs16 '#13#10'\par' +
        '     \plain\f5\fs16\b property\plain\f5\fs16  MacroBack: TCustom' +
        'Macro \plain\f5\fs16\b read\plain\f5\fs16  FMacroBack \plain\f5\' +
        'fs16\b write\plain\f5\fs16  SetMacroBack;'#13#10'\par     \plain\f5\fs' +
        '16\b property\plain\f5\fs16  MacroDemo: TCustomMacro \plain\f5\f' +
        's16\b read\plain\f5\fs16  FMacroDemo \plain\f5\fs16\b write\plai' +
        'n\f5\fs16  SetMacroDemo;'#13#10'\par     \plain\f5\fs16\b property\pla' +
        'in\f5\fs16  MacroNext: TCustomMacro \plain\f5\fs16\b read\plain\' +
        'f5\fs16  FMacroNext \plain\f5\fs16\b write\plain\f5\fs16  SetMac' +
        'roNext;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\fs16  Macro' +
        'Prev: TCustomMacro \plain\f5\fs16\b read\plain\f5\fs16  FMacroPr' +
        'ev \plain\f5\fs16\b write\plain\f5\fs16  SetMacroPrev;\plain\f4\' +
        'fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs16 :'#13 +
        #10'\par '#13#10'\par These four properties hold collection which represe' +
        'nt executable macros. Call the BackExecute, DemoExecute, NextExe' +
        'cute or PrevExecute methods of the TDocs component held by Owner' +
        '.Owner to invoke the default macro execution behavior.'#13#10'\par }'#13#10 +
        #0
    end
    item
      Title = 'MacroNext'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b  \plain\f5\fs16 '#13#10'\par' +
        '     \plain\f5\fs16\b property\plain\f5\fs16  MacroBack: TCustom' +
        'Macro \plain\f5\fs16\b read\plain\f5\fs16  FMacroBack \plain\f5\' +
        'fs16\b write\plain\f5\fs16  SetMacroBack;'#13#10'\par     \plain\f5\fs' +
        '16\b property\plain\f5\fs16  MacroDemo: TCustomMacro \plain\f5\f' +
        's16\b read\plain\f5\fs16  FMacroDemo \plain\f5\fs16\b write\plai' +
        'n\f5\fs16  SetMacroDemo;'#13#10'\par     \plain\f5\fs16\b property\pla' +
        'in\f5\fs16  MacroNext: TCustomMacro \plain\f5\fs16\b read\plain\' +
        'f5\fs16  FMacroNext \plain\f5\fs16\b write\plain\f5\fs16  SetMac' +
        'roNext;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\fs16  Macro' +
        'Prev: TCustomMacro \plain\f5\fs16\b read\plain\f5\fs16  FMacroPr' +
        'ev \plain\f5\fs16\b write\plain\f5\fs16  SetMacroPrev;\plain\f4\' +
        'fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs16 :'#13 +
        #10'\par '#13#10'\par These four properties hold collection which represe' +
        'nt executable macros. Call the BackExecute, DemoExecute, NextExe' +
        'cute or PrevExecute methods of the TDocs component held by Owner' +
        '.Owner to invoke the default macro execution behavior.'#13#10'\par }'#13#10 +
        #0
    end
    item
      Title = 'MacroPrev'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b  \plain\f5\fs16 '#13#10'\par' +
        '     \plain\f5\fs16\b property\plain\f5\fs16  MacroBack: TCustom' +
        'Macro \plain\f5\fs16\b read\plain\f5\fs16  FMacroBack \plain\f5\' +
        'fs16\b write\plain\f5\fs16  SetMacroBack;'#13#10'\par     \plain\f5\fs' +
        '16\b property\plain\f5\fs16  MacroDemo: TCustomMacro \plain\f5\f' +
        's16\b read\plain\f5\fs16  FMacroDemo \plain\f5\fs16\b write\plai' +
        'n\f5\fs16  SetMacroDemo;'#13#10'\par     \plain\f5\fs16\b property\pla' +
        'in\f5\fs16  MacroNext: TCustomMacro \plain\f5\fs16\b read\plain\' +
        'f5\fs16  FMacroNext \plain\f5\fs16\b write\plain\f5\fs16  SetMac' +
        'roNext;'#13#10'\par     \plain\f5\fs16\b property\plain\f5\fs16  Macro' +
        'Prev: TCustomMacro \plain\f5\fs16\b read\plain\f5\fs16  FMacroPr' +
        'ev \plain\f5\fs16\b write\plain\f5\fs16  SetMacroPrev;\plain\f4\' +
        'fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs16 :'#13 +
        #10'\par '#13#10'\par These four properties hold collection which represe' +
        'nt executable macros. Call the BackExecute, DemoExecute, NextExe' +
        'cute or PrevExecute methods of the TDocs component held by Owner' +
        '.Owner to invoke the default macro execution behavior.'#13#10'\par }'#13#10 +
        #0
    end
    item
      Title = 'StateIndex'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  StateIndex: Integer \plain\f5\fs16\b read\plain\f5\fs' +
        '16  FStateIndex \plain\f5\fs16\b write\plain\f5\fs16  SetStateIn' +
        'dex;\plain\f4\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f4\fs16\b Descrip' +
        'tion\plain\f4\fs16 :'#13#10'\par '#13#10'\par Use StateIndex to determine th' +
        'e StateIndex of the associated TTreeNode, should one be created ' +
        'automatically.'#13#10'\par '#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pn' +
        'f1\pnindent200{\pntxtb\'#39'b7}}\plain\f4\fs16 {\pntext\f1\'#39'b7\tab}U' +
        'se ImageIndex to determine the ImageIndex of the associated TTre' +
        'eNode.'#13#10'\par {\pntext\f1\'#39'b7\tab}SelectedIndex of the associated' +
        ' TTreeNode is always set to zero by default.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Tag'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  Tag: Integer \plain\f5\fs16\b read\plain\f5\fs16  FTa' +
        'g \plain\f5\fs16\b write\plain\f5\fs16  SetTag;\plain\f4\fs16 '#13#10 +
        '\par '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs16 :'#13 +
        #10'\par '#13#10'\par The Tag property is not used internally, except tha' +
        't setting it triggers an OnChange event of the TDocs component h' +
        'eld by Owner.Owner. Tag is intended to be used by the applicatio' +
        'n.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'TextAsStream'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fswiss\fcharset1 ' +
        'Arial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plai' +
        'n\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pl' +
        'ain\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  TextAsStream: TSt' +
        'ream \plain\f5\fs16\b read\plain\f5\fs16  GetAsStream \plain\f5\' +
        'fs16\b write\plain\f5\fs16  SetAsStream;\plain\f4\fs16 '#13#10'\par '#13#10 +
        '\par '#13#10'\par \plain\f4\fs16\b Description\plain\f4\fs16 :'#13#10'\par '#13 +
        #10'\par The TextAsStream property holds the RTF document of the TD' +
        'oc object. It contains the same information as the Text property' +
        '.'#13#10'\par '#13#10'\par If you have the commersial version of this produc' +
        't, double clicking this property in the Object Inspector brings ' +
        'up a RTF Editor.'#13#10'\par '#13#10'\par \plain\f4\fs16\b Example\plain\f4\' +
        'fs16 :'#13#10'\par '#13#10'\par \plain\f7\fs16     RichEdit1.Lines.LoadFromS' +
        'tream(Doc.TextAsStream);\plain\f4\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Title'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property\plai' +
        'n\f5\fs16  Title: string \plain\f5\fs16\b read\plain\f5\fs16  Ge' +
        'tCaption \plain\f5\fs16\b write\plain\f5\fs16  SetCaption;\plain' +
        '\f4\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plain' +
        '\f4\fs16 :'#13#10'\par '#13#10'\par The Title property holds the title of th' +
        'e document. TDoc objects are displayed by their title in the Doc' +
        'Display. If you have the commersial version of this product and ' +
        'use the RTF editor at design time, the caption of the tab corres' +
        'ponding to a document is set to Title.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Visible'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fprq2 System;}{\f4\fswiss\fcharset1 Ar' +
        'ial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f4\fs16\b Declaration\plain\f4\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   property \pla' +
        'in\f5\fs16 Visible: Boolean \plain\f5\fs16\b read\plain\f5\fs16 ' +
        ' FVisible \plain\f5\fs16\b write\plain\f5\fs16  SetVisible;\plai' +
        'n\f4\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description\plai' +
        'n\f4\fs16 :'#13#10'\par '#13#10'\par The Visible property of a TDoc object d' +
        'etermines if the document should be entered into the DocDisplay,' +
        ' unless ForceVisible of the owning TDocs component is set.'#13#10'\par' +
        ' '#13#10'\par If the end user of your application should not be allowe' +
        'd to access a given document other than by invoking e.g. the Mac' +
        'roDemo of another TDoc object, set Visible to False to prevent d' +
        'irect access from the DocDisplay.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Public properties'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\gree' +
        'n0\blue0;}'#13#10'\deflang1053\pard\plain\f6\fs32 TDoc public properti' +
        'es\plain\f5\fs16 '#13#10'\par Use the tree view on the left to navigat' +
        'e.'#13#10'\par \plain\f3\fs16 '#13#10'\par     \plain\f3\fs16\b property\pla' +
        'in\f3\fs16  Data: TObject \plain\f3\fs16\b read\plain\f3\fs16  F' +
        'Data \plain\f3\fs16\b write\plain\f3\fs16  SetData;'#13#10'\par     \p' +
        'lain\f3\fs16\b property\plain\f3\fs16  Deleted: Boolean \plain\f' +
        '3\fs16\b read\plain\f3\fs16  FDeleted \plain\f3\fs16\b write\pla' +
        'in\f3\fs16  SetDeleted;'#13#10'\par     \plain\f3\fs16\b property\plai' +
        'n\f3\fs16  Index: Integer \plain\f3\fs16\b read\plain\f3\fs16  G' +
        'etIndex;'#13#10'\par     \plain\f3\fs16\b property\plain\f3\fs16  Leve' +
        'l: Integer \plain\f3\fs16\b read\plain\f3\fs16  GetLevel;   '#13#10'\p' +
        'ar     \plain\f3\fs16\b property\plain\f3\fs16  Owner: TDocList ' +
        '\plain\f3\fs16\b read\plain\f3\fs16  GetDocList; '#13#10'\par     \pla' +
        'in\f3\fs16\b property\plain\f3\fs16  Selected: Boolean \plain\f3' +
        '\fs16\b read\plain\f3\fs16  GetSelected \plain\f3\fs16\b write \' +
        'plain\f3\fs16 SetSelected;'#13#10'\par     \plain\f3\fs16\b property\p' +
        'lain\f3\fs16  Text: \plain\f3\fs16\b string\plain\f3\fs16  \plai' +
        'n\f3\fs16\b read\plain\f3\fs16  GetAsString \plain\f3\fs16\b wri' +
        'te\plain\f3\fs16  SetAsString; \plain\f5\fs16 '#13#10'\par '#13#10'\par }'#13#10#0 +
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\gree' +
        'n0\blue0;}'#13#10'\deflang1053\pard\plain\f6\fs32 TDoc public properti' +
        'es\plain\f5\fs16 '#13#10'\par Use the tree view on the left to navigat' +
        'e.'#13#10'\par \plain\f3\fs16 '#13#10'\par     \plain\f3\fs16\b property\pla' +
        'in\f3\fs16  Data: TObject \plain\f3\fs16\b read\plain\f3\fs16  F' +
        'Data \plain\f3\fs16\b write\plain\f3\fs16  SetData;'#13#10'\par     \p' +
        'lain\f3\fs16\b property\plain\f3\fs16  Deleted: Boolean \plain\f' +
        '3\fs16\b read\plain\f3\fs16  FDeleted \plain\f3\fs16\b write\pla' +
        'in\f3\fs16  SetDeleted;'#13#10'\par     \plain\f3\fs16\b property\plai' +
        'n\f3\fs16  Index: Integer \plain\f3\fs16\b read\plain\f3\fs16  G' +
        'etIndex;'#13#10'\par     \plain\f3\fs16\b property\plain\f3\fs16  Leve' +
        'l: Integer \plain\f3\fs16\b read\plain\f3\fs16  GetLevel;   '#13#10'\p' +
        'ar     \plain\f3\fs16\b property\plain\f3\fs16  Owner: TDocList ' +
        '\plain\f3\fs16\b read\plain\f3\fs16  GetDocList; '#13#10'\par     \pla' +
        'in\f3\fs16\b property\plain\f3\fs16  Selected: Boolean \plain\f3' +
        '\fs16\b read\plain\f3\fs16  GetSelected \plain\f3\fs16\b write \' +
        'plain\f3\fs16 SetSelected;'#13#10'\par     \plain\f3\fs16\b property\p' +
        'lain\f3\fs16  Text: \plain\f3\fs16\b string\plain\f3\fs16  \plai' +
        'n\f3\fs16\b read\plain\f3\fs16  GetAsString \plain\f3\fs16\b wri' +
        'te\plain\f3\fs16  SetAsString; \plain\f5\fs16 '#13#10'\par '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Data'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   property\plain\f3\fs16  Data: TObject \pla' +
        'in\f3\fs16\b read\plain\f3\fs16  FData \plain\f3\fs16\b write\pl' +
        'ain\f3\fs16  SetData;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\' +
        'f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par Normally, Dat' +
        'a is either nil or the TTreeNode which is associated with the TD' +
        'oc object.'#13#10'\par '#13#10'\par If TTreeNode has been assigned to Data b' +
        'y the component, and you later change the value of Data, you mus' +
        't let your application maintain the original TTreeNode, should t' +
        'he TDoc object be deleted, or its title or visibility change.'#13#10'\' +
        'par '#13#10'\par \plain\f5\fs16\b Note\plain\f5\fs16 : If the object h' +
        'eld by Data is a TTreeNode, it is destroyed automatically by the' +
        ' component when the TDoc object is destroyed or turns invisible.' +
        #13#10'\par }'#13#10#0
    end
    item
      Title = 'Deleted'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   property\plain\f3\fs16  Deleted: Boolean \' +
        'plain\f3\fs16\b read\plain\f3\fs16  FDeleted \plain\f3\fs16\b wr' +
        'ite\plain\f3\fs16  SetDeleted;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\pa' +
        'r \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par The ' +
        'Deleted property yields True if the item has been deleted, but i' +
        's waiting for the owning TDocList to end updating before it is a' +
        'ctually destroyed and removed.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Index'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   \plain\f3\fs16  \plain\f3\fs16\b property\' +
        'plain\f3\fs16  Index: Integer \plain\f3\fs16\b read\plain\f3\fs1' +
        '6  GetIndex;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f5\fs16\b' +
        ' Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par Read Index to learn th' +
        'e index of the TDoc object in its owning TDocList wrapper. If th' +
        'e TDoc object does not have an owner, or if it has not been prop' +
        'erly inserted into its owners list of items, Index yields -1.'#13#10'\' +
        'par }'#13#10#0
    end
    item
      Title = 'Level'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   \plain\f3\fs16  \plain\f3\fs16\b property\' +
        'plain\f3\fs16  Level: Integer \plain\f3\fs16\b read\plain\f3\fs1' +
        '6  GetLevel;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f5\fs16\b' +
        ' Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par The Level property yie' +
        'lds the level of the TDoc object in its owning TDocList object. ' +
        'If the TDoc object is a root document, its level is zero. Otherw' +
        'ise Level equals the level of the parent (returned by the GetPar' +
        'ent method) plus one.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Owner'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   \plain\f3\fs16  \plain\f3\fs16\b property\' +
        'plain\f3\fs16  Owner: TDocList \plain\f3\fs16\b read\plain\f3\fs' +
        '16  GetDocList;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f5\fs1' +
        '6\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par The Owner property ' +
        'holds the TDocList which created and maintains the TDoc object.'#13 +
        #10'\par }'#13#10#0
    end
    item
      Title = 'Selected'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   \plain\f3\fs16  \plain\f3\fs16\b property\' +
        'plain\f3\fs16  Selected: Boolean \plain\f3\fs16\b read\plain\f3\' +
        'fs16  GetSelected \plain\f3\fs16\b write \plain\f3\fs16 SetSelec' +
        'ted;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f5\fs16\b Descrip' +
        'tion\plain\f5\fs16 :'#13#10'\par '#13#10'\par The Selected property is true,' +
        ' if and only if the Selected property of the owner equals the TD' +
        'oc object itself.'#13#10'\par '#13#10'\par Set Selected to True to make the ' +
        'document current. Setting Selected to False sets Owner.Selected ' +
        'to nil and Owner.Owner.SelIndex to -1.'#13#10'\par '#13#10'\par Changing the' +
        ' value of Selected always triggers an OnSelection event of the T' +
        'Docs component held by Owner.Owner.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Text'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f5\fs16\b Declaration\plain\f5\fs16 :\plain\f3\fs16 '#13#10'\par \pla' +
        'in\f3\fs16\b '#13#10'\par   \plain\f3\fs16  \plain\f3\fs16\b property\' +
        'plain\f3\fs16  Text: \plain\f3\fs16\b string\plain\f3\fs16  \pla' +
        'in\f3\fs16\b read\plain\f3\fs16  GetAsString \plain\f3\fs16\b wr' +
        'ite\plain\f3\fs16  SetAsString;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\p' +
        'ar \plain\f5\fs16\b Description\plain\f5\fs16 :'#13#10'\par '#13#10'\par The' +
        ' Text property contains the RTF document, i.e. the same informat' +
        'ion as the TextAsStream property.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Public methods'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fc' +
        'harset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\p' +
        'ard\plain\f4\fs32 TDoc public methods\plain\f3\fs16 '#13#10'\par Use t' +
        'he tree view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f5\fs1' +
        '6     \plain\f5\fs16\b constructor\plain\f5\fs16  Create(AOwner:' +
        ' TDocList);'#13#10'\par     \plain\f5\fs16\b destructor\plain\f5\fs16 ' +
        ' Destroy; \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \p' +
        'lain\f5\fs16\b procedure\plain\f5\fs16  Assign(Source: TPersiste' +
        'nt); \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \plain\' +
        'f5\fs16\b procedure\plain\f5\fs16  Change;'#13#10'\par     \plain\f5\f' +
        's16\b procedure\plain\f5\fs16  Delete;'#13#10'\par     \plain\f5\fs16\' +
        'b procedure\plain\f5\fs16  DeleteChildren;'#13#10'\par     \plain\f5\f' +
        's16\b function\plain\f5\fs16  GetParent: TDoc;'#13#10'\par     \plain\' +
        'f5\fs16\b function\plain\f5\fs16  GetFirstChild: TDoc;'#13#10'\par    ' +
        ' \plain\f5\fs16\b function\plain\f5\fs16  GetNamePath: string; \' +
        'plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs1' +
        '6\b function\plain\f5\fs16  GetNextBranch: TDoc;'#13#10'\par     \plai' +
        'n\f5\fs16\b function\plain\f5\fs16  GetNextChild(Item: TDoc): TD' +
        'oc;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  GetNextSi' +
        'bling: TDoc;           '#13#10'\par     \plain\f5\fs16\b function\plai' +
        'n\f5\fs16  GetPrevSibling: TDoc;'#13#10'\par     \plain\f5\fs16\b func' +
        'tion\plain\f5\fs16  HasSubString(\plain\f5\fs16\b const\plain\f5' +
        '\fs16  Value: \plain\f5\fs16\b string\plain\f5\fs16 ): Boolean; ' +
        '\plain\f3\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab72' +
        '0{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbo' +
        'l;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Ar' +
        'ial;}{\f4\fswiss\fcharset1 Arial Black;}{\f5\fmodern\fcharset1 C' +
        'ourier New;}{\f6\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\gree' +
        'n0\blue0;}'#13#10'\deflang1053\pard\plain\f4\fs32 TDoc public methods{' +
        '\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sa' +
        'ns Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS' +
        ' Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1 ' +
        'Arial Black;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fch' +
        'arset1 Arial;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pa' +
        'rd\plain\f4\fs32 TDoc public methods\plain\f3\fs16 '#13#10'\par Use th' +
        'e tree view on the left to navigate.'#13#10'\par '#13#10'\par \plain\f5\fs16' +
        '     \plain\f5\fs16\b constructor\plain\f5\fs16  Create(AOwner: ' +
        'TDocList);'#13#10'\par     \plain\f5\fs16\b destructor\plain\f5\fs16  ' +
        'Destroy; \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \pl' +
        'ain\f5\fs16\b procedure\plain\f5\fs16  Assign(Source: TPersisten' +
        't); \plain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \plain\f' +
        '5\fs16\b procedure\plain\f5\fs16  Change;'#13#10'\par     \plain\f5\fs' +
        '16\b procedure\plain\f5\fs16  Delete;'#13#10'\par     \plain\f5\fs16\b' +
        ' procedure\plain\f5\fs16  DeleteChildren;'#13#10'\par     \plain\f5\fs' +
        '16\b function\plain\f5\fs16  GetParent: TDoc;'#13#10'\par     \plain\f' +
        '5\fs16\b function\plain\f5\fs16  GetFirstChild: TDoc;'#13#10'\par     ' +
        '\plain\f5\fs16\b function\plain\f5\fs16  GetNamePath: string; \p' +
        'lain\f5\fs16\b override\plain\f5\fs16 ;'#13#10'\par     \plain\f5\fs16' +
        '\b function\plain\f5\fs16  GetNextBranch: TDoc;'#13#10'\par     \plain' +
        '\f5\fs16\b function\plain\f5\fs16  GetNextChild(Item: TDoc): TDo' +
        'c;'#13#10'\par     \plain\f5\fs16\b function\plain\f5\fs16  GetNextSib' +
        'ling: TDoc;           '#13#10'\par     \plain\f5\fs16\b function\plain' +
        '\f5\fs16  GetPrevSibling: TDoc;'#13#10'\par     \plain\f5\fs16\b funct' +
        'ion\plain\f5\fs16  HasSubString(\plain\f5\fs16\b const\plain\f5\' +
        'fs16  Value: \plain\f5\fs16\b string\plain\f5\fs16 ): Boolean; \' +
        'plain\f3\fs16 '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Create'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   constructor\p' +
        'lain\f5\fs16  Create(\plain\f5\fs16\b const\plain\f5\fs16  AOwne' +
        'r: IOwnerObject);'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\f' +
        's16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par See the VCL onlin' +
        'e help for a description of constructors.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Destroy'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   destructor\pl' +
        'ain\f5\fs16  Destroy; \plain\f5\fs16\b override\plain\f5\fs16 ;'#13 +
        #10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\' +
        'plain\f3\fs16 :'#13#10'\par '#13#10'\par See the VCL online help for a descr' +
        'iption of destructors.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Assign'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  Assign(Source: TPersistent); \plain\f5\fs16\b overri' +
        'de\plain\f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\' +
        'fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The Assign metho' +
        'ds of TDoc implements assignment from another TDoc object. If So' +
        'urce is not TDoc, the inherited Assign method of class TPersiste' +
        'nt is called, which in turn calls Source.AssignTo(Self).'#13#10'\par }' +
        #13#10#0
    end
    item
      Title = 'Change'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  Change;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3' +
        '\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The Change meth' +
        'od calls the protected DoChange method which triggers an OnChang' +
        'e event of Owner.Owner.'#13#10'\par '#13#10'\par The DoChange method is call' +
        'ed automatically by all property setters of TDoc. However, some ' +
        'properties (e.g. TextAsStream) hold objects which can be modifie' +
        'd without invoking the related property setter. Call Change afte' +
        'r making such modifications.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Delete'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  Delete;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3' +
        '\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call Delete to ' +
        'remove the TDoc object and all of its children from the list of ' +
        'items of the owning TDocList object.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'DeleteChildren'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   procedure\pla' +
        'in\f5\fs16  DeleteChildren;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \' +
        'plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Call De' +
        'leteChildren to remove all children of the TDoc object from the ' +
        'list of items of the owning TDocList object.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetParent'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetParent: TDoc;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \' +
        'plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The Get' +
        'Parent method returns the first TDoc object, counted backwards, ' +
        'with a lower level than the calling TDoc object.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetFirstChild'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetFirstChild: TDoc;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\p' +
        'ar \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The' +
        ' GetFirstChild method returns the first child, if any, of the ca' +
        'lling TDoc object. The return value of GetFirstChild equals Owne' +
        'r[Index+1] if this object has a higher level than the calling TD' +
        'oc object, otherwise GetFirstChild returns nil.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetNamePath'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetNamePath: string; \plain\f5\fs16\b override\plain\' +
        'f5\fs16 ;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b De' +
        'scription\plain\f3\fs16 :'#13#10'\par '#13#10'\par See the VCL online help f' +
        'or a description of TPersistent.GetNamePath.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetNextBranch'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetNextBranch: TDoc;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\p' +
        'ar \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par The' +
        ' GetNextBranch method returns the first succeding TDoc object wi' +
        'th a level equal to or smaller than the calling TDoc object. If ' +
        'the GetNextSibling method returns a non nil value, GetNextBranch' +
        ' equals GetNextSibling.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetNextChild'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetNextChild(Item: TDoc): TDoc;'#13#10'\par \plain\f3\fs16 ' +
        #13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par' +
        ' '#13#10'\par The GetNextChild method returns the first child of the c' +
        'alling TDoc object which has the same level as and succeds Items' +
        '.'#13#10'\par '#13#10'\par If GetNextChild(Item) is equivalent to Item.GetNe' +
        'xtSibling, except that GetNextChild returns nil if Item is not a' +
        ' child of the calling TDoc object.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetNextSibling'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetNextSibling: TDoc;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\' +
        'par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Th' +
        'e GetNextSibling method returns the first succeding TDoc object ' +
        'which has the same level and parent as the calling TDoc object. ' +
        'If no such object exists, the method returns nil.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'GetPrevSibling'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  GetPrevSibling: TDoc;'#13#10'\par \plain\f3\fs16 '#13#10'\par '#13#10'\' +
        'par \plain\f3\fs16\b Description\plain\f3\fs16 :'#13#10'\par '#13#10'\par Th' +
        'e GetPrevSibling method returns the first preceding TDoc object ' +
        'which has the same level and parent as the calling TDoc object. ' +
        'If no such object exists, the method returns nil.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'HasSubstring'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fprq2 Sys' +
        'tem;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fnil\fcharset1 Def' +
        'ault;}{\f7\fswiss\fcharset1 Arial;}}'#13#10'{\colortbl\red0\green0\blu' +
        'e0;}'#13#10'\deflang1053\pard\plain\f3\fs16\b Declaration\plain\f3\fs1' +
        '6 :\plain\f5\fs16 '#13#10'\par \plain\f5\fs16\b '#13#10'\par   function\plai' +
        'n\f5\fs16  HasSubString(\plain\f5\fs16\b const\plain\f5\fs16  Va' +
        'lue: \plain\f5\fs16\b string\plain\f5\fs16 ): Boolean; '#13#10'\par \p' +
        'lain\f3\fs16 '#13#10'\par '#13#10'\par \plain\f3\fs16\b Description\plain\f3' +
        '\fs16 :'#13#10'\par '#13#10'\par The HasSubString method returns True if the' +
        ' substring represented by value is found in the plain text of th' +
        'e RTF document.'#13#10'\par '#13#10'\par HasSubString searches using a case ' +
        'insensitive partial comparison.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Protected methods'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fmodern\fcharset1 Courier New;}{\f4\fswiss\fc' +
        'harset1 Arial;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset' +
        '1 Arial Black;}{\f7\fswiss\fprq2 System;}{\f8\fnil\fcharset1 Def' +
        'ault;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f6\fs32 TDoc protected methods\plain\f5\fs16 '#13#10'\par Use the tre' +
        'e view on the left to navigate.'#13#10'\par \plain\f3\fs16 '#13#10'\par     ' +
        '\plain\f3\fs16\b function\plain\f3\fs16  CheckDelete: Boolean;'#13#10 +
        '\par     \plain\f3\fs16\b procedure\plain\f3\fs16  DoChange;'#13#10'\p' +
        'ar     \plain\f3\fs16\b procedure\plain\f3\fs16  DoSelected; '#13#10'\' +
        'par     \plain\f3\fs16\b function\plain\f3\fs16  GetDocList: TDo' +
        'cList;\plain\f5\fs16 '#13#10'\par '#13#10'\par '#13#10'\par }'#13#10#0
    end
    item
      Title = 'CheckDelete'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
    end
    item
      Title = 'DoChange'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
    end
    item
      Title = 'DoSelected'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
    end
    item
      Title = 'GetDocList'
      Level = 3
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
    end
    item
      Title = 'Macro.pas unit'
      ImageIndex = 5
      MacroBack = <>
      MacroDemo = <
        item
          Cmd = mcNotify
          Notify = 'TreeView1Click'
        end>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fnil\fchar' +
        'set1 Default;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1' +
        ' Arial;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs32 Macro.pas Unit\plain\f4\fs16 '#13#10'\par \plain\f6\fs16 This' +
        ' unit contains the declaration and implementation of the Macros ' +
        'used by the TDocs component, as well as the declaration and impl' +
        'ementation of some related classes and subclasses.'#13#10'\par '#13#10'\par ' +
        'Subclasses to TDocs:'#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf' +
        '1\pnindent200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}TM' +
        'acro'#13#10'\par {\pntext\f1\'#39'b7\tab}TMacroItem'#13#10'\par \pard\plain\f6\f' +
        's16 '#13#10'\par Filer support classes (internal use only):'#13#10'\par \par' +
        'd\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\pla' +
        'in\f6\fs16 {\pntext\f1\'#39'b7\tab}TFilerMacro'#13#10'\par {\pntext\f1\'#39'b7' +
        '\tab}TFilerMacroItem'#13#10'\par \pard\plain\f6\fs16 '#13#10'\par Base class' +
        'es (internal use only):'#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\' +
        'pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab' +
        '}TCustomMacro'#13#10'\par \pard\plain\f6\fs16 '#13#10'\par Exceptions:'#13#10'\par' +
        ' \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}' +
        '}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}EInvalidArgument'#13#10'\par \pard' +
        '\plain\f6\fs16 '#13#10'\par }'#13#10#0'{\rtf1\ansi\ansicpg1252\deff0\deftab72' +
        '0{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbo' +
        'l;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss\fcharset1 Ar' +
        'ial Black;}{\f4\fnil\fcharset1 Default;}{\f5\fswiss\fcharset1 Ar' +
        'ial;}{\f6\fswiss\fcharset1 Arial;}{\f7\fmodern\fcharset1 Courier' +
        ' New;}{\f8\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\green0\blue0;' +
        '}'#13#10'\deflang1053\pard\plain\f3\fs32 Macro.pas Unit\plain\f4\fs16 ' +
        #13#10'\par \plain\f6\fs16 This unit contains the declaration and imp' +
        'lementation of the Macros used by the TDocs component, as well a' +
        's the declaration and implementation of some related classes and' +
        ' subclasses.'#13#10'\par '#13#10'\par Subclasses to TDocs:'#13#10'\par \pard\li200' +
        '\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f6\f' +
        's16 {\pntext\f1\'#39'b7\tab}TMacro'#13#10'\par {\pntext\f1\'#39'b7\tab}TMacroI' +
        'tem'#13#10'\par \pard\plain\f6\fs16 '#13#10'\par Filer support classes (inte' +
        'rnal use only):'#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pni' +
        'ndent200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}TFilerM' +
        'acro'#13#10'\par {\pntext\f1\'#39'b7\tab}TFilerMacroItem'#13#10'\par \pard\plain' +
        '\f6\fs16 '#13#10'\par Base classes (internal use only):'#13#10'\par \pard\li' +
        '200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb\'#39'b7}}\plain\f' +
        '6\fs16 {\pntext\f1\'#39'b7\tab}TCustomMacro'#13#10'\par \pard\plain\f6\fs1' +
        '6 '#13#10'\par Exceptions:'#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf' +
        '1\pnindent200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}EI' +
        'nvalidArgument'#13#10'\par \pard\plain\f6\fs16 '#13#10'\par }'#13#10#0
      StateIndex = 0
    end
    item
      Title = 'TMacroItem class'
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fnil\fchar' +
        'set1 Default;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1' +
        ' Arial;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f3\fs32 TMacroItem class\plain\f4\fs16 '#13#10'\par \plain\f6\fs16 Th' +
        'e TMacroItem class defines a single macro command.'#13#10'\par '#13#10'\par ' +
        'Declaration:'#13#10'\par '#13#10'\par   \plain\f7\fs16 TMacroItem = \plain\f' +
        '7\fs16\b class\plain\f7\fs16 (TOwnedObjectCollectionItem)\plain\' +
        'f6\fs16 '#13#10'\par '#13#10'\par Published properties:'#13#10'\par '#13#10'\par \plain\' +
        'f7\fs16     \plain\f7\fs16\b property\plain\f7\fs16  Cmd: TMacro' +
        'Cmd \plain\f7\fs16\b read\plain\f7\fs16  FCmd \plain\f7\fs16\b w' +
        'rite\plain\f7\fs16  SetCmd;'#13#10'\par     \plain\f7\fs16\b property\' +
        'plain\f7\fs16  Control: TComponentContainer \plain\f7\fs16\b rea' +
        'd\plain\f7\fs16  FControl'#13#10'\par                                 ' +
        '          \plain\f7\fs16\b write\plain\f7\fs16  SetControl \plai' +
        'n\f7\fs16\b stored\plain\f7\fs16  False;'#13#10'\par     \plain\f7\fs1' +
        '6\b property\plain\f7\fs16  mSeconds: Cardinal \plain\f7\fs16\b ' +
        'read\plain\f7\fs16  FmSeconds'#13#10'\par                             ' +
        '    \plain\f7\fs16\b write\plain\f7\fs16  SetmSeconds;'#13#10'\par    ' +
        ' \plain\f7\fs16\b property\plain\f7\fs16  Method: TExecuteContai' +
        'ner \plain\f7\fs16\b read\plain\f7\fs16  FExecute'#13#10'\par         ' +
        '                               \plain\f7\fs16\b write\plain\f7\f' +
        's16  SetExecute; '#13#10'\par     \plain\f7\fs16\b property\plain\f7\f' +
        's16  Point: TComponentContainer \plain\f7\fs16\b read\plain\f7\f' +
        's16  FPoint \plain\f7\fs16\b write\plain\f7\fs16  FPoint;'#13#10'\par ' +
        '    \plain\f7\fs16\b property\plain\f7\fs16  SelectDocIndex: Int' +
        'eger \plain\f7\fs16\b read\plain\f7\fs16  FSelectDocIndex'#13#10'\par ' +
        '                                     \plain\f7\fs16\b write\plai' +
        'n\f7\fs16  SetSelectDocIndex;'#13#10'\par     \plain\f7\fs16\b propert' +
        'y\plain\f7\fs16  Notify: TNotifyContainer \plain\f7\fs16\b read\' +
        'plain\f7\fs16  FNotify \plain\f7\fs16\b write\plain\f7\fs16  Set' +
        'Notify;\plain\f6\fs16 '#13#10'\par '#13#10'\par Public properties:  '#13#10'\par \' +
        'plain\f7\fs16 '#13#10'\par     \plain\f7\fs16\b property\plain\f7\fs16' +
        '  MaxDocIndex: Integer \plain\f7\fs16\b read\plain\f7\fs16  GetM' +
        'axDocIndex; \plain\f6\fs16 '#13#10'\par '#13#10'\par Public methods:'#13#10'\par '#13 +
        #10'\par \plain\f7\fs16     \plain\f7\fs16\b constructor\plain\f7\f' +
        's16  Create(Collection: TCollection); \plain\f7\fs16\b override\' +
        'plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b destructor\plain\f7\f' +
        's16  Destroy; \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par   ' +
        '  \plain\f7\fs16\b function\plain\f7\fs16  ControlStored: Boolea' +
        'n; \plain\f7\fs16\b virtual\plain\f7\fs16 ;'#13#10'\par     \plain\f7\' +
        'fs16\b function\plain\f7\fs16  Execute: Boolean; \plain\f7\fs16\' +
        'b virtual\plain\f7\fs16 ; '#13#10'\par     \plain\f7\fs16\b function\p' +
        'lain\f7\fs16  GetMaxDocIndex: Integer; \plain\f7\fs16\b virtual\' +
        'plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b function\plain\f7\fs1' +
        '6  mSecondsStored: Boolean; \plain\f7\fs16\b virtual\plain\f7\fs' +
        '16 ;'#13#10'\par     \plain\f7\fs16\b function\plain\f7\fs16  PointSto' +
        'red: Boolean; \plain\f7\fs16\b virtual\plain\f7\fs16 ;'#13#10'\par    ' +
        ' \plain\f7\fs16\b function\plain\f7\fs16  SelDocIndexStored: Boo' +
        'lean; \plain\f7\fs16\b virtual\plain\f7\fs16 ; '#13#10'\par \plain\f6\' +
        'fs16 '#13#10'\par Protected methods:'#13#10'\par \plain\f7\fs16    '#13#10'\par   ' +
        '  \plain\f7\fs16\b procedure\plain\f7\fs16  AssignTo(Dest: TPers' +
        'istent); \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par     \pl' +
        'ain\f7\fs16\b procedure\plain\f7\fs16  DoExecute; \plain\f7\fs16' +
        '\b virtual\plain\f7\fs16 ;'#13#10'\par     \plain\f7\fs16\b function\p' +
        'lain\f7\fs16  GetDisplayName: \plain\f7\fs16\b string\plain\f7\f' +
        's16 ; \plain\f7\fs16\b override\plain\f7\fs16 ;'#13#10'\par     \plain' +
        '\f7\fs16\b procedure\plain\f7\fs16  MouseToPoint(Q: TDesignPoint' +
        ');\plain\f6\fs16 '#13#10'\par '#13#10'\par '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Cmd'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   type \plain\f5\fs16 TMacroCmd = (mcNotify,' +
        'mcExecute,mcSelect,mcMouseToControl,mcMouseToPoint,'#13#10'\par       ' +
        '              mcMouseDown,mcMouseUp,mcSleep,mcRepaint);\plain\f5' +
        '\fs16\b '#13#10'\par   property\plain\f5\fs16  Cmd: TMacroCmd \plain\f' +
        '5\fs16\b read\plain\f5\fs16  FCmd \plain\f5\fs16\b write\plain\f' +
        '5\fs16  SetCmd;\plain\f4\fs16 '#13#10'\par '#13#10'\par '#13#10'\par \plain\f4\fs1' +
        '6\b Description\plain\f4\fs16 :'#13#10'\par '#13#10'\par The Cmd property re' +
        'presents the command the TMacroItem object will execute.'#13#10'\par '#13 +
        #10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent200{\pntxtb' +
        '\'#39'b7}}\plain\f4\fs16 {\pntext\f1\'#39'b7\tab}mcNotify:\tab \tab The ' +
        'TNotifyEvent method specified by the Notify property is called w' +
        'ith the calling TMacroItem object as Sender.'#13#10'\par {\pntext\f1\'#39 +
        'b7\tab}mcExecute:\tab \tab The parameterless method specified by' +
        ' the Method property is called.'#13#10'\par {\pntext\f1\'#39'b7\tab}mcSele' +
        'ct:\tab \tab The TDoc object corresponding to the value of the S' +
        'electDocIndex property is selected.'#13#10'\par {\pntext\f1\'#39'b7\tab}mc' +
        'MouseToControl:\tab The mouse cursor is moved to the center of t' +
        'he control represented by the Control property.'#13#10'\par {\pntext\f' +
        '1\'#39'b7\tab}mcMouseToPoint:\tab The mouse cursor is moved to the t' +
        'op left of the TDesignPoint component specified by the Point pro' +
        'perty, with a speed corresponding to the value of the SleepPerPi' +
        'xel property of the TDesignPoint component.'#13#10'\par {\pntext\f1\'#39'b' +
        '7\tab}mcMouseDown:\tab \tab The Dispatch method of the specified' +
        ' control is called with a WM_LBUTTONDOWN message at the current ' +
        'screen coordinates of the mouse cursor.'#13#10'\par {\pntext\f1\'#39'b7\ta' +
        'b}mcMouseUp:\tab \tab The Dispatch method of the specified contr' +
        'ol is called with a WM_LBUTTONUP message at the current screen c' +
        'oordinates of the mouse cursor.'#13#10'\par {\pntext\f1\'#39'b7\tab}mcSlee' +
        'p:\tab \tab The Sleep procedure is called with an argument equal' +
        ' to the value of the mSeconds property.'#13#10'\par {\pntext\f1\'#39'b7\ta' +
        'b}mcRepaint:\tab \tab The Repaint method of the specified contro' +
        'l is called.\tab '#13#10'\par \pard\fi2280\plain\f4\fs16  '#13#10'\par }'#13#10#0
    end
    item
      Title = 'Control'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  Control: TComponen' +
        'tContainer \plain\f5\fs16\b read\plain\f5\fs16  FControl'#13#10'\par  ' +
        '                                         \plain\f5\fs16\b write\' +
        'plain\f5\fs16  SetControl \plain\f5\fs16\b stored\plain\f5\fs16 ' +
        ' False;\plain\f4\fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Description' +
        '\plain\f4\fs16 :'#13#10'\par '#13#10'\par The value of this property is igno' +
        'red unless Cmd equals mcMouseToControl, mcMouseDown, mcMouseUp o' +
        'r mcRepaint.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'mSeconds'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  mSeconds: Cardinal' +
        ' \plain\f5\fs16\b read\plain\f5\fs16  FmSeconds'#13#10'\par           ' +
        '                      \plain\f5\fs16\b write\plain\f5\fs16  Setm' +
        'Seconds;\plain\f4\fs16 '#13#10'\par '#13#10'\par \plain\f4\fs16\b Descriptio' +
        'n\plain\f4\fs16 :'#13#10'\par '#13#10'\par The value of the mSeconds propert' +
        'y is ignored unless Cmd equals msSleep. Set mSeconds to specify ' +
        'the interval in milliseconds the application should sleep before' +
        ' resuming execution.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Method'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  Method: TExecuteCo' +
        'ntainer \plain\f5\fs16\b read\plain\f5\fs16  FExecute'#13#10'\par     ' +
        '                                   \plain\f5\fs16\b write\plain\' +
        'f5\fs16  SetExecute;\plain\f4\fs16 '#13#10'\par \plain\f4\fs16\b Descr' +
        'iption\plain\f4\fs16 :'#13#10'\par '#13#10'\par The value of this property i' +
        's ignored unless Cmd equals mcExecute.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Point'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  Point: TComponentC' +
        'ontainer \plain\f5\fs16\b read\plain\f5\fs16  FPoint \plain\f5\f' +
        's16\b write\plain\f5\fs16  FPoint;'#13#10'\par \plain\f4\fs16 '#13#10'\par \' +
        'plain\f4\fs16\b Description\plain\f4\fs16 :'#13#10'\par '#13#10'\par The val' +
        'ue of this property is ignored unless Cmd equals mcMouseToPoint.' +
        #13#10'\par '#13#10'\par Use mcMouseToPoint instead of mcMouseToControl if ' +
        'you need more precise control over the speed or the destination ' +
        'of the mouse cursor. When mcMouseToPoint is executed, the mouse ' +
        'cursor moves at a speed corresponding to a SleepPerPixel value o' +
        'f 5.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'SelectDocIndex'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  SelectDocIndex: In' +
        'teger \plain\f5\fs16\b read\plain\f5\fs16  FSelectDocIndex'#13#10'\par' +
        '                                      \plain\f5\fs16\b write\pla' +
        'in\f5\fs16  SetSelectDocIndex;'#13#10'\par \plain\f4\fs16 '#13#10'\par \plai' +
        'n\f4\fs16\b Description\plain\f4\fs16 :'#13#10'\par '#13#10'\par The value o' +
        'f this property is ignored unless Cmd equals mcSelect. If Select' +
        'DocIndex is set to a value in the inclusive interval 0..MaxDocIn' +
        'dex, the corresponding TDoc object is selected.'#13#10'\par }'#13#10#0
    end
    item
      Title = 'Notify'
      Level = 2
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss\fcharset1' +
        ' Arial;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs16\b Declaration\plain\f4\fs16 :\plain\f5\fs16 '#13#10'\par \pla' +
        'in\f5\fs16\b '#13#10'\par   property\plain\f5\fs16  Notify: TNotifyCon' +
        'tainer \plain\f5\fs16\b read\plain\f5\fs16  FNotify \plain\f5\fs' +
        '16\b write\plain\f5\fs16  SetNotify;'#13#10'\par \plain\f4\fs16 '#13#10'\par' +
        ' \plain\f4\fs16\b Description\plain\f4\fs16 :'#13#10'\par '#13#10'\par The v' +
        'alue of this property is ignored unless Cmd equals mcNotify.'#13#10'\p' +
        'ar }'#13#10#0
    end
    item
      Title = 'TMacro, TCustomMacro'
      Level = 1
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fnil\fcharset1 Default;}{\f4\fswiss\fcharset1' +
        ' Arial Black;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1' +
        ' Arial;}{\f7\fmodern\fcharset1 Courier New;}{\f8\fswiss\fprq2 Sy' +
        'stem;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\deflang1053\pard\plain' +
        '\f4\fs32 TMacro, TCustomMacro classes\plain\f3\fs16 '#13#10'\par \plai' +
        'n\f6\fs16 The TMacro and TCustomMacro classes are containers for' +
        ' executable TDoc macros.'#13#10'\par '#13#10'\par \plain\f6\fs16\b Declarati' +
        'on\plain\f6\fs16 :'#13#10'\par '#13#10'\par   \plain\f7\fs16 TCustomMacro = ' +
        '\plain\f7\fs16\b class\plain\f7\fs16 (TOwnedObjectCollection)'#13#10'\' +
        'par  TMacro = \plain\f7\fs16\b class\plain\f7\fs16 (TCustomMacro' +
        ')\plain\f6\fs16 '#13#10'\par '#13#10'\par \plain\f6\fs16\b Description\plain' +
        '\f6\fs16 :'#13#10'\par '#13#10'\par The class TOwnedObjectCollection differs' +
        ' from the VCL class TOwnedCollection, only in that it implements' +
        ' the IUnkown and IOwnerObject interfaces.'#13#10'\par '#13#10'\par TCustomMa' +
        'cro reintroduces the Add method and the Items property to lock t' +
        'hem to the TMacroItem class. TMacro also locks the constructor t' +
        'o this class.'#13#10'\par '#13#10'\par Call the Execute method defined in TC' +
        'ustomMacro to execute the macro represented by the collection. T' +
        'he TMacroItem objects are executed in order. If a TMacroItem obj' +
        'ect is not properly specified, an EIllegalArgument is raised.'#13#10'\' +
        'par }'#13#10#0
    end
    item
      Title = 'DesignPoint.pas unit'
      ImageIndex = 5
      MacroBack = <>
      MacroDemo = <>
      MacroNext = <>
      MacroPrev = <>
      RTF = 
        '{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS S' +
        'ans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 M' +
        'S Sans Serif;}{\f3\fswiss\fcharset1 Arial Black;}{\f4\fnil\fchar' +
        'set1 Default;}{\f5\fswiss\fcharset1 Arial;}{\f6\fswiss\fcharset1' +
        ' Arial;}{\f7\fswiss\fprq2 System;}}'#13#10'{\colortbl\red0\green0\blue' +
        '0;}'#13#10'\deflang1053\pard\plain\f3\fs32 DesignPoint.pas Unit\plain\' +
        'f4\fs16 '#13#10'\par \plain\f6\fs16 This unit contains the declaration' +
        ' and implementation of TDesignPoint component, which is used to ' +
        'define mouse cursor movement in macros.'#13#10'\par '#13#10'\par Registred c' +
        'omponents:'#13#10'\par \pard\li200\fi-200{\*\pn\pnlvlblt\pnf1\pnindent' +
        '200{\pntxtb\'#39'b7}}\plain\f6\fs16 {\pntext\f1\'#39'b7\tab}TDesignPoint' +
        #13#10'\par }'#13#10#0
    end>
  Selected = 0
end
