Господа! Как при выходе из 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]

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

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