anchor.diff:    end
     else
     begin
  -    if not Focused then
  -      Exit;
  -  end;
  -
  +    if not FClicked then
  +      exit;
  +  end;
   
     newf := CalcMouseCol(x);
     if not VisibleItem(newf).Selectable then
  
positive.code:   FFocusItem        := -1;
    FPrevFocusItem    := -1;
    FFocusable        := False;
    FBackgroundColor  := Parent.BackgroundColor;
    FTextColor        := Parent.TextColor;
    // calculate the best height based on font
  
negative.code:   
    if ComponentCount = 0 then
      Exit; // We have no menu items in MainMenu.
      
    FClicked := not FClicked;
  
    if FClicked then
      ActivateMenu
    else
    begin
      CloseSubmenus;
      DeActivateMenu;
      exit; //==>
    end;
  
    newf := CalcMouseCol(x);
  
  