dhtmledlib_tlb.pas

这是一套全面的网络组件

    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;
    procedure LoadDocument(var pathIn, promptUser: OleVariant); dispid 1;
    procedure SaveDocument(var pathIn, promptUser: OleVariant); dispid 4;
    procedure PrintDocument(var withUI: OleVariant); dispid 28;
    property BrowseMode: WordBool dispid 26;
  end;

{ IDEInsertTableParam Interface }

  IDEInsertTableParam = interface(IDispatch)
    ['{47B0DFC6-B7A3-11D1-ADC5-006008A5848C}']
    function Get_NumRows: Integer; safecall;
    procedure Set_NumRows(Value: Integer); safecall;
    function Get_NumCols: Integer; safecall;
    procedure Set_NumCols(Value: Integer); safecall;
    function Get_TableAttrs: WideString; safecall;
    procedure Set_TableAttrs(const Value: WideString); safecall;
    function Get_CellAttrs: WideString; safecall;
    procedure Set_CellAttrs(const Value: WideString); safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    property NumRows: Integer read Get_NumRows write Set_NumRows;
    property NumCols: Integer read Get_NumCols write Set_NumCols;
    property TableAttrs: WideString read Get_TableAttrs write Set_TableAttrs;
    property CellAttrs: WideString read Get_CellAttrs write Set_CellAttrs;
    property Caption: WideString read Get_Caption write Set_Caption;
  end;

{ DispInterface declaration for Dual Interface IDEInsertTableParam }

  IDEInsertTableParamDisp = dispinterface
    ['{47B0DFC6-B7A3-11D1-ADC5-006008A5848C}']
    property NumRows: Integer dispid 1;
    property NumCols: Integer dispid 2;
    property TableAttrs: WideString dispid 3;
    property CellAttrs: WideString dispid 4;
    property Caption: WideString dispid 5;
  end;

{ Event interface for DHTMLSafe control }

  _DHTMLSafeEvents = dispinterface
    ['{D1FC78E8-B380-11D1-ADC5-006008A5848C}']
    procedure DocumentComplete; dispid 1;
    procedure DisplayChanged; dispid 2;
    procedure ShowContextMenu(xPos, yPos: Integer); dispid 3;
    procedure ContextMenuAction(itemIndex: Integer); dispid 4;
    procedure onmousedown; dispid 5;
    procedure onmousemove; dispid 6;
    procedure onmouseup; dispid 7;
    procedure onmouseout; dispid 8;
    procedure onmouseover; dispid 9;
    procedure onclick; dispid 10;
    procedure ondblclick; dispid 11;
    procedure onkeydown; dispid 12;
    procedure onkeypress; dispid 13;
    procedure onkeyup; dispid 14;
    procedure onblur; dispid 15;
    procedure onreadystatechange; dispid 16;
  end;

{ Event interface for DHTMLEdit control }

  _DHTMLEditEvents = dispinterface
    ['{588D5040-CF28-11D1-8CD3-00A0C959BC0A}']
    procedure DocumentComplete; dispid 1;
    procedure DisplayChanged; dispid 2;
    procedure ShowContextMenu(xPos, yPos: Integer); dispid 3;
    procedure ContextMenuAction(itemIndex: Integer); dispid 4;
    procedure onmousedown; dispid 5;
    procedure onmousemove; dispid 6;
    procedure onmouseup; dispid 7;
    procedure onmouseout; dispid 8;
    procedure onmouseover; dispid 9;
    procedure onclick; dispid 10;
    procedure ondblclick; dispid 11;
    procedure onkeydown; dispid 12;
    procedure onkeypress; dispid 13;
    procedure onkeyup; dispid 14;
    procedure onblur; dispid 15;
    procedure onreadystatechange; dispid 16;
  end;

{ DHTML Edit Control for IE5 }

  TDHTMLEditShowContextMenu = procedure(Sender: TObject; xPos, yPos: Integer) of object;
  TDHTMLEditContextMenuAction = procedure(Sender: TObject; itemIndex: Integer) of object;

  TDummyControl = class(TOleControl)
  private
    FLockErase: Boolean;
  public
    procedure DefaultHandler(var Message); override;
    procedure SetLockErase(ALock: Boolean);
  end;

  TDHTMLEdit = class(TOleControl)
  private
    FOnDocumentComplete: TNotifyEvent;
    FOnDisplayChanged: TNotifyEvent;
    FOnShowContextMenu: TDHTMLEditShowContextMenu;
    FOnContextMenuAction: TDHTMLEditContextMenuAction;
    FOnonmousedown: TNotifyEvent;
    FOnonmousemove: TNotifyEvent;
    FOnonmouseup: TNotifyEvent;
    FOnonmouseout: TNotifyEvent;
    FOnonmouseover: TNotifyEvent;
    FOnonclick: TNotifyEvent;
    FOnondblclick: TNotifyEvent;
    FOnonkeydown: TNotifyEvent;
    FOnonkeypress: TNotifyEvent;
    FOnonkeyup: TNotifyEvent;
    FOnonblur: TNotifyEvent;
    FOnonreadystatechange: TNotifyEvent;
    FIntf: IDHTMLEdit;
    function GetControlInterface: IDHTMLEdit;
    function Get_DOM: IHTMLDocument2;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function GetTOleEnumProp(Index: Integer): TOleEnum;
    procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  public
    function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant;
    function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF;
    procedure SetContextMenu(var menuStrings, menuStates: OleVariant);
    procedure NewDocument;
    procedure LoadURL(const url: WideString);
    function FilterSourceCode(const sourceCodeIn: WideString): WideString;
    procedure Refresh;
    procedure LoadDocument(var pathIn, promptUser: OleVariant);
    procedure SaveDocument(var pathIn, promptUser: OleVariant);
    procedure PrintDocument(var withUI: OleVariant);
    property ControlInterface: IDHTMLEdit read GetControlInterface;
    property DOM: IHTMLDocument2 read Get_DOM;
    property IsDirty: WordBool index 22 read GetWordBoolProp;
    property CurrentDocumentPath: WideString index 23 read GetWideStringProp;
    property DocumentTitle: WideString index 25 read GetWideStringProp;
    property Busy: WordBool index 33 read GetWordBoolProp;
  published
    property TabStop;
    property Align;
    property DragCursor;
    property DragMode;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property Visible;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnStartDrag;
    property DocumentHTML: WideString index 17 read GetWideStringProp write SetWideStringProp stored False;
    property ActivateApplets: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
    property ActivateActiveXControls: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
    property ActivateDTCs: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
    property ShowDetails: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
    property ShowBorders: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
    property Appearance: DHTMLEDITAPPEARANCE index 13 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property Scrollbars: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
    property ScrollbarAppearance: DHTMLEDITAPPEARANCE index 15 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property SourceCodePreservation: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
    property AbsoluteDropMode: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
    property SnapToGridX: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
    property SnapToGridY: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
    property SnapToGrid: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False;
    property BaseURL: WideString index 24 read GetWideStringProp write SetWideStringProp stored False;
    property UseDivOnCarriageReturn: WordBool index 30 read GetWordBoolProp write SetWordBoolProp stored False;
    property BrowseMode: WordBool index 26 read GetWordBoolProp write SetWordBoolProp stored False;
    property OnDocumentComplete: TNotifyEvent read FOnDocumentComplete write FOnDocumentComplete;
    property OnDisplayChanged: TNotifyEvent read FOnDisplayChanged write FOnDisplayChanged;
    property OnShowContextMenu: TDHTMLEditShowContextMenu read FOnShowContextMenu write FOnShowContextMenu;
    property OnContextMenuAction: TDHTMLEditContextMenuAction read FOnContextMenuAction write FOnContextMenuAction;
    property Ononmousedown: TNotifyEvent read FOnonmousedown write FOnonmousedown;
    property Ononmousemove: TNotifyEvent read FOnonmousemove write FOnonmousemove;
    property Ononmouseup: TNotifyEvent read FOnonmouseup write FOnonmouseup;
    property Ononmouseout: TNotifyEvent read FOnonmouseout write FOnonmouseout;
    property Ononmouseover: TNotifyEvent read FOnonmouseover write FOnonmouseover;
    property Ononclick: TNotifyEvent read FOnonclick write FOnonclick;
    property Onondblclick: TNotifyEvent read FOnondblclick write FOnondblclick;
    property Ononkeydown: TNotifyEvent read FOnonkeydown write FOnonkeydown;
    property Ononkeypress: TNotifyEvent read FOnonkeypress write FOnonkeypress;
    property Ononkeyup: TNotifyEvent read FOnonkeyup write FOnonkeyup;
    property Ononblur: TNotifyEvent read FOnonblur write FOnonblur;
    property Ononreadystatechange: TNotifyEvent read FOnonreadystatechange write FOnonreadystatechange;
  end;

{ DHTML Safe for Scripting Control for IE5 }

  TDHTMLSafeShowContextMenu = procedure(Sender: TObject; xPos, yPos: Integer) of object;
  TDHTMLSafeContextMenuAction = procedure(Sender: TObject; itemIndex: Integer) of object;

  TDHTMLSafe = class(TDummyControl)
  private
    FOnDocumentComplete: TNotifyEvent;
    FOnDisplayChanged: TNotifyEvent;
    FOnShowContextMenu: TDHTMLSafeShowContextMenu;
    FOnContextMenuAction: TDHTMLSafeContextMenuAction;
    FOnonmousedown: TNotifyEvent;
    FOnonmousemove: TNotifyEvent;
    FOnonmouseup: TNotifyEvent;
    FOnonmouseout: TNotifyEvent;
    FOnonmouseover: TNotifyEvent;
    FOnonclick: TNotifyEvent;
    FOnondblclick: TNotifyEvent;
    FOnonkeydown: TNotifyEvent;
    FOnonkeypress: TNotifyEvent;
    FOnonkeyup: TNotifyEvent;
    FOnonblur: TNotifyEvent;
    FOnonreadystatechange: TNotifyEvent;
    FIntf: IDHTMLSafe;
    function GetControlInterface: IDHTMLSafe;
    function Get_DOM: IHTMLDocument2;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function GetTOleEnumProp(Index: Integer): TOleEnum;
    procedure SetTOleEnumProp(Index: Integer; Value: TOleEnum);
  public
    function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant;
    function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF;
    procedure SetContextMenu(var menuStrings, menuStates: OleVariant);
    procedure NewDocument;
    procedure LoadURL(const url: WideString);
    function FilterSourceCode(const sourceCodeIn: WideString): WideString;
    procedure Refresh;
    property ControlInterface: IDHTMLSafe read GetControlInterface;
    property DOM: IHTMLDocument2 read Get_DOM;
    property IsDirty: WordBool index 22 read GetWordBoolProp;
    property CurrentDocumentPath: WideString index 23 read GetWideStringProp;
    property DocumentTitle: WideString index 25 read GetWideStringProp;
    property Busy: WordBool index 33 read GetWordBoolProp;
  published
    property TabStop;
    property Align;
    property DragCursor;
    property DragMode;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property Visible;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;