AnnSetFontUnderline example for C++ Builder

void TForm1::TestAnnFontUnderline ( HANNOBJECT hAnnObject )
{
   bool bUnderLine; /* Underline property of  the object’s text  */

   /* Set the font to have an underline, unless it already has one */
   LEADAnn1->AnnGetFontUnderline ( hAnnObject, bUnderLine );
   if ( bUnderLine )
       ShowMessage ( "Already has an underline" );
   else
       LEADAnn1->AnnSetFontUnderline ( hAnnObject, True, False );
}