anchor.diff:      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;
  
positive.code: procedure TfpgMenuBar.DeActivateMenu;
  begin
    Parent.ActiveWidget := nil;
  end;
  
  procedure TfpgMenuBar.ActivateMenu;
  
negative.code:   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);
  