BorlandTalk.com

Sherlyn · Guest

Hi!

How do i retrieve available styles items (e.g Heading 1, Heading 2,
Address and etc) from IDM_GETBLOCKFMTS command. I have tried the
following, but my vaOut variable returned Unassigned after called the
Cmd.Exec. Can someone help me on this?

const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var varIn, vaOut: olevariant;
PtrGUID: PGUID;
begin
New(PtrGUID) ;
PtrGUID^ := CGID_WebBrowser;
if WebBrowser1.Document <> nil then
try
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget) ;
if CmdTarget <> nil then
try
CmdTarget.Exec(PGUID(nil), IDM_GETBLOCKFMTS, 0, vaIn, vaOut) ;
finally
CmdTarget._Release;
end;
except
end;
Dispose(PtrGUID) ;
end;

Thanks in advance.

From,
Sherlyn Chew