AnnSetFontStrikeThrough example for C++ Builder

void TForm1::TestAnnFontStrike ( HANNOBJECT hAnnObject )
{
   bool bStrikeThrough; /* Strike-through property of  the object’s text  */

   /* Set the font to have a strike-through, unless it already has one */
   LEADAnn1->AnnGetFontStrikeThrough ( hAnnObject, bStrikeThrough );
   if ( bStrikeThrough )
       ShowMessage ( "Already has strike-through" );
   else
      LEADAnn1->AnnSetFontStrikeThrough ( hAnnObject, true, false );
}