WxWorkspace: IWxWorkspace;
Свойство WxWorkspace возвращает графический контекст рабочего пространства, отображаемый в дальнейшем, в компоненте WorkspaceBox.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1", компонента WorkspaceBox с наименованием "WorkspaceBox1" и компонента UiWorkspace, являющегося источником данных для "WorkspaceBox1".
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Workspace: IWxWorkspace;
Rect: IWxRectangle;
Point: IGxPointF;
Begin
Point := New GxPointF.Create(-15, -15);
WorkspaceBox1.Source := UiWorkspace1 As IWorkspaceSource;
Workspace := UiWorkspace1.WxWorkspace;
Workspace.BeginUpdate;
//1 прямоугольник
Rect := Workspace.CreateRectangle;
//2 прямоугольник
Rect := Workspace.CreateRectangle;
Rect.PinPosition := Point;
Workspace.EndUpdate;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку, в качестве источника данных для компонента "WorkspaceBox1" будет установле компонент "UiWorkspace1". На рабочем пространстве компонента "UiWorkspace1" будут созданы два прямоугольника, второй прямоугольник будет смещен в заданную точку.
См. также: