paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 05:00:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TCustomGrid: check if handle allocated in VisualChange and EditorPos

Browse Source 
git-svn-id: trunk@51438 -
This commit is contained in:
mattias 2016-01-28 12:46:28 +00:00
parent 81cbe917e9
commit acc7557185
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -3078,7 +3078,7 @@ end;
procedure TCustomGrid.VisualChange;
begin
if FUpdateCount<>0 then
if (FUpdateCount<>0) or (not HandleAllocated) then
exit;
{$ifdef DbgVisualChange}
@ -7858,7 +7858,7 @@ var
CellR: TRect;
begin
{$ifdef dbgGrid} DebugLn('Grid.EditorPos INIT');{$endif}
if FEditor<>nil then begin
if HandleAllocated and (FEditor<>nil) then begin
// send editor position
Msg.LclMsg.msg:=GM_SETPOS;