{ Here's some function that returns the lighter or darker color of a TColor. You can use it, for example, to design a bevel or something like that. } {=======================================} functionMin(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)) - 64, 0), Max(GetGValue(ColorToRGB(BaseColor)) - 64, 0), Max(GetBValue(ColorToRGB(BaseColor)) - 64, 0)); end
;