Class TDHEDForm (unit hedform)

Inherits from

TForm

Constructors



Functions

procedure BoldBtnClick(Sender: TObject);

OleCheck(hr);

procedure CopyBtnClick(Sender: TObject);


procedure CutBtnClick(Sender: TObject);


procedure DHTMLEdit1DisplayChanged(Sender: TObject);


procedure DHTMLEdit1DocumentComplete(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ItalicBtnClick(Sender: TObject);

ExecCommand(DECMD_BOLD, OLECMDEXECOPT_DONTPROMPTUSER, Null);

procedure OpenBtnClick(Sender: TObject);


procedure PasteBtnClick(Sender: TObject);

TridentCommand(IDM_COPY, false, false, false, false, nil, nil);

procedure SaveBtnClick(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure TEFindBtnClick(Sender: TObject);


procedure TEFontNameBoxChange(Sender: TObject);


procedure TEFontSizeBoxChange(Sender: TObject);


procedure TEStylesBoxChange(Sender: TObject);


procedure UnderlineBtnClick(Sender: TObject);


procedure ExecCommand(cmdID, cmdExecOpt, pVar: OleVariant);


procedure GetAvailableStyles;

TEStylesBox.

function GetCommandStatus(ucmdID : Cardinal; bTriEditCmdGroup : boolean) : DWORD;

Private declarations

procedure GetTridentCommandState(cmdID : Cardinal; bTrieditCommandGroup : boolean; var bEnabled, bChecked : boolean);


function HrExecCommand(ucmdID : cardinal; const pVarIn : OleVariant; var pVarOut : OleVariant; bPromptUser : boolean; bTriEditCmdGroup : boolean) : HResult;


function QueryStatus(cmdID: OleVariant): OleVariant;


function TridentCommand(Cmd : Cardinal; hasInputArg : boolean; promptUser : boolean; editModeOnly : boolean; bTriEditCommandGroup : boolean; getInputArg : TGetInputArg; clearInputArg : TClearInputArg) : HRESULT;


Properties

Events

Variables

BoldBtn : TSpeedButton;


CopyBtn : TSpeedButton;


CutBtn : TSpeedButton;


DHTMLEdit1 : TDHTMLEdit;


Exit1 : TMenuItem;


File1 : TMenuItem;


ItalicBtn : TSpeedButton;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


New1 : TMenuItem;


NewBtn : TSpeedButton;


Open1 : TMenuItem;


OpenBtn : TSpeedButton;


PasteBtn : TSpeedButton;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


SaveBtn : TSpeedButton;


StatusBar1 : TStatusBar;


TEFindBtn : TSpeedButton;


TEFontNameBox : TComboBox;


TEFontSizeBox : TComboBox;


TEStylesBox : TComboBox;


ToolBar : TPanel;


UnderlineBtn : TSpeedButton;


CommandTarget : IOleCommandTarget;


DocComplete : boolean;


DOMInterface : IHtmlDocument2;


TEIgnoreChange : boolean;



Constructors


Functions


procedure BoldBtnClick(Sender: TObject);

OleCheck(hr);


procedure CopyBtnClick(Sender: TObject);


procedure CutBtnClick(Sender: TObject);


procedure DHTMLEdit1DisplayChanged(Sender: TObject);


procedure DHTMLEdit1DocumentComplete(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ItalicBtnClick(Sender: TObject);

ExecCommand(DECMD_BOLD, OLECMDEXECOPT_DONTPROMPTUSER, Null);


procedure OpenBtnClick(Sender: TObject);


procedure PasteBtnClick(Sender: TObject);

TridentCommand(IDM_COPY, false, false, false, false, nil, nil);


procedure SaveBtnClick(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure TEFindBtnClick(Sender: TObject);


procedure TEFontNameBoxChange(Sender: TObject);


procedure TEFontSizeBoxChange(Sender: TObject);


procedure TEStylesBoxChange(Sender: TObject);


procedure UnderlineBtnClick(Sender: TObject);


procedure ExecCommand(cmdID, cmdExecOpt, pVar: OleVariant);


procedure GetAvailableStyles;

TEStylesBox.Items.Assign(AvailableStyles);


function GetCommandStatus(ucmdID : Cardinal; bTriEditCmdGroup : boolean) : DWORD;

Private declarations


procedure GetTridentCommandState(cmdID : Cardinal; bTrieditCommandGroup : boolean; var bEnabled, bChecked : boolean);


function HrExecCommand(ucmdID : cardinal; const pVarIn : OleVariant; var pVarOut : OleVariant; bPromptUser : boolean; bTriEditCmdGroup : boolean) : HResult;


function QueryStatus(cmdID: OleVariant): OleVariant;


function TridentCommand(Cmd : Cardinal; hasInputArg : boolean; promptUser : boolean; editModeOnly : boolean; bTriEditCommandGroup : boolean; getInputArg : TGetInputArg; clearInputArg : TClearInputArg) : HRESULT;


Properties


Events


Variables


BoldBtn : TSpeedButton;


CopyBtn : TSpeedButton;


CutBtn : TSpeedButton;


DHTMLEdit1 : TDHTMLEdit;


Exit1 : TMenuItem;


File1 : TMenuItem;


ItalicBtn : TSpeedButton;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


New1 : TMenuItem;


NewBtn : TSpeedButton;


Open1 : TMenuItem;


OpenBtn : TSpeedButton;


PasteBtn : TSpeedButton;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


SaveBtn : TSpeedButton;


StatusBar1 : TStatusBar;


TEFindBtn : TSpeedButton;


TEFontNameBox : TComboBox;


TEFontSizeBox : TComboBox;


TEStylesBox : TComboBox;


ToolBar : TPanel;


UnderlineBtn : TSpeedButton;


CommandTarget : IOleCommandTarget;


DocComplete : boolean;


DOMInterface : IHtmlDocument2;


TEIgnoreChange : boolean;