anchor.diff:    function MultiplyBrightnessByFactor(aColor: Cardinal; aBrightnessFactor: Single; aMinBrightness: Single = 0; aMaxBrightness: Single = 1): Cardinal;
     function ReduceBrightness(aColor: Cardinal; aBrightness: Byte): Cardinal;
     function IsColorCloseToColors(aColor: Cardinal; const aColors: TKMCardinalArray; aDist: Single): Boolean;
  -  function GetColorDistance(aColor1, aColor2: Cardinal): Single;
  +  function GetColorDistance(aColor1, aColor2: Cardinal): Single; overload;
  +  function GetColorDistance(aColor1, aColor2: TKMColor3f): Single; overload;
     function GetRandomColor: Cardinal;
     function GetPingColor(aPing: Word): Cardinal;
     function GetFPSColor(aFPS: Word): Cardinal;
  
positive.code: 
    function RGB2BGR(aRGB: Cardinal): Cardinal;
    function BGR2RGB(aRGB: Cardinal): Cardinal;
    function ApplyColorCoef(aColor: Cardinal; aAlpha, aRed, aGreen, aBlue: Single): Cardinal;
    function GetGreyColor(aGreyLevel: Byte): Cardinal;
    procedure ConvertRGB2HSB(aR, aG, aB: Integer; out oH, oS, oB: Single);
  
negative.code:   A2 := (aColor2 shr 24 and $FF) / 255;
  
    Result := Sqrt(Sqr(R1 - R2) + Sqr(G1 - G2) + Sqr(B1 - B2) + Sqr(A1 - A2));
  end;
  
  
  function GetColorDistance(aColor1, aColor2: TKMColor3f): Single;
  begin
    Result := Sqrt(Sqr(aColor1.R - aColor2.R) + Sqr(aColor1.G - aColor2.G) + Sqr(aColor1.B - aColor2.B));
  end;
  
  
  