Delphi-TWebBrowser-Zoom
Dobrý den,
potřebuji měnit přiblížení v TWebBrowseru v Turbo Delphi. Přiblížení provádím pomocí:
procedure Button1.click;
var
ZoomValue:OleVariant;
begin
ZoomValue:=1.5;
WebBrowser1.OleObject.Document.Body.Style.Zoom:=ZoomValue;
end;
Potřebuji však tuto hodnotu zvyšovat. Jak průběžně při každém provedení přidávat například 0.1?Zkoušel jsem:
WebBrowser1.OleObject.Document.Body.Style.Zoom:=WebBrowser1.OleObject.Document.Body.Style.Zoom+0.1;
Samozřejmě však hlásí chybu konverze.Děkuji