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

Cocoa/TabControl: SetPageIndex() improved

Browse Source
This commit is contained in:
rich2014 2023-10-10 22:27:07 +08:00
parent 0fff5f41d0
commit 70423dd372
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -529,18 +529,20 @@ procedure TCocoaTabControl.extselectTabViewItemAtIndex( index:NSInteger );
var
itm: NSTabViewItem;
visibleIndex: NSInteger;
oldKeepAmount: Integer;
begin
if (index<0) or (index>=fulltabs.count) then Exit;
currentIndex := index;
itm := NSTabViewItem( fulltabs.objectAtIndex(index) );
visibleIndex := indexOfTabViewItem( itm );
itm:= NSTabViewItem( fulltabs.objectAtIndex(index) );
visibleIndex:= indexOfTabViewItem( itm );
if visibleIndex <> NSNotFound then begin
inherited selectTabViewItemAtIndex( visibleIndex );
end else begin
oldKeepAmount:= leftKeepAmount;
attachAllTabs;
inherited selectTabViewItemAtIndex( index );
leftKeepAmount:= oldKeepAmount;
UpdateTabAndArrowVisibility( self );
visibleIndex:= indexOfTabViewItem( itm );
inherited selectTabViewItemAtIndex( visibleIndex );
end;
end;
@ -632,6 +634,7 @@ begin
//it's called together with "willSelect"
currentIndex:= IndexOfTab( self, tabViewItem );
leftKeepAmount:= currentIndex - visibleLeftIndex;
if Assigned(callback) then
begin