Cores - escurecendo ou clareando uma cor

Top  Previous  Next

function GetHighlightColor(BaseColor: TColor): TColor;

begin

  Result := RGB(Min(GetRValue(ColorToRGB(BaseColor)) + 64255),

    Min(GetGValue(ColorToRGB(BaseColor)) + 64255),

    Min(GetBValue(ColorToRGB(BaseColor)) + 64255));

end;

 

 

function GetShadowColor(BaseColor: TColor): TColor;

begin

  Result := RGB(Max(GetRValue(ColorToRGB(BaseColor)) - 640),

    Max(GetGValue(ColorToRGB(BaseColor)) - 640),

    Max(GetBValue(ColorToRGB(BaseColor)) - 640));

end;