anchor.diff:    Canvas.EndDraw;
   end;
   
  +procedure TfpgMenuBar.HandleMouseEnter;
  +begin
  +  inherited HandleMouseEnter;
  +  FMouseIsOver := True;
  +end;
  +
  +procedure TfpgMenuBar.HandleMouseExit;
  +begin
  +  inherited HandleMouseExit;
  +  FMouseIsOver := False;
  +end;
  +
   constructor TfpgMenuBar.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  
positive.code:     procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandlePaint; override;
      function    CalcMouseCol(x: integer): integer;
      function    GetItemPosX(index: integer): integer;
      function    MenuFocused: boolean;
  
negative.code:     if (OpenerPopup = nil) or not OpenerPopup.HasHandle then
      begin
        OpenerMenuBar.DeActivateMenu;
      end;
      //else
      //OpenerMenuBar.RePaint;
  