ISpeedometerTickInfo.Pen

Syntax

Pen: IGxPen;

Description

The Pen property determines the stylus that draws the speedometer scale tick mark border.

Example

Executing this example requires a form with the Button1 button and the SpeedometerBox component named SpeedometerBox1.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

s: ISpeedometer;

v: ISpeedometerView;

ScaleView: ISpeedometerScaleView;

MajTick: ISpeedometerTickInfo;

Begin

s := SpeedometerBox1.Speedometer;

v := s.View;

s.BeginUpdate;

ScaleView := v.ScaleViews.Item(0);

MajTick := ScaleView.MajorTickInfo;

MajTick.Color := GxColor.FromName("Red");

MajTick.Height := 4;

MajTick.Pen := New GxPen.CreateSolid(GxColor.FromName("Green"));

MajTick.Proportion := 0.3;

MajTick.Shape := SpeedometerTickShapes.Rombus;

s.EndUpdate;

End Sub Button1OnClick;

If the user presses the button after executing this example, the design of main scale divisions of the speedometer that is displayed in the SpeedometerBox1 component is changed. The main tick marks are displayed as the red diamond, the diamond side is 4 millimeters, the diamond diagonals ratio is 0,3. ] The border of tick marks is highlighted with green color.