colorDialog

← →
Criptonik © (2011-07-05 10:44) [0]

Как в edit вывести название выбранного цвета или его шестнадцатеричный код

← →
Медвежонок Пятачок © (2011-07-05 10:46) [1]

Edit1.Text := <название цвета или его шестнадцатеричный код>;

← →
Criptonik © (2011-07-05 10:48) [2]

да нет цвета выбранного в colorDialog

← →
Медвежонок Пятачок © (2011-07-05 10:49) [3]

Если цвета нет, то цвет не вывести.

← →
Criptonik © (2011-07-05 11:03) [4]

вобщем выбрал цвет в colorDialog, нажал OK, как вывести его название (кув, green и тд и тп) в edit

← →
Dennis I. Komarov © (2011-07-05 11:09) [5]

> Как в edit вывести название выбранного цвета или его шестнадцатеричный
> код

Надо пологать, что у этого объекта есть некое нужное свойство.

А что такое название цвета?

← →
brother © (2011-07-05 11:11) [6]

> А что такое название цвета?

clRed, clGreen, clYellow итп?

← →
И. Павел © (2011-07-05 11:12) [7]

> [4] Criptonik © (05.07.11 11:03)

ColorToString(TColor)

← →
Медвежонок Пятачок © (2011-07-05 11:12) [8]

интересно, если там можно выбрать 65 с лишним лимонов цветов, то где взять эти 65 лимонов имен этих цветов?

как вывести его название (кув, green и тд и тп) в edit

Как вывести уже сказали. Через присвоение значения свойству "Текст".

← →
Dennis I. Komarov © (2011-07-05 11:13) [9]

> clRed, clGreen, clYellow итп?

это константы и не более...

← →
Медвежонок Пятачок © (2011-07-05 11:14) [10]

вопрос из разряда "как склеить телочку на необитаемом острове"
особенно если ты на острове один.

← →
brother © (2011-07-05 11:17) [11]

> это константы и не более...

имхо, он их значения в тексте хочет...

← →
brother © (2011-07-05 11:18) [12]

> как склеить телочку

Я знаю! берешь клей и ...

← →
Медвежонок Пятачок © (2011-07-05 11:23) [13]

... и тут оказывается, что склеить то элементарно, но вот самой телочки пока нет. И понимаешь, что надо было сначала задать вопрос "где взять телочку на необитаемом острове".

← →
Омлет © (2011-07-05 12:14) [14]

if dlgColor1.Execute then
edt1.Text := ColorToString(dlgColor1.Color)

← →
Criptonik © (2011-07-05 13:20) [15]

А как перевести вот такой код $00004000 в шестнадцатиричный (#код)

← →
Anatoly Podgoretsky © (2011-07-05 13:21) [16]

> Criptonik (05.07.2011 13:20:15) [15]

Это уже шестнадцатиричный

← →
Dennis I. Komarov © (2011-07-05 13:23) [17]

> А как перевести вот такой код $00004000 в шестнадцатиричный
> (#код)

Можно подумать сейчас в пятиричном...

в HTMLевский формат #ff3400

ColorToRGB

Ну тогда может сперва разобраться в кодировке цвета, что такое RGB, как что и откуда?

function ColorToHTML(Color: TColor): string; begin Color := ColorToRGB(Color); FmtStr(Result, "#%.2x%.2x%.2x", [Lo(Color), Lo(Color shr 8), Lo((Color shr 8) shr 8)]); end;

> Dennis I. Komarov (05.07.2011 13:23:17) [17]

Не исключено.

> Омлет © (05.07.11 13:46) [21]
>
> function ColorToHTML(Color: TColor): string;
> begin
> Color := ColorToRGB(Color);
> FmtStr(Result, "#%.2x%.2x%.2x",
> [Lo(Color), Lo(Color shr 8), Lo((Color shr 8) shr 8)]);
>
> end;

Огромное спасибо!!!!!!!!!!

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