Hallo,
wenn ich ausschließlich das Format umschalte (Testfunktion):
procedure TTextForm.Button1Click(Sender: TObject);
begin
WPRichText.Header.Landscape := not WPRichText.Header.Landscape;
end;
dann schaltet das Dokument wie erwartet hin und her.
Nun aber ändere ich mehrere andere Seiteneinstellungen und setze dabei
Header.LeftMargin, Header.TopMargin, ...
Header.Landscape
Header.Pagesize
und bei Pagesize = wp_custom noch Header.PageWidth, Header.PageHeight.
Hier funktioniert aber das Hin und Herschalten Portrait/Landscape nicht mehr, einmal zu Landscape funktioniert, zurück bleibt es Landscape!
Ich sehe aber beim Debuggen dass Landscape eigentlich false ist, nur wird weiter Querformat angezeigt!
Muss man eine bestimmte Reihenfolge einhalten, die beim Verstellen von Seitengröße, Landscape, Rändern etc. betrifft?
Nach allen Einstellungen erfolgt ein DelayedReformat.
Ich habe auch ein Stück Code aus dem Manual benutzt, auch hier geht es nur zu Landscape aber nicht zurück:
procedure TTextForm.Button1Click(Sender: TObject);
begin
WPRichText.Header.PageSize := wp_DinA4;
WPRichText.Header.LeftMargin := WPCentimeterToTwips(2);
WPRichText.Header.RightMargin := WPCentimeterToTwips(1);
WPRichText.Header.TopMargin := WPCentimeterToTwips(1.5);
WPRichText.Header.BottomMargin := WPCentimeterToTwips(1.5);
//hier ist im Manual WPRichText.Header.Landscape := true
WPRichText.Header.Landscape := not WPRichText.Header.Landscape;
end;
Ciao
Stefan