8a71ebf5bc
git-svn-id: https://svn.code.sf.net/p/kolmck/code@67 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
1358 lines
54 KiB
ObjectPascal
1358 lines
54 KiB
ObjectPascal
unit DHTMLEDLib_TLBKOL;
|
|
{ converted by TLB2KOL utility }
|
|
|
|
// ************************************************************************ //
|
|
// 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 $
|
|
// File generated on 18.07.2001 12:10:20 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:\Program Files\Common Files\Microsoft Shared\Triedit\dhtmled.ocx (1)
|
|
// IID\LCID: {683364A1-B37D-11D1-ADC5-006008A5848C}\0
|
|
// Helpfile:
|
|
// DepndLst:
|
|
// (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
|
|
// (2) v4.0 MSHTML, (C:\WINNT\System32\mshtml.tlb)
|
|
// Errors:
|
|
// Error creating palette bitmap of (TDEInsertTableParam) : Server C:\Program Files\Common Files\Microsoft Shared\Triedit\dhtmled.ocx contains no icons
|
|
// Error creating palette bitmap of (TDEGetBlockFmtNamesParam) : Server C:\Program Files\Common Files\Microsoft Shared\Triedit\dhtmled.ocx contains no icons
|
|
// ************************************************************************ //
|
|
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
|
|
interface
|
|
|
|
uses KOL, ActiveKOL, Windows, ActiveX, StdVCL, MSHTML_TLBKOL;
|
|
|
|
// *********************************************************************//
|
|
// 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
|
|
DHTMLEDLibMajorVersion = 1;
|
|
DHTMLEDLibMinorVersion = 0;
|
|
|
|
LIBID_DHTMLEDLib: TGUID = '{683364A1-B37D-11D1-ADC5-006008A5848C}';
|
|
|
|
IID_IDEGetBlockFmtNamesParam: TGUID = '{8D91090D-B955-11D1-ADC5-006008A5848C}';
|
|
IID_IDHTMLSafe: TGUID = '{CE04B590-2B1F-11D2-8D1E-00A0C959BC0A}';
|
|
IID_IDHTMLEdit: TGUID = '{CE04B591-2B1F-11D2-8D1E-00A0C959BC0A}';
|
|
IID_IDEInsertTableParam: TGUID = '{47B0DFC6-B7A3-11D1-ADC5-006008A5848C}';
|
|
DIID__DHTMLSafeEvents: TGUID = '{D1FC78E8-B380-11D1-ADC5-006008A5848C}';
|
|
DIID__DHTMLEditEvents: TGUID = '{588D5040-CF28-11D1-8CD3-00A0C959BC0A}';
|
|
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}';
|
|
|
|
// *********************************************************************//
|
|
// Declaration of Enumerations defined in Type Library
|
|
// *********************************************************************//
|
|
// Constants for enum DHTMLEDITCMDID
|
|
type
|
|
DHTMLEDITCMDID = TOleEnum;
|
|
const
|
|
DECMD_BOLD = $00001388;
|
|
DECMD_COPY = $0000138A;
|
|
DECMD_CUT = $0000138B;
|
|
DECMD_DELETE = $0000138C;
|
|
DECMD_DELETECELLS = $0000138D;
|
|
DECMD_DELETECOLS = $0000138E;
|
|
DECMD_DELETEROWS = $0000138F;
|
|
DECMD_FINDTEXT = $00001390;
|
|
DECMD_FONT = $00001391;
|
|
DECMD_GETBACKCOLOR = $00001392;
|
|
DECMD_GETBLOCKFMT = $00001393;
|
|
DECMD_GETBLOCKFMTNAMES = $00001394;
|
|
DECMD_GETFONTNAME = $00001395;
|
|
DECMD_GETFONTSIZE = $00001396;
|
|
DECMD_GETFORECOLOR = $00001397;
|
|
DECMD_HYPERLINK = $00001398;
|
|
DECMD_IMAGE = $00001399;
|
|
DECMD_INDENT = $0000139A;
|
|
DECMD_INSERTCELL = $0000139B;
|
|
DECMD_INSERTCOL = $0000139C;
|
|
DECMD_INSERTROW = $0000139D;
|
|
DECMD_INSERTTABLE = $0000139E;
|
|
DECMD_ITALIC = $0000139F;
|
|
DECMD_JUSTIFYCENTER = $000013A0;
|
|
DECMD_JUSTIFYLEFT = $000013A1;
|
|
DECMD_JUSTIFYRIGHT = $000013A2;
|
|
DECMD_LOCK_ELEMENT = $000013A3;
|
|
DECMD_MAKE_ABSOLUTE = $000013A4;
|
|
DECMD_MERGECELLS = $000013A5;
|
|
DECMD_ORDERLIST = $000013A6;
|
|
DECMD_OUTDENT = $000013A7;
|
|
DECMD_PASTE = $000013A8;
|
|
DECMD_REDO = $000013A9;
|
|
DECMD_REMOVEFORMAT = $000013AA;
|
|
DECMD_SELECTALL = $000013AB;
|
|
DECMD_SEND_BACKWARD = $000013AC;
|
|
DECMD_BRING_FORWARD = $000013AD;
|
|
DECMD_SEND_BELOW_TEXT = $000013AE;
|
|
DECMD_BRING_ABOVE_TEXT = $000013AF;
|
|
DECMD_SEND_TO_BACK = $000013B0;
|
|
DECMD_BRING_TO_FRONT = $000013B1;
|
|
DECMD_SETBACKCOLOR = $000013B2;
|
|
DECMD_SETBLOCKFMT = $000013B3;
|
|
DECMD_SETFONTNAME = $000013B4;
|
|
DECMD_SETFONTSIZE = $000013B5;
|
|
DECMD_SETFORECOLOR = $000013B6;
|
|
DECMD_SPLITCELL = $000013B7;
|
|
DECMD_UNDERLINE = $000013B8;
|
|
DECMD_UNDO = $000013B9;
|
|
DECMD_UNLINK = $000013BA;
|
|
DECMD_UNORDERLIST = $000013BB;
|
|
DECMD_PROPERTIES = $000013BC;
|
|
|
|
// Constants for enum DHTMLEDITCMDF
|
|
type
|
|
DHTMLEDITCMDF = TOleEnum;
|
|
const
|
|
DECMDF_NOTSUPPORTED = $00000000;
|
|
DECMDF_DISABLED = $00000001;
|
|
DECMDF_ENABLED = $00000003;
|
|
DECMDF_LATCHED = $00000007;
|
|
DECMDF_NINCHED = $0000000B;
|
|
|
|
// Constants for enum DHTMLEDITAPPEARANCE
|
|
type
|
|
DHTMLEDITAPPEARANCE = TOleEnum;
|
|
const
|
|
DEAPPEARANCE_FLAT = $00000000;
|
|
DEAPPEARANCE_3D = $00000001;
|
|
|
|
// Constants for enum OLECMDEXECOPT
|
|
type
|
|
OLECMDEXECOPT = TOleEnum;
|
|
const
|
|
OLECMDEXECOPT_DODEFAULT = $00000000;
|
|
OLECMDEXECOPT_PROMPTUSER = $00000001;
|
|
OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
|
|
OLECMDEXECOPT_SHOWHELP = $00000003;
|
|
|
|
type
|
|
|
|
// *********************************************************************//
|
|
// Forward declaration of types defined in TypeLibrary
|
|
// *********************************************************************//
|
|
IDEGetBlockFmtNamesParam = interface;
|
|
IDEGetBlockFmtNamesParamDisp = dispinterface;
|
|
IDHTMLSafe = interface;
|
|
IDHTMLSafeDisp = dispinterface;
|
|
IDHTMLEdit = interface;
|
|
IDHTMLEditDisp = dispinterface;
|
|
IDEInsertTableParam = interface;
|
|
IDEInsertTableParamDisp = dispinterface;
|
|
_DHTMLSafeEvents = dispinterface;
|
|
_DHTMLEditEvents = dispinterface;
|
|
|
|
// *********************************************************************//
|
|
// Declaration of CoClasses defined in Type Library
|
|
// (NOTE: Here we map each CoClass to its Default Interface)
|
|
// *********************************************************************//
|
|
DHTMLEdit = IDHTMLEdit;
|
|
DHTMLSafe = IDHTMLSafe;
|
|
DEInsertTableParam = IDEInsertTableParam;
|
|
DEGetBlockFmtNamesParam = IDEGetBlockFmtNamesParam;
|
|
|
|
|
|
// *********************************************************************//
|
|
// Declaration of structures, unions and aliases.
|
|
// *********************************************************************//
|
|
POleVariant1 = ^OleVariant; {*}
|
|
|
|
|
|
// *********************************************************************//
|
|
// Interface: IDEGetBlockFmtNamesParam
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {8D91090D-B955-11D1-ADC5-006008A5848C}
|
|
// *********************************************************************//
|
|
IDEGetBlockFmtNamesParam = interface(IDispatch)
|
|
['{8D91090D-B955-11D1-ADC5-006008A5848C}']
|
|
function Get_Names: OleVariant; safecall;
|
|
procedure Set_Names(var pVal: OleVariant); safecall;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IDEGetBlockFmtNamesParamDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {8D91090D-B955-11D1-ADC5-006008A5848C}
|
|
// *********************************************************************//
|
|
IDEGetBlockFmtNamesParamDisp = dispinterface
|
|
['{8D91090D-B955-11D1-ADC5-006008A5848C}']
|
|
function Names: OleVariant; dispid 1;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IDHTMLSafe
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {CE04B590-2B1F-11D2-8D1E-00A0C959BC0A}
|
|
// *********************************************************************//
|
|
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: OleVariant; var 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 docHTML: WideString); safecall;
|
|
function Get_ActivateApplets: WordBool; safecall;
|
|
procedure Set_ActivateApplets(pVal: WordBool); safecall;
|
|
function Get_ActivateActiveXControls: WordBool; safecall;
|
|
procedure Set_ActivateActiveXControls(pVal: WordBool); safecall;
|
|
function Get_ActivateDTCs: WordBool; safecall;
|
|
procedure Set_ActivateDTCs(pVal: WordBool); safecall;
|
|
function Get_ShowDetails: WordBool; safecall;
|
|
procedure Set_ShowDetails(pVal: WordBool); safecall;
|
|
function Get_ShowBorders: WordBool; safecall;
|
|
procedure Set_ShowBorders(pVal: WordBool); safecall;
|
|
function Get_Appearance: DHTMLEDITAPPEARANCE; safecall;
|
|
procedure Set_Appearance(pVal: DHTMLEDITAPPEARANCE); safecall;
|
|
function Get_Scrollbars: WordBool; safecall;
|
|
procedure Set_Scrollbars(pVal: WordBool); safecall;
|
|
function Get_ScrollbarAppearance: DHTMLEDITAPPEARANCE; safecall;
|
|
procedure Set_ScrollbarAppearance(pVal: DHTMLEDITAPPEARANCE); safecall;
|
|
function Get_SourceCodePreservation: WordBool; safecall;
|
|
procedure Set_SourceCodePreservation(pVal: WordBool); safecall;
|
|
function Get_AbsoluteDropMode: WordBool; safecall;
|
|
procedure Set_AbsoluteDropMode(pVal: WordBool); safecall;
|
|
function Get_SnapToGridX: Integer; safecall;
|
|
procedure Set_SnapToGridX(pVal: Integer); safecall;
|
|
function Get_SnapToGridY: Integer; safecall;
|
|
procedure Set_SnapToGridY(pVal: Integer); safecall;
|
|
function Get_SnapToGrid: WordBool; safecall;
|
|
procedure Set_SnapToGrid(pVal: WordBool); safecall;
|
|
function Get_IsDirty: WordBool; safecall;
|
|
function Get_CurrentDocumentPath: WideString; safecall;
|
|
function Get_BaseURL: WideString; safecall;
|
|
procedure Set_BaseURL(const BaseURL: WideString); safecall;
|
|
function Get_DocumentTitle: WideString; safecall;
|
|
function Get_UseDivOnCarriageReturn: WordBool; safecall;
|
|
procedure Set_UseDivOnCarriageReturn(pVal: 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;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IDHTMLSafeDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {CE04B590-2B1F-11D2-8D1E-00A0C959BC0A}
|
|
// *********************************************************************//
|
|
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: OleVariant; var 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;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IDHTMLEdit
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {CE04B591-2B1F-11D2-8D1E-00A0C959BC0A}
|
|
// *********************************************************************//
|
|
IDHTMLEdit = interface(IDHTMLSafe)
|
|
['{CE04B591-2B1F-11D2-8D1E-00A0C959BC0A}']
|
|
procedure LoadDocument(var pathIn: OleVariant; var promptUser: OleVariant); safecall;
|
|
procedure SaveDocument(var pathIn: OleVariant; var promptUser: OleVariant); safecall;
|
|
procedure PrintDocument(var withUI: OleVariant); safecall;
|
|
function Get_BrowseMode: WordBool; safecall;
|
|
procedure Set_BrowseMode(pVal: WordBool); safecall;
|
|
property BrowseMode: WordBool read Get_BrowseMode write Set_BrowseMode;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IDHTMLEditDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {CE04B591-2B1F-11D2-8D1E-00A0C959BC0A}
|
|
// *********************************************************************//
|
|
IDHTMLEditDisp = dispinterface
|
|
['{CE04B591-2B1F-11D2-8D1E-00A0C959BC0A}']
|
|
procedure LoadDocument(var pathIn: OleVariant; var promptUser: OleVariant); dispid 1;
|
|
procedure SaveDocument(var pathIn: OleVariant; var promptUser: OleVariant); dispid 4;
|
|
procedure PrintDocument(var withUI: OleVariant); dispid 28;
|
|
property BrowseMode: WordBool dispid 26;
|
|
function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant; dispid 2;
|
|
function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF; dispid 3;
|
|
procedure SetContextMenu(var menuStrings: OleVariant; var 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;
|
|
|
|
// *********************************************************************//
|
|
// Interface: IDEInsertTableParam
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {47B0DFC6-B7A3-11D1-ADC5-006008A5848C}
|
|
// *********************************************************************//
|
|
IDEInsertTableParam = interface(IDispatch)
|
|
['{47B0DFC6-B7A3-11D1-ADC5-006008A5848C}']
|
|
function Get_NumRows: Integer; safecall;
|
|
procedure Set_NumRows(pVal: Integer); safecall;
|
|
function Get_NumCols: Integer; safecall;
|
|
procedure Set_NumCols(pVal: Integer); safecall;
|
|
function Get_TableAttrs: WideString; safecall;
|
|
procedure Set_TableAttrs(const pVal: WideString); safecall;
|
|
function Get_CellAttrs: WideString; safecall;
|
|
procedure Set_CellAttrs(const pVal: WideString); safecall;
|
|
function Get_Caption: WideString; safecall;
|
|
procedure Set_Caption(const pVal: 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;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: IDEInsertTableParamDisp
|
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
|
// GUID: {47B0DFC6-B7A3-11D1-ADC5-006008A5848C}
|
|
// *********************************************************************//
|
|
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;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: _DHTMLSafeEvents
|
|
// Flags: (4096) Dispatchable
|
|
// GUID: {D1FC78E8-B380-11D1-ADC5-006008A5848C}
|
|
// *********************************************************************//
|
|
_DHTMLSafeEvents = dispinterface
|
|
['{D1FC78E8-B380-11D1-ADC5-006008A5848C}']
|
|
procedure DocumentComplete; dispid 1;
|
|
procedure DisplayChanged; dispid 2;
|
|
procedure ShowContextMenu(xPos: Integer; 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;
|
|
|
|
// *********************************************************************//
|
|
// DispIntf: _DHTMLEditEvents
|
|
// Flags: (4096) Dispatchable
|
|
// GUID: {588D5040-CF28-11D1-8CD3-00A0C959BC0A}
|
|
// *********************************************************************//
|
|
_DHTMLEditEvents = dispinterface
|
|
['{588D5040-CF28-11D1-8CD3-00A0C959BC0A}']
|
|
procedure DocumentComplete; dispid 1;
|
|
procedure DisplayChanged; dispid 2;
|
|
procedure ShowContextMenu(xPos: Integer; 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;
|
|
|
|
|
|
// *********************************************************************//
|
|
// OLE Control Proxy class declaration
|
|
// Control Name : TDHTMLEdit
|
|
// Help String : DHTML Edit Control for IE5
|
|
// Default Interface: IDHTMLEdit
|
|
// Def. Intf. DISP? : No
|
|
// Event Interface: _DHTMLEditEvents
|
|
// TypeFlags : (2) CanCreate
|
|
// *********************************************************************//
|
|
TDHTMLEditShowContextMenu = procedure(Sender: TObject; xPos: Integer; yPos: Integer) of object;
|
|
TDHTMLEditContextMenuAction = procedure(Sender: TObject; itemIndex: Integer) of object;
|
|
TWebBrowserDocumentComplete = procedure(Sender: PObj; const pDisp: IDispatch;
|
|
var URL: OleVariant) of object;
|
|
|
|
PDHTMLEdit = ^TDHTMLEdit;
|
|
TDHTMLEdit = object(TOleCtl)
|
|
private
|
|
FOnDocumentComplete: TWebBrowserDocumentComplete;
|
|
FOnDisplayChanged: TOnEvent;
|
|
FOnShowContextMenu: TDHTMLEditShowContextMenu;
|
|
FOnContextMenuAction: TDHTMLEditContextMenuAction;
|
|
FOnonmousedown: TOnEvent;
|
|
FOnonmousemove: TOnEvent;
|
|
FOnonmouseup: TOnEvent;
|
|
FOnonmouseout: TOnEvent;
|
|
FOnonmouseover: TOnEvent;
|
|
FOnonclick: TOnEvent;
|
|
FOnondblclick: TOnEvent;
|
|
FOnonkeydown: TOnEvent;
|
|
FOnonkeypress: TOnEvent;
|
|
FOnonkeyup: TOnEvent;
|
|
FOnonblur: TOnEvent;
|
|
FOnonreadystatechange: TOnEvent;
|
|
FIntf: IDHTMLEdit;
|
|
function GetControlInterface: IDHTMLEdit;
|
|
protected
|
|
procedure CreateControl;
|
|
procedure InitControlData; virtual;
|
|
function Get_DOM: IHTMLDocument2;
|
|
public
|
|
function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT): OleVariant; overload;
|
|
function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant; overload;
|
|
function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF;
|
|
procedure SetContextMenu(var menuStrings: OleVariant; var menuStates: OleVariant);
|
|
procedure NewDocument;
|
|
procedure LoadURL(const url: WideString);
|
|
function FilterSourceCode(const sourceCodeIn: WideString): WideString;
|
|
procedure Refresh;
|
|
procedure LoadDocument(var pathIn: OleVariant); overload;
|
|
procedure LoadDocument(var pathIn: OleVariant; var promptUser: OleVariant); overload;
|
|
procedure SaveDocument(var pathIn: OleVariant); overload;
|
|
procedure SaveDocument(var pathIn: OleVariant; var promptUser: OleVariant); overload;
|
|
procedure PrintDocument; overload;
|
|
procedure PrintDocument(var withUI: OleVariant); overload;
|
|
property ControlInterface: IDHTMLEdit read GetControlInterface;
|
|
property DefaultInterface: 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: TOleEnum index 13 read GetTOleEnumProp write SetTOleEnumProp stored False;
|
|
property Scrollbars: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property ScrollbarAppearance: TOleEnum 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: TWebBrowserDocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
|
|
property OnDisplayChanged: TOnEvent read FOnDisplayChanged write FOnDisplayChanged;
|
|
property OnShowContextMenu: TDHTMLEditShowContextMenu read FOnShowContextMenu write FOnShowContextMenu;
|
|
property OnContextMenuAction: TDHTMLEditContextMenuAction read FOnContextMenuAction write FOnContextMenuAction;
|
|
property Ononmousedown: TOnEvent read FOnonmousedown write FOnonmousedown;
|
|
property Ononmousemove: TOnEvent read FOnonmousemove write FOnonmousemove;
|
|
property Ononmouseup: TOnEvent read FOnonmouseup write FOnonmouseup;
|
|
property Ononmouseout: TOnEvent read FOnonmouseout write FOnonmouseout;
|
|
property Ononmouseover: TOnEvent read FOnonmouseover write FOnonmouseover;
|
|
property Ononclick: TOnEvent read FOnonclick write FOnonclick;
|
|
property Onondblclick: TOnEvent read FOnondblclick write FOnondblclick;
|
|
property Ononkeydown: TOnEvent read FOnonkeydown write FOnonkeydown;
|
|
property Ononkeypress: TOnEvent read FOnonkeypress write FOnonkeypress;
|
|
property Ononkeyup: TOnEvent read FOnonkeyup write FOnonkeyup;
|
|
property Ononblur: TOnEvent read FOnonblur write FOnonblur;
|
|
property Ononreadystatechange: TOnEvent read FOnonreadystatechange write FOnonreadystatechange;
|
|
end;
|
|
|
|
|
|
// *********************************************************************//
|
|
// OLE Control Proxy class declaration
|
|
// Control Name : TDHTMLSafe
|
|
// Help String : DHTML Safe for Scripting Control for IE5
|
|
// Default Interface: IDHTMLSafe
|
|
// Def. Intf. DISP? : No
|
|
// Event Interface: _DHTMLSafeEvents
|
|
// TypeFlags : (2) CanCreate
|
|
// *********************************************************************//
|
|
TDHTMLSafeShowContextMenu = procedure(Sender: TObject; xPos: Integer; yPos: Integer) of object;
|
|
TDHTMLSafeContextMenuAction = procedure(Sender: TObject; itemIndex: Integer) of object;
|
|
|
|
PDHTMLSafe = ^TDHTMLSafe;
|
|
TDHTMLSafe = object(TOleCtl)
|
|
private
|
|
FOnDocumentComplete: TOnEvent;
|
|
FOnDisplayChanged: TOnEvent;
|
|
FOnShowContextMenu: TDHTMLSafeShowContextMenu;
|
|
FOnContextMenuAction: TDHTMLSafeContextMenuAction;
|
|
FOnonmousedown: TOnEvent;
|
|
FOnonmousemove: TOnEvent;
|
|
FOnonmouseup: TOnEvent;
|
|
FOnonmouseout: TOnEvent;
|
|
FOnonmouseover: TOnEvent;
|
|
FOnonclick: TOnEvent;
|
|
FOnondblclick: TOnEvent;
|
|
FOnonkeydown: TOnEvent;
|
|
FOnonkeypress: TOnEvent;
|
|
FOnonkeyup: TOnEvent;
|
|
FOnonblur: TOnEvent;
|
|
FOnonreadystatechange: TOnEvent;
|
|
FIntf: IDHTMLSafe;
|
|
function GetControlInterface: IDHTMLSafe;
|
|
protected
|
|
procedure CreateControl;
|
|
procedure InitControlData; virtual;
|
|
function Get_DOM: IHTMLDocument2;
|
|
public
|
|
function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT): OleVariant; overload;
|
|
function ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT; var pInVar: OleVariant): OleVariant; overload;
|
|
function QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF;
|
|
procedure SetContextMenu(var menuStrings: OleVariant; var menuStates: OleVariant);
|
|
procedure NewDocument;
|
|
procedure LoadURL(const url: WideString);
|
|
function FilterSourceCode(const sourceCodeIn: WideString): WideString;
|
|
procedure Refresh;
|
|
property ControlInterface: IDHTMLSafe read GetControlInterface;
|
|
property DefaultInterface: 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;
|
|
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: TOleEnum index 13 read GetTOleEnumProp write SetTOleEnumProp stored False;
|
|
property Scrollbars: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
|
|
property ScrollbarAppearance: TOleEnum 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 OnDocumentComplete: TOnEvent read FOnDocumentComplete write FOnDocumentComplete;
|
|
property OnDisplayChanged: TOnEvent read FOnDisplayChanged write FOnDisplayChanged;
|
|
property OnShowContextMenu: TDHTMLSafeShowContextMenu read FOnShowContextMenu write FOnShowContextMenu;
|
|
property OnContextMenuAction: TDHTMLSafeContextMenuAction read FOnContextMenuAction write FOnContextMenuAction;
|
|
property Ononmousedown: TOnEvent read FOnonmousedown write FOnonmousedown;
|
|
property Ononmousemove: TOnEvent read FOnonmousemove write FOnonmousemove;
|
|
property Ononmouseup: TOnEvent read FOnonmouseup write FOnonmouseup;
|
|
property Ononmouseout: TOnEvent read FOnonmouseout write FOnonmouseout;
|
|
property Ononmouseover: TOnEvent read FOnonmouseover write FOnonmouseover;
|
|
property Ononclick: TOnEvent read FOnonclick write FOnonclick;
|
|
property Onondblclick: TOnEvent read FOnondblclick write FOnondblclick;
|
|
property Ononkeydown: TOnEvent read FOnonkeydown write FOnonkeydown;
|
|
property Ononkeypress: TOnEvent read FOnonkeypress write FOnonkeypress;
|
|
property Ononkeyup: TOnEvent read FOnonkeyup write FOnonkeyup;
|
|
property Ononblur: TOnEvent read FOnonblur write FOnonblur;
|
|
property Ononreadystatechange: TOnEvent read FOnonreadystatechange write FOnonreadystatechange;
|
|
end;
|
|
|
|
// *********************************************************************//
|
|
// The Class CoDEInsertTableParam provides a Create and CreateRemote method to
|
|
// create instances of the default interface IDEInsertTableParam exposed by
|
|
// the CoClass DEInsertTableParam. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoDEInsertTableParam = class
|
|
class function Create: IDEInsertTableParam;
|
|
class function CreateRemote(const MachineName: string): IDEInsertTableParam;
|
|
end;
|
|
|
|
|
|
// *********************************************************************//
|
|
// OLE Server Proxy class declaration
|
|
// Server Object : TDEInsertTableParam
|
|
// Help String : DEInsertTableParam Class
|
|
// Default Interface: IDEInsertTableParam
|
|
// Def. Intf. DISP? : No
|
|
// Event Interface:
|
|
// TypeFlags : (2) CanCreate
|
|
// *********************************************************************//
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
TDEInsertTableParamProperties= class;
|
|
{$ENDIF}
|
|
TDEInsertTableParam = class(TOleServer)
|
|
private
|
|
FIntf: IDEInsertTableParam;
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
FProps: TDEInsertTableParamProperties;
|
|
function GetServerProperties: TDEInsertTableParamProperties;
|
|
{$ENDIF}
|
|
function GetDefaultInterface: IDEInsertTableParam;
|
|
protected
|
|
procedure InitServerData; override;
|
|
function Get_NumRows: Integer;
|
|
procedure Set_NumRows(pVal: Integer);
|
|
function Get_NumCols: Integer;
|
|
procedure Set_NumCols(pVal: Integer);
|
|
function Get_TableAttrs: WideString;
|
|
procedure Set_TableAttrs(const pVal: WideString);
|
|
function Get_CellAttrs: WideString;
|
|
procedure Set_CellAttrs(const pVal: WideString);
|
|
function Get_Caption: WideString;
|
|
procedure Set_Caption(const pVal: WideString);
|
|
public
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
procedure Connect; override;
|
|
procedure ConnectTo(svrIntf: IDEInsertTableParam);
|
|
procedure Disconnect; override;
|
|
property DefaultInterface: IDEInsertTableParam read GetDefaultInterface;
|
|
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;
|
|
published
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
property Server: TDEInsertTableParamProperties read GetServerProperties;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
// *********************************************************************//
|
|
// OLE Server Properties Proxy Class
|
|
// Server Object : TDEInsertTableParam
|
|
// (This object is used by the IDE's Property Inspector to allow editing
|
|
// of the properties of this server)
|
|
// *********************************************************************//
|
|
TDEInsertTableParamProperties = class(TPersistent)
|
|
private
|
|
FServer: TDEInsertTableParam;
|
|
function GetDefaultInterface: IDEInsertTableParam;
|
|
constructor Create;
|
|
protected
|
|
function Get_NumRows: Integer;
|
|
procedure Set_NumRows(pVal: Integer);
|
|
function Get_NumCols: Integer;
|
|
procedure Set_NumCols(pVal: Integer);
|
|
function Get_TableAttrs: WideString;
|
|
procedure Set_TableAttrs(const pVal: WideString);
|
|
function Get_CellAttrs: WideString;
|
|
procedure Set_CellAttrs(const pVal: WideString);
|
|
function Get_Caption: WideString;
|
|
procedure Set_Caption(const pVal: WideString);
|
|
public
|
|
property DefaultInterface: IDEInsertTableParam read GetDefaultInterface;
|
|
published
|
|
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;
|
|
{$ENDIF}
|
|
|
|
|
|
// *********************************************************************//
|
|
// The Class CoDEGetBlockFmtNamesParam provides a Create and CreateRemote method to
|
|
// create instances of the default interface IDEGetBlockFmtNamesParam exposed by
|
|
// the CoClass DEGetBlockFmtNamesParam. The functions are intended to be used by
|
|
// clients wishing to automate the CoClass objects exposed by the
|
|
// server of this typelibrary.
|
|
// *********************************************************************//
|
|
CoDEGetBlockFmtNamesParam = class
|
|
class function Create: IDEGetBlockFmtNamesParam;
|
|
class function CreateRemote(const MachineName: string): IDEGetBlockFmtNamesParam;
|
|
end;
|
|
|
|
|
|
// *********************************************************************//
|
|
// OLE Server Proxy class declaration
|
|
// Server Object : TDEGetBlockFmtNamesParam
|
|
// Help String : DEGetBlockFmtNamesParam Class
|
|
// Default Interface: IDEGetBlockFmtNamesParam
|
|
// Def. Intf. DISP? : No
|
|
// Event Interface:
|
|
// TypeFlags : (2) CanCreate
|
|
// *********************************************************************//
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
TDEGetBlockFmtNamesParamProperties= class;
|
|
{$ENDIF}
|
|
TDEGetBlockFmtNamesParam = class(TOleServer)
|
|
private
|
|
FIntf: IDEGetBlockFmtNamesParam;
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
FProps: TDEGetBlockFmtNamesParamProperties;
|
|
function GetServerProperties: TDEGetBlockFmtNamesParamProperties;
|
|
{$ENDIF}
|
|
function GetDefaultInterface: IDEGetBlockFmtNamesParam;
|
|
protected
|
|
procedure InitServerData; override;
|
|
function Get_Names: OleVariant;
|
|
procedure Set_Names(var pVal: OleVariant);
|
|
public
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
procedure Connect; override;
|
|
procedure ConnectTo(svrIntf: IDEGetBlockFmtNamesParam);
|
|
procedure Disconnect; override;
|
|
property DefaultInterface: IDEGetBlockFmtNamesParam read GetDefaultInterface;
|
|
published
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
property Server: TDEGetBlockFmtNamesParamProperties read GetServerProperties;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
// *********************************************************************//
|
|
// OLE Server Properties Proxy Class
|
|
// Server Object : TDEGetBlockFmtNamesParam
|
|
// (This object is used by the IDE's Property Inspector to allow editing
|
|
// of the properties of this server)
|
|
// *********************************************************************//
|
|
TDEGetBlockFmtNamesParamProperties = class(TPersistent)
|
|
private
|
|
FServer: TDEGetBlockFmtNamesParam;
|
|
function GetDefaultInterface: IDEGetBlockFmtNamesParam;
|
|
constructor Create;
|
|
protected
|
|
function Get_Names: OleVariant;
|
|
procedure Set_Names(var pVal: OleVariant);
|
|
public
|
|
property DefaultInterface: IDEGetBlockFmtNamesParam read GetDefaultInterface;
|
|
published
|
|
end;
|
|
{$ENDIF}
|
|
|
|
|
|
//procedure Register
|
|
|
|
implementation
|
|
|
|
uses KOLComObj;
|
|
|
|
{$J+}
|
|
procedure TDHTMLEdit.InitControlData;
|
|
const
|
|
CEventDispIDs: array [0..15] of DWORD = (
|
|
$00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
|
|
$00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
|
|
$0000000D, $0000000E, $0000000F, $00000010);
|
|
CControlData: TControlData2 = (
|
|
ClassID: '{2D360200-FFF5-11D1-8D03-00A0C959BC0A}';
|
|
EventIID: '{588D5040-CF28-11D1-8CD3-00A0C959BC0A}';
|
|
EventCount: 16;
|
|
EventDispIDs: @CEventDispIDs;
|
|
LicenseKey: nil (*HR:$80004002*);
|
|
Flags: $00000000;
|
|
Version: 401);
|
|
begin
|
|
ControlData := @CControlData;
|
|
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnDocumentComplete) - Cardinal(@Self);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.CreateControl;
|
|
|
|
procedure DoCreate;
|
|
begin
|
|
FIntf := IUnknown(OleObject) as IDHTMLEdit;
|
|
end;
|
|
|
|
begin
|
|
if FIntf = nil then DoCreate;
|
|
end;
|
|
|
|
function TDHTMLEdit.GetControlInterface: IDHTMLEdit;
|
|
begin
|
|
CreateControl;
|
|
Result := FIntf;
|
|
end;
|
|
|
|
function TDHTMLEdit.Get_DOM: IHTMLDocument2;
|
|
begin
|
|
Result := DefaultInterface.Get_DOM;
|
|
end;
|
|
|
|
function TDHTMLEdit.ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT): OleVariant;
|
|
begin
|
|
Result := DefaultInterface.ExecCommand(cmdID, cmdexecopt, EmptyParam);
|
|
end;
|
|
|
|
function TDHTMLEdit.ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT;
|
|
var pInVar: OleVariant): OleVariant;
|
|
begin
|
|
Result := DefaultInterface.ExecCommand(cmdID, cmdexecopt, pInVar);
|
|
end;
|
|
|
|
function TDHTMLEdit.QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF;
|
|
begin
|
|
Result := DefaultInterface.QueryStatus(cmdID);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.SetContextMenu(var menuStrings: OleVariant; var menuStates: OleVariant);
|
|
begin
|
|
DefaultInterface.SetContextMenu(menuStrings, menuStates);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.NewDocument;
|
|
begin
|
|
DefaultInterface.NewDocument;
|
|
end;
|
|
|
|
procedure TDHTMLEdit.LoadURL(const url: WideString);
|
|
begin
|
|
DefaultInterface.LoadURL(url);
|
|
end;
|
|
|
|
function TDHTMLEdit.FilterSourceCode(const sourceCodeIn: WideString): WideString;
|
|
begin
|
|
Result := DefaultInterface.FilterSourceCode(sourceCodeIn);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.Refresh;
|
|
begin
|
|
DefaultInterface.Refresh;
|
|
end;
|
|
|
|
procedure TDHTMLEdit.LoadDocument(var pathIn: OleVariant);
|
|
begin
|
|
DefaultInterface.LoadDocument(pathIn, EmptyParam);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.LoadDocument(var pathIn: OleVariant; var promptUser: OleVariant);
|
|
begin
|
|
DefaultInterface.LoadDocument(pathIn, promptUser);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.SaveDocument(var pathIn: OleVariant);
|
|
begin
|
|
DefaultInterface.SaveDocument(pathIn, EmptyParam);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.SaveDocument(var pathIn: OleVariant; var promptUser: OleVariant);
|
|
begin
|
|
DefaultInterface.SaveDocument(pathIn, promptUser);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.PrintDocument;
|
|
begin
|
|
DefaultInterface.PrintDocument(EmptyParam);
|
|
end;
|
|
|
|
procedure TDHTMLEdit.PrintDocument(var withUI: OleVariant);
|
|
begin
|
|
DefaultInterface.PrintDocument(withUI);
|
|
end;
|
|
|
|
procedure TDHTMLSafe.InitControlData;
|
|
const
|
|
CEventDispIDs: array [0..15] of DWORD = (
|
|
$00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
|
|
$00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
|
|
$0000000D, $0000000E, $0000000F, $00000010);
|
|
CControlData: TControlData2 = (
|
|
ClassID: '{2D360201-FFF5-11D1-8D03-00A0C959BC0A}';
|
|
EventIID: '{D1FC78E8-B380-11D1-ADC5-006008A5848C}';
|
|
EventCount: 16;
|
|
EventDispIDs: @CEventDispIDs;
|
|
LicenseKey: nil (*HR:$80004002*);
|
|
Flags: $00000000;
|
|
Version: 401);
|
|
begin
|
|
ControlData := @CControlData;
|
|
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnDocumentComplete) - Cardinal(@Self);
|
|
end;
|
|
|
|
procedure TDHTMLSafe.CreateControl;
|
|
|
|
procedure DoCreate;
|
|
begin
|
|
FIntf := IUnknown(OleObject) as IDHTMLSafe;
|
|
end;
|
|
|
|
begin
|
|
if FIntf = nil then DoCreate;
|
|
end;
|
|
|
|
function TDHTMLSafe.GetControlInterface: IDHTMLSafe;
|
|
begin
|
|
CreateControl;
|
|
Result := FIntf;
|
|
end;
|
|
|
|
function TDHTMLSafe.Get_DOM: IHTMLDocument2;
|
|
begin
|
|
Result := DefaultInterface.Get_DOM;
|
|
end;
|
|
|
|
function TDHTMLSafe.ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT): OleVariant;
|
|
begin
|
|
Result := DefaultInterface.ExecCommand(cmdID, cmdexecopt, EmptyParam);
|
|
end;
|
|
|
|
function TDHTMLSafe.ExecCommand(cmdID: DHTMLEDITCMDID; cmdexecopt: OLECMDEXECOPT;
|
|
var pInVar: OleVariant): OleVariant;
|
|
begin
|
|
Result := DefaultInterface.ExecCommand(cmdID, cmdexecopt, pInVar);
|
|
end;
|
|
|
|
function TDHTMLSafe.QueryStatus(cmdID: DHTMLEDITCMDID): DHTMLEDITCMDF;
|
|
begin
|
|
Result := DefaultInterface.QueryStatus(cmdID);
|
|
end;
|
|
|
|
procedure TDHTMLSafe.SetContextMenu(var menuStrings: OleVariant; var menuStates: OleVariant);
|
|
begin
|
|
DefaultInterface.SetContextMenu(menuStrings, menuStates);
|
|
end;
|
|
|
|
procedure TDHTMLSafe.NewDocument;
|
|
begin
|
|
DefaultInterface.NewDocument;
|
|
end;
|
|
|
|
procedure TDHTMLSafe.LoadURL(const url: WideString);
|
|
begin
|
|
DefaultInterface.LoadURL(url);
|
|
end;
|
|
|
|
function TDHTMLSafe.FilterSourceCode(const sourceCodeIn: WideString): WideString;
|
|
begin
|
|
Result := DefaultInterface.FilterSourceCode(sourceCodeIn);
|
|
end;
|
|
|
|
procedure TDHTMLSafe.Refresh;
|
|
begin
|
|
DefaultInterface.Refresh;
|
|
end;
|
|
|
|
class function CoDEInsertTableParam.Create: IDEInsertTableParam;
|
|
begin
|
|
Result := CreateComObject(CLASS_DEInsertTableParam) as IDEInsertTableParam;
|
|
end;
|
|
|
|
class function CoDEInsertTableParam.CreateRemote(const MachineName: string): IDEInsertTableParam;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_DEInsertTableParam) as IDEInsertTableParam;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.InitServerData;
|
|
const
|
|
CServerData: TServerData = (
|
|
ClassID: '{47B0DFC7-B7A3-11D1-ADC5-006008A5848C}';
|
|
IntfIID: '{47B0DFC6-B7A3-11D1-ADC5-006008A5848C}';
|
|
EventIID: '';
|
|
LicenseKey: nil;
|
|
Version: 500);
|
|
begin
|
|
ServerData := @CServerData;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.Connect;
|
|
var
|
|
punk: IUnknown;
|
|
begin
|
|
if FIntf = nil then
|
|
begin
|
|
punk := GetServer;
|
|
Fintf:= punk as IDEInsertTableParam;
|
|
end;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.ConnectTo(svrIntf: IDEInsertTableParam);
|
|
begin
|
|
Disconnect;
|
|
FIntf := svrIntf;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.DisConnect;
|
|
begin
|
|
if Fintf <> nil then
|
|
begin
|
|
FIntf := nil;
|
|
end;
|
|
end;
|
|
|
|
function TDEInsertTableParam.GetDefaultInterface: IDEInsertTableParam;
|
|
begin
|
|
if FIntf = nil then
|
|
Connect;
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
|
|
Result := FIntf;
|
|
end;
|
|
|
|
constructor TDEInsertTableParam.Create;
|
|
begin
|
|
inherited Create;
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
FProps := TDEInsertTableParamProperties.Create(@Self);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
destructor TDEInsertTableParam.Destroy;
|
|
begin
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
FProps.Free;
|
|
{$ENDIF}
|
|
inherited Destroy;
|
|
end;
|
|
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
function TDEInsertTableParam.GetServerProperties: TDEInsertTableParamProperties;
|
|
begin
|
|
Result := FProps;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
function TDEInsertTableParam.Get_NumRows: Integer;
|
|
begin
|
|
Result := DefaultInterface.Get_NumRows;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.Set_NumRows(pVal: Integer);
|
|
begin
|
|
DefaultInterface.Set_NumRows(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParam.Get_NumCols: Integer;
|
|
begin
|
|
Result := DefaultInterface.Get_NumCols;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.Set_NumCols(pVal: Integer);
|
|
begin
|
|
DefaultInterface.Set_NumCols(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParam.Get_TableAttrs: WideString;
|
|
begin
|
|
Result := DefaultInterface.Get_TableAttrs;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.Set_TableAttrs(const pVal: WideString);
|
|
begin
|
|
DefaultInterface.Set_TableAttrs(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParam.Get_CellAttrs: WideString;
|
|
begin
|
|
Result := DefaultInterface.Get_CellAttrs;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.Set_CellAttrs(const pVal: WideString);
|
|
begin
|
|
DefaultInterface.Set_CellAttrs(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParam.Get_Caption: WideString;
|
|
begin
|
|
Result := DefaultInterface.Get_Caption;
|
|
end;
|
|
|
|
procedure TDEInsertTableParam.Set_Caption(const pVal: WideString);
|
|
begin
|
|
DefaultInterface.Set_Caption(pVal);
|
|
end;
|
|
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
constructor TDEInsertTableParamProperties.Create;
|
|
begin
|
|
inherited Create;
|
|
FServer := AServer;
|
|
end;
|
|
|
|
function TDEInsertTableParamProperties.GetDefaultInterface: IDEInsertTableParam;
|
|
begin
|
|
Result := FServer.DefaultInterface;
|
|
end;
|
|
|
|
function TDEInsertTableParamProperties.Get_NumRows: Integer;
|
|
begin
|
|
Result := DefaultInterface.Get_NumRows;
|
|
end;
|
|
|
|
procedure TDEInsertTableParamProperties.Set_NumRows(pVal: Integer);
|
|
begin
|
|
DefaultInterface.Set_NumRows(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParamProperties.Get_NumCols: Integer;
|
|
begin
|
|
Result := DefaultInterface.Get_NumCols;
|
|
end;
|
|
|
|
procedure TDEInsertTableParamProperties.Set_NumCols(pVal: Integer);
|
|
begin
|
|
DefaultInterface.Set_NumCols(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParamProperties.Get_TableAttrs: WideString;
|
|
begin
|
|
Result := DefaultInterface.Get_TableAttrs;
|
|
end;
|
|
|
|
procedure TDEInsertTableParamProperties.Set_TableAttrs(const pVal: WideString);
|
|
begin
|
|
DefaultInterface.Set_TableAttrs(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParamProperties.Get_CellAttrs: WideString;
|
|
begin
|
|
Result := DefaultInterface.Get_CellAttrs;
|
|
end;
|
|
|
|
procedure TDEInsertTableParamProperties.Set_CellAttrs(const pVal: WideString);
|
|
begin
|
|
DefaultInterface.Set_CellAttrs(pVal);
|
|
end;
|
|
|
|
function TDEInsertTableParamProperties.Get_Caption: WideString;
|
|
begin
|
|
Result := DefaultInterface.Get_Caption;
|
|
end;
|
|
|
|
procedure TDEInsertTableParamProperties.Set_Caption(const pVal: WideString);
|
|
begin
|
|
DefaultInterface.Set_Caption(pVal);
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
class function CoDEGetBlockFmtNamesParam.Create: IDEGetBlockFmtNamesParam;
|
|
begin
|
|
Result := CreateComObject(CLASS_DEGetBlockFmtNamesParam) as IDEGetBlockFmtNamesParam;
|
|
end;
|
|
|
|
class function CoDEGetBlockFmtNamesParam.CreateRemote(const MachineName: string): IDEGetBlockFmtNamesParam;
|
|
begin
|
|
Result := CreateRemoteComObject(MachineName, CLASS_DEGetBlockFmtNamesParam) as IDEGetBlockFmtNamesParam;
|
|
end;
|
|
|
|
procedure TDEGetBlockFmtNamesParam.InitServerData;
|
|
const
|
|
CServerData: TServerData = (
|
|
ClassID: '{8D91090E-B955-11D1-ADC5-006008A5848C}';
|
|
IntfIID: '{8D91090D-B955-11D1-ADC5-006008A5848C}';
|
|
EventIID: '';
|
|
LicenseKey: nil;
|
|
Version: 500);
|
|
begin
|
|
ServerData := @CServerData;
|
|
end;
|
|
|
|
procedure TDEGetBlockFmtNamesParam.Connect;
|
|
var
|
|
punk: IUnknown;
|
|
begin
|
|
if FIntf = nil then
|
|
begin
|
|
punk := GetServer;
|
|
Fintf:= punk as IDEGetBlockFmtNamesParam;
|
|
end;
|
|
end;
|
|
|
|
procedure TDEGetBlockFmtNamesParam.ConnectTo(svrIntf: IDEGetBlockFmtNamesParam);
|
|
begin
|
|
Disconnect;
|
|
FIntf := svrIntf;
|
|
end;
|
|
|
|
procedure TDEGetBlockFmtNamesParam.DisConnect;
|
|
begin
|
|
if Fintf <> nil then
|
|
begin
|
|
FIntf := nil;
|
|
end;
|
|
end;
|
|
|
|
function TDEGetBlockFmtNamesParam.GetDefaultInterface: IDEGetBlockFmtNamesParam;
|
|
begin
|
|
if FIntf = nil then
|
|
Connect;
|
|
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
|
|
Result := FIntf;
|
|
end;
|
|
|
|
constructor TDEGetBlockFmtNamesParam.Create;
|
|
begin
|
|
inherited Create;
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
FProps := TDEGetBlockFmtNamesParamProperties.Create(@Self);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
destructor TDEGetBlockFmtNamesParam.Destroy;
|
|
begin
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
FProps.Free;
|
|
{$ENDIF}
|
|
inherited Destroy;
|
|
end;
|
|
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
function TDEGetBlockFmtNamesParam.GetServerProperties: TDEGetBlockFmtNamesParamProperties;
|
|
begin
|
|
Result := FProps;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
function TDEGetBlockFmtNamesParam.Get_Names: OleVariant;
|
|
begin
|
|
Result := DefaultInterface.Get_Names;
|
|
end;
|
|
|
|
procedure TDEGetBlockFmtNamesParam.Set_Names(var pVal: OleVariant);
|
|
begin
|
|
DefaultInterface.Set_Names(pVal);
|
|
end;
|
|
|
|
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
|
|
constructor TDEGetBlockFmtNamesParamProperties.Create;
|
|
begin
|
|
inherited Create;
|
|
FServer := AServer;
|
|
end;
|
|
|
|
function TDEGetBlockFmtNamesParamProperties.GetDefaultInterface: IDEGetBlockFmtNamesParam;
|
|
begin
|
|
Result := FServer.DefaultInterface;
|
|
end;
|
|
|
|
function TDEGetBlockFmtNamesParamProperties.Get_Names: OleVariant;
|
|
begin
|
|
Result := DefaultInterface.Get_Names;
|
|
end;
|
|
|
|
procedure TDEGetBlockFmtNamesParamProperties.Set_Names(var pVal: OleVariant);
|
|
begin
|
|
DefaultInterface.Set_Names(pVal);
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
//procedure Register;
|
|
|
|
end.
|