AnnSetFontItalic example for Delphi
procedure TForm1.TestAnnFontItalic ( hAnnObject: HANNOBJECT );
var
IsItalic: Boolean; { Is the object’s text italic }
begin
{ Set the font to italic, unless it already is }
LEADAnn1.AnnGetFontItalic ( hAnnObject, IsItalic );
if ( IsItalic ) then
ShowMessage ( 'Already Italic' )
else
LEADAnn1.AnnSetFontItalic ( hAnnObject, true, false );
end;