anchor.diff:      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;
  
positive.code:     procedure   PrepareToShow;
      function    VisibleCount: integer;
      function    VisibleItem(ind: integer): TfpgMenuItem;
      procedure   HandleShow; override;
      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;
  
negative.code:   n: integer;
    r: TfpgRect;
  begin
    PrepareToShow;
    Canvas.BeginDraw;
    inherited HandlePaint;
    r.SetRect(0, 0, Width, Height);
  