скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Преобразовать 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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook