CreateDoubleArrow : IWxDoubleArrow;
Метод CreateDoubleArrow создает двойную стрелку.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
DArrow : IWxDoubleArrow;
Begin
DArrow := ws.CreateDoubleArrow;
DArrow.FirstPoint := New GxPointF.Create(10,6);
DArrow.LastPoint := New GxPointF.Create(3,20);
DArrow.HeightOffset := 5;
DArrow.WidthOffset := 12;
End Sub UserProc;
После выполнения примера будет создана двойная стрелка.
См. также: