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í.