sgcGauges. Ogni misura. Con un colpo d'occhio.

dotnet add package esegece.sgcGauges.WinForms

uses
  SysUtils, Classes, Controls, Forms, sgcUICore_Theme,
  sgcGauges_Types, sgcGauges_Model, sgcGauges_VCL;

procedure CreatePressureGauge(aForm: TForm);
var
  oGauge: TsgcVCLRadialGauge;
begin
  oGauge := TsgcVCLRadialGauge.Create(aForm);
  oGauge.Parent := aForm;
  oGauge.SetBounds(16, 16, 240, 240);
  oGauge.Title := 'Pressure';
  oGauge.Units := 'bar';
  oGauge.Theme := utDark;
  oGauge.Scales[0].Maximum := 10;
  oGauge.Scales[0].MajorInterval := 2;
  // a red band from 8 to 10 bar
  with oGauge.Scales[0].Ranges.Add do
  begin
    StartValue := 8;
    EndValue := 10;
    Color := $FFE34948;
  end;
  // OnThreshold fires once per crossing, in the main thread
  with oGauge.Thresholds.Add do
  begin
    Value := 8;
    Hysteresis := 0.5;
    Direction := gtdBoth;
  end;
  oGauge.Animation.Easing := geCubicOut;
  oGauge.Value := 6.5;
  // the same drawing code exports the gauge to PNG at twice its size
  oGauge.SaveToPNG(ExtractFilePath(ParamStr(0)) + 'pressure.png', 2);
end;