TextPointerFixed example for C++ Builder

void TForm1::ExampleTextPointerFixed ( HANNOBJECT hObject )
{
   L_INT nObjectType;
   bool bTextPointerFixed;

   nObjectType= LEADAnn1->AnnGetType(hObject);

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

   bTextPointerFixed = LEADAnn1->AnnTextPointerFixed[hObject];
   if (bTextPointerFixed == true)
      bTextPointerFixed = false;
   else
      bTextPointerFixed = true;

   LEADAnn1->AnnTextPointerFixed[hObject] = bTextPointerFixed;
}