Class TDHEDForm (unit hedform) |
Inherits from
TForm
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;
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;
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;
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;