IGxGraphics.FillRectangle

Синтаксис

FillRectangle(Brush: IGxBrush; Rect: IGxRect);

Параметры

Brush. Кисть.

Rect. Целочисленный прямоугольник, который необходимо залить.

Описание

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

Пример Fore

Для выполнения примера предполагается наличие формы, где расположены: кнопка с наименованием «Button1», невизуальный компонент UiTabSheet1 с наименованием «UiTabSheet1», компонент TabSheetBox1 с наименованием «TabSheetBox1». Подключите системные сборки: Drawing, Report, Tab.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    BMP: IGxBitmap;
    Graph: IGxGraphics;
    Brush: IGxBrush;
    Color: IGxColor;
    Rect: IGxRect;
    Picture: IPrxPicture;
Begin
    BMP := GxBitmap.CreateNew(200,100,GxPixelFormat.Format32bppArgb);
    Graph:= GxGraphicsClass.FromImage(BMP);
    // Создание прямоугольника, цвета и кисти
    Rect := New GxRect.Create(0,0,200,200);
    Color := GxColor.FromKnownColor(GxKnownColor.Yellow);
    Brush := New GxSolidBrush.Create(Color);
    // Закрашивает прямоугольник заданной кистью и задает высококачественное изображение
    Graph.FillRectangle(Brush,Rect);

    Graph.SmoothingMode := GxSmoothingMode.HighQuality;
    Picture := TabSheetBox1.Source.GetTabSheet.Objects.Add("PrxPicture", New GxRectF.Create(5,5,5,5)) As IPrxPicture;
    Picture.AutoSize := True;
    Picture.Image := BMP;
End Sub Button1OnClick;

При нажатии на кнопку в компоненте «TabSheetBox1» будет отрисован прямоугольник желтого цвета в верхнем левом углу.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Report;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    BmpCls: GxBitmapClass = New GxBitmapClass();
    Bmp: GxBitmap;
    GraphCls: GxGraphicsClass = New GxGraphicsClassClass();
    Graph: GxGraphics;
    Rect: GxRect = New GxRectClass();
    ColorCls: GxColorClass = New GxColorClassClass();
    Color: GxColor;
    Brush: GxSolidBrush = New GxSolidBrushClass();
    RectF: GxRectF = New GxRectFClass();
    Picture: IPrxPicture;
Begin
    Bmp := BmpCls.CreateNew(200, 100, GxPixelFormat.pifFormat32bppArgb);
    Graph := GraphCls.FromImage(Bmp);
    //Создание прямоугольника, цвета и кисти
    Rect.Create(0, 0, 200, 200);
    Color := ColorCls.FromKnownColor(GxKnownColor.clBlack);
    Brush.Create(Color);
    // Закрашивает прямоугольник заданной кистью и задает высококачественное изображение
    Graph.FillRectangle(Brush, Rect);
    Graph.SmoothingMode := GxSmoothingMode.gsmHighQuality;
    RectF.Create(5, 5, 5, 5);
    Picture := uiTabSheetNet1.TabSheetUi.TabSheet.Objects.Add("PrxPicture", RectF) As  IPrxPicture;
    Picture.AutoSize := True;
    Picture.Image := BMP;
End Sub;

См. также:

IGxGraphics