quickreport einsteigerhilfe ???

[Gigant02]

hmm wie soll ich das sagen

an besten die schrift in label um 90 grad drehen

lg, Gigant

[MrSpock]

Hallo Gigant02,

das ist leider für Quickreport kein Einsteigerthema mehr :mrgreen: .

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;

[MarcoWarm]

oder ein wenig einfacher mit dieser Komponente :zwinker:

http://www.torry.net/quicksearchd.ph...abel&Title=Yes

[Gigant02]

Zitat:

Zitat von MrSpock

Hallo Gigant02,

das ist leider für Quickreport kein Einsteigerthema mehr :mrgreen: .

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