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

cocoa: preventing range check error on a tab removal

Browse Source 
git-svn-id: trunk@61424 -
This commit is contained in:
dmitry 2019-06-19 14:47:11 +00:00
parent 285f0d4cb6
commit 860c292e15
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -585,11 +585,11 @@ end;
class procedure TCocoaWSCustomPage.DestroyHandle(const AWinControl: TWinControl); class procedure TCocoaWSCustomPage.DestroyHandle(const AWinControl: TWinControl);
var var
tv: TCocoaTabPageView; tv: TCocoaTabPageView;
ndx: Integer; ndx: NSInteger;
begin begin
tv := TCocoaTabPageView(AWinControl.Handle); tv := TCocoaTabPageView(AWinControl.Handle);
ndx := tv.tabView.exttabIndexOfTabViewItem(tv.tabPage); ndx := tv.tabView.exttabIndexOfTabViewItem(tv.tabPage);
if ndx >= 0 then if (ndx >= 0) and (ndx < tv.tabView.fulltabs.count) then
tv.tabview.exttabRemoveTabViewItem(tv.tabPage); tv.tabview.exttabRemoveTabViewItem(tv.tabPage);
TCocoaWSWinControl.DestroyHandle(AWinControl); TCocoaWSWinControl.DestroyHandle(AWinControl);
end; end;