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

Carbon intf.: fixed bug #0009409: Carbon Widgetset: Radio TMenuItem does not update

Browse Source 
git-svn-id: trunk@12007 -
This commit is contained in:
tombo 2007-09-12 11:02:01 +00:00
parent d9c22fbfcf
commit 31336d1110
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/carbonmenus.pp
View File

@ -530,7 +530,7 @@ begin
Item := TCarbonMenu(FParentMenu.FItems[I]); Item := TCarbonMenu(FParentMenu.FItems[I]);
if Item = Self then Continue; if Item = Self then Continue;
if Item.LCLMenuItem.RadioItem and Item.LCLMenuItem.AutoCheck and if Item.LCLMenuItem.RadioItem and
(Item.LCLMenuItem.GroupIndex = LCLMenuItem.GroupIndex) then (Item.LCLMenuItem.GroupIndex = LCLMenuItem.GroupIndex) then
SetItemMark(FParentMenu.Menu, Item.GetIndex + 1, #0); SetItemMark(FParentMenu.Menu, Item.GetIndex + 1, #0);