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

Carbon: make carbon widget visibility in sync with lcl. Patch by David Jenkins. issue #21731

Browse Source 
git-svn-id: trunk@36766 -
This commit is contained in:
zeljko 2012-04-14 10:58:28 +00:00
parent 0666757288
commit 435b223807
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/carbon/carbonprivatecontrol.inc
View File

@ -798,7 +798,7 @@ begin
// add frame to parent content area // add frame to parent content area
for I := 0 to GetFrameCount - 1 do for I := 0 to GetFrameCount - 1 do
begin begin
OSError(HIViewSetVisible(Frames[I], LCLObject.Visible), Self, 'AddToWidget', SViewVisible); OSError(HIViewSetVisible(Frames[I], LCLObject.HandleObjectShouldBeVisible), Self, 'AddToWidget', SViewVisible);
OSError(HIViewAddSubview(AParent.Content, Frames[I]), Self, 'AddToWidget', OSError(HIViewAddSubview(AParent.Content, Frames[I]), Self, 'AddToWidget',
SViewAddView); SViewAddView);
end; end;