paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:59:10 +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 uses
// rtl+ftl // rtl+ftl
Types, Classes, SysUtils, Types, Classes, SysUtils, Math,
CGGeometry, CGGeometry,
// Libs // Libs
MacOSAll, CocoaAll, CocoaUtils, //CocoaGDIObjects, MacOSAll, CocoaAll, CocoaUtils, //CocoaGDIObjects,
@ -844,17 +844,20 @@ begin
UpdateTabAndArrowVisibility( self ); UpdateTabAndArrowVisibility( self );
end; end;
procedure TCocoaTabControl.exttabRemoveTabViewItem(lTabPage: NSTabViewItem); procedure TCocoaTabControl.exttabRemoveTabViewItem( lTabPage: NSTabViewItem );
var var
idx : NSInteger; removedIndex: Integer;
begin begin
idx := indexOfTabViewItem(lTabPage); removedIndex := exttabIndexOfTabViewItem( lTabPage );
if (idx>=0) and (idx<>NSNotFound) then fulltabs.removeObject( lTabPage );
removeTabViewItem(lTabPage); if InRange(removedIndex, visibleLeftIndex, visibleRightIndex) then begin
removeTabViewItem( lTabPage );
fulltabs.removeObject(lTabPage); leftKeepAmount:= currentIndex - visibleLeftIndex;
end else begin
UpdateTabAndArrowVisibility(self); if removedIndex < currentIndex then
dec( currentIndex );
end;
UpdateTabAndArrowVisibility( self );
end; end;
function TCocoaTabControl.exttabIndexOfTabViewItem(lTabPage: NSTabViewItem function TCocoaTabControl.exttabIndexOfTabViewItem(lTabPage: NSTabViewItem