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: 
      if line = n then
      begin
        if AItemFocused and (not mi.Separator) then
        begin
          if MenuFocused then
          begin
  