anchor.diff:            Canvas.SetTextColor(clMenuDisabled);
           end;
         end;  { if/else }
  -      Canvas.FillRectangle(r);
         // a possible future theme option
   //      Canvas.GradientFill(r, FLightColor, FDarkColor, gdVertical);
         mi.DrawText(Canvas, r.left+4, r.top+1, cImgWidth);
  -      Canvas.EndDraw(r.Left, r.Top, r.Width, r.Height);
         Exit; //==>
       end;  { if col=n }
  -    inc(r.Left, ItemWidth(mi));
  +    inc(r.Left, r.width);
     end;  { for }
   end;
   
  
positive.code:             op.Close;
              op := op.OpenerPopup;
            end;
          end;
    else
      consumed := false;
  
negative.code:     CloseSubmenus;
      DeActivateMenu;
      FLastItemClicked := -1;
      FocusItem := -1;
      exit; //==>
    end;
  
    if newf <> FFocusItem then
      FocusItem := newf;
  
    if not VisibleItem(newf).Selectable then
      Exit; //==>
  
    DoSelect;
  end;
  