Ayuda con TWebBrowser

[dec]

Hola,

No estoy seguro de que sea lo que necesites, pero, es posible cambiar el tamaño de la fuente del navegador mediante algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  z: OleVariant;
begin
  z := 0;
  WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, z);
end;

Hasta donde he llegado "z" podría estar en un rango de 0 y 4. Eso en lo que respecta hasta la versión 7 de Internet Explorer. Con esta nueva versión se introduce otra posibilidad, el "optical zoom", que, no sólo cambia el tamaño de la fuente, pero el de la página en general, imágenes incluidas, por ejemplo. Sobre esto encontré información aquí. Y el asunto quedaría más o menos así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  OLECMDID_OPTICAL_ZOOM = 63;
var
  z: OleVariant;
begin
  z := 50;
  WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, z);
end;

En este caso "z" podría tomar valores entre 10 y 1000, correspondientes al porcentaje de "zoom" aplicado. Con un valor de 50 logras una especie de "miniatura" de cualquier web, y no sé si es a esto a lo que te refieres o algo así.

[Neftali [Germán.Estévez]]

Muy buena esa solución David. No conocía esa característica y utilizando el codigo que has puesto es fácil hacer un zoom "real" de la página, no sólo las fuentes de letra.
A partir de ahí generar una minuatura es sencillo capturando una porción de esa pantalla.

ay que decir que como bien comentas, sólo para IE 7, en versiones anteriores devuelve un error.

[Yasnet]

Empezado por dec

Hola,

No estoy seguro de que sea lo que necesites, pero, es posible cambiar el tamaño de la fuente del navegador mediante algo como esto...

Muchas gracias, es justo lo que quería, si necesito más ayuda espero contar con ustedes.

[josejp1]

He encontrado una página con muchas utilidades sobre el componente twebbrowser entre ellas la de hacer zoom

http://delphimagic.blogspot.com/2009...rowser-ii.html