AnnTicMarkLength example for Delphi
Procedure TForm1.ExampleAnnTicMarkLength ( hObject: HANNOBJECT );
var
nObjectType: L_INT;
Length: L_DOUBLE;
begin
nObjectType:= LEADAnn1.AnnGetType(hObject);
if ( (nObjectType <> ANNOBJECT_POLYRULER) And
(nObjectType <> ANNOBJECT_RULER) ) Then
begin
ShowMessage('This object is not a POLYRULER or a RULER Object');
end;
Length:= LEADAnn1.AnnTicMarkLength[hObject];
Length:= Length + 10;
LEADAnn1.AnnTicMarkLength[hObject]:= Length;
end;