Цвета в Delphi

← →
Slava812 © (2006-05-11 15:11) [0]

Я хочу создать маленькую программу для отображения кода цвета (У нас идут занятия по HTML и хотелось бы не рыться в справочников по поиску нужного кода известного цвета).
Как в текстовом поле написать код цвета в шестнадцеричном формате(6 цифр).
Или как перевести TColor в String в шестнадцеричном формате(6 цифр).

← →
Джо © (2006-05-11 15:17) [1]

Ну, если по-простому, то в HTML-цвет можно перевести как-то так:

function ColorToHtml (Color: TColor): string; begin Result := Format ("#%.2x%.2x%.2x", [GetRValue(Color),GetGValue(Color),GetBValue(Color)]); end;

← →
Jeer © (2006-05-11 15:21) [2]

> нужного кода известного цвета

Интересно, а каким параметром этот цвет известен ?
Серо-буро-малиновый в крапинку ?

← →
McSimm © (2006-05-11 15:23) [3]

TColor в 16м формате далек от HTML представления цвета - цвета идут в противоположном порядке и старший байт у TColor может не нулевым быть.

Посмотрите функции Format, ColorToRgb, GetRValue (G|B), BinToHex
(имена по пямяти, но кажется не ошибся)

← →
Slava812 © (2006-05-11 15:24) [4]

спасибо помогло!

← →
iZEN © (2006-05-11 17:02) [5]

Slava812 © (11.05.06 15:11) , есть замечательная бесплатная программулина: Pixi (http://natty.port5.com)
Показывает цвет под курсором мыши в разных форматах: HEX (0xFFFFFF), HTML (#FFFFFF), RGB (255,255,255), CMYK (0,0,0,0), HSV (0,0,100).

> хотелось бы не рыться в справочников по поиску нужного кода
> известного цвета

А это таки самый короткий путь...
:)))

Цвета в Delphi Найти похожие ветки