ColWidths dynamisch erzeugen

[marabu]

Hallo,

vielleicht hilft dir diese Prozedur:

Delphi-Quellcode:

uses
  Math; 

procedure MaximizeCol(sg: TStringGrid; index, minSize: Integer);
var
  iCol, iRow, iWidth, iHeight: 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(minSize, Width - iWidth);
    end;
end;

Grüße vom marabu