paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 15:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa/TabControl: TCocoaTabControl.extselectTabViewItemAtIndex() improved

Browse Source
This commit is contained in:
rich2014 2023-10-08 23:56:21 +08:00
parent 62d199c399
commit 2bd05f0474
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -519,24 +519,20 @@ end;
procedure TCocoaTabControl.extselectTabViewItemAtIndex( index:NSInteger ); procedure TCocoaTabControl.extselectTabViewItemAtIndex( index:NSInteger );
var var
idx : integer;
itm: NSTabViewItem; itm: NSTabViewItem;
i : NSUInteger; visibleIndex: NSInteger;
begin begin
if (index<0) or (index>=fulltabs.count) then Exit; if (index<0) or (index>=fulltabs.count) then Exit;
currentIndex := index; currentIndex := index;
itm := NSTabViewItem( fulltabs.objectAtIndex(index) ); itm := NSTabViewItem( fulltabs.objectAtIndex(index) );
visibleIndex := indexOfTabViewItem( itm );
i := tabViewItems.indexOfObject(itm); if visibleIndex <> NSNotFound then begin
if i <> NSNotFound then inherited selectTabViewItemAtIndex( visibleIndex );
begin end else begin
inherited selectTabViewItemAtIndex(NSInteger(i));
end
else begin
UpdateTabAndArrowVisibility( self ); UpdateTabAndArrowVisibility( self );
i := tabViewItems.indexOfObject(itm); visibleIndex:= indexOfTabViewItem( itm );
inherited selectTabViewItemAtIndex(NSInteger(i)); inherited selectTabViewItemAtIndex( visibleIndex );
end; end;
end; end;