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

cocoa: fix updateproperties method from using a wrong view

Browse Source 
git-svn-id: trunk@61044 -
This commit is contained in:
dmitry 2019-04-24 05:11:21 +00:00
parent 4844c73998
commit 65e0011cc5
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

@ -603,8 +603,8 @@ begin
WriteLn('[TCocoaWSCustomTabControl.UpdateProperties] ACustomPage='+IntToStr(PtrInt(ACustomPage)));
{$ENDIF}
if not Assigned(ACustomPage) or not ACustomPage.HandleAllocated then Exit;
lTabPage := TCocoaTabPage(ACustomPage.Handle);
SetProperties(ACustomPage, lTabPage);
lTabPage := GetCocoaTabPageFromHandle(ACustomPage.Handle);
if Assigned(lTabPage) then SetProperties(ACustomPage, lTabPage);
end;
class procedure TCocoaWSCustomPage.SetProperties(