anchor.diff:    n: integer;
     r: TfpgRect;
   begin
  +  PrepareToShow;
     Canvas.BeginDraw;
     inherited HandlePaint;
     r.SetRect(0, 0, Width, Height);
  
positive.code:     Result := TfpgMenuItem(FItems.Items[ind]);
  end;
  
  procedure TfpgMenuBar.HandleShow;
  begin
    PrepareToShow;
    inherited HandleShow;
  end;
  
  procedure TfpgMenuBar.HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState);
  var
    newf: integer;
  
negative.code:     procedure   PrepareToShow;
      function    VisibleCount: integer;
      function    VisibleItem(ind: integer): TfpgMenuItem;
      procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  