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

LCL, grids, fix Mac (carbon) keyboard navigation, issue #25249

Browse Source 
git-svn-id: trunk@46512 -
This commit is contained in:
jesus 2014-10-11 07:23:01 +00:00
parent f50b3f0ecd
commit fa27e75356
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/grids.pas
View File

@ -6471,13 +6471,22 @@ begin
{$ifdef dbgGrid}DebugLnExit('grid.DoEditorHide [',Editor.ClassName,'] END');{$endif}
end;
procedure TCustomGrid.DoEditorShow;
var
ParentChanged: Boolean;
begin
//DebugLn(['TCustomGrid.DoEditorShow ']);
{$ifdef dbgGrid}DebugLnEnter('grid.DoEditorShow [',Editor.ClassName,'] INIT');{$endif}
ScrollToCell(FCol,FRow,true);
Editor.Parent := nil;
// Under carbon, Editor.Parent:=nil destroy Editor handle, but not immediately
// as in this case where keyboard event on editor is being handled.
// After Editor.Visible:=true, a new handle is allocated but it's got overwritten
// once the delayed destroying of previous handle happens, the result is a stalled
// unparented editor ....
ParentChanged := (Editor.Parent<>Self);
if ParentChanged then
Editor.Parent := nil;
EditorSetValue;
Editor.Parent:=Self;
if ParentChanged then
Editor.Parent:=Self;
Editor.Visible:=True;
if Focused and Editor.CanFocus then
Editor.SetFocus;