Circular gauge sizes

FMX TMS FMX UI Pack
1

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
2

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;
3

Hi


I get this error:

[dcc32 Error] Main.pas(25): E2003 Undeclared identifier: 'TText'
[dcc32 Error] Main.pas(126): E2005 'TText' is not a type identifier
4

Include the unit FMX.Objects