IGxBitmapClass.CreateNew

Копировать пример

Sub UserProc;
Var
    BMP: IGxBitmap;
    Color: IGxColor;
    Rect: IGxRect;
    Graph: IGxGraphics;
Begin
    BMP := GxBitmap.CreateNew(30, 15, GxPixelFormat.Format24bppRgb);
    Graph := GxGraphicsClass.FromImage(BMP);
    //Формирование изображения
    Color := New GxColor.CreateRGB(0, 85, 164);
    Rect := New GxRect.Create(0, 0, 15, 30);
    Graph.FillColorRectangle(Color, Rect);
    Color := GxColor.FromKnownColor(GxKnownColor.White);
    Rect := New GxRect.Create(15, 0, 30, 30);
    Graph.FillColorRectangle(Color, Rect);
    Color := New GxColor.CreateRGB(239, 65, 53);
    Rect := New GxRect.Create(30, 0, 45, 30);
    Graph.FillColorRectangle(Color, Rect);
    //Сохранение изображения в файл
    BMP.SaveToFileEncoded("D:\flag.bmp", GxImageFormats.Bmp);
End Sub UserProc;