Как получить более светлый или более тёмный цветDelphi , Графика и Игры , Цвета и ПалитраКак получить более светлый или более тёмный цветАвтор: http://www.swissdelphicenter.ch { 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; Статья Как получить более светлый или более тёмный цвет раздела Графика и Игры Цвета и Палитра может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Цвета и Палитра ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |