Mega Code Archive
How to get the lighter or darker color of a TColor variable
<![CDATA[
Title: How to get the lighter or darker color of a TColor variable
{=======================================}
function Min(a, b: Longint): Longint;
begin
if a b then Result := b
else
Result := a;
end;
function Max(a, b: Longint): Longint;
begin
if a b then Result := a
else
Result := b;
end;
{=======================================}
function GetHighlightColor(BaseColor: TColor): TColor;
begin
Result := RGB(Min(GetRValue(ColorToRGB(BaseColor)) 64, 255),
Min(GetGValue(ColorToRGB(BaseColor)) 64, 255),
Min(GetBValue(ColorToRGB(BaseColor)) 64, 255));
end;
function GetShadowColor(BaseColor: TColor): TColor;
begin
Result := RGB(Max(GetRValue(ColorToRGB(BaseColor)) ?C 64, 0),
Max(GetGValue(ColorToRGB(BaseColor)) ?C 64, 0),
Max(GetBValue(ColorToRGB(BaseColor)) ?C 64, 0));
end;
]]>