procedure TWebBrowserXXX.SetFontSize(nSize: OleVariant); begin if (nSize >= 0) and (nSize <= 4) then ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, nSize) end;
TWebBrowserXXX.SetFontSize(nSize: OleVariant); begin
if
(nSize >= 0) and
(nSize <= 4) then
ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, nSize) end
;