AnnSetLineStyle example for Delphi

procedure TForm1.TestAnnLineStyle ( hAnnObject: HANNOBJECT );
var
   uLineStyle: L_UINT; { Line style property of  the object  }
begin
   { Set the style to a dashed line, unless it is already dashed }
   LEADAnn1.AnnGetLineStyle ( hAnnObject, uLineStyle );
   if ( uLineStyle = ANNLINE_DASH ) then
       ShowMessage ( 'Already dashed line' )
   else
      LEADAnn1.AnnSetLineStyle ( hAnnObject, ANNLINE_DASH, False );
end;