paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 10:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix a crash when deleting a row in string grid. Issue #20549, patch from bald zhang

Browse Source 
git-svn-id: trunk@33074 -
This commit is contained in:
juha 2011-10-24 21:38:55 +00:00
parent 1c66c1c865
commit 193d7f84ac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -3441,7 +3441,7 @@ end;
procedure TCustomGrid.ResetHotCell;
begin
with FGCache do begin
if HotCellPainted then
if HotCellPainted and (HotCell.x < ColCount) and (HotCell.y < RowCount) then
InvalidateCell(HotCell.X, HotCell.Y);
HotCell := Point(-1,-1);
HotCellPainted := False;