Source position: JPL.Colors.pas line 170
function TriadicColor1(
const AColor: TColor;
DistanceFromComplementaryColor: Integer = 60
):TColor;