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;