AnnTextAlign example for C++ Builder

void TForm1::ExampleAnnTextAlign (HANNOBJECT hObject )
{
   L_INT nObjectType;
   long nAlign;

   nObjectType= LEADAnn1->AnnGetType(hObject);

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

   nAlign= LEADAnn1->AnnTextAlign[hObject];

   if (nAlign == TEXTALIGN_CENTER )
      nAlign= TEXTALIGN_LEFT;
   else
      nAlign= TEXTALIGN_CENTER;

    LEADAnn1->AnnFlags= 0;
    LEADAnn1->AnnTextAlign[hObject]= nAlign;
}