www.pudn.com > RichEdit3.rar > tom_TLB.pas
unit tom_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.88.1.0.1.0 $
// File generated on 2000-12-14 17:57:41 from Type Library described below.
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
// ************************************************************************ //
// Type Lib: C:\WINNT\system32\riched20.dll (1)
// IID\LCID: {8CC497C9-A1DF-11CE-8098-00AA0047BE5D}\0
// Helpfile:
// DepndLst:
// (1) v1.0 stdole, (C:\WINNT\System32\stdole32.tlb)
// (2) v1.0 StdVCL, (C:\WINNT\System32\STDVCL32.DLL)
// Errors:
// Hint: Member 'End' of 'ITextRange' changed to 'End_'
// Hint: Parameter 'Unit' of ITextRange.Expand changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.GetIndex changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.SetIndex changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.StartOf changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.EndOf changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.Move changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.MoveStart changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.MoveEnd changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextRange.Delete changed to 'Unit_'
// Hint: Parameter 'Type' of ITextRange.ChangeCase changed to 'Type_'
// Hint: Parameter 'Type' of ITextRange.GetPoint changed to 'Type_'
// Hint: Parameter 'Type' of ITextRange.SetPoint changed to 'Type_'
// Hint: Member 'Type' of 'ITextSelection' changed to 'Type_'
// Hint: Parameter 'Unit' of ITextSelection.MoveLeft changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextSelection.MoveRight changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextSelection.MoveUp changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextSelection.MoveDown changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextSelection.HomeKey changed to 'Unit_'
// Hint: Parameter 'Unit' of ITextSelection.EndKey changed to 'Unit_'
// Hint: Member 'Protected' of 'ITextFont' changed to 'Protected_'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
interface
uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
tomMajorVersion = 1;
tomMinorVersion = 0;
LIBID_tom: TGUID = '{8CC497C9-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextDocument: TGUID = '{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextRange: TGUID = '{8CC497C2-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextSelection: TGUID = '{8CC497C1-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextFont: TGUID = '{8CC497C3-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextPara: TGUID = '{8CC497C4-A1DF-11CE-8098-00AA0047BE5D}';
IID_ITextStoryRanges: TGUID = '{8CC497C5-A1DF-11CE-8098-00AA0047BE5D}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum tomConstants
type
tomConstants = TOleEnum;
const
tomFalse = $00000000;
tomTrue = $FFFFFFFF;
tomUndefined = $FF676981;
tomToggle = $FF676982;
tomAutoColor = $FF676983;
tomDefault = $FF676984;
tomBackward = $C0000001;
tomForward = $3FFFFFFF;
tomMove = $00000000;
tomExtend = $00000001;
tomNoSelection = $00000000;
tomSelectionIP = $00000001;
tomSelectionNormal = $00000002;
tomSelectionFrame = $00000003;
tomSelectionColumn = $00000004;
tomSelectionRow = $00000005;
tomSelectionBlock = $00000006;
tomSelectionInlineShape = $00000007;
tomSelectionShape = $00000008;
tomSelStartActive = $00000001;
tomSelAtEOL = $00000002;
tomSelOvertype = $00000004;
tomSelActive = $00000008;
tomSelReplace = $00000010;
tomEnd = $00000000;
tomStart = $00000020;
tomCollapseEnd = $00000000;
tomCollapseStart = $00000001;
tomNone = $00000000;
tomSingle = $00000001;
tomWords = $00000002;
tomDouble = $00000003;
tomDotted = $00000004;
tomLineSpaceSingle = $00000000;
tomLineSpace1pt5 = $00000001;
tomLineSpaceDouble = $00000002;
tomLineSpaceAtLeast = $00000003;
tomLineSpaceExactly = $00000004;
tomLineSpaceMultiple = $00000005;
tomAlignLeft = $00000000;
tomAlignCenter = $00000001;
tomAlignRight = $00000002;
tomAlignJustify = $00000003;
tomAlignDecimal = $00000003;
tomAlignBar = $00000004;
tomSpaces = $00000000;
tomDots = $00000001;
tomDashes = $00000002;
tomLines = $00000003;
tomTabBack = $FFFFFFFD;
tomTabNext = $FFFFFFFE;
tomTabHere = $FFFFFFFF;
tomListNone = $00000000;
tomListBullet = $00000001;
tomListNumberAsArabic = $00000002;
tomListNumberAsLCLetter = $00000003;
tomListNumberAsUCLetter = $00000004;
tomListNumberAsLCRoman = $00000005;
tomListNumberAsUCRoman = $00000006;
tomListNumberAsSequence = $00000007;
tomListParentheses = $00010000;
tomListPeriod = $00020000;
tomListPlain = $00030000;
tomCharacter = $00000001;
tomWord = $00000002;
tomSentence = $00000003;
tomParagraph = $00000004;
tomLine = $00000005;
tomStory = $00000006;
tomScreen = $00000007;
tomSection = $00000008;
tomColumn = $00000009;
tomRow = $0000000A;
tomWindow = $0000000B;
tomCell = $0000000C;
tomCharFormat = $0000000D;
tomParaFormat = $0000000E;
tomTable = $0000000F;
tomObject = $00000010;
tomMatchWord = $00000002;
tomMatchCase = $00000004;
tomMatchPattern = $00000008;
tomUnknownStory = $00000000;
tomMainTextStory = $00000001;
tomFootnotesStory = $00000002;
tomEndnotesStory = $00000003;
tomCommentsStory = $00000004;
tomTextFrameStory = $00000005;
tomEvenPagesHeaderStory = $00000006;
tomPrimaryHeaderStory = $00000007;
tomEvenPagesFooterStory = $00000008;
tomPrimaryFooterStory = $00000009;
tomFirstPageHeaderStory = $0000000A;
tomFirstPageFooterStory = $0000000B;
tomNoAnimation = $00000000;
tomLasVegasLights = $00000001;
tomBlinkingBackground = $00000002;
tomSparkleText = $00000003;
tomMarchingBlackAnts = $00000004;
tomMarchingRedAnts = $00000005;
tomShimmer = $00000006;
tomWipeDown = $00000007;
tomWipeRight = $00000008;
tomAnimationMax = $00000008;
tomLowerCase = $00000000;
tomUpperCase = $00000001;
tomTitleCase = $00000002;
tomSentenceCase = $00000004;
tomToggleCase = $00000005;
tomReadOnly = $00000100;
tomShareDenyRead = $00000200;
tomShareDenyWrite = $00000400;
tomPasteFile = $00001000;
tomCreateNew = $00000010;
tomCreateAlways = $00000020;
tomOpenExisting = $00000030;
tomOpenAlways = $00000040;
tomTruncateExisting = $00000050;
tomRTF = $00000001;
tomText = $00000002;
tomHTML = $00000003;
tomWordDocument = $00000004;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
ITextDocument = interface;
ITextDocumentDisp = dispinterface;
ITextRange = interface;
ITextRangeDisp = dispinterface;
ITextSelection = interface;
ITextSelectionDisp = dispinterface;
ITextFont = interface;
ITextFontDisp = dispinterface;
ITextPara = interface;
ITextParaDisp = dispinterface;
ITextStoryRanges = interface;
ITextStoryRangesDisp = dispinterface;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
POleVariant1 = ^OleVariant; {*}
// *********************************************************************//
// Interface: ITextDocument
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C0-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextDocument = interface(IDispatch)
['{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Name: WideString; safecall;
function Get_Selection: ITextSelection; safecall;
function Get_StoryCount: Integer; safecall;
function Get_StoryRanges: ITextStoryRanges; safecall;
function Get_Saved: Integer; safecall;
procedure Set_Saved(pValue: Integer); safecall;
function Get_DefaultTabStop: Single; safecall;
procedure Set_DefaultTabStop(pValue: Single); safecall;
procedure New; safecall;
procedure Open(var pVar: OleVariant; Flags: Integer; CodePage: Integer); safecall;
procedure Save(var pVar: OleVariant; Flags: Integer; CodePage: Integer); safecall;
function Freeze: Integer; safecall;
function Unfreeze: Integer; safecall;
procedure BeginEditCollection; safecall;
procedure EndEditCollection; safecall;
function Undo(Count: Integer): Integer; safecall;
function Redo(Count: Integer): Integer; safecall;
function Range(cp1: Integer; cp2: Integer): ITextRange; safecall;
function RangeFromPoint(x: Integer; y: Integer): ITextRange; safecall;
property Name: WideString read Get_Name;
property Selection: ITextSelection read Get_Selection;
property StoryCount: Integer read Get_StoryCount;
property StoryRanges: ITextStoryRanges read Get_StoryRanges;
property Saved: Integer read Get_Saved write Set_Saved;
property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
end;
// *********************************************************************//
// DispIntf: ITextDocumentDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C0-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextDocumentDisp = dispinterface
['{8CC497C0-A1DF-11CE-8098-00AA0047BE5D}']
property Name: WideString readonly dispid 0;
property Selection: ITextSelection readonly dispid 1;
property StoryCount: Integer readonly dispid 2;
property StoryRanges: ITextStoryRanges readonly dispid 3;
property Saved: Integer dispid 4;
property DefaultTabStop: Single dispid 5;
procedure New; dispid 6;
procedure Open(var pVar: OleVariant; Flags: Integer; CodePage: Integer); dispid 7;
procedure Save(var pVar: OleVariant; Flags: Integer; CodePage: Integer); dispid 8;
function Freeze: Integer; dispid 9;
function Unfreeze: Integer; dispid 10;
procedure BeginEditCollection; dispid 11;
procedure EndEditCollection; dispid 12;
function Undo(Count: Integer): Integer; dispid 13;
function Redo(Count: Integer): Integer; dispid 14;
function Range(cp1: Integer; cp2: Integer): ITextRange; dispid 15;
function RangeFromPoint(x: Integer; y: Integer): ITextRange; dispid 16;
end;
// *********************************************************************//
// Interface: ITextRange
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C2-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextRange = interface(IDispatch)
['{8CC497C2-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Text: WideString; safecall;
procedure Set_Text(const pbstr: WideString); safecall;
function Get_Char: Integer; safecall;
procedure Set_Char(pch: Integer); safecall;
function Get_Duplicate: ITextRange; safecall;
function Get_FormattedText: ITextRange; safecall;
procedure Set_FormattedText(const ppRange: ITextRange); safecall;
function Get_Start: Integer; safecall;
procedure Set_Start(pcpFirst: Integer); safecall;
function Get_End_: Integer; safecall;
procedure Set_End_(pcpLim: Integer); safecall;
function Get_Font: ITextFont; safecall;
procedure Set_Font(const pFont: ITextFont); safecall;
function Get_Para: ITextPara; safecall;
procedure Set_Para(const pPara: ITextPara); safecall;
function Get_StoryLength: Integer; safecall;
function Get_StoryType: Integer; safecall;
procedure Collapse(bStart: Integer); safecall;
function Expand(Unit_: Integer): Integer; safecall;
function GetIndex(Unit_: Integer): Integer; safecall;
procedure SetIndex(Unit_: Integer; Index: Integer; Extend: Integer); safecall;
procedure SetRange(cpActive: Integer; cpOther: Integer); safecall;
function InRange(const pRange: ITextRange): Integer; safecall;
function InStory(const pRange: ITextRange): Integer; safecall;
function IsEqual(const pRange: ITextRange): Integer; safecall;
procedure Select; safecall;
function StartOf(Unit_: Integer; Extend: Integer): Integer; safecall;
function EndOf(Unit_: Integer; Extend: Integer): Integer; safecall;
function Move(Unit_: Integer; Count: Integer): Integer; safecall;
function MoveStart(Unit_: Integer; Count: Integer): Integer; safecall;
function MoveEnd(Unit_: Integer; Count: Integer): Integer; safecall;
function MoveWhile(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveStartWhile(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveEndWhile(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveUntil(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveStartUntil(var Cset: OleVariant; Count: Integer): Integer; safecall;
function MoveEndUntil(var Cset: OleVariant; Count: Integer): Integer; safecall;
function FindText(const bstr: WideString; cch: Integer; Flags: Integer): Integer; safecall;
function FindTextStart(const bstr: WideString; cch: Integer; Flags: Integer): Integer; safecall;
function FindTextEnd(const bstr: WideString; cch: Integer; Flags: Integer): Integer; safecall;
function Delete(Unit_: Integer; Count: Integer): Integer; safecall;
procedure Cut(out pVar: OleVariant); safecall;
procedure Copy(out pVar: OleVariant); safecall;
procedure Paste(var pVar: OleVariant; Format: Integer); safecall;
function CanPaste(var pVar: OleVariant; Format: Integer): Integer; safecall;
function CanEdit: Integer; safecall;
procedure ChangeCase(Type_: Integer); safecall;
procedure GetPoint(Type_: Integer; out px: Integer; out py: Integer); safecall;
procedure SetPoint(x: Integer; y: Integer; Type_: Integer; Extend: Integer); safecall;
procedure ScrollIntoView(Value: Integer); safecall;
function GetEmbeddedObject: IUnknown; safecall;
property Text: WideString read Get_Text write Set_Text;
property Char: Integer read Get_Char write Set_Char;
property Duplicate: ITextRange read Get_Duplicate;
property FormattedText: ITextRange read Get_FormattedText write Set_FormattedText;
property Start: Integer read Get_Start write Set_Start;
property End_: Integer read Get_End_ write Set_End_;
property Font: ITextFont read Get_Font write Set_Font;
property Para: ITextPara read Get_Para write Set_Para;
property StoryLength: Integer read Get_StoryLength;
property StoryType: Integer read Get_StoryType;
end;
// *********************************************************************//
// DispIntf: ITextRangeDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C2-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextRangeDisp = dispinterface
['{8CC497C2-A1DF-11CE-8098-00AA0047BE5D}']
property Text: WideString dispid 0;
property Char: Integer dispid 513;
property Duplicate: ITextRange readonly dispid 514;
property FormattedText: ITextRange dispid 515;
property Start: Integer dispid 516;
property End_: Integer dispid 517;
property Font: ITextFont dispid 518;
property Para: ITextPara dispid 519;
property StoryLength: Integer readonly dispid 520;
property StoryType: Integer readonly dispid 521;
procedure Collapse(bStart: Integer); dispid 528;
function Expand(Unit_: Integer): Integer; dispid 529;
function GetIndex(Unit_: Integer): Integer; dispid 530;
procedure SetIndex(Unit_: Integer; Index: Integer; Extend: Integer); dispid 531;
procedure SetRange(cpActive: Integer; cpOther: Integer); dispid 532;
function InRange(const pRange: ITextRange): Integer; dispid 533;
function InStory(const pRange: ITextRange): Integer; dispid 534;
function IsEqual(const pRange: ITextRange): Integer; dispid 535;
procedure Select; dispid 536;
function StartOf(Unit_: Integer; Extend: Integer): Integer; dispid 537;
function EndOf(Unit_: Integer; Extend: Integer): Integer; dispid 544;
function Move(Unit_: Integer; Count: Integer): Integer; dispid 545;
function MoveStart(Unit_: Integer; Count: Integer): Integer; dispid 546;
function MoveEnd(Unit_: Integer; Count: Integer): Integer; dispid 547;
function MoveWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 548;
function MoveStartWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 549;
function MoveEndWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 550;
function MoveUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 551;
function MoveStartUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 552;
function MoveEndUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 553;
function FindText(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 560;
function FindTextStart(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 561;
function FindTextEnd(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 562;
function Delete(Unit_: Integer; Count: Integer): Integer; dispid 563;
procedure Cut(out pVar: OleVariant); dispid 564;
procedure Copy(out pVar: OleVariant); dispid 565;
procedure Paste(var pVar: OleVariant; Format: Integer); dispid 566;
function CanPaste(var pVar: OleVariant; Format: Integer): Integer; dispid 567;
function CanEdit: Integer; dispid 568;
procedure ChangeCase(Type_: Integer); dispid 569;
procedure GetPoint(Type_: Integer; out px: Integer; out py: Integer); dispid 576;
procedure SetPoint(x: Integer; y: Integer; Type_: Integer; Extend: Integer); dispid 577;
procedure ScrollIntoView(Value: Integer); dispid 578;
function GetEmbeddedObject: IUnknown; dispid 579;
end;
// *********************************************************************//
// Interface: ITextSelection
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C1-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextSelection = interface(ITextRange)
['{8CC497C1-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Flags: Integer; safecall;
procedure Set_Flags(pFlags: Integer); safecall;
function Get_Type_: Integer; safecall;
function MoveLeft(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function MoveRight(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function MoveUp(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function MoveDown(Unit_: Integer; Count: Integer; Extend: Integer): Integer; safecall;
function HomeKey(Unit_: Integer; Extend: Integer): Integer; safecall;
function EndKey(Unit_: Integer; Extend: Integer): Integer; safecall;
procedure TypeText(const bstr: WideString); safecall;
property Flags: Integer read Get_Flags write Set_Flags;
property Type_: Integer read Get_Type_;
end;
// *********************************************************************//
// DispIntf: ITextSelectionDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C1-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextSelectionDisp = dispinterface
['{8CC497C1-A1DF-11CE-8098-00AA0047BE5D}']
property Flags: Integer dispid 257;
property Type_: Integer readonly dispid 258;
function MoveLeft(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 259;
function MoveRight(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 260;
function MoveUp(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 261;
function MoveDown(Unit_: Integer; Count: Integer; Extend: Integer): Integer; dispid 262;
function HomeKey(Unit_: Integer; Extend: Integer): Integer; dispid 263;
function EndKey(Unit_: Integer; Extend: Integer): Integer; dispid 264;
procedure TypeText(const bstr: WideString); dispid 265;
property Text: WideString dispid 0;
property Char: Integer dispid 513;
property Duplicate: ITextRange readonly dispid 514;
property FormattedText: ITextRange dispid 515;
property Start: Integer dispid 516;
property End_: Integer dispid 517;
property Font: ITextFont dispid 518;
property Para: ITextPara dispid 519;
property StoryLength: Integer readonly dispid 520;
property StoryType: Integer readonly dispid 521;
procedure Collapse(bStart: Integer); dispid 528;
function Expand(Unit_: Integer): Integer; dispid 529;
function GetIndex(Unit_: Integer): Integer; dispid 530;
procedure SetIndex(Unit_: Integer; Index: Integer; Extend: Integer); dispid 531;
procedure SetRange(cpActive: Integer; cpOther: Integer); dispid 532;
function InRange(const pRange: ITextRange): Integer; dispid 533;
function InStory(const pRange: ITextRange): Integer; dispid 534;
function IsEqual(const pRange: ITextRange): Integer; dispid 535;
procedure Select; dispid 536;
function StartOf(Unit_: Integer; Extend: Integer): Integer; dispid 537;
function EndOf(Unit_: Integer; Extend: Integer): Integer; dispid 544;
function Move(Unit_: Integer; Count: Integer): Integer; dispid 545;
function MoveStart(Unit_: Integer; Count: Integer): Integer; dispid 546;
function MoveEnd(Unit_: Integer; Count: Integer): Integer; dispid 547;
function MoveWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 548;
function MoveStartWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 549;
function MoveEndWhile(var Cset: OleVariant; Count: Integer): Integer; dispid 550;
function MoveUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 551;
function MoveStartUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 552;
function MoveEndUntil(var Cset: OleVariant; Count: Integer): Integer; dispid 553;
function FindText(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 560;
function FindTextStart(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 561;
function FindTextEnd(const bstr: WideString; cch: Integer; Flags: Integer): Integer; dispid 562;
function Delete(Unit_: Integer; Count: Integer): Integer; dispid 563;
procedure Cut(out pVar: OleVariant); dispid 564;
procedure Copy(out pVar: OleVariant); dispid 565;
procedure Paste(var pVar: OleVariant; Format: Integer); dispid 566;
function CanPaste(var pVar: OleVariant; Format: Integer): Integer; dispid 567;
function CanEdit: Integer; dispid 568;
procedure ChangeCase(Type_: Integer); dispid 569;
procedure GetPoint(Type_: Integer; out px: Integer; out py: Integer); dispid 576;
procedure SetPoint(x: Integer; y: Integer; Type_: Integer; Extend: Integer); dispid 577;
procedure ScrollIntoView(Value: Integer); dispid 578;
function GetEmbeddedObject: IUnknown; dispid 579;
end;
// *********************************************************************//
// Interface: ITextFont
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C3-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextFont = interface(IDispatch)
['{8CC497C3-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Duplicate: ITextFont; safecall;
procedure Set_Duplicate(const ppFont: ITextFont); safecall;
function CanChange: Integer; safecall;
function IsEqual(const pFont: ITextFont): Integer; safecall;
procedure Reset(Value: Integer); safecall;
function Get_Style: Integer; safecall;
procedure Set_Style(pValue: Integer); safecall;
function Get_AllCaps: Integer; safecall;
procedure Set_AllCaps(pValue: Integer); safecall;
function Get_Animation: Integer; safecall;
procedure Set_Animation(pValue: Integer); safecall;
function Get_BackColor: Integer; safecall;
procedure Set_BackColor(pValue: Integer); safecall;
function Get_Bold: Integer; safecall;
procedure Set_Bold(pValue: Integer); safecall;
function Get_Emboss: Integer; safecall;
procedure Set_Emboss(pValue: Integer); safecall;
function Get_ForeColor: Integer; safecall;
procedure Set_ForeColor(pValue: Integer); safecall;
function Get_Hidden: Integer; safecall;
procedure Set_Hidden(pValue: Integer); safecall;
function Get_Engrave: Integer; safecall;
procedure Set_Engrave(pValue: Integer); safecall;
function Get_Italic: Integer; safecall;
procedure Set_Italic(pValue: Integer); safecall;
function Get_Kerning: Single; safecall;
procedure Set_Kerning(pValue: Single); safecall;
function Get_LanguageID: Integer; safecall;
procedure Set_LanguageID(pValue: Integer); safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const pbstr: WideString); safecall;
function Get_Outline: Integer; safecall;
procedure Set_Outline(pValue: Integer); safecall;
function Get_Position: Single; safecall;
procedure Set_Position(pValue: Single); safecall;
function Get_Protected_: Integer; safecall;
procedure Set_Protected_(pValue: Integer); safecall;
function Get_Shadow: Integer; safecall;
procedure Set_Shadow(pValue: Integer); safecall;
function Get_Size: Single; safecall;
procedure Set_Size(pValue: Single); safecall;
function Get_SmallCaps: Integer; safecall;
procedure Set_SmallCaps(pValue: Integer); safecall;
function Get_Spacing: Single; safecall;
procedure Set_Spacing(pValue: Single); safecall;
function Get_StrikeThrough: Integer; safecall;
procedure Set_StrikeThrough(pValue: Integer); safecall;
function Get_Subscript: Integer; safecall;
procedure Set_Subscript(pValue: Integer); safecall;
function Get_Superscript: Integer; safecall;
procedure Set_Superscript(pValue: Integer); safecall;
function Get_Underline: Integer; safecall;
procedure Set_Underline(pValue: Integer); safecall;
function Get_Weight: Integer; safecall;
procedure Set_Weight(pValue: Integer); safecall;
property Duplicate: ITextFont read Get_Duplicate write Set_Duplicate;
property Style: Integer read Get_Style write Set_Style;
property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
property Animation: Integer read Get_Animation write Set_Animation;
property BackColor: Integer read Get_BackColor write Set_BackColor;
property Bold: Integer read Get_Bold write Set_Bold;
property Emboss: Integer read Get_Emboss write Set_Emboss;
property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
property Hidden: Integer read Get_Hidden write Set_Hidden;
property Engrave: Integer read Get_Engrave write Set_Engrave;
property Italic: Integer read Get_Italic write Set_Italic;
property Kerning: Single read Get_Kerning write Set_Kerning;
property LanguageID: Integer read Get_LanguageID write Set_LanguageID;
property Name: WideString read Get_Name write Set_Name;
property Outline: Integer read Get_Outline write Set_Outline;
property Position: Single read Get_Position write Set_Position;
property Protected_: Integer read Get_Protected_ write Set_Protected_;
property Shadow: Integer read Get_Shadow write Set_Shadow;
property Size: Single read Get_Size write Set_Size;
property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
property Spacing: Single read Get_Spacing write Set_Spacing;
property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
property Subscript: Integer read Get_Subscript write Set_Subscript;
property Superscript: Integer read Get_Superscript write Set_Superscript;
property Underline: Integer read Get_Underline write Set_Underline;
property Weight: Integer read Get_Weight write Set_Weight;
end;
// *********************************************************************//
// DispIntf: ITextFontDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C3-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextFontDisp = dispinterface
['{8CC497C3-A1DF-11CE-8098-00AA0047BE5D}']
property Duplicate: ITextFont dispid 0;
function CanChange: Integer; dispid 769;
function IsEqual(const pFont: ITextFont): Integer; dispid 770;
procedure Reset(Value: Integer); dispid 771;
property Style: Integer dispid 772;
property AllCaps: Integer dispid 773;
property Animation: Integer dispid 774;
property BackColor: Integer dispid 775;
property Bold: Integer dispid 776;
property Emboss: Integer dispid 777;
property ForeColor: Integer dispid 784;
property Hidden: Integer dispid 785;
property Engrave: Integer dispid 786;
property Italic: Integer dispid 787;
property Kerning: Single dispid 788;
property LanguageID: Integer dispid 789;
property Name: WideString dispid 790;
property Outline: Integer dispid 791;
property Position: Single dispid 792;
property Protected_: Integer dispid 793;
property Shadow: Integer dispid 800;
property Size: Single dispid 801;
property SmallCaps: Integer dispid 802;
property Spacing: Single dispid 803;
property StrikeThrough: Integer dispid 804;
property Subscript: Integer dispid 805;
property Superscript: Integer dispid 806;
property Underline: Integer dispid 807;
property Weight: Integer dispid 808;
end;
// *********************************************************************//
// Interface: ITextPara
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C4-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextPara = interface(IDispatch)
['{8CC497C4-A1DF-11CE-8098-00AA0047BE5D}']
function Get_Duplicate: ITextPara; safecall;
procedure Set_Duplicate(const ppPara: ITextPara); safecall;
function CanChange: Integer; safecall;
function IsEqual(const pPara: ITextPara): Integer; safecall;
procedure Reset(Value: Integer); safecall;
function Get_Style: Integer; safecall;
procedure Set_Style(pValue: Integer); safecall;
function Get_Alignment: Integer; safecall;
procedure Set_Alignment(pValue: Integer); safecall;
function Get_Hyphenation: Integer; safecall;
procedure Set_Hyphenation(pValue: Integer); safecall;
function Get_FirstLineIndent: Single; safecall;
function Get_KeepTogether: Integer; safecall;
procedure Set_KeepTogether(pValue: Integer); safecall;
function Get_KeepWithNext: Integer; safecall;
procedure Set_KeepWithNext(pValue: Integer); safecall;
function Get_LeftIndent: Single; safecall;
function Get_LineSpacing: Single; safecall;
function Get_LineSpacingRule: Integer; safecall;
function Get_ListAlignment: Integer; safecall;
procedure Set_ListAlignment(pValue: Integer); safecall;
function Get_ListLevelIndex: Integer; safecall;
procedure Set_ListLevelIndex(pValue: Integer); safecall;
function Get_ListStart: Integer; safecall;
procedure Set_ListStart(pValue: Integer); safecall;
function Get_ListTab: Single; safecall;
procedure Set_ListTab(pValue: Single); safecall;
function Get_ListType: Integer; safecall;
procedure Set_ListType(pValue: Integer); safecall;
function Get_NoLineNumber: Integer; safecall;
procedure Set_NoLineNumber(pValue: Integer); safecall;
function Get_PageBreakBefore: Integer; safecall;
procedure Set_PageBreakBefore(pValue: Integer); safecall;
function Get_RightIndent: Single; safecall;
procedure Set_RightIndent(pValue: Single); safecall;
procedure SetIndents(StartIndent: Single; LeftIndent: Single; RightIndent: Single); safecall;
procedure SetLineSpacing(LineSpacingRule: Integer; LineSpacing: Single); safecall;
function Get_SpaceAfter: Single; safecall;
procedure Set_SpaceAfter(pValue: Single); safecall;
function Get_SpaceBefore: Single; safecall;
procedure Set_SpaceBefore(pValue: Single); safecall;
function Get_WidowControl: Integer; safecall;
procedure Set_WidowControl(pValue: Integer); safecall;
function Get_TabCount: Integer; safecall;
procedure AddTab(tbPos: Single; tbAlign: Integer; tbLeader: Integer); safecall;
procedure ClearAllTabs; safecall;
procedure DeleteTab(tbPos: Single); safecall;
procedure GetTab(iTab: Integer; out ptbPos: Single; out ptbAlign: Integer;
out ptbLeader: Integer); safecall;
property Duplicate: ITextPara read Get_Duplicate write Set_Duplicate;
property Style: Integer read Get_Style write Set_Style;
property Alignment: Integer read Get_Alignment write Set_Alignment;
property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
property FirstLineIndent: Single read Get_FirstLineIndent;
property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
property LeftIndent: Single read Get_LeftIndent;
property LineSpacing: Single read Get_LineSpacing;
property LineSpacingRule: Integer read Get_LineSpacingRule;
property ListAlignment: Integer read Get_ListAlignment write Set_ListAlignment;
property ListLevelIndex: Integer read Get_ListLevelIndex write Set_ListLevelIndex;
property ListStart: Integer read Get_ListStart write Set_ListStart;
property ListTab: Single read Get_ListTab write Set_ListTab;
property ListType: Integer read Get_ListType write Set_ListType;
property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
property RightIndent: Single read Get_RightIndent write Set_RightIndent;
property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
property TabCount: Integer read Get_TabCount;
end;
// *********************************************************************//
// DispIntf: ITextParaDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C4-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextParaDisp = dispinterface
['{8CC497C4-A1DF-11CE-8098-00AA0047BE5D}']
property Duplicate: ITextPara dispid 0;
function CanChange: Integer; dispid 1025;
function IsEqual(const pPara: ITextPara): Integer; dispid 1026;
procedure Reset(Value: Integer); dispid 1027;
property Style: Integer dispid 1028;
property Alignment: Integer dispid 1029;
property Hyphenation: Integer dispid 1030;
property FirstLineIndent: Single readonly dispid 1031;
property KeepTogether: Integer dispid 1032;
property KeepWithNext: Integer dispid 1033;
property LeftIndent: Single readonly dispid 1040;
property LineSpacing: Single readonly dispid 1041;
property LineSpacingRule: Integer readonly dispid 1042;
property ListAlignment: Integer dispid 1043;
property ListLevelIndex: Integer dispid 1044;
property ListStart: Integer dispid 1045;
property ListTab: Single dispid 1046;
property ListType: Integer dispid 1047;
property NoLineNumber: Integer dispid 1048;
property PageBreakBefore: Integer dispid 1049;
property RightIndent: Single dispid 1056;
procedure SetIndents(StartIndent: Single; LeftIndent: Single; RightIndent: Single); dispid 1057;
procedure SetLineSpacing(LineSpacingRule: Integer; LineSpacing: Single); dispid 1058;
property SpaceAfter: Single dispid 1059;
property SpaceBefore: Single dispid 1060;
property WidowControl: Integer dispid 1061;
property TabCount: Integer readonly dispid 1062;
procedure AddTab(tbPos: Single; tbAlign: Integer; tbLeader: Integer); dispid 1063;
procedure ClearAllTabs; dispid 1064;
procedure DeleteTab(tbPos: Single); dispid 1065;
procedure GetTab(iTab: Integer; out ptbPos: Single; out ptbAlign: Integer;
out ptbLeader: Integer); dispid 1072;
end;
// *********************************************************************//
// Interface: ITextStoryRanges
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C5-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextStoryRanges = interface(IDispatch)
['{8CC497C5-A1DF-11CE-8098-00AA0047BE5D}']
function _NewEnum: IUnknown; safecall;
function Item(Index: Integer): ITextRange; safecall;
function Get_Count: Integer; safecall;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: ITextStoryRangesDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {8CC497C5-A1DF-11CE-8098-00AA0047BE5D}
// *********************************************************************//
ITextStoryRangesDisp = dispinterface
['{8CC497C5-A1DF-11CE-8098-00AA0047BE5D}']
function _NewEnum: IUnknown; dispid -4;
function Item(Index: Integer): ITextRange; dispid 0;
property Count: Integer readonly dispid 2;
end;
implementation
uses ComObj;
end.