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