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

Patch from bug #26762

Browse Source 
git-svn-id: trunk@46730 -
This commit is contained in:
sekelsenmat 2014-10-31 16:20:17 +00:00
parent 186500413d
commit 070e902387
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/wince/wincewsmenus.pp
View File

@ -1033,14 +1033,23 @@ begin
end;
class function TWinCEWSMenuItem.SetCheck(const AMenuItem: TMenuItem; const Checked: boolean): boolean;
const
uCheck: array[boolean] of uInt = (mf_Unchecked, mf_Checked);
var
uCheck: UINT;
Sibling: TMenuItem;
begin
if Checked then
uCheck := MF_CHECKED
else
uCheck := MF_UNCHECKED;
Result := Boolean(Windows.CheckMenuItem(AMenuItem.Parent.Handle, AMenuItem.Command, uCheck));
with AMenuItem do
if not radioItem or (groupIndex=0) then
result := longBool(CheckMenuItem(AMenuItem.Parent.handle,
AMenuItem.Command, uCheck[checked]))
else if checked then
begin
result := CheckMenuRadioItem(AMenuItem.Parent.handle,
AMenuItem.Command, AMenuItem.Command, AMenuItem.Command, mf_ByCommand);
for Sibling in AMenuItem.Parent do
if Sibling.radioItem and (Sibling.groupIndex=groupIndex) and (Sibling<>AMenuItem) then
CheckMenuRadioItem(AMenuItem.Parent.handle, Sibling.command, Sibling.command, command, mf_ByCommand);
end;
end;
class procedure TWinCEWSMenuItem.SetShortCut(const AMenuItem: TMenuItem; const ShortCutK1, ShortCutK2: TShortCut);