paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 03:57:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa/TabControl: clean up

Browse Source
This commit is contained in:
rich2014 2023-10-13 16:13:33 +08:00
parent 0dc0c39f0e
commit d4af394bac
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,7 +63,6 @@ type
{ various indexes in fulltabs }
currentIndex : Integer; // index of the current tab
visibleLeftIndex: Integer; // index shown in TabView on the left
visibleRightIndex: Integer; // index shown in TabView on the right
leftKeepAmount: Integer; // left tab amount to keep, equals currentIndex-visibleLeftIndex
procedure attachAllTabs; message 'attachAllTabs';
@ -487,11 +486,9 @@ procedure TCocoaTabControl.updateVariousIndex;
begin
if numberOfTabViewItems > 0 then begin
visibleLeftIndex:= fulltabs.indexOfObject( tabViewItemAtIndex(0) );
visibleRightIndex:= visibleLeftIndex + numberOfTabViewItems - 1;
leftKeepAmount:= currentIndex - visibleLeftIndex;
end else begin
visibleLeftIndex:= -1;
visibleRightIndex:= -1;
leftKeepAmount:= 0;
end;
end;