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

TColor -> String   Найти похожие ветки 

← →
Mixa   (2004-02-27 19:05) [0]

Не подскажете, как значение типа TColor распечатать? Т.е. чтобы можно было напечатать например в файле значение цвета в шестнадцатеричном формате...

Пробовал IntToStr() но получается одно и тоже дестичное число... Может есть какая-нибудь процедура для перевода HEX в стринг или что то типа этого? (я такой не нашел)

---

← →
Тимохов ©   (2004-02-27 19:07) [1]

inttohex

---

← →
TButton ©   (2004-02-27 19:09) [2]

в один проход не получится.

---

← →
TUser ©   (2004-02-27 19:09) [3]

hextostr

---

← →
Тимохов ©   (2004-02-27 19:10) [4]

> TUser © (27.02.04 19:09) [3]
> hextostr

Это что?

---

← →
MG ©   (2004-02-27 19:11) [5]

ColorToRGB()
только в полученном значение цвета, кажется записаны
наоборот BGR

---

← →
TButton ©   (2004-02-27 19:12) [6]

s:=StrToInt(IntToHex(GetRValue(Color)))+StrToInt(IntToHex(GetGValue(Color)))+StrToInt(IntToHex(GetBValue(Color)));

так, если не на путал.

---

← →
TUser ©   (2004-02-27 19:53) [7]

> Это что?

Это я погорячился. Где-то я здесь давал код про то, как TColor в string записать в виде #ff00ff. Когда понадобилось - написал, как - уже не помню. Домой приду - могу посмотреть.

---

← →
TButton ©   (2004-02-27 19:57) [8]

у мене есть обратный код HexToColor

---

← →
Style ©   (2004-02-27 20:01) [9]

function ColorToHtml(Color: TColor): string;
var
rgb: COLORREF;
begin
rgb := ColorToRgb(clRed);
result := "#" + IntToHex(integer(GetRValue(rgb)),2) + IntToHex(integer(GetGValue(rgb)),2) + IntToHex(integer(GetBValue(rgb)),2);
end;

---

← →
Defunct ©   (2004-02-27 20:01) [10]

> Не подскажете, как значение типа TColor распечатать?

Format("%x",[цвет]);

---

← →
Style ©   (2004-02-27 20:02) [11]

Блин вместо clRed - Color :)

---

← →
Mixa   (2004-02-28 13:39) [12]

Всем спасибо!
А особенно 2 Style © !!!

PS

> > Не подскажете, как значение типа TColor распечатать?
>
> Format("%x",[цвет]);

Это мне напоминает фортран... или я чего то путаю? %P

---

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

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



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