IGxGraphics.FillColorRectangle

Синтаксис

FillColorRectangle(Color: IGxColor; Rect: IGxRect);

Параметры

Color. Цвет, которым будет залит прямоугольник.

Rect. Целочисленный прямоугольник.

Описание

Метод FillColorRectangle заливает целочисленный прямоугольник цветом, передаваемым посредством параметра Color.

Пример Fore

Для выполнения примера предполагается наличие формы, где расположены: кнопка с наименованием «Button1», компонент ImageBox с наименованием «ImageBox1». Подключите системные сборки: Drawing, Forms.

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

Var

BMP: IGxBitmap;

Graph: IGxGraphics;

GraphClass: GxGraphicsClass;

Color: IGxColor;

Rect: IGxRect;

x, y, i, j: Integer;

Begin

BMP := GxBitmap.CreateNew(ImageBox1.ClientWidth, ImageBox1.ClientHeight, GxPixelFormat.Unknown);

Color := GxColor.FromValue(Math.RandBetweenI(0, 65536));

x := Math.RandBetweenI(0, Double.RoundInt(ImageBox1.ClientWidth / 2));

y := Math.RandBetweenI(0, Double.RoundInt(ImageBox1.ClientHeight / 2));

i := Math.RandBetweenI(Double.RoundInt(ImageBox1.ClientWidth / 2), ImageBox1.ClientWidth);

j := Math.RandBetweenI(Double.RoundInt(ImageBox1.ClientHeight / 2), ImageBox1.ClientHeight);

Rect := New GxRect.Create(x, y, i, j);

GraphClass := New GxGraphics.Create;

Graph := GraphClass.FromImage(BMP);

Graph.FillColorRectangle(Color, Rect);

ImageBox1.Image := BMP;

End Sub Button1OnClick;

После выполнения примера при нажатии на кнопку в компоненте ImageBox отобразится новое битовое изображение с прямоугольником случайного размера и цвета.

См. также:

IGxGraphics