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

Cocoa: avoid unexpected changes in the focus control during TabControl update

Browse Source
This commit is contained in:
rich2014 2024-08-17 23:13:21 +08:00
parent ab1d8281f2
commit ac6d122b39
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoatabcontrols.pas
View File

@ -363,7 +363,12 @@ procedure UpdateTabAndArrowVisibility(aview: TCocoaTabControl);
var var
showNext : Boolean; showNext : Boolean;
showPrev : Boolean; showPrev : Boolean;
responder: NSResponder;
begin begin
responder:= nil;
if Assigned(aview.window) then
responder:= aview.window.firstResponder;
ReviseTabs(aview, showPrev, showNExt); ReviseTabs(aview, showPrev, showNExt);
aview.updateVariousIndex; aview.updateVariousIndex;
if Assigned(aview.prevarr) then if Assigned(aview.prevarr) then
@ -384,6 +389,11 @@ begin
aview.nextarr.setHidden(not showNext); aview.nextarr.setHidden(not showNext);
{$endif} {$endif}
end; end;
if Assigned(aview.window) then begin
if Assigned(responder) and (responder<>aview.window.firstResponder) then
aview.window.makeFirstResponder(responder);
end;
end; end;
function IndexOfTab(ahost: TCocoaTabControl; atab: NSTabViewItem): Integer; function IndexOfTab(ahost: TCocoaTabControl; atab: NSTabViewItem): Integer;