Звук в раскраске

@Katarina91 · Регистрация: 01.12.2012

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

Здравствуйте.
Есть программа в которой можно раскрашивать картинки.
Для выбора цвета используется подгрузка одного ведерка и ему присваиваются различные цвета

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.FormPaint(Sender: TObject);
var i: byte;
begin
 BCol.LoadFromFile('Image\col.bmp');
 
 for i:= 0 to 9 do begin 
 
  BCol.Canvas.Brush.Color:= mas_col[i];
  BCol.Canvas.FloodFill(20,40,clBlack,fsBorder);
  BCol:= mas_zv[i];
  Form1.Canvas.Draw(x1,20,BCol);
  x1:= x1 + 52;
 
 end;
 
mas_col: array[0..9] of integer;
 
mas_col[0]:= RGB(255,0,255); 
    mas_col[1]:= clRed;
    mas_col[2]:= clBlue;
    mas_col[3]:= RGB(255,255,255);
    mas_col[4]:= RGB (255,128,0);
    mas_col[5]:= clLime;
    mas_col[6]:= RGB(255,255,0);
    mas_col[7]:= RGB(200,100,0);
    mas_col[8]:= RGB(200,200,200);
    mas_col[9]:= RGB(0,0,0);

Надо, что бы при выборе определенного цвета запускался звуковой файл (название цвета по немецки). Как это можно реализовать? Очень надо. Прошу помочь кто чем может.
Заранее спасибо.

@Katarina91 · 03.12.2012, 20:52 **[ТС]**

Нет конечно). Все равно большое спасибо за помощь, буду что-нибудь со всем этим делать. Может что и выйдет.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Katarina91 0 / 0 / 0 Регистрация: 01.12.2012 Сообщений: 31
	03.12.2012, 20:52 [ТС]
	Нет конечно). Все равно большое спасибо за помощь, буду что-нибудь со всем этим делать. Может что и выйдет. 0