AnnSetFillPattern example for Delphi

Procedure TForm1.TestAnnFillPattern ( hAnnObject: HANNOBJECT );
var
   uFillPattern: L_UINT; { Object fill pattern }
begin
   { Set the fill pattern to solid, unless it already is }
   LEADAnn1.AnnGetFillPattern ( hAnnObject, uFillPattern );
   if ( uFillPattern = ANNFILLPATTERN_SOLID ) then
       ShowMessage ( 'Already solid' )
   else
      LEADAnn1.AnnSetFillPattern ( hAnnObject, ANNFILLPATTERN_SOLID, False );
end;