Помогите, пожалуйста, составить программу

[Smople]

Помогите, пожалуйста, составить программу

вообщем задача такая:
Описать процедуру DrawFigure, рисующую в центре формы синий квадрат размером 200 на 200 пикселей и красный круг на нем диаметром в 150 пикселей.

 

[Vladimir_S]

вообщем задача такая:
Описать процедуру DrawFigure, рисующую в центре формы синий квадрат размером 200 на 200 пикселей и красный круг на нем диаметром в 150 пикселей.

А Вы подождите годик - вот вернутся наши экстрасенсы, тогда и язык программирования узнаем... А иначе, к сожалению, никак.

 

[Fenix]

а ты напиши ему на любом языке) и пусть думает что с этим делать)

 

[shrek=)]

Я конечно не вхожу в состав экстрасенсов, я только учусь, но думаю требуется написать на Delphi

 

[Smople]

Да,извените. На дельфи нужно составить

 

[AlexZir]

Используйте Canvas

 

[Smople]

Используйте Canvas

Я бы рад, но нужно через drawfigure.

 

[AlexZir]

DrawFigure - буквально, "нарисовать_фигуру" - это название процедуры программиста, которая, используя различные методы ObjectPascal, реализует вывод на форму графических примитивов.
Canvas - свойство объекта (в том числе и формы) позволяющее отрисовывать на форме графику. Это свойство доступно для использования программистом при написании собственных процедур и предоставляет для этого ряд собственных методов и свойств.

 

[Smople]

DrawFigure - буквально, "нарисовать_фигуру" - это название процедуры программиста, которая, используя различные методы ObjectPascal, реализует вывод на форму графических примитивов.
Canvas - свойство объекта (в том числе и формы) позволяющее отрисовывать на форме графику. Это свойство доступно для использования программистом при написании собственных процедур и предоставляет для этого ряд собственных методов и свойств.

Спасибо большое!Буду пробовать)))

 

[AlexZir]

Вашу задачу можно решить, используя рисование графических примитивов или же поместив на форму два компонента Shape один на другой.
Для вычисления координат центра формы можно воспользоваться свойствами формы
x:=form1.width/2;
y:=form1.hight/2;
При первом способе - Для рисования фигур можно использовать методы ImageRect - прямоугольник и Circle - окружность.
При втором способе - компоненты TShape помещайте один поверх другого, для нижнего задайте свойство формы как прямоугольник, для второго - как окружность. Настройте цвета. В процедуре пропишите координаты отступа слева и сверху для каждого из компонентов, используя вычисленные координаты центра формы.