anchor.diff:      Result := TfpgMenuItem(FItems.Items[ind]);
   end;
   
  -procedure TfpgPopupMenu.DrawItem(mi: TfpgMenuItem; rect: TfpgRect);
  +procedure TfpgPopupMenu.DrawItem(mi: TfpgMenuItem; rect: TfpgRect; const AItemFocused: boolean);
   var
     s: string;
     x: integer;
  
positive.code:   end;
  end;
  
  procedure TfpgPopupMenu.DrawRow(line: integer; focus: boolean);
  var
    n: integer;
    r: TfpgRect;
  
negative.code:     procedure   HandlePaint; override;
      procedure   HandleShow; override;
      procedure   HandleClose; override;
      procedure   DrawItem(mi: TfpgMenuItem; rect: TfpgRect; const AItemFocused: boolean); virtual;
      procedure   DrawRow(line: integer; const AItemFocused: boolean); virtual;
      function    ItemHeight(mi: TfpgMenuItem): integer; virtual;
      procedure   PrepareToShow;
    public
  