pdf im TWebBrowser mit voreingestellten Zoom-Faktor

[Ykcim]

Hallo,

vielen Dank für die schnelle Antwort!

Ich habe folgende Fehlermeldung erhalten:

Code:

Exception-Klasse EOleException mit Meldung 'Es wurde versucht, ein Drop-Ziel zu widerrufen, das nicht registriert wurde'. Prozess Pinnwand.exe (10568)

Den Code habe ich wie folgte eingebunden:

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. 80%
   zoom := iZoom;
   if OpenDialog.Execute then begin
      with (PDF_Menu.PopupComponent as TWebBrowser) do begin
         Navigate(OpenDialog.FileName);
         ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_PROMPTUSER, zoom);
      end;
   end;
end;

Vielen Dank
Patrick