anchor.diff:    lColor.Red := Round(lColor.Red*APercent/100);
     lColor.Green := Round(lColor.Green*APercent/100);
     lColor.Blue := Round(lColor.Blue*APercent/100);
  -  Result := FPColorTofpgColor(lColor);
  +  Result := RGBTripleTofpgColor(lColor);
   end;
   
   function fpgLighter(const AColor: TfpgColor; APercent: Byte): TfpgColor;
   var
  -  lColor: TFPColor;
  +  lColor: TRGBTriple;
   begin
     lColor.Red := fpgGetRed(AColor);
     lColor.Green := fpgGetGreen(AColor);
  
positive.code:   end
  end;
  
  function fpgColorToFPColor(const AColor: TfpgColor): TFPColor;
  begin
    with Result do
    begin
  
negative.code: 
  function fpgDarker(const AColor: TfpgColor; APercent: Byte): TfpgColor;
  var
    lColor: TRGBTriple;
  begin
    lColor.Red := fpgGetRed(AColor);
    lColor.Green := fpgGetGreen(AColor);
  