Zitat von
MrSpock:
Hallo Gigant02,
das ist leider für Quickreport kein Einsteigerthema mehr
.
Du kannst da nur den Trick anwenden, dass du den Font als solchen drehst und ihn dann dem Label zuweist.
Etwa so:
Delphi-Quellcode:
procedure TForm2.QRLabel1Print(sender: TObject; var Value: String);
var
lf : TLogFont;
tf : TFont;
begin
with QRLabel1 do begin
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 900;
lf.lfOrientation := 900;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
QRLabel1.Font.Assign(tf);
tf.Free;
end;
end;
so nun habe ich endlich mein programm nach längeren soweit das ich ausgiebig testen wollte nun da habe ich mal ausgedruckt und gemerkt in der vorschau geht alles so wie es soll aber der ausdruck selber sind die label's nicht gedreht worden
wie kann ich das ändern ???
lg, Gigant