Labels mit Stringgrid synchronisieren

[Nikolas]

Meinst du sowas?

Label(0-4) werden jeweils unter der Zeile geparkt:

Delphi-Quellcode:

ablinks:=0;
for i := 0 to 4 do
 begin
  Tlabel(FindComponent('Label' + IntToStr(i))).Left := ablinks+sg.Left{+5};
  ablinks := ablinks + sg.ColWidths[i];
 end;

Kleines Update:

Delphi-Quellcode:

  

ablinks:=0;
for i := 0 to 4 do
 begin
  width:= form1.Canvas.TextWidth('Label'+inttostr(i));

  // linksbündig
  if rg.ItemIndex = 0 then
  delta := 0;
  
  // rechtsbündig:
  if rg.ItemIndex = 1 then
  begin
  if width<sg.ColWidths[i] then
   delta := sg.ColWidths[i]-width
  else
   delta := -1*(width-sg.ColWidths[i]);
  end;


  // zentriert:
  if rg.ItemIndex = 2 then
  begin
  if width<sg.ColWidths[i] then
   delta := round(    (sg.ColWidths[i]-width) /2)
  else
   delta := round(-1* (width-sg.ColWidths[i]) /2);
   end;



  Tlabel(FindComponent('Label' + IntToStr(i))).Left := ablinks+sg.Left+5+delta;
  ablinks := ablinks + sg.ColWidths[i];
 end;