ISpeedometerArrows.Count

Копировать пример

Sub Button1OnClick(Sender:Object; Args: IMouseEventArgs);
Var
    s: ISpeedometer;
    v: ISpeedometerView;
    Arrows: ISpeedometerArrows;
    ArrowsViews: ISpeedometerArrowViews;
    ScaleView: ISpeedometerScaleView;
    ArrowView, ArrowView1:ISpeedometerArrowView;
Begin
    s := SpeedometerBox1.Speedometer;
    v := s.View;
    s.BeginUpdate;
    Arrows := s.Scales.Item(0).Arrows;
    Arrows.Count := 2;
    Arrows.Item(0).Value:= 50;
    Arrows.Item(0).Value:= 125;
    ScaleView := v.ScaleViews.Item(0);
    ArrowsViews := ScaleView.ArrowViews;
    ArrowsViews.Count :=2;
    ArrowView := ArrowsViews.Item(0);
    ArrowView1 := ArrowsViews.Item(1);
    //Первая стрелка
    ArrowView.Length := 0.8;
    ArrowView.Shape := SpeedometerArrowShapes.Triangle;
    ArrowView.Width := 0.15;
    //Вторая стрелка
    ArrowView1.Length :=0.5;
    ArrowView1.Shape := SpeedometerArrowShapes.Linear;
    ArrowView1.Width := 0.06;
    s.EndUpdate;
End Sub Button1OnClick;