AnnSetShowFlags example for Delphi

Procedure TForm1.AnnSetShowFlags(hProt: HANNOBJECT);
var
   fArcRadius: Single;
   bAcute: Boolean;
   nUnit: L_INT;
   nPrecision: L_INT;
   strAbbr: String;
   uShowFlags: L_UINT;
begin
   fArcRadius:= 0;
   bAcute:= True;
   nUnit:= 0;
   nPrecision:= 0;
   uShowFlags:= 0;

   LEADAnn1.AnnGetProtractorOptions(hProt, bAcute, nUnit, strAbbr, nPrecision, fArcRadius);
   LEADAnn1.AnnSetProtractorOptions(hProt, (bAcute = False), 1 - ANNANGLE_DEGREES, strAbbr, (nPrecision + 1) Mod 5, fArcRadius, False);
   LEADAnn1.AnnGetShowFlags(hProt, uShowFlags);
   LEADAnn1.AnnSetShowFlags(hProt, (uShowFlags+ 1) Mod 4, False);
end;