Danke, ich glaube, das werde ich auch noch brauchen können.
Einen Fehler solltest du ausbessern, das
Exchange(FPageWidth, FPageWidth);
in SetOrientation wird nicht ganz das bringen, was man sich erwartet
Und es geht etwas kompakter:
Delphi-Quellcode:
if (FOrientation = poPortrait) <> (FPageWidth < FPageHeight) then
Exchange(FPageWidth, FPageHeight);