docs.txt
来自「Rich Text Format (.RTF) 格式資料的非視覺化元件」· 文本 代码 · 共 1,032 行 · 第 1/5 页
TXT
1,032 行
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\' +
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?