Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизГоспода! Как при выходе из 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c