TextHorzOffset: Double;
Свойство TextHorzOffset определяет горизонтальное смещение текста. Данное свойство можно использовать только для линии (IWxLink). При положительных значениях свойства сдвиг текста производится вправо от центра линии, при отрицательных - влево от центра линии.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Link : IWxLink;
Begin
ws.BeginUpdate;
Link := ws.Shapes.Item(3) As IWxLink;
Link.Text := "Текст";
Link.TextHorzOffset := 20;
Link.TextVertOffset := -10;
ws.EndUpdate;
End Sub UserProc;
После выполнения примера для линии будет задан и смещен текст.
См. также: