Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

colorDialog

Страницы: 1 2 >
Criptonik © (2011-07-05 10:44:00)
Как в edit вывести название выбранного цвета или его шестнадцатеричный код

Anatoly Podgoretsky (2011-07-05 14:08:00) [1]

> Criptonik © (05.07.11 13:34) [18]

if X = $00004000 then y := '#ff3400'

Criptonik (2011-07-05 14:00:00) [2]

> Омлет © (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;

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

Anatoly Podgoretsky (2011-07-05 13:52:00) [3]
> Dennis I. Komarov (05.07.2011 13:23:17) [17]

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

Омлет (2011-07-05 13:46:00) [4]
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 (2011-07-05 13:38:00) [5]
Ну тогда может сперва разобраться в кодировке цвета, что такое RGB, как что и откуда?

RWolf (2011-07-05 13:37:00) [6]
ColorToRGB

Criptonik (2011-07-05 13:34:00) [7]
в HTMLевский формат #ff3400

Dennis I. Komarov (2011-07-05 13:23:00) [8]

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

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

Anatoly Podgoretsky (2011-07-05 13:21:00) [9]
> Criptonik (05.07.2011 13:20:15) [15]

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

Criptonik (2011-07-05 13:20:00) [10]
А как перевести вот такой код $00004000 в шестнадцатиричный (#код)

Омлет (2011-07-05 12:14:00) [11]
if dlgColor1.Execute then
edt1.Text := ColorToString(dlgColor1.Color)

Медвежонок Пятачок (2011-07-05 11:23:00) [12]
... и тут оказывается, что склеить то элементарно, но вот самой телочки пока нет. И понимаешь, что надо было сначала задать вопрос "где взять телочку на необитаемом острове".

brother (2011-07-05 11:18:00) [13]
> как склеить телочку

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

brother (2011-07-05 11:17:00) [14]
> это константы и не более...

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

Медвежонок Пятачок (2011-07-05 11:14:00) [15]
вопрос из разряда "как склеить телочку на необитаемом острове"
особенно если ты на острове один.

Dennis I. Komarov (2011-07-05 11:13:00) [16]

> clRed, clGreen, clYellow итп?

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

Медвежонок Пятачок (2011-07-05 11:12:00) [17]
интересно, если там можно выбрать 65 с лишним лимонов цветов, то где взять эти 65 лимонов имен этих цветов?

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

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

И. Павел (2011-07-05 11:12:00) [18]
> [4] Criptonik © (05.07.11 11:03)

ColorToString(TColor)

brother (2011-07-05 11:11:00) [19]
> А что такое название цвета?

clRed, clGreen, clYellow итп?

Dennis I. Komarov (2011-07-05 11:09:00) [20]

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

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

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »