AnnAutoCursor example for Delphi

This sample sets the Default and Move annotation cursors

Procedure TForm1.SampleAnnAutoCursors();
var
   hCursorMove: L_HCURSOR;
   hCursorDefault: L_HCURSOR;
begin
   // load the cursors from files
   hCursorDefault:= LoadCursorFromFile('c:\Default.cur');
   hCursorMove:= LoadCursorFromFile('c:\Move.cur');

   // Set
   LEADAnn1.AnnAutoCursor[ANNAUTOCURSOR_DEFAULT]:= hCursorDefault;
   LEADAnn1.AnnAutoCursor[ANNAUTOCURSOR_MOVE]:= hCursorMove;
end;