AnnSetGaugeLength example for Delphi

procedure TForm1.TestAnnGauge ( hAnnObject: HANNOBJECT; hContainer: HANNOBJECT );
var
   dLength: L_DOUBLE;
begin
   { if gauge length setting
   is longer than 5 pixels, then make it 5 pixels. }
   LEADAnn1.AnnGetGaugeLength ( hAnnObject, dLength );
   if ( dLength > 5.0 ) then
   begin
      LEADAnn1.AnnSetGaugeLength ( hAnnObject, 5.0, False );
   end;
end;