Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c