AnnSetLineStyle example for C++ Builder

void TForm1::TestAnnLineStyle ( HANNOBJECT hAnnObject )
{
   L_UINT uLineStyle; /* Line style property of the object */

   /* Set the style to a dashed line, unless it is already dashed */
   LEADAnn1->AnnGetLineStyle ( hAnnObject, uLineStyle );
   if ( uLineStyle == ANNLINE_DASH )
       ShowMessage ( "Already dashed line" );
   else
      LEADAnn1->AnnSetLineStyle ( hAnnObject, ANNLINE_DASH, false );
}