Commit a5866048 authored by sekelsenmat's avatar sekelsenmat
Browse files

wince: patch #30243

git-svn-id: trunk@52767 -
parent e4f98112
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment