AnnGetNameOffsetX example for Delphi

{This sample shifts the NameOffset of the annotation object hObject
 two pixels in the X direction and one pixel in the Y direction}
Procedure TForm1.SampleNameOffset (hObject: L_HANDLE);
var
   OffsetX: Integer;
   OffsetY: Integer;
begin
   OffsetX:= LEADAnn1.AnnGetNameOffsetX (hObject);
   OffsetY:= LEADAnn1.AnnGetNameOffsetY (hObject);

   OffsetX:= OffsetX + 2;
   OffsetY:= OffsetY + 1;
   ShowMessage ('Shifting Name Offset to ' + IntToStr (OffsetX) + ',' + IntToStr (OffsetY));

   LEADAnn1.AnnSetNameOffsetX (hObject, OffsetX, False);
   LEADAnn1.AnnSetNameOffsetY (hObject, OffsetY, False);
end;