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;