paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 01:59:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince: patch #30243

Browse Source 
git-svn-id: trunk@52767 -
This commit is contained in:
sekelsenmat 2016-08-01 19:28:54 +00:00
parent e4f98112fa
commit a5866048b4
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -372,20 +372,12 @@ begin
DebugLn('[CeSetMenu] MenuItemsList.Text ' + MenuItemsList.Text);
{$endif}
// Remove previously installed top-level menu click handlers
MenuItemsList.Sort;
while MenuItemsList.Find('1001', lIndex) do
for lIndex := MenuItemsList.Count-1 downto 0 do
begin
MenuItemsList.Delete(lIndex);
{$ifdef VerboseWinCEMenu}
DebugLn(Format('[CeSetMenu] MenuItemsList.Delete 1001 Index %d', [lIndex]));
{$endif}
end;
while MenuItemsList.Find('1002', lIndex) do
begin
MenuItemsList.Delete(lIndex);
{$ifdef VerboseWinCEMenu}
DebugLn(Format('[CeSetMenu] MenuItemsList.Delete 1002 Index %d', [lIndex]));
{$endif}
if (MenuItemsList[lIndex] = '1001') or (MenuItemsList[lIndex] = '1002') then
begin
MenuItemsList.Delete(lIndex);
end;
end;
GetWindowRect(Wnd, BR);