AnnTicMarkLength example for C++ Builder

void TForm1::ExampleAnnTicMarkLength (HANNOBJECT hObject )
{
   L_INT nObjectType;
   double Length;

   nObjectType= LEADAnn1->AnnGetType(hObject);

   if ( nObjectType != ANNOBJECT_POLYRULER && nObjectType != ANNOBJECT_RULER )
      ShowMessage("This object is not a POLYRULER or a RULER Object");

   Length= LEADAnn1->AnnTicMarkLength[hObject];

   Length+= 10;

   LEADAnn1->AnnTicMarkLength[hObject]= Length;
}