StringGrid rechte Spalte dynamische Breite

[Klaus01]

Hallo zusammen,

was muß ich tun oder wo einstellen damit die rechte Spalte des StringGrids
immer mit der rechte Kante des StringGirds bündig ist.

Auch wenn ich die Form während der Laufzeit in der Größe ändere
möchte ich die Spalte rechtsbündig in der Form haben.
Das StringGrid ist mit Align:=alClient auf die Form
festgenagelt.

Ich stehe da irgendwie auf dem Schlauch.

Grüße
Klaus

[marabu]

Hallo Klaus,

so könnte es funktionieren:

Delphi-Quellcode:

procedure MaximizeCol(sg: TStringGrid; index, minWidth: Integer);
var
  iCol, iWidth: Integer;
begin
  with sg do
    if (index < ColCount) and (index > 0) then
    begin
      iWidth := ColCount * GridLineWidth + Ord(BorderStyle) * 3;
      for iCol := 0 to Pred(ColCount) do
        if iCol <> index then
          Inc(iWidth, ColWidths[iCol]);
      ColWidths[index] := Max(minWidth, Width - iWidth);
    end;
end;

Grüße vom marabu

[Klaus01]

Hallo Achim,

funktioniert hervorragend.

Vielen Dank.

Grüße
Klaus