AnnTextExpandTokens example for C++ Builder

void TForm1::ExampleAnnTextExpandTokens ( HANNOBJECT hObject )
{
   L_INT nObjectType;
   bool bTextExpandToken;

   nObjectType= LEADAnn1->AnnGetType(hObject);

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

   bTextExpandToken = LEADAnn1->AnnTextExpandTokens[hObject];
   bTextExpandToken = ~bTextExpandToken;
   LEADAnn1->AnnTextExpandTokens[hObject] = bTextExpandToken;

   if (bTextExpandToken == true)
      ShowMessage( "Text Expand Token");
   else
      ShowMessage( "Text Not Expand Token");
}