AnnSetLineWidth example for Delphi

procedure TForm1.TestAnnLineWidth ( hAnnObject: HANNOBJECT );
var
   dLineWidth: L_DOUBLE; { Object line width }
begin
  { Double the line width }
   LEADAnn1.AnnGetLineWidth ( hAnnObject, dLineWidth );
   LEADAnn1.AnnSetLineWidth ( hAnnObject, dLineWidth * 2, False );
end;