Конвертация BGR-цвета TColor в RGB-цвет HEXDelphi , Графика и Игры , Цвета и ПалитраКонвертация BGR-цвета TColor в RGB-цвет HEX
Автор: Lipskiy { **** UBPFD *********** by delphibase.endimus.com **** >> Конвертация BGR-цвета TColor в RGB-цвет HEX Функция преобразует значение типа TColor в шестнадцатиричное значение цвета в формате string с заменой порядка следования цветовых компонентов на противоположный (из BGR в RGB). Порядок RGB используется, например в HTML. Корректно работает с константами системных цветов. Зависимости: SysUtils, Windows, Graphics Автор: lipskiy, Fenik, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург Copyright: Собственное написание (lipskiy) Дата: 20 апреля 2002 г. ***************************************************** } function ColorToHTMLHexColor(Color: TColor): string; begin result := IntToHex(GetRValue(ColorToRGB(Color)), 2) + IntToHex(GetGValue(ColorToRGB(Color)), 2) + IntToHex(GetBValue(ColorToRGB(Color)), 2); end; Статья Конвертация BGR-цвета TColor в RGB-цвет HEX раздела Графика и Игры Цвета и Палитра может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Цвета и Палитра ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |