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

LCL: Fix a regression in TSTringGrid caused by r63541 #1f0ff07dc2. Test for Editor.Parent instead of Editor.Owner.

Browse Source 
git-svn-id: trunk@63571 -
This commit is contained in:
juha 2020-07-16 09:26:39 +00:00
parent f70ef40567
commit e2840b9665
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

@ -8414,7 +8414,7 @@ begin
begin begin
FEditorMode := False; FEditorMode := False;
FGridState := gsNormal; FGridState := gsNormal;
if Editor.Owner<>nil then // May be nil when the form is closing. if Editor.Parent<>nil then // May be nil when the form is closing.
begin begin
WasFocused := Editor.Focused; WasFocused := Editor.Focused;
{$ifdef dbgGrid}DebugLnEnter('EditorHide [',Editor.ClassName,'] INIT FCol=',IntToStr(FCol),' FRow=',IntToStr(FRow));{$endif} {$ifdef dbgGrid}DebugLnEnter('EditorHide [',Editor.ClassName,'] INIT FCol=',IntToStr(FCol),' FRow=',IntToStr(FRow));{$endif}