AnnTextRotate example for Delphi

Procedure TForm1.ExampleAnnTextRotate ( hObject: HANNOBJECT );
var
   nObjectType: L_INT;
   nAngle: L_INT32;
begin
   nObjectType:= LEADAnn1.AnnGetType(hObject);

   if (nObjectType <> ANNOBJECT_TEXT) Then
   begin
      ShowMessage( 'This object is not a Text Object');
   end;

   nAngle:= LEADAnn1.AnnTextRotate[hObject];
   nAngle:= nAngle + TEXTROTATE_90;
   LEADAnn1.AnnFlags:= 0 ;
   LEADAnn1.AnnTextRotate [hObject]:= nAngle;
end;