Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Цвет РГБ в Интегер


electroman239 ©   (2007-01-25 21:29:00) 

помогите пожалуйста!как перевести red green blue в значение типа integer


TRUNK   (2007-01-26 10:20:00) [1]

В 24-битном цвете:

Color: Integer;
R,G,B: Byte;
Color := (B shl 16)or(G shl 8)or R;


В 32-битном цвете:

Color: Integer;
R,G,B: Byte;
Color := (R shl 16)or(G shl 8)or B;


DevilDevil   (2007-01-25 23:05:00) [2]

clRed, clGreen, clBlue, ... сиотри константы модуля Graphics.pas

var
 int : integer;
begin
 int := Integer(clBlue);
 Caption := IntToStr(int);
end;


Kolan   (2007-01-25 21:43:00) [3]

«[0] electroman239 ©   (25.01.07 21:29)
помогите пожалуйста!как перевести red green blue в значение
типа integer»

Кжется RGB функция называется.


Наверх

Титульная страница Поиск, карта сайта Написать письмо