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

Перевод TColor в HEX   Найти похожие ветки 

← →
Netcoder   (2002-12-13 08:12) [0]

Мастера, подскажите пожалуйста, как перевести Color в HEX. Короче, как в HTML редакторах.

---

← →
zavdim   (2002-12-13 09:31) [1]

function GetHexFrom(a : TColor) : string;
var r,g,b : integer;
begin
b := a div $10000;
g := (a mod $10000) div $100;
r := a mod $100;
Result := intToHex(r,2)+intToHex(g,2)+intToHex(b,2)
end;

---

← →
Гарик   (2002-12-13 09:35) [2]

ColorToRGB
получаешь цвет в HEX: RRGGBB
это имелось ввиду?

---

← →
Netcoder   (2002-12-13 09:48) [3]

Спасибо

---

← →
zavdim   (2002-12-13 10:21) [4]

2 Гарик
function ColorToRGB(Color: TColor): Longint;
в HEX - это еще не перешло, и такую например строку мы не получим #ffA076.
Но и мне можно добавить следующее:
a := a and $1000000;

---

← →
Гарик   (2002-12-13 11:02) [5]

2zavdim

> такую например строку мы не получим #ffA076.

почему
Form1.Color := $ffA076;
ShowMessage(IntToHex(ColorToRGB(Form1.Color),6))
получаем именно такую строку или речь не об этом?

---

← →
Anatoly Podgoretsky ©   (2002-12-13 11:10) [6]

У него там понапутано, и HEX и HTML, они ек пвыеф дпун другу

1. #BBGGRR
2. #RRGGBB

---

← →
zavdim   (2002-12-13 12:12) [7]

2 Гарик
я и говорю, что без IntToHex не убежишь. И я не пробовал, но в вашем случае точно RGB будет, а не BRG ? ....
Так - попробовал - не HTML формат, а как в Дельфи BRG.

2 Anatoly Podgoretsky ©
А можно предпоследнее повторить и чуть медленнее :-))

---

← →
zavdim   (2002-12-13 12:15) [8]

тоесть BGR.

---

← →
Anatoly Podgoretsky ©   (2002-12-13 12:34) [9]

Превращение происходит в текстовую строку по правилам работы с числами, справа младшии разряды, никакой разницы по сравнению с десятичными, только что по модулю 16

---

← →
zavdim   (2002-12-13 12:48) [10]

вот и я говорю. поэтому и разница с HTML.
Delphi и HTML по разному цвета нумеруют.
RGB - BGR.

---

← →
Гарик   (2002-12-13 13:16) [11]

Да, действительно, надо переворачивать "делфийский" цвет, чтобы получить такой же в Html. Т.е. в Delphi BGR.
из graphics.pas:

clRed = TColor($0000FF);
clBlue = TColor($FF0000);


---

← →
Netcoder   (2002-12-14 10:23) [12]

Функция zavdima вроде сработала. Спасибо!

---

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

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



Память: 0.47 MB
Время: 0.013 c