Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem 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

Předmět Autor Datum
Ideš na to dobre, ale asi takto: najprv by som si deklaroval premennú vo vnútri triedy napríklad ako…
pme 17.02.2012 21:16
 pme
Nevidím na tom nic odlišného. ZoomFactr máš typu OleVariant. Nemůžeš ho zvýšit. ZoomFactor:=ZoomFact… poslední
Telever 18.02.2012 10:11
 Telever

Ideš na to dobre, ale asi takto:
najprv by som si deklaroval premennú vo vnútri triedy napríklad ako private

type
  TForm4 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
      ZoomFactor: OleVariant;
  public
    { Public declarations }
  end;

potom by som jej priradil hodnotu 1 ( 1 = 100%)
//.zoom:=0.25; //25%
//.zoom:=0.5; //50%
//.zoom:=1.0; //100%
//.zoom:=2.0; //200%
//.zoom:=5.0; //500%
//.zoom:=10.0; //1000%

procedure TForm4.FormCreate(Sender: TObject);
begin
  ZoomFactor:= 1;
  WebBrowser1.Navigate('pc.poradna.net');
end;

a nakoniec ju zvyšujem

procedure TForm4.Button1Click(Sender: TObject);
begin
  ZoomFactor:=ZoomFactor+0.1;
  WebBrowser1.OleObject.Document.Body.Style.Zoom := ZoomFactor;
end;

Zpět do poradny Odpovědět na původní otázku Nahoru