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

← →
electroman239 © (2007-01-25 21:29) [0]

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

← →
Kolan © (2007-01-25 21:43) [1]

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

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

← →
DevilDevil © (2007-01-25 23:05) [2]

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

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

В 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;

Цвет РГБ в Интегер Найти похожие ветки