Forum: Programmieren allgemein
by Ykcim,
18. Jul 2017
Guten Morgen,
ich fürchte, dass ist nicht die Lösung. Ich habe Refresh2 wie folgt eingebunden, aber ich bekomme eine 'unbekannter Fehler' Meldung...
procedure TForm_Pinnwand.Dateiladen1Click(Sender: TObject);
const
OLECMDID_OPTICAL_ZOOM = 63;
var
zoom : OleVariant;
iZoom : Integer;
fileDest:string;
Forum: Programmieren allgemein
by Ykcim,
17. Jul 2017
Hallo Zusammen,
ich möchte ein pdf-Dokument in einem TWebBrowser anzeigen. Allerdings möchte ich, dass immer die ganze DIN A4 Seite angezeigt wird. Dazu muss ich etwas kleiner Zoomen. Das bekomme ich leider nicht hin...
Hiermit rufe das pdf-Dokument aus:
if OpenDialog.Execute then begin
WB_O1.Navigate(OpenDialog.FileName);
end;
Jetzt benötige ich den Befehl, mit dem sagen...