Помогите, пожалуйста, составить программу
вообщем задача такая:
Описать процедуру DrawFigure, рисующую в центре формы синий квадрат размером 200 на 200 пикселей и красный круг на нем диаметром в 150 пикселей. |
Цитата:
|
а ты напиши ему на любом языке:)) и пусть думает что с этим делать:))
|
Я конечно не вхожу в состав экстрасенсов, я только учусь, но думаю требуется написать на Delphi
|
Да,извените. На дельфи нужно составить:)
|
Используйте Canvas
|
Цитата:
|
DrawFigure - буквально, "нарисовать_фигуру" - это название процедуры программиста, которая, используя различные методы ObjectPascal, реализует вывод на форму графических примитивов.
Canvas - свойство объекта (в том числе и формы) позволяющее отрисовывать на форме графику. Это свойство доступно для использования программистом при написании собственных процедур и предоставляет для этого ряд собственных методов и свойств. |
Цитата:
|
Вашу задачу можно решить, используя рисование графических примитивов или же поместив на форму два компонента Shape один на другой.
Для вычисления координат центра формы можно воспользоваться свойствами формы x:=form1.width/2; y:=form1.hight/2; При первом способе - Для рисования фигур можно использовать методы ImageRect - прямоугольник и Circle - окружность. При втором способе - компоненты TShape помещайте один поверх другого, для нижнего задайте свойство формы как прямоугольник, для второго - как окружность. Настройте цвета. В процедуре пропишите координаты отступа слева и сверху для каждого из компонентов, используя вычисленные координаты центра формы. |
Часовой пояс GMT +4, время: 16:55. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.