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