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

Cocoa/TabControl: TCocoaTabControl.exttabRemoveTabViewItem() improved

Browse Source
This commit is contained in:
rich2014 2023-10-08 23:54:09 +08:00
parent 51f7942433
commit 62d199c399
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@ interface
uses
// rtl+ftl
Types, Classes, SysUtils,
Types, Classes, SysUtils, Math,
CGGeometry,
// Libs
MacOSAll, CocoaAll, CocoaUtils, //CocoaGDIObjects,
@ -844,17 +844,20 @@ begin
UpdateTabAndArrowVisibility( self );
end;
procedure TCocoaTabControl.exttabRemoveTabViewItem(lTabPage: NSTabViewItem);
procedure TCocoaTabControl.exttabRemoveTabViewItem( lTabPage: NSTabViewItem );
var
idx : NSInteger;
removedIndex: Integer;
begin
idx := indexOfTabViewItem(lTabPage);
if (idx>=0) and (idx<>NSNotFound) then
removeTabViewItem(lTabPage);
fulltabs.removeObject(lTabPage);
UpdateTabAndArrowVisibility(self);
removedIndex := exttabIndexOfTabViewItem( lTabPage );
fulltabs.removeObject( lTabPage );
if InRange(removedIndex, visibleLeftIndex, visibleRightIndex) then begin
removeTabViewItem( lTabPage );
leftKeepAmount:= currentIndex - visibleLeftIndex;
end else begin
if removedIndex < currentIndex then
dec( currentIndex );
end;
UpdateTabAndArrowVisibility( self );
end;
function TCocoaTabControl.exttabIndexOfTabViewItem(lTabPage: NSTabViewItem