15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Информер Журнал Форум Wiki DRKB Discuz!ML Помощь проекту


Как конвертировать RGB в TColor

function RGBToColor(R,G,B:Byte): TColor;
begin
       Result:=B Shl 16 Or
       G Shl 8 Or
       R;
end;

 

Источник: www.proext.com