From: Olivier S. <ob...@us...> - 2003-09-26 12:07:05
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1:/tmp/cvs-serv28996/dev/JVCL3/run Modified Files: JvgListBox.pas Log Message: Corrected Index out Of bounds when application is started Index: JvgListBox.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvgListBox.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvgListBox.pas 25 Jun 2003 18:09:52 -0000 1.5 --- JvgListBox.pas 26 Sep 2003 12:07:02 -0000 1.6 *************** *** 989,993 **** function TJvgCheckListBox.GetState(Index: integer): TCheckBoxState; begin ! Result := TCheckBoxState(Items.Objects[Index]); end; --- 989,994 ---- function TJvgCheckListBox.GetState(Index: integer): TCheckBoxState; begin ! if Index > -1 then ! Result := TCheckBoxState(Items.Objects[Index]); end; |