Smople

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

Vladimir_S

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

Fenix

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

shrek=)

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

Smople

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

AlexZir

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

__________________
Убить всех человеков!

Smople

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

AlexZir

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

__________________
Убить всех человеков!

Smople

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

AlexZir

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

__________________
Убить всех человеков!