CreateBoxArrow: IWxBoxArrow;
Метод CreateBoxArrow создает выноску со стрелкой.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
BArrow : IWxBoxArrow;
Style : IWxStyle;
Begin
BArrow := ws.CreateBoxArrow;
BArrow.Id := "BoxArrow1";
BArrow.ArrowHeightOffset := 3;
BArrow.ArrowWidthOffset := 25;
BArrow.Angle := 40;
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;
BArrow.Style := Style;
End Sub UserProc;
После выполнения примера на рабочем пространстве будет создана выноска со стрелкой, для которой будет создан свой стиль оформления.
См. также: