quickreport einsteigerhilfe ???

[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;