anchor.diff:          end;
         end;
         Canvas.FillRectangle(r);
  -      DrawItem(mi, r);
  +      DrawItem(mi, r, AItemFocused);
         Canvas.EndDraw(r.Left, r.Top, r.Width, r.Height);
         Exit; //==>
       end;
  
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
  