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

Cocoa/TabControl: TCocoaTabControl.exttabInsertTabViewItem_atIndex() improved

Browse Source
This commit is contained in:
rich2014 2023-10-08 23:40:36 +08:00
parent f3add49346
commit 5bfc060093
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

@ -101,7 +101,7 @@ type
procedure mouseDragged(event: NSEvent); override;
procedure mouseMoved(event: NSEvent); override;
// lcl
procedure exttabInsertTabViewItem_atIndex(lTabPage: NSTabViewItem; AIndex: integer);
procedure exttabInsertTabViewItem_atIndex(lTabPage: NSTabViewItem; index: integer);
message 'exttabInsertTabViewItem:atIndex:';
procedure exttabRemoveTabViewItem(lTabPage: NSTabViewItem);
message 'exttabRemoveTabViewItem:';
@ -800,12 +800,15 @@ begin
end;
procedure TCocoaTabControl.exttabInsertTabViewItem_atIndex(
lTabPage: NSTabViewItem; AIndex: integer);
lTabPage:NSTabViewItem; index:integer );
begin
if AIndex>fulltabs.count then AIndex:=fulltabs.count;
fulltabs.insertObject_atIndex(lTabPage, AIndex);
if index > fulltabs.count then
index:= fulltabs.count;
fulltabs.insertObject_atIndex( lTabPage, index );
if index < currentIndex then
inc( currentIndex );
UpdateTabAndArrowVisibility(self);
UpdateTabAndArrowVisibility( self );
end;
procedure TCocoaTabControl.exttabRemoveTabViewItem(lTabPage: NSTabViewItem);