WxWorkspace.CreateEllipse

Синтаксис

CreateEllipse: IWxEllipse;

Описание

Метод CreateEllipse создает эллипс.

Пример

В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.

Sub UserProc;

Var

ws: IWxWorkspace;

Ellipse : IWxEllipse;

Style : IWxStyle;

Begin

Ellipse := ws.CreateEllipse;

Ellipse.Id := "Ellipse1";

Ellipse.PinPosition := New GxPointF.Create(12, -10);

Style := ws.CreateStyle;

Style.BackgroundBrushForeColor := GxColor.FromName("Red");

Style.ShadowBrushForeColor := New GxColor.CreateRGB(0,129,255);

Style.ShadowBrushBackColor := New GxColor.CreateRGB(255,87,192);

Style.ShadowBrushPattern := GxBrushPattern.Diagonals;

Ellipse.Style := Style;

End Sub UserProc;

После выполнения примера будет создан эллипс с заданными параметрами оформления.

См. также:

IWxWorkspace