pdf im TWebBrowser mit voreingestellten Zoom-Faktor

[Ykcim]

Guten Morgen,

ich fürchte, dass ist nicht die Lösung. Ich habe

Code:

Refresh2

wie folgt eingebunden, aber ich bekomme eine 'unbekannter Fehler' Meldung...

Delphi-Quellcode:

procedure TForm_Pinnwand.Dateiladen1Click(Sender: TObject);
const
  OLECMDID_OPTICAL_ZOOM = 63;
var
  zoom : OleVariant;
  iZoom : Integer;
  fileDest:string;
begin
   iZoom:= 40; // z.B. 40%
   zoom := iZoom;
   if OpenDialog.Execute then begin
      with (PDF_Menu.PopupComponent as TWebBrowser) do begin
         Navigate(OpenDialog.FileName);
         Refresh2;
         ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_PROMPTUSER, zoom);
      end;
   end;
end;

Mal in eine andere Richtung gedacht:
Im WebBrowser wird doch mein Acrobat PDF-Reader, den ich installiert habe und der mein Standardprogramm für pdf-Dokumente ist, geöffnet. Gibt es eine Möglichkeit, wie ich den direkt in meinem TWebBrowser ansprechen kann?
Wenn ich den Reader als ActiveX Steuerelement anspreche, dann habe ich das so gemacht...

Delphi-Quellcode:

procedure TForm_Pinnwand.Load_PDF(PDF_Viewer: TAcroPDF; Datei: string);
begin
   if FileExists(Datei) then begin
      PDF_Viewer.Visible:=true;
      PDF_Viewer.LoadFile(Datei);
      PDF_Viewer.Tag:=1;
      PDF_Viewer.setZoomScroll(ZoomFaktor,0,0);//Damit die ganze A4-Seite angezeigt wird
      PDF_Viewer.setShowScrollbars(false);
      PDF_Viewer.setShowToolbar(false);
      PDF_Viewer.setLayoutMode('SinglePage');
      PDF_Viewer.setPageMode('none');
      //PDF_Viewer.setView('FitV');
   end
   else begin
      PDF_Viewer.Visible:=false;
      PDF_Viewer.Tag:=0;
   end;
end;

Kann ich das irgendwie im TWebBrowser hinbekommen? So etwas wie

Code:

WebBrowser.OleObject.setZoomScroll(...)

???

Vielen Dank
Patrick