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

Cocoa/TabControl: add triggeringByLCL to distinguish whether the operation is triggered by User or Program

Browse Source
This commit is contained in:
rich2014 2023-10-12 01:02:20 +08:00
parent 82d467b50c
commit cbb27a8f6d
1 changed files with 61 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,6 +58,8 @@ type
nextarr : NSButton; nextarr : NSButton;
public public
triggeringByLCL: Boolean;
{ various indexes in fulltabs } { various indexes in fulltabs }
currentIndex : Integer; // index of the current tab currentIndex : Integer; // index of the current tab
visibleLeftIndex: Integer; // index shown in TabView on the left visibleLeftIndex: Integer; // index shown in TabView on the left
@ -633,6 +635,9 @@ procedure TCocoaTabControl.tabView_didSelectTabViewItem(tabView: NSTabView;
begin begin
//it's called together with "willSelect" //it's called together with "willSelect"
if triggeringByLCL then
exit;
currentIndex:= IndexOfTab( self, tabViewItem ); currentIndex:= IndexOfTab( self, tabViewItem );
leftKeepAmount:= currentIndex - visibleLeftIndex; leftKeepAmount:= currentIndex - visibleLeftIndex;
@ -858,6 +863,8 @@ var
nextTabPage: NSTabViewItem; nextTabPage: NSTabViewItem;
prevTabPage: NSTabViewItem; prevTabPage: NSTabViewItem;
begin begin
triggeringByLCL:= true;
try
removedIndex := exttabIndexOfTabViewItem( removedTabPage ); removedIndex := exttabIndexOfTabViewItem( removedTabPage );
isRemovingCurrentPage:= (removedIndex=currentIndex); isRemovingCurrentPage:= (removedIndex=currentIndex);
@ -913,6 +920,9 @@ begin
end; end;
UpdateTabAndArrowVisibility( self ); UpdateTabAndArrowVisibility( self );
finally
triggeringByLCL:= false;
end;
end; end;
function TCocoaTabControl.exttabIndexOfTabViewItem(lTabPage: NSTabViewItem function TCocoaTabControl.exttabIndexOfTabViewItem(lTabPage: NSTabViewItem