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

cocoa: prevent a rangecheck error on adjusting tabs

Browse Source 
git-svn-id: trunk@61071 -
This commit is contained in:
dmitry 2019-04-28 18:04:05 +00:00
parent 4c2e6c3028
commit c029e0e53e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -182,7 +182,7 @@ var
i : integer;
begin
arr := aview.tabViewItems;
for i :=arr.count - 1 downto 0 do
for i := Integer(arr.count) - 1 downto 0 do
aview.removeTabViewItem( arr.objectAtIndex(i) );
end;