IGxGraphics.FillRectangleF

Синтаксис

FillRectangleF(Brush: IGxBrush; Rect: IGxRectF);

Параметры

Brush. Кисть.

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

Описание

Метод FillRectangleF заливает вещественный прямоугольник кистью, передаваемой посредством параметра 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: IGxRectF;
    Picture: IPrxPicture;
    DpiX, DpiY: Double;
Begin
    BMP := GxBitmap.CreateNew(200,100,GxPixelFormat.Format32bppArgb);
    Graph:= GxGraphicsClass.FromImage(BMP);
    // Создание прямоугольника, цвета и кисти
    Rect := New GxRectF.Create(0,0,200.15,200.15);
    Color := GxColor.FromKnownColor(GxKnownColor.Yellow);
    Brush := New GxSolidBrush.Create(Color);
    // Закрашивает прямоугольник заданной кистью
    Graph.FillRectangleF(Brush,Rect);
    Picture := TabSheetBox1.Source.GetTabSheet.Objects.Add("PrxPicture", New GxRectF.Create(5,5,5,5)) As IPrxPicture;
    Picture.AutoSize := True;
    Picture.Image := BMP;
    // Вывод горизонтального и вертикального разрешения
    DpiX := Graph.DpiX;
    DpiY := Graph.DpiY;
    Debug.WriteLine("DpiX: " + DpiX.ToString);
    Debug.WriteLine("DpiY: " + DpiY.ToString);
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;
    DpiX,  DpiY: Double;
Begin
    Bmp := BmpCls.CreateNew(200, 100, GxPixelFormat.pifFormat32bppArgb);
    Graph := GraphCls.FromImage(Bmp);
    //Создание прямоугольника, цвета и кисти
    RectF.Create(0, 0, 200.15, 200.15);
    Color := ColorCls.FromKnownColor(GxKnownColor.clYellow);
    Brush.Create(Color);
    // Закрашивает прямоугольник заданной кистью
    Graph.FillRectangleF(Brush, RectF);
    RectF.Create(5, 5, 5, 5);
    Picture := uiTabSheetNet1.TabSheetUi.TabSheet.Objects.Add("PrxPicture", RectF) As  IPrxPicture;
    Picture.AutoSize := True;
    Picture.Image := BMP;
    // Вывод горизонтального и вертикального разрешения
    DpiX := Graph.DpiX;
    DpiY := Graph.DpiY;
    System.Diagnostics.Debug.WriteLine("DpiX: " + DpiX.ToString());
    System.Diagnostics.Debug.WriteLine("DpiY: " + DpiY.ToString());
End Sub;

См. также:

IGxGraphics