AnnUserHandle example for C++ Builder

void TForm1::ExampleGetAnnUserHandles(HANNOBJECT hObject )
{
   L_UINT i;
   L_UINT uCount;
   AnsiString strVisible;

   LEADAnn1->AnnGetUserHandles ( hObject );
   uCount= LEADAnn1->AnnUserHandlesCount;

   if ( uCount > 0 )
   {
      for ( i= 0; i < uCount; i ++ )
      {
         if ( LEADAnn1->AnnUserHandle[i]->Visible )
            strVisible= "bVisible = True";
         else
            strVisible= "bVisible = False";

         ShowMessage ( "uIndex = " + IntToStr(i) + "\n" +
                         "nID = " + IntToStr(LEADAnn1->AnnUserHandle[i]->ID) + "\n" +
                       "ContainerX = " + IntToStr((int)LEADAnn1->AnnUserHandle[i]->ContainerX) + "\n" +
                       "ContainerY = " + IntToStr((int)LEADAnn1->AnnUserHandle[i]->ContainerY) + "\n" +
                       "CliantX = " + IntToStr(LEADAnn1->AnnUserHandle[i]->ClientX) + "\n" +
                       "ClientY = " + IntToStr(LEADAnn1->AnnUserHandle[i]->ClientY) + "\n" +
                       strVisible + "\n" +
                       "PenColor = " + IntToStr(LEADAnn1->AnnUserHandle[i]->PenColor) + "\n" +
                       "FillColor = " + IntToStr(LEADAnn1->AnnUserHandle[i]->FillColor) + "\n" +
                       "Shape = " + IntToStr(LEADAnn1->AnnUserHandle[i]->Shape) + "\n");
      }
     }
   else
      ShowMessage ( "No User Handles" );
}