Trouble with TStringGrid during designtime.

[DelphiUser]

Hi,
I was playing around a little with Lazarus (win32) but getting Index out of list error.

Here the steps to reproduce:

1. New project.
2. Place a stringgrid onto the form.
3. Try to click onto the horizontal or vertical scrollbar.---> crash

I had a short look at the code and found some nasty stuff in
Grids.pas.

function TCustomGrid.Getcolwidths(Acol: Integer): Integer;
begin
  Result:=Integer(FCols[aCol]);
  if result<0 then Result:=fDefColWidth;
end;

Accessing an array or list without checking the index will sooner or later end up in an exception !

Regards.

[jesusr]

Just for the record. This was fixed