Salut

je voudrais faire zoom en Navigation de Webbrowser

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; varURL: OleVariant);
begin
//WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.5;
WebBrowser1.OleObject.Document.Body.Style.Zoom:='150%'; // Error mais Delphi Debuger donne rien de cett error !
end;

ou le problem ?!

1 Question -  5 Messages créés :

http://www.delphifr.com/infomsg_WEBBROWSER1-OLEOBJECT-DOCUMENT-BODY-STYLE-ZOOM-150_1148725.aspx
http://www.delphifr.com/infomsg_PROBLEME-AVEC-INT-REAL_1148604.aspx
http://www.delphifr.com/infomsg__1148475.aspx
http://www.delphifr.com/infomsg_ORIGINAL-FORMSIZE_1148301.aspx
http://www.delphifr.com/infomsg_FORMSCALE_1148158.aspx

Administrateurs alertés

Bein... 'faut qu'ça turbine avec DelphiTurbo ! 

j ai triuvee le probleme
je dois metere le code in Evenr OnDocumentComplet et pas dans NavigateComplete2

H ai maintenet un petit Probleme
je ne voudrais pas donne le Valeur zoom directe commt un Integer
mais je voudrais le donner comme un Vaiable

Example :
zoom :=150
pas comme ca : Style.Zoom:='150%';
comme ca : Style.Zoom :='Format('%d%%',[zoom])';  // illegal Character in InputFile : '%' ($25)

... Qu'est-ce que je disais !?

Ce qu'il y a de bien, c'est qu'on suit le projet de delphiturbo ligne par ligne en live-direct.
C'est de la programmation-réalité.

Y'a que sur CS qu'on peut voir ça !

Mais comme ça, on est tenu en haleine jusqu' à la prochaine ligne de code ...

Arg, j' en peux plus d' attendre, je vais essayer d' avoir l' épisode de demain avec emule

comment puis je prendere les Dimension originale apres Scale ?

 2 QUESTIONS =>  CREER 2 MESSAGES !




PS: C'est quoi que tu fumes, Tina?
      Ca a l'air costaud !

Salut,
Solution : ScaleBy(100,133);//  avec changement de Parameter ;)

berci

Franchement, moi et le WebBrowser1 on sera jamais ami,
désolé de ne pouvoir t'aider car chez moi depuis que j'ai mis IE7 le WebBrowser m'injurie quand j'essaye d'acceder a OleObject.

---