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

LCL, grids, check for valid editor

Browse Source 
git-svn-id: trunk@42991 -
This commit is contained in:
jesus 2013-09-27 18:00:39 +00:00
parent 189a3c9fa2
commit 6ab0ade4ee
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/grids.pas
View File

@ -7357,7 +7357,8 @@ end;
function TCustomGrid.Focused: Boolean;
begin
Result := CanTab and (HandleAllocated and
(FindOwnerControl(GetFocus)=Self) or (FEditor.Visible and FEditor.Focused));
(FindOwnerControl(GetFocus)=Self) or
((FEditor<>nil) and FEditor.Visible and FEditor.Focused));
end;
procedure TCustomGrid.InvalidateCell(aCol, aRow: Integer);