Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 188756
31.01.2016, 17:56
0.00 руб.
0 2 0
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
как закрасить регион в лазарусе?
Пишу:

polygon([Point(56,560),Point(56,80),Point(645,80),Point(645,290)]);

Выдает следующую ошибку:

unit12.pas(314,18) Fatal: Syntax error, ")" expected but "," found

Хотя делаю все точно по образцу:
Polygon([Point(150,300),Point(150,150),Point(210,160),Point(210,300)]);
образец на сайте http://grafika.me/node/14

Обсуждение

давно
Вадим Исаев ака sir Henry
Мастер-Эксперт
425
4118
31.01.2016, 19:02
общий
31.01.2016, 19:04
Адресаты:
Синтаксически я ошибку не вижу, поэтому остаётся предположить, что в связи с Вашим неявным указанием объектов, компилятор не понял, что Вы имели в виду. Сделайте так:
1. Определите в отдельном виде перевенную типа array of TPoint и заполните её нужными данными;
2. Вместо просто "polygon" укажите чвно тот объект, в котором Вы намерены этот самый полигон изобразить, к примеру для объекта типа TImage:
Код:
Var
  p: array[0..3] of TPoint;
Begin
//Заполняете массив p данными
...
//Передаёте массив в метод объекта
Image1.Canvas.Polygon(p);

End;
Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)
давно
Alena
Посетитель
399468
3
31.01.2016, 19:46
общий
Я заменила строчку
Form12.Canvas.Polygon(Ar);
на строчку:
Image2.Canvas.Polygon(Ar);
Проблема пропала
Спасибо!
Форма ответа