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

cocoa: checking the presence of tabview before removing it

Browse Source 
git-svn-id: trunk@61070 -
This commit is contained in:
dmitry 2019-04-28 17:47:45 +00:00
parent ee04fcba3b
commit 4c2e6c3028
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -599,8 +599,12 @@ begin
end; end;
procedure TCocoaTabControl.exttabRemoveTabViewItem(lTabPage: NSTabViewItem); procedure TCocoaTabControl.exttabRemoveTabViewItem(lTabPage: NSTabViewItem);
var
idx : NSInteger;
begin begin
removeTabViewItem(lTabPage); idx := indexOfTabViewItem(lTabPage);
if (idx>=0) and (idx<>NSNotFound) then
removeTabViewItem(lTabPage);
fulltabs.removeObject(lTabPage); fulltabs.removeObject(lTabPage);