PictureAutoSize : Boolean;
Свойство PictureAutoSize подгоняет размер графического примитива под настоящий (исходный) размер рисунка. Если значение свойства True, то будет осуществлена подгонка размеров, в противном случае нет.
По умолчанию свойство имеет значение False.
В рассматриваемом примере предполагается существование объекта Ws типа IWxWorkspace.
Sub User;
Var
Ws : IWxWorkspace;
shape : IWxShape;
style : IWxStyle;
Begin
Shape := Ws.Shapes.Item(0);
Shape.Picture := GxImage.FromFile("c:\1.bmp");
Style := Shape.Style;
Style.PictureAutoSize := True;
End Sub User;
После выполнения примера будет осуществлена подгонка размеров.
Ниже приведен пример, на котором отражены объекты до установки свойства в True (слева) и после установки в True (справа):

См. также: