AnnSetFillMode example for Delphi

procedure TForm1.TestAnnFillMode ( hAnnObject: HANNOBJECT );
var
   uFillMode: L_UINT; { Object fill mode }
begin
   { Set the fill mode to transparent, unless it already is }
   LEADAnn1.AnnGetFillMode ( hAnnObject, uFillMode );
   if ( uFillMode = ANNFILLMODE_TRANSPARENT ) then
       ShowMessage ( 'Already transparent' )
   else
      LEADAnn1.AnnSetFillMode ( hAnnObject, ANNFILLMODE_TRANSPARENT, False );
end;