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

Carbon intf: fixed 0009714: Carbon menuitem remains active after selecting Form.show

Browse Source 
by clearing menu highlighting

git-svn-id: trunk@13096 -
This commit is contained in:
tombo 2007-12-01 09:24:56 +00:00
parent 086cb54594
commit 9f4b963fd6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonmenus.pp
View File

@ -335,7 +335,9 @@ begin
OSError(SetRootMenu(Menu), Self, 'AttachToMenuBar', 'SetRootMenu'); OSError(SetRootMenu(Menu), Self, 'AttachToMenuBar', 'SetRootMenu');
InvalMenuBar; HiliteMenu(0);
//DrawMenuBar;
//InvalMenuBar;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------