dhtmledlib_tlb.pas

这是一套全面的网络组件

unit DHTMLEDLib_TLB;

{ This file contains pascal declarations imported from a type library.
  This file will be written during each import or refresh of the type
  library editor.  Changes to this file will be discarded during the
  refresh process. }

{ DHTML Edit Control for IE5 }
{ Version 1.0 }

interface

uses Windows, Messages, ActiveX, Classes, Graphics, OleCtrls, StdVCL, mshtml;

const
  LIBID_DHTMLEDLib: TGUID = '{683364A1-B37D-11D1-ADC5-006008A5848C}';

const

{ Constants for DHTMLEdit commands }

{ DHTMLEDITCMDID }

  DECMD_BOLD = 5000;
  DECMD_COPY = 5002;
  DECMD_CUT = 5003;
  DECMD_DELETE = 5004;
  DECMD_DELETECELLS = 5005;
  DECMD_DELETECOLS = 5006;
  DECMD_DELETEROWS = 5007;
  DECMD_FINDTEXT = 5008;
  DECMD_FONT = 5009;
  DECMD_GETBACKCOLOR = 5010;
  DECMD_GETBLOCKFMT = 5011;
  DECMD_GETBLOCKFMTNAMES = 5012;
  DECMD_GETFONTNAME = 5013;
  DECMD_GETFONTSIZE = 5014;
  DECMD_GETFORECOLOR = 5015;
  DECMD_HYPERLINK = 5016;
  DECMD_IMAGE = 5017;
  DECMD_INDENT = 5018;
  DECMD_INSERTCELL = 5019;
  DECMD_INSERTCOL = 5020;
  DECMD_INSERTROW = 5021;
  DECMD_INSERTTABLE = 5022;
  DECMD_ITALIC = 5023;
  DECMD_JUSTIFYCENTER = 5024;
  DECMD_JUSTIFYLEFT = 5025;
  DECMD_JUSTIFYRIGHT = 5026;
  DECMD_LOCK_ELEMENT = 5027;
  DECMD_MAKE_ABSOLUTE = 5028;
  DECMD_MERGECELLS = 5029;
  DECMD_ORDERLIST = 5030;
  DECMD_OUTDENT = 5031;
  DECMD_PASTE = 5032;
  DECMD_REDO = 5033;
  DECMD_REMOVEFORMAT = 5034;
  DECMD_SELECTALL = 5035;
  DECMD_SEND_BACKWARD = 5036;
  DECMD_BRING_FORWARD = 5037;
  DECMD_SEND_BELOW_TEXT = 5038;
  DECMD_BRING_ABOVE_TEXT = 5039;
  DECMD_SEND_TO_BACK = 5040;
  DECMD_BRING_TO_FRONT = 5041;
  DECMD_SETBACKCOLOR = 5042;
  DECMD_SETBLOCKFMT = 5043;
  DECMD_SETFONTNAME = 5044;
  DECMD_SETFONTSIZE = 5045;
  DECMD_SETFORECOLOR = 5046;
  DECMD_SPLITCELL = 5047;
  DECMD_UNDERLINE = 5048;
  DECMD_UNDO = 5049;
  DECMD_UNLINK = 5050;
  DECMD_UNORDERLIST = 5051;
  DECMD_PROPERTIES = 5052;

{ Constants for DHTMLEdit QueryStatus }

{ DHTMLEDITCMDF }

  DECMDF_NOTSUPPORTED = 0;
  DECMDF_DISABLED = 1;
  DECMDF_ENABLED = 3;
  DECMDF_LATCHED = 7;
  DECMDF_NINCHED = 11;

{ Constants for DHTMLEdit appearance }

{ DHTMLEDITAPPEARANCE }

  DEAPPEARANCE_FLAT = 0;
  DEAPPEARANCE_3D = 1;

{ OLECMDEXECOPT }

  OLECMDEXECOPT_DODEFAULT = 0;
  OLECMDEXECOPT_PROMPTUSER = 1;
  OLECMDEXECOPT_DONTPROMPTUSER = 2;
  OLECMDEXECOPT_SHOWHELP = 3;

const

{ Component class GUIDs }
  Class_DHTMLEdit: TGUID = '{2D360200-FFF5-11D1-8D03-00A0C959BC0A}';
  Class_DHTMLSafe: TGUID = '{2D360201-FFF5-11D1-8D03-00A0C959BC0A}';
  Class_DEInsertTableParam: TGUID = '{47B0DFC7-B7A3-11D1-ADC5-006008A5848C}';
  Class_DEGetBlockFmtNamesParam: TGUID = '{8D91090E-B955-11D1-ADC5-006008A5848C}';

type

{ Forward declarations: Interfaces }
  IDEGetBlockFmtNamesParam = interface;
  IDEGetBlockFmtNamesParamDisp = dispinterface;
  IDHTMLSafe = interface;
  IDHTMLSafeDisp = dispinterface;
  IDHTMLEdit = interface;
  IDHTMLEditDisp = dispinterface;
  IDEInsertTableParam = interface;
  IDEInsertTableParamDisp = dispinterface;
  _DHTMLSafeEvents = dispinterface;
  _DHTMLEditEvents = dispinterface;

{ Forward declarations: CoClasses }
  DHTMLEdit = IDHTMLEdit;
  DHTMLSafe = IDHTMLSafe;
  DEInsertTableParam = IDEInsertTableParam;
  DEGetBlockFmtNamesParam = IDEGetBlockFmtNamesParam;

{ Forward declarations: Enums }
  DHTMLEDITCMDID = TOleEnum;
  DHTMLEDITCMDF = TOleEnum;
  DHTMLEDITAPPEARANCE = TOleEnum;
  OLECMDEXECOPT = TOleEnum;

{ IDEGetBlockFmtNamesParam Interface }

  IDEGetBlockFmtNamesParam = interface(IDispatch)
    ['{8D91090D-B955-11D1-ADC5-006008A5848C}']
    function Get_Names: OleVariant; safecall;
    procedure Set_Names(Value: OleVariant); safecall;
    property Names: OleVariant read Get_Names write Set_Names;
  end;

{ DispInterface declaration for Dual Interface IDEGetBlockFmtNamesParam }

  IDEGetBlockFmtNamesParamDisp = dispinterface
    ['{8D91090D-B955-11D1-ADC5-006008A5848C}']
    property Names: OleVariant dispid 1;
  end;

{ IDHTMLEdit Safe for Scripting Interface }

  IDHTMLSafe = interface(IDispatch)
    ['{CE04B590-2B1F-11D2-8D1E-00A0C959BC0A}']
    function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant; safecall;
    function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF; safecall;
    procedure SetContextMenu(var menuStrings, menuStates: OleVariant); safecall;
    procedure NewDocument; safecall;
    procedure LoadURL(const url: WideString); safecall;
    function FilterSourceCode(const sourceCodeIn: WideString): WideString; safecall;
    procedure Refresh; safecall;
    function Get_DOM: IHTMLDocument2; safecall;
    function Get_DocumentHTML: WideString; safecall;
    procedure Set_DocumentHTML(const Value: WideString); safecall;
    function Get_ActivateApplets: WordBool; safecall;
    procedure Set_ActivateApplets(Value: WordBool); safecall;
    function Get_ActivateActiveXControls: WordBool; safecall;
    procedure Set_ActivateActiveXControls(Value: WordBool); safecall;
    function Get_ActivateDTCs: WordBool; safecall;
    procedure Set_ActivateDTCs(Value: WordBool); safecall;
    function Get_ShowDetails: WordBool; safecall;
    procedure Set_ShowDetails(Value: WordBool); safecall;
    function Get_ShowBorders: WordBool; safecall;
    procedure Set_ShowBorders(Value: WordBool); safecall;
    function Get_Appearance: DHTMLEDITAPPEARANCE; safecall;
    procedure Set_Appearance(Value: DHTMLEDITAPPEARANCE); safecall;
    function Get_Scrollbars: WordBool; safecall;
    procedure Set_Scrollbars(Value: WordBool); safecall;
    function Get_ScrollbarAppearance: DHTMLEDITAPPEARANCE; safecall;
    procedure Set_ScrollbarAppearance(Value: DHTMLEDITAPPEARANCE); safecall;
    function Get_SourceCodePreservation: WordBool; safecall;
    procedure Set_SourceCodePreservation(Value: WordBool); safecall;
    function Get_AbsoluteDropMode: WordBool; safecall;
    procedure Set_AbsoluteDropMode(Value: WordBool); safecall;
    function Get_SnapToGridX: Integer; safecall;
    procedure Set_SnapToGridX(Value: Integer); safecall;
    function Get_SnapToGridY: Integer; safecall;
    procedure Set_SnapToGridY(Value: Integer); safecall;
    function Get_SnapToGrid: WordBool; safecall;
    procedure Set_SnapToGrid(Value: WordBool); safecall;
    function Get_IsDirty: WordBool; safecall;
    function Get_CurrentDocumentPath: WideString; safecall;
    function Get_BaseURL: WideString; safecall;
    procedure Set_BaseURL(const Value: WideString); safecall;
    function Get_DocumentTitle: WideString; safecall;
    function Get_UseDivOnCarriageReturn: WordBool; safecall;
    procedure Set_UseDivOnCarriageReturn(Value: WordBool); safecall;
    function Get_Busy: WordBool; safecall;
    property DOM: IHTMLDocument2 read Get_DOM;
    property DocumentHTML: WideString read Get_DocumentHTML write Set_DocumentHTML;
    property ActivateApplets: WordBool read Get_ActivateApplets write Set_ActivateApplets;
    property ActivateActiveXControls: WordBool read Get_ActivateActiveXControls write Set_ActivateActiveXControls;
    property ActivateDTCs: WordBool read Get_ActivateDTCs write Set_ActivateDTCs;
    property ShowDetails: WordBool read Get_ShowDetails write Set_ShowDetails;
    property ShowBorders: WordBool read Get_ShowBorders write Set_ShowBorders;
    property Appearance: DHTMLEDITAPPEARANCE read Get_Appearance write Set_Appearance;
    property Scrollbars: WordBool read Get_Scrollbars write Set_Scrollbars;
    property ScrollbarAppearance: DHTMLEDITAPPEARANCE read Get_ScrollbarAppearance write Set_ScrollbarAppearance;
    property SourceCodePreservation: WordBool read Get_SourceCodePreservation write Set_SourceCodePreservation;
    property AbsoluteDropMode: WordBool read Get_AbsoluteDropMode write Set_AbsoluteDropMode;
    property SnapToGridX: Integer read Get_SnapToGridX write Set_SnapToGridX;
    property SnapToGridY: Integer read Get_SnapToGridY write Set_SnapToGridY;
    property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
    property IsDirty: WordBool read Get_IsDirty;
    property CurrentDocumentPath: WideString read Get_CurrentDocumentPath;
    property BaseURL: WideString read Get_BaseURL write Set_BaseURL;
    property DocumentTitle: WideString read Get_DocumentTitle;
    property UseDivOnCarriageReturn: WordBool read Get_UseDivOnCarriageReturn write Set_UseDivOnCarriageReturn;
    property Busy: WordBool read Get_Busy;
  end;

{ DispInterface declaration for Dual Interface IDHTMLSafe }

  IDHTMLSafeDisp = dispinterface
    ['{CE04B590-2B1F-11D2-8D1E-00A0C959BC0A}']
    function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant; dispid 2;
    function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF; dispid 3;
    procedure SetContextMenu(var menuStrings, menuStates: OleVariant); dispid 5;
    procedure NewDocument; dispid 27;
    procedure LoadURL(const url: WideString); dispid 29;
    function FilterSourceCode(const sourceCodeIn: WideString): WideString; dispid 31;
    procedure Refresh; dispid 32;
    property DOM: IHTMLDocument2 readonly dispid 6;
    property DocumentHTML: WideString dispid 17;
    property ActivateApplets: WordBool dispid 7;
    property ActivateActiveXControls: WordBool dispid 8;
    property ActivateDTCs: WordBool dispid 9;
    property ShowDetails: WordBool dispid 11;
    property ShowBorders: WordBool dispid 12;
    property Appearance: DHTMLEDITAPPEARANCE dispid 13;
    property Scrollbars: WordBool dispid 14;
    property ScrollbarAppearance: DHTMLEDITAPPEARANCE dispid 15;
    property SourceCodePreservation: WordBool dispid 16;
    property AbsoluteDropMode: WordBool dispid 18;
    property SnapToGridX: Integer dispid 19;
    property SnapToGridY: Integer dispid 20;
    property SnapToGrid: WordBool dispid 21;
    property IsDirty: WordBool readonly dispid 22;
    property CurrentDocumentPath: WideString readonly dispid 23;
    property BaseURL: WideString dispid 24;
    property DocumentTitle: WideString readonly dispid 25;
    property UseDivOnCarriageReturn: WordBool dispid 30;
    property Busy: WordBool readonly dispid 33;
  end;

{ IDHTMLEdit Interface }

  IDHTMLEdit = interface(IDHTMLSafe)
    ['{CE04B591-2B1F-11D2-8D1E-00A0C959BC0A}']
    procedure LoadDocument(var pathIn, promptUser: OleVariant); safecall;
    procedure SaveDocument(var pathIn, promptUser: OleVariant); safecall;
    procedure PrintDocument(var withUI: OleVariant); safecall;
    function Get_BrowseMode: WordBool; safecall;
    procedure Set_BrowseMode(Value: WordBool); safecall;
    property BrowseMode: WordBool read Get_BrowseMode write Set_BrowseMode;
  end;

{ DispInterface declaration for Dual Interface IDHTMLEdit }

  IDHTMLEditDisp = dispinterface
    ['{CE04B591-2B1F-11D2-8D1E-00A0C959BC0A}']
    function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant; dispid 2;
    function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF; dispid 3;