Trouble with TStringGrid during designtime.
lazarus / 7-LCL

----------------------------------------------------------------------
DelphiUser · 2004-02-02 17:34

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 · 2004-05-18 02:30

Just for the record. This was fixed