docs.txt

来自「Rich Text Format (.RTF) 格式資料的非視覺化元件」· 文本 代码 · 共 1,032 行 · 第 1/5 页

        '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' +