AdjustMode: WxAdjustMode;
Свойство AdjustMode определяет режим подгонки размеров рамки фигуры по тексту, который содержится в ней.
По умолчанию подгонки не происходит.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape: IWxShape;
Style: IWxStyle;
Begin
ws.BeginUpdate;
Shape := ws.Shapes.Item(1);
Style := Shape.Style;
Style.AdjustMode := WxAdjustMode.Height;
ws.EndUpdate;
End Sub UserProc;
После выполнения примера для объекта будет применена автоматическая подгонка размеров рамки по высоте.
См. также: