Из ColorDialog в Edit1, как текст, возможно?

← →
jenya (2006-03-03 16:18) [0]

Привет Мастера!
Нужна помощь...вот проблема:
Нужно чтобы при нажатии СпидБатона открывался colordialog, в котором выбираешь
цвет и при нажатии другого спидбатона результат выбранного
цвета писался в Edit1, как текст,
например 000000 - черный ;)

Заранее Спасибо!

← →
API (2006-03-03 16:24) [1]

Привет Мастера!

Это не ко мне...

Нужна помощь...вот проблема:

Проблема представить цвет $4ea36f в словесном описании?
Или в чем?

← →
jenya (2006-03-03 16:28) [2]

> Проблема представить цвет $4ea36f в словесном описании?Или
> в чем?

нет...
Проблема в том как сделать чтоб при нажатии спид батона открывался колорДиалог...в котором я выберу цвет и резултат запишется в Edit1
вроде так, спасибо за оперативность...;)

← →
API (2006-03-03 16:29) [3]

Можно составить таблицу цветов, с полями "R", "G", "B", "Наименование".
Внести в нее некоторое количество "базовых" цветов.
И написать функцию, которая будет вычилсять разницу между цветовыми составляющими табличных цветов и цвета, наименование которого нужно определить. В результате сравнения полученных разностных значений, выдавать результат "почти черный" или "почти фиолетовый" или "далеко не белый" - но это уже от Вас зависит.

← →
_RusLAN © (2006-03-03 16:32) [4]

jenya (03.03.06 16:18)
Нужно чтобы при нажатии СпидБатона открывался colordialog, в котором выбираешь
цвет и при нажатии другого спидбатона результат выбранного
цвета писался в Edit1, как текст,

API (03.03.06 16:24) [1]
Проблема представить цвет $4ea36f в словесном описании?
Или в чем?

jenya (03.03.06 16:28) [2]
Проблема в том как сделать чтоб при нажатии спид батона открывался колорДиалог...в котором я выберу цвет и резултат запишется в Edit1

Ветка зациклилась. :))

← →
jenya (2006-03-03 16:32) [5]

> Можно составить таблицу цветов, с полями "R", "G", "B",
> "Наименование".

Спасибо!
Но мне было бы предподчительнее если бы открылся колордиалог :(

← →
unknown © (2006-03-03 16:34) [6]

И в чем проблема?
procedure TForm1.SpeedButton1Click(Sender: TObject); begin if ColorDialog1.Execute then Edit1.Text:=ColorToString(ColorDialog1.Color); end;
Остается только константы типа clBlack перевести на русский.
P/S
Подсказываю : константы определены в Graphics.pas

← →
jenya (2006-03-03 16:39) [7]

Ребята, огромное спасибо всем!
unknown респект!!! ;)

← →
API (2006-03-03 16:39) [8]

jenya (03.03.06 16:28) [2]

Бросаете на форму SpeedButton (SpeedButton1), Edit (Edit1), ColorDialog (ColorDialog1). Дважды щелкаете мышью по кнопке, и в теле метода (в редактора) пишете:

if ColorDialog1.Execute then Edit1.Text := "$" + IntToHex(ColorDialog1.Color, 6);

В результате у Вас должно получится:

procedure TForm1.SpeedButton1Click(Sender: TObject); begin if ColorDialog1.Execute then Edit1.Text := "$" + IntToHex(ColorDialog1.Color, 6); end;

P.S. Запустить - нажать F9. Посмотреть справку - навести текстовый курсор на требуемое слово и нажать F1.

← →
Desdechado © (2006-03-03 16:41) [9]

тебе перевод для цвета нужен или набор шестнадцатиричных цифр, обозначающих цвет?

← →
API (2006-03-03 16:41) [10]

Подсказываю : константы определены в Graphics.pas

Ждите завтра вопроса: "Не запускается программа! Пишет, ошибка в graphics.pas! Помогите!!!"

← →
jenya (2006-03-03 16:43) [11]

Блин ну спасибо мужики!!! ;)
Быстрее ответов нигде не встречал в инете :)

← →
unknown © (2006-03-03 16:44) [12]

>API (03.03.06 16:41) [10]
Поживем, увидим :)))

← →
jenya (2006-03-03 16:46) [13]

> тебе перевод для цвета нужен или набор шестнадцатиричных
> цифр, обозначающих цвет?

Нет спасибо
Поступил как сказал API, только $ убрал...
просто в мне hex"е цвета были нужны....спасибо!

← →
jenya (2006-03-03 16:46) [14]

← →
jenya (2006-03-03 16:46) [15]

← →
jenya (2006-03-03 16:46) [16]

← →
jenya (2006-03-03 17:01) [17]

to API:

if OpenDialog1.Execute
then
Edit1.Text := IntToHex(0,0)
end;

как так сделать чтоб при выборе в опенДиалоге файл ini (например)размещение файла записывалось в Edit1 (например, E:\aNy\any.ini)

← →
API (C) (2006-03-03 17:07) [18]

как так сделать чтоб при выборе в опенДиалоге файл ini (например)размещение файла записывалось в Edit1

if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;

P.S. Почитали бы Вы книгу, что ли...

← →
jenya (2006-03-03 17:09) [19]

Оки сенкс....даставать больше не буду ;(

Из ColorDialog в Edit1, как текст, возможно? Найти похожие ветки