Компонента TShape

TShape

Для создания различных геометрических фигур (прямоугольника, круга и т.д.) используется компонент TShape:

Shape: TShapeType;

Могут быть выбраны следующие свойства компонента TShape:

stRectangle -

setsquare-

stRoundRect-

stRoundSquare-

stEllipse-

stCircle-

Выбранная фигура рисуется на весь экран компонента TShape. Изменение свойства Shape приводит к немедленной перерисовке изображения.

Свойства компонента TShape:

Brush: TBrush;

Pen: TPen;

- используются для изменения заливки и рамки.

Пример.

Procedure TForm1.FormCreate();

begin

with Shape1 do

begin

Shape:= stRectangle;

Brush.Color:= clRed;

Pen.Color:= Blue;

Brush.Style:= bsBold;

Pen.Style:= psSolid;

Pen.Width:= 2;

end;

end;

Свойство

Bitmap: TBitmap;

- позволяет в качестве закраски или заливки использовать растровое изображение. Например:

Shape1.Brush.Bitmap:= Image1.Picture.Bitmap;

Дата добавления: 2014-01-07