Optimaler Zoomfaktor in Vorschau

[Karl Josef Ziller]

Hallo zusammen,
ich möchte beim Öffnen der Rave-Vorschau den optimalen Zoomfaktor einstellen. Hann man per Software den Schalter 'ganze Seite' drücken? Wenn ja, wie.

Gruß

Kalli

[Karl Josef Ziller]

Falls noch jemand so etwas vor hat, hier die Lösung:

procedure TDBM.RvSystem1PreviewShow(Sender: TObject);
begin
with Sender as TRvRenderPreview do
begin
ZoomFactor := ZoomPageFactor;
end;
end;

ZoomPageFactor ist ganze Seite
ZoomPageWidthFactor ist Seitenbreite

Mit folgenden Zeilen kann das Vorschaufenster auf maximale Größe gebracht werden:

RvSystem1.SystemPreview.FormHeight := Screen.Height;
RvSystem1.SystemPreview.FormWidth := Trunc(RvSystem1.SystemPreview.FormHeight * 0.66);

Gruß

Kall