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;