AnnHandle example for C++ Builder

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

   LEADAnn1->AnnGetUserHandles ( hObject );
   uCount= LEADAnn1->AnnUserHandlesCount;
   if ( uCount > 0 )
   {
      LEADAnn1->AnnGetUserHandle ( hObject, 0 );

      (LEADAnn1->AnnHandle->Visible)?strVisible= "True":strVisible="False";

      ShowMessage ( "uIndex = 0 \n"\
                      "nID = " + IntToStr(LEADAnn1->AnnHandle->ID) + "\n" +
                    "ContainerX = " + FloatToStr(LEADAnn1->AnnHandle->ContainerX) + "\n" +
                    "ContainerY = " + FloatToStr(LEADAnn1->AnnHandle->ContainerY) + "\n" +
                    "CliantX = " + IntToStr(LEADAnn1->AnnHandle->ClientX) + "\n" +
                    "ClientY = " + IntToStr(LEADAnn1->AnnHandle->ClientY) + "\n" +
                    "Visible = " + strVisible + "\n" +
                    "PenColor = " + IntToStr(LEADAnn1->AnnHandle->PenColor) + "\n" +
                    "FillColor = " + IntToStr(LEADAnn1->AnnHandle->FillColor) + "\n" +
                    "Shape = " + IntToStr(LEADAnn1->AnnHandle->Shape) + "\n" );
   }
   else
      ShowMessage ( "No User Handles" );
}