Справочник по компонентам Delphi. Часть 2 - Компонент TShape
ОГЛАВЛЕНИЕ
Страница 15 из 61
Компонент 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);
выполняет перерисовку компонента.