Как получить более светлый или более тёмный цвет

Советы » Цвета и Палитра » Как получить более светлый или более тёмный цвет

{
  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.
 }

 {=======================================}

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)) - 64, 0), Max(GetGValue(ColorToRGB(BaseColor)) - 64, 0), Max(GetBValue(ColorToRGB(BaseColor)) - 64, 0)); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com