Скачать: CL | DM;

Из 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]

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

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

---

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

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

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

---

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

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

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

---

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.025 c