AnnSetFontSize example for Delphi

Procedure TForm1.TestAnnFontSize ( hAnnObject: HANNOBJECT );
var
   FontSize: L_DOUBLE; { Object font size }
begin
   { Double the font size }
   LEADAnn1.AnnGetFontSize ( hAnnObject, FontSize );
   LEADAnn1.AnnSetFontSize ( hAnnObject, FontSize * 2, False );
end;