AnnSetPolyFillMode example for Delphi

procedure TForm1.TestAnnPolyFillMode ( hAnnObject: HANNOBJECT );
var
   uPolyFillMode: L_UINT;{ Object's polygonal fill mode }
begin
   { Change the fill mode }
   LEADAnn1.AnnGetPolyFillMode ( hAnnObject, uPolyFillMode );
   if ( uPolyFillMode = ANNPOLYFILLMODE_WINDING ) then
       LEADAnn1.AnnSetPolyFillMode ( hAnnObject, ANNPOLYFILLMODE_ALTERNATE, False )
   else
       LEADAnn1.AnnSetPolyFillMode ( hAnnObject, ANNPOLYFILLMODE_WINDING, False );
end;