Hi
How Can I make longer or shorter the size of the needle of a circular gauge (in runtime)?
Another question .. how can I make larger or shorter the division font size in run time?
Thabks in advance
Hi,
To increase (or decrease) the size of the needle, you can use the following code:
procedure TForm1.TMSFMXCircularGauge1ApplyStyleLookup(Sender: TObject);
var
n: TTMSFMXNeedleShape;
begin
n := TMSFMXCircularGauge1.GetNeedle;
n.Height := n.Height + 50;
n.Position.Y := n.Position.Y - 50;
end;
To increase the font size you can use the following code:
procedure TForm1.TMSFMXCircularGauge1ApplyDivisionTextStyle(Sender: TObject;
AOriginalText, AText: TText; DivisionUnit: Integer; Value: Single);
begin
AText.Font.Size := 14;
end;
Include the unit FMX.Objects