TColor -> Hex

← →
Vulko © (2003-05-25 13:27) [0]

Можно ли перевести цвет (выбранный с помощью color dialog) перевести в 16ричное значение RGB?

← →
Palladin © (2003-05-25 13:52) [1]

Можно

← →
Юрий Зотов © (2003-05-25 14:19) [2]

ColorToRGB + IntToHex

← →
Vulko © (2003-05-25 23:46) [3]

Не совсем то что я предпологал.
А как тогда (или сразу) перевести в строку типа D1D2D2 - это некий цвет.

> ColorToRGB + IntToHex

Это подходит, но как мне тогда Hex в строку конвертить?

← →
NailS © (2003-05-25 23:49) [4]

> Это подходит, но как мне тогда Hex в строку конвертить?

А посмотреть что эта функция возвращает?
Или компьютера под рукой нет?
function IntToHex(Value: Integer; Digits: Integer): string;

← →
Vulko © (2003-05-26 00:06) [5]

NailS, не надо считать себя умнее всех...
Почему же компилятор ругается на:
edit.Text:=inttohex(colortorgb(ColorDialog1.Color))?

← →
NailS © (2003-05-26 00:13) [6]

> Vulko © (26.05.03 00:06)
> NailS, не надо считать себя умнее всех...

;))))

> Почему же компилятор ругается на:
> edit.Text:=inttohex(colortorgb(ColorDialog1.Color))?

Наверно, потому что IntToHex принимает 2 параметра?

← →
NailS © (2003-05-26 00:15) [7]

Второй параметр определяет минимальное кол-во выводимых знаков.
В вашем случае 6 будет достаточно.

← →
Vulko © (2003-05-26 15:02) [8]

Сорри. Хелп я читал плохо - моя вина (да и поздно было - спать хотелось).
Спасибо! ;)

← →
Anatoly Podgoretsky © (2003-05-26 15:07) [9]

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

← →
Vulko © (2003-05-31 12:23) [10]

Я всё так и сделал, но преобразуется всё задом на перёд, то есть если я
задаю цвет в диалоге выбора цвета скажем R-1 G-1 B-16, то он выдает
в HEX виде строку 100101. Как мне сделать, чтобы всё было правильно.

← →
Юрий Зотов © (2003-05-31 13:54) [11]

Младший байт - это R. Равен $01 или 1.
Следующий байт - это G. Равен $01 или 1.
Старший байт - это B. Равен $10 или 16.

Что задали - в точности то и получили, безо всяких "задом наперед". Какие проблемы?

> Хелп я читал плохо
> Как мне сделать, чтобы всё было правильно.

Видимо, чтобы все было правильно, надо читать хелп еще лучше.

"...the low three bytes represent RGB color intensities for blue, green, and red, respectively. The value $00FF0000 represents full-intensity, pure blue, $0000FF00 is pure green, and $000000FF is pure red..."

← →
Anatoly Podgoretsky © (2003-05-31 14:47) [12]

Vulko © (31.05.03 12:23)
Зачем работаешь тогда с Integer, надо с байтами, короче сам виноват.

> "...the low three bytes represent RGB color intensities
> for blue, green, and red, respectively. The value $00FF0000
> represents full-intensity, pure blue, $0000FF00 is pure
> green, and $000000FF is pure red..."

Без комментариев...
Сам попробуй сделать и поймешь.

Зачем?
В зависимости от требуемого варианта я буду работать или с байтами или с интегер, результаты будут противоположные
010110 или 100101.

http://delphibase.endimus.com/?action=viewfunc&topic=mediacolors&id=10127

> Vulko © (31.05.03 15:51)

> Сам попробуй сделать и поймешь.

Даже и пробовать не буду. Бесполезно - все равно не пойму. Моя понималка не в состоянии понять, как можно запутаться в трех байтах. К тому же, документированных.

Хотелось бы только напомнить вот это:
Anatoly Podgoretsky © (26.05.03 15:07)

Интересная, однако, у Вас манера вопросы задавать...

> В зависимости от требуемого варианта я буду работать или
> с байтами или с интегер, результаты будут противоположные

О чем я и говорю.
Тогда проще наверное просто переконвертить строку, или есть способы проще?

> Интересная, однако, у Вас манера вопросы задавать...

Такой уж я - простите ;)

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