Преобразовать RGB в COLORREF (BGR)Delphi , Графика и Игры , Цвета и ПалитраПреобразовать RGB в COLORREF (BGR)
Оформил: DeeCo function RGB2BGR(R, G, B: Byte): COLORREF; overload; begin Result := (Integer(B) shl 16) + (Integer(G) shl 8) + R; end; function RGB2BGR(RGB: Integer): COLORREF; overload; var R, G, B: Integer; begin R := RGB div $10000; G := ((RGB mod $10000) div $100) shl 8; B := (RGB mod $100) shl 16; Result := B + G + R; end; Статья Преобразовать RGB в COLORREF (BGR) раздела Графика и Игры Цвета и Палитра может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Цвета и Палитра ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |