|
Создайте приложение, которое рисует пером домик. Создайте форму и задайте для ее свойства Caption значение «Рисунок домика». Поместите в верхнюю часть формы компонент Image1 из палитры Additional. Ниже Image1 на форме разместите компонент Button1 из палитры Standard и задайте для его свойства Caption значение «Нарисовать».
Рисование пером графика функции опишите в процедуре обработчика щелчка мышью на кнопке Button1. Для этого, выбрав в окне Инспектора объектов Buttonl, на странице Events произведите двойной щелчок на пустом поле списка в событии OnClick. Так как в процедуре обработчика события необходимо обрабатывать свойства Pen, Font, а также использовать методы LineTo, MoveTo, TextOut, Arc, Chord, Ellipse, Pie, PolyBezier, PolyBezierTo, Polygon, Polyline, Rectangle, RoundRect, вам следует ознакомиться с соответствующими разделами справочной системы Delphi. После этого в окне Редактора кода отредактируйте текст процедуры обработчика события TForml.ButtonlClick следующим образом: procedure TForml.ButtonlClick(Sender: TObject);
begin
with Imagel.Canvas do begin
Pen.Width:=1; {задать толщину пера для рисования}
Pen.Color:=clBlack; {задать черный цвет линии}
MoveTo(0,200);
LineTo(Imagel.Width,200); {начертить поверхность земли}
MoveTo(100,200);
Rectangle(100,100,220,200); {стены}
MoveTo(100,200);
Polyline([Point(100,100),Point(160,50),Point(220,100)]); {крыша}
Ellipse(140,70, 180,90); {окошко на чердаке}
Rectangle( 115,130,150,200); {дверь}
Rectangle(165,130.205,165); {окно}
Font.Size:=16; {задать размер шрифта в пунктах}
Text0ut(140,220,’Домик’); {подписать рисунок}
end;
end;
Изучите текст процедуры и комментарии. Сохраните текст приложения, откомпилируйте его и проверьте его работу. |
Перейти к содержанию
Частые вопросы
Можно ли считать рейтинг на Языки программирования Pascal и Delphi рекламой?
Нет, это справочная подборка. Партнёрские ссылки, если они есть, не заменяют проверку оферты, лицензий и отзывов на стороне сервиса.
Чем страница «Упражнение 4» отличается от главной Языки программирования Pascal и Delphi?
Это отдельная карточка или рубрика, а не дубль главной. Канонический адрес — текущий URL без www и с https.
Стоит ли покупать «Упражнение 4» только по этому тексту?
Нет. Текст помогает сравнить варианты, но финальный выбор зависит от вашего сценария, бюджета и актуальной оферты продавца.
Где смотреть источники и контакты редакции Языки программирования Pascal и Delphi?
Автор указан в карточке страницы. Служебные разделы — «О проекте», «Контакты» и политика конфиденциальности — в подвале сайта.