Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
28. Nov 2003
Wenn die Label's automatisch ausgerichtet werden, könntest du es ja mal so versuchen:
Procedure TQuickReport3.QuickRepBeforePrint(Sender: TCustomQuickRep; Var PrintReport: Boolean);
Var i: Integer;
Begin
For i := 0 to Form1.DBGrid1.Columns.Count - 1 do
If TQRLabel(FindComponent('RLabel_' + IntToStr(i))) = nil Then Begin
Lab := TQRLabel.Create(Self);
{} ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
28. Nov 2003
Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,
Procedure TQuickReport3.QuickRepBeforePrint(Sender: TCustomQuickRep; Var PrintReport: Boolean);
Var i, T: Integer;
Begin
{} T := 30; {Position des obersten Labels}
For i := 0 to Form1.DBGrid1.Columns.Count - 1 do
If TQRLabel(FindComponent('RLabel_' + IntToStr(i))) = nil Then Begin
Lab :=...