Как перевести TColor в RGB

← →
TStas © (2005-12-17 16:48) [0]

Как-то просто, а найти не могу.

← →
begin...end © (2005-12-17 16:50) [1]

Функция ColorToRGB (модуль Graphics).

← →
TStas © (2005-12-17 16:52) [2]

Спасибо, сейчас попробую

← →
Fenik © (2005-12-17 21:25) [3]

R := Lo(Color); {красный}
G := Lo(Color shr 8); {зелёный}
B := Lo((Color shr 8) shr 8); {синий}

← →
app © (2005-12-17 22:21) [4]

Fenik © (17.12.05 21:25) [3]
Во первых сложно, а во вторых неправильно. См. справка что такое TColor

← →
Fenik © (2005-12-17 22:45) [5]

> app © (17.12.05 22:21) [4]

Во-первых быстро, во-вторых правильно, если цвет не системный или перед этим использован совет [1], т.е. Color := ColorToRGB(Color). Справку я читал. В-третьих, про дефисы я не забываю :))

Fenik © (17.12.05 22:45) [5]
Я понимаю TColor как он есть, а он по определению не являеся RGB, иногда может с ним совпадать, если не обращать внимание на 4 байт

Как перевести TColor в RGB Найти похожие ветки