anchor.diff:  procedure SortRect(var ARect: TRect);
   procedure SortRect(var ARect: TfpgRect);
   procedure SortRect(var left, top, right, bottom: integer);
  +
  +
   
   implementation
   
  
positive.code:     function  Right: TfpgCoord;
      procedure SetBottom(Value: TfpgCoord);
      procedure SetRight(Value: TfpgCoord);
    end;
  
  
  
negative.code: 
  const
    UserNamedColorStart   = 128;
    {$I predefinedcolors.inc}
  
  type
  