Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

Господа! Как при выходе из ColorDialog получить цвет форматаRGB?   Найти похожие ветки 

 
МахмуД   (2003-02-22 19:05) [0]

Господа! Как при выходе из ColorDialog получить цвет в формате RGB? Буду очень благодарен если подскажите.


 
{}   (2003-02-22 19:26) [1]

function Color2RGB(Color: TColor): TColorRGB;
begin
Result.r := Color AND $000000FF;
Result.g := (Color AND $0000FF00) SHR 8;
Result.b := (Color AND $00FF0000) SHR 16;
end;

function RGB2Color(Color: TColorRGB): TColor;
begin
Result := Color.r OR (Color.g SHL 8) OR (Color.b SHL 16);
end;


 
TButton ©   (2003-02-22 19:42) [2]


var
Color: TColor
begin
...
r:=GetRValue(Color);
g:=GetGValue(Color);
b:=GetBValue(Color);
...
end;


 
Юрий Зотов ©   (2003-02-23 11:41) [3]

А еще можно просто вызвать ColorToRGB. Не изобретая велосипедов.


 
МахмуД   (2003-02-23 17:33) [4]

премного благодарен Господа!



Страницы: 1 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
3-16953
glory32
2003-02-17 11:01
2003.03.06
Работа с ФохПрошной базой под Delphi


3-16954
RusIv
2003-02-17 11:00
2003.03.06
Выборку SQL-запроса передать в ComboBox, в строки Item ов


14-17283
Труп Васи Доброго
2003-02-19 18:22
2003.03.06
Virtual Drive


3-16980
VIB
2003-02-17 17:38
2003.03.06
Клавиши Left Right в DBGride


1-17035
Odil
2003-02-25 08:12
2003.03.06
Как подключить внешний файл, так чтоб прога мог показать вам лист