Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2017, 21:07   #1
ss1112
Пользователь
 
Регистрация: 25.11.2016
Сообщений: 24
По умолчанию Создал программу получения нового цвета при смешивания двух цветов, но выдает ошибку

Суть программы состоит в том что, нужно смешать два цвета и получить при их смешивание цвет.

вот программа:
Код:
procedure TForm1.Button1Click(Sender: TObject);
  var r1,g1,b1,r2,g2,b2:integer;
begin
r1:=120;g1:=120;b1:=120;
r2:=10;g2:=200;b2:=150;
Panel1.Color:=RGB(r1,g1,b1);
Panel2.Color:=RGB(r2,g2,b2);
Panel3.Color:=RGB((r1+r2)div 2,(g1+g2) div 2,(b1+b2) div 2);
end;
ошибка: identifier not found "RGB"
ss1112 вне форума Ответить с цитированием
Старый 12.05.2017, 21:12   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

http://forum.lazarus.freepascal.org/...p?topic=1688.0
Цитата:
the function RGB is defined in the unit LCLIntf
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 12.05.2017, 21:24   #3
ss1112
Пользователь
 
Регистрация: 25.11.2016
Сообщений: 24
По умолчанию

как это понять?
ss1112 вне форума Ответить с цитированием
Старый 12.05.2017, 21:52   #4
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от ss1112 Посмотреть сообщение
как это понять?
Добавить в uses модуль LCLIntf. Если у вас Lazarus.
Потому что функция RGB описана там.
type_Oleg вне форума Ответить с цитированием
Старый 12.05.2017, 22:01   #5
ss1112
Пользователь
 
Регистрация: 25.11.2016
Сообщений: 24
По умолчанию

Спасибо все получилось)
ss1112 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выдает ошибку при чтении файлов MetR Общие вопросы Delphi 13 28.11.2010 00:15
Программа выдает ошибку при работе T-dayne Помощь студентам 15 27.02.2010 10:31
выдает ошибку при вызове scanf Wi1D Общие вопросы C/C++ 6 27.12.2009 19:53
При активизации формы выдает ошибку Canadec Общие вопросы Delphi 11 04.09.2007 12:10