AnnSetScalarX example for Delphi

procedure TForm1.TestScalarsAndOffsets ( hContainer: HANNOBJECT );
var
   dScalarX: L_DOUBLE;
   dScalarY: L_DOUBLE;
   dOffsetX: L_DOUBLE;
   dOffsetY: L_DOUBLE;
begin
   LEADAnn1.AnnGetScalarX ( hContainer, dScalarX );
   LEADAnn1.AnnGetScalarY ( hContainer, dScalarY );
   LEADAnn1.AnnGetOffsetX ( hContainer, dOffsetX );
   LEADAnn1.AnnGetOffsetY ( hContainer, dOffsetY );

   ShowMessage ( 'ScalarX: ' + FloatToStr(dScalarX) + Chr(13) +
                 'ScalarY: ' + FloatToStr(dScalarY) + Chr(13) +
                 'OffsetX: ' + FloatToStr(dOffsetX) + Chr(13) +
                 'OffsetY: ' + FloatToStr(dOffsetY) + Chr(13) );

   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) + Chr(13) +
                 'ScalarY: ' + FloatToStr(dScalarY) + Chr(13) +
                 'OffsetX: ' + FloatToStr(dOffsetX) + Chr(13) +
                 'OffsetY: ' + FloatToStr(dOffsetY) + Chr(13) );
end;