Справочник по компонентам Delphi. Часть 2 - Компонент TShape

ОГЛАВЛЕНИЕ

Компонент TShape

TObject -> TPersistent -> TComponent -> TControl -> TGraphicControl -> TShape

Модуль EXTCTRLS

Страница Палитры компонентов Additional

Этот компонент предназначен только для того, чтобы нарисовать и показать на своей поверхности простейшую геометрическую фигуру:

(Pb) property Shape: TShapeType;

Рисуемая фигура — одна из предопределенных в множестве:

TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle) ;

Размеры фигуры соответствуют размерам компонента. Если задан квадрат или круг, а ширина и высота компонента не равны между собой, то сторона или диаметр фигуры будут равны длине меньшей стороны компонента.

Кисть и перо, которыми рисуется и закрашивается фигура, представлены свой­ствами:

(Pk) property Brush: TBrush;
(Рb) property Pen: TPen;

Метод, исполняемый при изменении фигуры, кисти или пера

procedure StyleChangedfSender: TObject);

выполняет перерисовку компонента.