WxWorkspace.CreateEllipse

Syntax

CreateEllipse: IWxEllipse;

Description

The CreateEllipse method creates an ellipse.

Example

Executing the example requires an existing ws object of the IWxWorkspace type.

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;

After executing the example an ellipse with the defined formatting parameters is created.

See also:

IWxWorkspace