Написать код, чтобы после нажатия кнопки открывался ColorDialog, затем после выбора цвета мне выводилось его название...

@ralfie · Регистрация: 21.03.2019

Author24 — интернет-сервис помощи студентам

Доброго времени суток, друзья. Появилась проблема. Опишу вкраце.
Нужно написать код в Delphi, чтобы после нажатия кнопки открывался ColorDialog, затем после выбора цвета мне выводил его название
Название в виде: Красный, Синий и тд.
!!! Не код цвета, название цвета на русском языке!!!
Спасибо за помощь заранее

@Flip · 21.03.2019, 14:06

Сообщение от ralfie

ColorDialog

Принципиально или можно использовать например ColorBox ?

@ralfie · 21.03.2019, 17:03 **[ТС]**

Нужно именно в ColorDialog
Но если есть другие способы, то не принципиально

@Flip · 21.03.2019, 17:53

Почему я спросил про ColorBox... Как-то в своё время заморочился как сделать так, чтобы в ColorBox можно было загрузить палитру из множества цветов, мне нужны были HTML цвета в частности. Нашёл вот такой сайт, по мне удобный для работы с цветами. В таблице, которая там находится, описаны 1017 цветов, указано из чего состоит каждый цвет (основные три цвета R, G, B), и самое удобное все цвета имеют русские наименования (порой даже очень смешные).
Благодаря, уважаемому D1973 , в одной из тем был написан вот такой код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var L: TStringList;
    i: integer;
begin
 L := TStringList.Create;
 L.LoadFromFile('d:\tmp\clr.dat');
 for i := 0 to L.Count - 1 do
  Colorbox1.AddItem(L.Names[i], TObject(StrToInt(L.ValueFromIndex[i])));
 L.Free;
end;

Его смысл таков, в ColorBox загружаются цвета и их названия, которые находятся в файле рядом с программой.
Получилось как-то так:

Написать код, чтобы после нажатия кнопки открывался ColorDialog, затем после выбора цвета мне выводилось его название...

Проект ColorBox_1017.7z, попробуйте, может пригодится.
----------------------------------------------------
P.S. О цветах - не удивляйтесь некоторым названиям, придумал их не я точно, такие как: Бедра испуганной нимфы или Цвет яйца дрозда )).

@ralfie · 21.03.2019, 19:09 **[ТС]**

Спасибо, но что за LoadFromFile в скобочках?

@Flip · 21.03.2019, 20:01

Сообщение от ralfie

но что за LoadFromFile в скобочках?

LoadFromFile - это метод, при помощи которого в StringList загружаются строки из файла color.dat, который там лежит в папке с проектом. А из этих строк уже потом добавляются значения цветов в ColorBox. Файл color.dat легко правится обычным блокнотом, но изменять его не рекомендую, если только чтобы добавить строчки с цветами.

@krapotkin · 21.03.2019, 22:16

можете отсюда цвета взять
https://www.w3schools.com/colors/colors_names.asp
только помните, что в Delphi не RGB а BGR
поэтому AliceBlue #F0F8FF превратится в
AliceBlue=$FFF8F0

@ralfie · 21.03.2019, 23:31 **[ТС]**

Спасибо большое

@ralfie 0 / 0 / 0 Регистрация: 21.03.2019 Сообщений: 9
		1
	Delphi 6-7 Написать код, чтобы после нажатия кнопки открывался ColorDialog, затем после выбора цвета мне выводилось его название... 21.03.2019, 12:48. Показов 1982. Ответов 7 Метки delphi 7 (Все метки) Доброго времени суток, друзья. Появилась проблема. Опишу вкраце. Нужно написать код в Delphi, чтобы после нажатия кнопки открывался ColorDialog, затем после выбора цвета мне выводил его название Название в виде: Красный, Синий и тд. !!! Не код цвета, название цвета на русском языке!!! Спасибо за помощь заранее 0

@Flip 336 / 172 / 68 Регистрация: 25.02.2018 Сообщений: 616
	21.03.2019, 14:06	2
	Сообщение от ralfie ColorDialog Принципиально или можно использовать например ColorBox ? 0

@ralfie 0 / 0 / 0 Регистрация: 21.03.2019 Сообщений: 9
	21.03.2019, 17:03 [ТС]	3
	Нужно именно в ColorDialog Но если есть другие способы, то не принципиально 0

@ralfie 0 / 0 / 0 Регистрация: 21.03.2019 Сообщений: 9
	21.03.2019, 19:09 [ТС]	5
	Спасибо, но что за LoadFromFile в скобочках? 0

@Flip 336 / 172 / 68 Регистрация: 25.02.2018 Сообщений: 616
	21.03.2019, 20:01	6
	Сообщение от ralfie но что за LoadFromFile в скобочках? LoadFromFile - это метод, при помощи которого в StringList загружаются строки из файла color.dat, который там лежит в папке с проектом. А из этих строк уже потом добавляются значения цветов в ColorBox. Файл color.dat легко правится обычным блокнотом, но изменять его не рекомендую, если только чтобы добавить строчки с цветами. 0

@krapotkin 5791 / 4532 / 1432 Регистрация: 14.04.2014 Сообщений: 20,176 Записей в блоге: 20
	21.03.2019, 22:16	7
	можете отсюда цвета взять https://www.w3schools.com/colors/colors_names.asp только помните, что в Delphi не RGB а BGR поэтому AliceBlue #F0F8FF превратится в AliceBlue=$FFF8F0 1

@ralfie 0 / 0 / 0 Регистрация: 21.03.2019 Сообщений: 9
	21.03.2019, 23:31 [ТС]	8
	Спасибо большое 0

Написать код, чтобы после нажатия кнопки открывался ColorDialog, затем после выбора цвета мне выводилось его название...

Решение