paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:19:37 +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

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

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