AnnGetNodes example for Delphi

Procedure TForm1.AnnGetNodes(hPlgn: HANNOBJECT);
var
   uNodes: L_UINT;
   bShow: Boolean;
   uFillPattern: L_UINT;
   uFillMode: L_UINT;
   uPolyFillMode: L_UINT;
   uLineStyle: L_UINT;
   dLineWidth: L_DOUBLE;
begin
   uNodes:= 0;
   bShow:= True;
   uFillPattern:= 0;
   uFillMode:= 0;
   uPolyFillMode:= 0;
   uLineStyle:= 0;
   dLineWidth:= 0;

   LEADAnn1.AnnGetFillPattern(hPlgn, uFillPattern);
   LEADAnn1.AnnSetFillPattern(hPlgn, (uFillPattern+ 1) Mod 7, False);
   LEADAnn1.AnnGetFillMode(hPlgn, uFillMode);
   LEADAnn1.AnnSetFillMode(hPlgn, (uFillMode+ 1) Mod 3, False);
   LEADAnn1.AnnGetPolyFillMode(hPlgn, uPolyFillMode);
   LEADAnn1.AnnSetPolyFillMode(hPlgn, 1 - uPolyFillMode, False);
   LEADAnn1.AnnGetLineStyle(hPlgn, uLineStyle);
   LEADAnn1.AnnSetLineStyle(hPlgn, (uLineStyle + 1) Mod 6, False);
   LEADAnn1.AnnGetLineWidth(hPlgn, dLineWidth);
   LEADAnn1.AnnSetLineWidth(hPlgn, (Trunc(dLineWidth) Mod 4 + 1), False);
   LEADAnn1.AnnGetNodes(hPlgn, bShow, uNodes);
   LEADAnn1.AnnSetNodes(hPlgn, (bShow = False), (uNodes + 1) Mod LEADAnn1.AnnGetPointCount(hPlgn), False);
end;