webbrowser çözünürlük?

[G.Arkas]

webbrowser la bir sitenin önizlemesini küçük boyutlu başka bir browser la almaya çalışıyorum webbrowser i küçülterek yapamıyoruz kenarlara scrollbar ekliyor biz bunu nasıl yaparız siteyi küçük boyutta bir çözünürlükte ayarlamak yada başka şekilde yapabilirmiyiz? teşekkürler...

[mehmetcan]

Küçük boyutta browser mı yapmak istiyorsun, yoksa webbrowserdaki görüntüyü küçük göstermek mi istiyorsun.

Eger istedigin ikinciyse, basitçe browserdaki görüntüyü aşagıdaki kodla alabilirsin.
Birincisi ise daha karmaşık olur, zoom özelligi yeni browserlarda var, ama bildigim kadarıyla webbrowser tarafından desteklenmiyor.

http://members.shaw.ca/iedelphi/
Bu sitede webbrowserla kullanabilecegin küçük kodlar var, incelersen aradıgına uygun birşeyler bulabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  ViewObject: IViewObject;
  sourceDrawRect: TRect;
begin
  if EmbeddedWB1.Document <> nil then
  try
    EmbeddedWB1.Document.QueryInterface(IViewObject, ViewObject);
    if ViewObject <> nil then
      try
        sourceDrawRect := Rect(0, 0, Image1.Width, Image1.Height);
        ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,
          image1.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
      finally
        ViewObject._Release;
      end;
  except
  end;
end;