IGxRectangleTransformImage.Margins

Синтаксис

Margins: IGxMargins;

Описание

Свойство Margins определяет параметры фиксированных отступов графического изображения.

Пример

Для выполнения примера предполагается наличие формы и расположенного на ней компонента ImageButton с наименование "ImageButton1".

Sub ImageButton1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

Img: IGxImage;

TransfImage: IGxRectangleTransformImage;

Marg: IGxMargins;

Begin

Img := GxRectangleTransformImage.FromFile("c:\Image.bmp");

TransfImage := Img As IGxRectangleTransformImage;

Marg := TransfImage.Margins;

Marg.Bottom := 5;

Marg.Left := 5;

Marg.Right := 5;

Marg.Top := 5;

TransfImage.Unit := GxUnit.Millimeter;

ImageButton1.NormalLook.Background := TransfImage;

End Sub ImageButton1OnClick;

После выполнения примера при нажатии на кнопку "ImageButton1" для нее будет изменен фон. В качестве фона в обычном режиме кнопки будет установлено изображение "Image.bmp". Для изображения будет установлена фиксированная область - пять миллиметров со всех краев.

См. также:

IGxRectangleTransformImage