AnnTextRotate example for C++ Builder

void TForm1::ExampleAnnTextRotate ( HANNOBJECT hObject )
{
   L_INT nObjectType;
   long nAngle;

   nObjectType= LEADAnn1->AnnGetType(hObject);

   if (nObjectType != ANNOBJECT_TEXT)
      ShowMessage( "This object is not a Text Object");

   nAngle = LEADAnn1->AnnTextRotate[hObject];
   nAngle = nAngle + TEXTROTATE_90;
   LEADAnn1->AnnFlags = 0 ;
   LEADAnn1->AnnTextRotate[hObject] = nAngle;
}