Stringgrid ColWidth

[nahpets]

Delphi 7

dashier funktioniert:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
          i : Integer;
          s : String;
begin
  stringgrid1.ColWidths[0] := 10000;
  for i := 0 to 1024 do begin
    s := s + Chr((i mod 10) + 48);
  end;
  stringgrid1.Cells[0,1] := s;
end;

Als Ergebnis erhalte ich dieses:

Code:

01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890

Statt 1024 funktioniert das 10fache auch problemlos.