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

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

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

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

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

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

jenya (2006-03-03 17:09:00) [1]
Оки сенкс....даставать больше не буду ;(

API (C) (2006-03-03 17:07:00) [2]
как так сделать чтоб при выборе в опенДиалоге файл ini (например)размещение файла записывалось в Edit1

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

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

jenya (2006-03-03 17:01:00) [3]
to API:

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

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

jenya (2006-03-03 16:46:00) [4]

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

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

jenya (2006-03-03 16:46:00) [5]

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

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

jenya (2006-03-03 16:46:00) [6]

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

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

jenya (2006-03-03 16:46:00) [7]

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

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

unknown (2006-03-03 16:44:00) [8]
>API (03.03.06 16:41) [10]
Поживем, увидим :)))

jenya (2006-03-03 16:43:00) [9]
Блин ну спасибо мужики!!! ;)
Быстрее ответов нигде не встречал в инете :)

API (2006-03-03 16:41:00) [10]
Подсказываю : константы определены в Graphics.pas

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

Desdechado (2006-03-03 16:41:00) [11]
тебе перевод для цвета нужен или набор шестнадцатиричных цифр, обозначающих цвет?

API (2006-03-03 16:39:00) [12]
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.

jenya (2006-03-03 16:39:00) [13]
Ребята, огромное спасибо всем!
unknown респект!!! ;)

unknown (2006-03-03 16:34:00) [14]
И в чем проблема?
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:32:00) [15]

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

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

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

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

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

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

API (2006-03-03 16:29:00) [17]
Можно составить таблицу цветов, с полями "R", "G", "B", "Наименование".
Внести в нее некоторое количество "базовых" цветов.
И написать функцию, которая будет вычилсять разницу между цветовыми составляющими табличных цветов и цвета, наименование которого нужно определить. В результате сравнения полученных разностных значений, выдавать результат "почти черный" или "почти фиолетовый" или "далеко не белый" - но это уже от Вас зависит.

jenya (2006-03-03 16:28:00) [18]

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

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

API (2006-03-03 16:24:00) [19]
Привет Мастера!

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

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

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

Наверх

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