IWxStyle.LinePenWidth

Синтаксис Fore

LinePenWidth: Double;

Синтаксис Fore.NET

LinePenWidth: Double;

Описание

Свойство LinePenWidth определяет толщину линии.

Пример

В рассматриваемом примере предполагается наличие формы с размещёнными на ней компонентами Button и UiWorkspaceObject с идентификаторами «Button1» и «UiWorkspaceObject1» соотоветственно. К UiWorkspaceObject должен быть подключён соответствующий объект репозитория. Также этот компонент должен содержать заранее созданную фигуру-эллипс.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    ws: IWxWorkspace;
    Ellipse: IWxEllipse;
    Style: IWxStyle;
Begin
    ws := UiWorkspaceObject1.Instance As IWxWorkspace;
    ws.BeginUpdate;
    Ellipse := ws.Shapes.Item(0) As IWxEllipse;
    Style := Ellipse.Style;
    Style.LinePenWxDashStyle := WxDashStyle.Dash;
    Style.LinePenColor := GxColor.FromName("Green");
    Style.LinePenWidth := 1.5;
    ws.EndUpdate;
End Sub Button1OnClick;

После выполнения примера при нажатии на компонент «Button1» у фигуры-эллипса на компоненте «UiWorkspaceObject1» будет задана граница с указанными настройками.

Пример Fore.NET

В рассматриваемом примере предполагается наличие формы с размещёнными на ней компонентами Button и UiWorkspaceObjectNet с идентификаторами «Button1» и «UiWorkspaceObjectNet1» соотоветственно. К UiWorkspaceObject должен быть подключён соответствующий объект репозитория. Также этот компонент должен содержать заранее созданную фигуру-эллипс.

Imports System;
Imports System.Windows.Forms;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Workspace;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.ExtCtrls;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    ws: IWxWorkspace;
    Ellipse: IWxEllipse;
    Style: IWxStyle;
    SColor: GxColorClassClass = New GxColorClassClass();
Begin
    ws := uiWorkspaceObjectNet1.WorkspaceObjectUi.Instance As WxWorkspace;
    ws.BeginUpdate();
    Ellipse := ws.Shapes.Item[0] As  IWxEllipse;
    Style := Ellipse.Style;
    Style.LinePenWxDashStyle := WxDashStyle.wdsDash;
    Style.LinePenColor := SColor.FromName("Green");
    Style.LinePenWidth := 1.5;
    ws.EndUpdate();
End Sub;

После выполнения примера при нажатии на компонент «Button1» у фигуры-эллипса на компоненте «UiWorkspaceObjectNet1» будет задана граница с указанными настройками.

См. также:

IWxStyle