Hallo himitsu, leider funktioniert dein Beispiel auch nicht. Habe grad vorher geschrieben, dass ich die Höhe nicht verändern muss, da die Labels auf einem Band plaziert sind
Ich hab es mal wie folgt geändert, was aber ebensowenig funktioniert:
Delphi-Quellcode:
procedure TQuickReport3.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var i,T: Integer;
begin
T := 0;
for i := 0 to Form1.DBGrid1.Columns.Count-1 do begin
if TQRLabel(FindComponent('RLabel_'+IntToStr(i))) = nil then begin
Lab := TQRLabel.Create(Self);
Lab.Font.Style := [fsBold];
Lab.Parent := QuickReport3.ColumnHeaderBand1;
Lab.Name := 'RLabel_'+IntToStr(i);
Lab.AlignToBand := True;
Lab.Caption := Form1.DBGrid1.Columns[i].Title.Caption;
// Ab hier
Lab.Left := T; {Position von Links}
Inc(T, Lab.Width + 50{Abstand});
end;
end;
end;
Er plaziert mir immer alle Labels aufeinander, wodurch der Text logischerweise nicht mehr lesbar ist.
