AnnSetScalarX example for C++ Builder

void TForm1::TestScalarsAndOffsets ( HANNOBJECT hContainer )
{
   L_DOUBLE dScalarX;
   L_DOUBLE dScalarY;
   L_DOUBLE dOffsetX;
   L_DOUBLE dOffsetY;

   LEADAnn1->AnnGetScalarX ( hContainer, dScalarX );
   LEADAnn1->AnnGetScalarY ( hContainer, dScalarY );
   LEADAnn1->AnnGetOffsetX ( hContainer, dOffsetX );
   LEADAnn1->AnnGetOffsetY ( hContainer, dOffsetY );

   ShowMessage ( "ScalarX: " + FloatToStr(dScalarX) + "\n" +
                 "ScalarY: " + FloatToStr(dScalarY) + "\n" +
                 "OffsetX: " + FloatToStr(dOffsetX) + "\n" +
                 "OffsetY: " + FloatToStr(dOffsetY) + "\n" );

   LEADAnn1->AnnSetScalarX ( hContainer, 1.5, False );
   LEADAnn1->AnnSetScalarY ( hContainer, 1.5, False );
   LEADAnn1->AnnSetOffsetX ( hContainer, 10, False );
   LEADAnn1->AnnSetOffsetY ( hContainer, 20, False );

   LEADAnn1->AnnGetScalarX ( hContainer, dScalarX );
   LEADAnn1->AnnGetScalarY ( hContainer, dScalarY );
   LEADAnn1->AnnGetOffsetX ( hContainer, dOffsetX );
   LEADAnn1->AnnGetOffsetY ( hContainer, dOffsetY );

   ShowMessage ( "ScalarX: " + FloatToStr(dScalarX) + "\n" +
                 "ScalarY: " + FloatToStr(dScalarY) + "\n" +
                 "OffsetX: " + FloatToStr(dOffsetX) + "\n" +
                 "OffsetY: " + FloatToStr(dOffsetY) + "\n" );
}