anchor.diff:  procedure TfpgMenuBar.DeActivateMenu;
   begin
     Parent.ActiveWidget := nil;
  +  if not FMouseIsOver then
  +    InternalReset;
   end;
   
   procedure TfpgMenuBar.ActivateMenu;
  
positive.code:     if (OpenerPopup = nil) or not OpenerPopup.HasHandle then
      begin
        OpenerMenuBar.DeActivateMenu;
        //OpenerMenuBar.Repaint;
      end;
      //else
      //OpenerMenuBar.RePaint;
  
negative.code:     procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandlePaint; override;
      procedure   HandleMouseEnter; override;
      procedure   HandleMouseExit; override;
      function    CalcMouseCol(x: integer): integer;
      function    GetItemPosX(index: integer): integer;
      function    MenuFocused: boolean;
  