SHDocVw.WebBrowser with tabs

[Gintaras]

Function dlg_web_browser_zoom

Code:

Copy      Help

,;remember font size in registry
,str fs fsrk="Software\Microsoft\Internet Explorer\International\Scripts\3"
,rget(fs "IEFontSize" fsrk 0 "" REG_BINARY)
,
,we3._getcontrol(id(3 hDlg))
,VARIANT v=0 ;;0 to 4, default 2
,we3.ExecWB(OLECMDID_ZOOM OLECMDEXECOPT_DONTPROMPTUSER v 0)
,
,;restore font size in registry
,if(fs.len) rset(fs "IEFontSize" fsrk 0 REG_BINARY)

tested on XP with IE7 and Vista with IE8.