Kompontenten dynamisch

[Killer]

Hi ich hab mir einige TLabels dynamisch erzeugt (per Schleife), wie bekomm ich sie nun dazu, dass sie einen regelmäßigen Abstand zwischen sich haben (zb. 20 Pixel) ect.?

[ichhabefertig]

Hallo,

Du kannst den TLabels doch Koordinatenwerte zuweisen, also Top und Left. Um immer 20 Pixel Abstand zu haben musst Du einfach Top auf den Topwert des darüberliegenden TLabels +20 +Höhe des darüber liegenden TLabels setzen.

Hoffe, das wahr einigermassen verständlich.

[Killer]

Das hier ist meine Schleife:

Delphi-Quellcode:

procedure TQuickReport3.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var i: Integer;
begin
 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;
 end;
 end;
end;

Wie muss ich das denn jetzt einbauen? Also Top iss mal nebensächlich, da sie ja auf einem QuickReport-Band liegen, also müsste ich nur noch Left ändern, was ich aber nicht schaffe. Hat jemand nen Ansatz dafür?

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Delphi-Quellcode:

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 := 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;
{}      Lab.Left := 10;  {Position von Links}
{}      Lab.Top := T;
{}      Inc(T, Lab.Height + 20{Abstand});
      End;
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Killer]

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.

[RomanK]

Hoi, ich hab das so gelöst:
lab.left := ((i-1)*(lab.width + 20)); [edit]da bei mir i mit 1 beginnt muss das -1 bei dir raus!

[himitsu]

Wenn die Label's automatisch ausgerichtet werden, könntest du es ja mal so versuchen:

Delphi-Quellcode:

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); 
{}      Lab.AutoSize := True;
        Lab.Font.Style := [fsBold]; 
        Lab.Parent := QuickReport3.ColumnHeaderBand1; 
        Lab.Name := 'RLabel_' + IntToStr(i); 
        Lab.AlignToBand := True; 
        Lab.Caption := Form1.DBGrid1.Columns[i].Title.Caption; 
{}      Lab.AutoSize := False;
{}      Lab.Width := Lab.Width + 50{Abstand};
      End; 
  End;

Oder du legst eine andere, nicht sichtbare Komponente, als Abstandshalter, dazwischen.

(Angaben ohne Gewähr)


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif