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:   FFocusItem        := -1;
    FPrevFocusItem    := -1;
    FLastItemClicked  := -1;
    FFocusable        := False;
    FClicked          := False;
    FBackgroundColor  := Parent.BackgroundColor;
    FTextColor        := Parent.TextColor;
    // calculate the best height based on font
    FHeight := fpgStyle.MenuFont.Height + 6; // 3px margin top and bottom
  
    FLightColor := TfpgColor($f0ece3);  // color at top of menu bar
    FDarkColor  := TfpgColor($beb8a4);  // color at bottom of menu bar
    
    FMenuOptions := [];
  end;
  
  destructor TfpgMenuBar.Destroy;
  
negative.code: procedure TfpgMenuBar.DeActivateMenu;
  begin
    Parent.ActiveWidget := nil;
    if not FMouseIsOver then
      InternalReset;
  end;
  
  procedure TfpgMenuBar.ActivateMenu;
  