Revision 1 of 2, by Circular on 4-3-2024. The page as it is now.

TBGRABitmap class

TBGRABitmap class contains an image stored in BGRA 32-bit format. It derives from TBGRADefaultBitmap which derives from TBGRACustomBitmap from which it inherits its properties. It is defined in BGRABitmap unit. It implements IBGRAScanner interface which allows it to be used as a texture (like a brush).

Implementations

TBGRABitmap is a shortcut provided by BGRABitmap unit for the active implementation, depending on the widgetset. It can be one of the following:

TBGRAWinBitmap or TBGRAMSEguiBitmap on Windows
TBGRAGtkBitmap on Gtk
TBGRAQtBitmap when Qt widget is active
TBGRAfpGUIBitmap when using the package for fpGUI toolkit (bgrabitmappack4fpgui.lpk)
TBGRANoGUIBitmap when using the package independent of the graphic user interface (bgrabitmappack4nogui.lpk)
TBGRADefaultBitmap otherwise

Direct pixel access

The image is stored as BGRA 32-bit:

<tr>

</td>

PBGRAPixel = ^TBGRAPixel;

</td>

</tr>

<tr>

</td>

</td>

Pointer for direct pixel access. Data is stored as a sequence of TBGRAPixel. See BGRABitmap tutorial 4

</td>

</tr>

</td>

</tr>

<tr>

</td>

TBGRAPixel = packed record blue, green, red, alpha: byte; end;

</td>

</tr>

<tr>

</td>

</td>

Each pixel is a sequence of 4 bytes containing blue, green, red and alpha channel. Values range from 0 to 255, color is in sRGB colorspace. The alpha value of 0 is transparent and 255 is opaque

</td>

</tr>

</table>

You can either use Data property if you want to go through all pixels, or ScanLine property if you want to do something that depends on the line number. Data returns the first pixel in memory, so that you can read all the pixels from there by increasing the pointer (add 1 to PBGRAPixel). Otherwise, you can do a loop where y goes from 0 to Height-1, and for each line, retrieve with ScanLine the pointer of the beginning of the line. Then you can read all the pixels of the line from there by increasing the pointer.

The following properties of TBGRABitmap allow to access the data directly:

TBGRABitmap = class(TBGRACustomBitmap)

</td>

</tr>

</td>

</tr>

<tr>

</td>

property Width: integer read;

</td>

</tr>

<tr>

</td>

</td>

Width of the image in pixels

</td>

</tr>

</td>

</tr>

<tr>

</td>

property Height: integer read;

</td>

</tr>

<tr>

</td>

</td>

Height of the image in pixels

</td>

</tr>

</td>

</tr>

<tr>

</td>

property NbPixels: integer read;

</td>

</tr>

<tr>

</td>

</td>

Total number of pixels. It is always true that NbPixels = Width * Height

</td>

</tr>

</td>

</tr>

<tr>

</td>

property ScanLine[y: integer]: PBGRAPixel read;

</td>

</tr>

<tr>

</td>

</td>

Returns the address of the left-most pixel of any line. The parameter y ranges from 0 to Height-1

</td>

</tr>

</td>

</tr>

<tr>

</td>

property LineOrder: TRawImageLineOrder read;

</td>

</tr>

<tr>

</td>

</td>

Indicates the order in which lines are stored in memory. If it is equal to riloTopToBottom, the first line is the top line. If it is equal to riloBottomToTop, the first line is the bottom line. See miscellaneous types

</td>

</tr>

</td>

</tr>

<tr>

</td>

property Data: PBGRAPixel read;

</td>

</tr>

<tr>

</td>

</td>

Provides a pointer to the first pixel in memory. Depending on the LineOrder property, this can be the top-left pixel or the bottom-left pixel. There is no padding between scanlines, so the start of the next line is at the address Data + Width. See BGRABitmap tutorial 4

</td>

</tr>

</td>

</tr>

<tr>

</td>

property Caption: string read write;

</td>

</tr>

<tr>

</td>

</td>

Can contain a text to describe the image. It is not displayed. It is the name of the layer if this image is in a layered bitmap.

</td>

</tr>

</table>

TBGRABitmap reference

TBGRABitmap = class(TBGRACustomBitmap)

</td>

</tr>

</td>

This class is the base for all TBGRABitmap classes. It implements most function to the exception from implementations specific to the widgetset

</td>

</tr>

</td>

</tr>

<tr>

</td>

property CanvasBGRA: TBGRACanvas read;

</td>

</tr>

<tr>

</td>

</td>

Provides a canvas with opacity and antialiasing

</td>

</tr>

</td>

</tr>

<tr>

</td>

property Canvas2D: TBGRACanvas2D read;

</td>

</tr>

<tr>

</td>

</td>

Provides a canvas with 2d transformation and similar to HTML5.

</td>

</tr>

</td>

</tr>

</table>

For more properties, see parent class TBGRACustomBitmap

Reference counting

<tr>

</td>

function NewReference: TBGRACustomBitmap;

</td>

</tr>

<tr>

</td>

</td>

Adds a reference (this reference count is not the same as the reference count of an interface, it changes only by explicit calls

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FreeReference;

</td>

</tr>

<tr>

</td>

</td>

Free a reference. When the resulting reference count gets to zero, the image is freed. The initial reference count is equal to 1

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetUnique: TBGRACustomBitmap;

</td>

</tr>

<tr>

</td>

</td>

Returns an object with a reference count equal to 1. Duplicate this bitmap if necessary

</td>

</tr>

</td>

</tr>

</table>

Constructors

<tr>

</td>

constructor Create(AWidth, AHeight: integer); override;

</td>

</tr>

<tr>

</td>

</td>

Creates a new bitmap, initialize properties and bitmap data

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure SetSize(AWidth, AHeight: integer); override;

</td>

</tr>

<tr>

</td>

</td>

Can only be called with an existing instance of TBGRABitmap. Sets the dimensions of an existing TBGRABitmap instance.

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create; override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image of width and height equal to zero. In this case, Data = nil

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create(AFPImage: TFPCustomImage); override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image by copying the content of a TFPCustomImage

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create(ABitmap: TBitmap); override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image by copying the content of a TBitmap

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create(AWidth, AHeight: integer; Color: TColor); override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image of dimensions AWidth and AHeight and fills it with the opaque color Color

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create(AWidth, AHeight: integer; Color: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image of dimensions AWidth and AHeight and fills it with Color

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create(AFilename: string); override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image by loading its content from the file AFilename. The encoding of the string is the default one for the operating system. It is recommended to use the next constructor and UTF8 encoding

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create(AFilename: string; AIsUtf8: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image by loading its content from the file AFilename. The boolean AIsUtf8Filename specifies if UTF8 encoding is assumed for the filename

</td>

</tr>

</td>

</tr>

<tr>

</td>

constructor Create(AStream: TStream); override;

</td>

</tr>

<tr>

</td>

</td>

Creates an image by loading its content from the stream AStream

</td>

</tr>

</td>

</tr>

<tr>

</td>

destructor Destroy; override;

</td>

</tr>

<tr>

</td>

</td>

Free the object and all its resources

</td>

</tr>

</td>

</tr>

<tr>

</td>

function NewBitmap(AWidth, AHeight: integer): TBGRACustomBitmap; override;

</td>

</tr>

<tr>

</td>

</td>

Can only be called from an existing instance of TBGRABitmap. Creates a new instance with dimensions AWidth and AHeight, containing transparent pixels.

</td>

</tr>

</td>

</tr>

<tr>

</td>

function NewBitmap(AWidth, AHeight: integer; Color: TBGRAPixel): TBGRACustomBitmap; override;

</td>

</tr>

<tr>

</td>

</td>

Can only be called from an existing instance of TBGRABitmap. Creates a new instance with dimensions AWidth and AHeight, and fills it with Color

</td>

</tr>

</td>

</tr>

<tr>

</td>

function NewBitmap(Filename: string): TBGRACustomBitmap; override;

</td>

</tr>

<tr>

</td>

</td>

Can only be called from an existing instance of TBGRABitmap. Creates a new instance with by loading its content from the file Filename. The encoding of the string is the default one for the operating system

</td>

</tr>

</td>

</tr>

<tr>

</td>

function NewBitmap(Filename: string; AIsUtf8: boolean): TBGRACustomBitmap; override;

</td>

</tr>

<tr>

</td>

</td>

Can only be called from an existing instance of TBGRABitmap. Creates a new instance with by loading its content from the file Filename

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure Assign(Source: TPersistent); override;

</td>

</tr>

<tr>

</td>

</td>

Assign the content of the specified Source. It can be a TBGRACustomBitmap or a TFPCustomImage

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure Serialize(AStream: TStream); override;

</td>

</tr>

<tr>

</td>

</td>

Stores the image in the stream without compression nor header

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure Deserialize(AStream: TStream); override;

</td>

</tr>

<tr>

</td>

</td>

Reads the image in a stream that was previously serialized

</td>

</tr>

</td>

</tr>

<tr>

</td>

class procedure SerializeEmpty(AStream: TStream);

</td>

</tr>

<tr>

</td>

</td>

Stores an empty image (of size zero)

</td>

</tr>

</td>

</tr>

</table>

Example:

pascal

var bmp1, bmp2: TBGRABitmap;
begin
  bmp1 := TBGRABitmap.Create(100,100);
  bmp2 := bmp1.NewBitmap(100,100) as TBGRABitmap;
  ...
end;

See tutorial 2 on how to load and display an image.

See reference on loading and saving files

Pixel functions

<tr>

</td>

function PtInClipRect(x, y: int32or64): boolean; inline;

</td>

</tr>

<tr>

</td>

</td>

Checks if the specified point is in the clipping rectangle ClipRect

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure SetPixel(x, y: int32or64; c: TColor); override;

</td>

</tr>

<tr>

</td>

</td>

Sets the pixel by replacing the content at (x,y) with the specified color. Alpha value is set to 255 (opaque)

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure SetPixel(x, y: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Sets the pixel at (x,y) with the specified content

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure XorPixel(x, y: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Applies a logical xor to the content of the pixel with the specified value. This includes the alpha channel, so if you want to preserve the opacity, provide a color c with alpha channel equal to zero

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPixel(x, y: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a pixel with gamma correction at (x,y). Pixel is supplied in sRGB colorspace

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPixel(x, y: int32or64; c: TBGRAPixel; ADrawMode: TDrawMode); overload;

</td>

</tr>

<tr>

</td>

</td>

Draws a pixel with the specified ADrawMode at (x,y). Pixel is supplied in sRGB colorspace. Gamma correction may be applied depending on the draw mode

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPixel(x, y: int32or64; ec: TExpandedPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a pixel with gamma correction at (x,y). Pixel is supplied in gamma expanded colorspace

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FastBlendPixel(x, y: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a pixel without gamma correction at (x,y). Pixel is supplied in sRGB colorspace

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure ErasePixel(x, y: int32or64; alpha: byte); override;

</td>

</tr>

<tr>

</td>

</td>

Erase the content of the pixel by reducing the value of the alpha channel. alpha specifies how much to decrease. If the resulting alpha reaches zero, the content is replaced by BGRAPixelTransparent

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure AlphaPixel(x, y: int32or64; alpha: byte); override;

</td>

</tr>

<tr>

</td>

</td>

Sets the alpha value at (x,y). If alpha = 0, the pixel is replaced by BGRAPixelTransparent

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetPixel(x, y: int32or64): TBGRAPixel; override;

</td>

</tr>

<tr>

</td>

</td>

Returns the content of the specified pixel. If it is out of the bounds of the picture, the result is BGRAPixelTransparent

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetPixel(x, y: single; AResampleFilter: TResampleFilter = rfLinear; smoothBorder: boolean = true): TBGRAPixel; override;

</td>

</tr>

<tr>

</td>

</td>

Computes the value of the pixel at a floating point coordiante by interpolating the values of the pixels around it.
There is a one pixel wide margin around the pixel where the pixels are still considered inside. If smoothBorder is set to true, pixel fade to transparent.
If it is more out of the bounds, the result is BGRAPixelTransparent.
AResampleFilter specifies how pixels must be interpolated. Accepted values are rfBox, rfLinear, rfHalfCosine and rfCosine

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetPixel256(x, y, fracX256,fracY256: int32or64; AResampleFilter: TResampleFilter = rfLinear; smoothBorder: boolean = true): TBGRAPixel; override;

</td>

</tr>

<tr>

</td>

</td>

Similar to previous GetPixel function, but the fractional part of the coordinate is supplied with a number from 0 to 255. The actual coordinate is (x + fracX256/256, y + fracY256/256)

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetPixelCycle(x, y: single; AResampleFilter: TResampleFilter = rfLinear): TBGRAPixel; override;

</td>

</tr>

<tr>

</td>

</td>

Computes the value of the pixel at a floating point coordiante by interpolating the values of the pixels around it. If the pixel is out of bounds, the image is repeated.
AResampleFilter specifies how pixels must be interpolated. Accepted values are rfBox, rfLinear, rfHalfCosine and rfCosine

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetPixelCycle256(x, y, fracX256,fracY256: int32or64; AResampleFilter: TResampleFilter = rfLinear): TBGRAPixel; override;

</td>

</tr>

<tr>

</td>

</td>

Similar to previous GetPixel function, but the fractional part of the coordinate is supplied with a number from 0 to 255. The actual coordinate is (x + fracX256/256, y + fracY256/256)

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetPixelCycle(x, y: single; AResampleFilter: TResampleFilter; repeatX: boolean; repeatY: boolean): TBGRAPixel; override;

</td>

</tr>

<tr>

</td>

</td>

Computes the value of the pixel at a floating point coordiante by interpolating the values of the pixels around it. repeatX and repeatY specifies if the image is to be repeated or not.
AResampleFilter specifies how pixels must be interpolated. Accepted values are rfBox, rfLinear, rfHalfCosine and rfCosine

</td>

</tr>

</td>

</tr>

<tr>

</td>

function GetPixelCycle256(x, y, fracX256,fracY256: int32or64; AResampleFilter: TResampleFilter; repeatX: boolean; repeatY: boolean): TBGRAPixel; override;

</td>

</tr>

<tr>

</td>

</td>

Similar to previous GetPixel function, but the fractional part of the coordinate is supplied with a number from 0 to 255. The actual coordinate is (x + fracX256/256, y + fracY256/256)

</td>

</tr>

</td>

</tr>

</table>

Drawing lines and polylines (integer coordinates)

These functions do not take into account current pen style/cap/join. See coordinate system.

<tr>

</td>

procedure SetHorizLine(x, y, x2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Replaces the content of the pixels at line y and at columns x to x2 included, using specified color

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure XorHorizLine(x, y, x2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Applies xor to the pixels at line y and at columns x to x2 included, using specified color. This includes the alpha channel, so if you want to preserve the opacity, provide a color c with alpha channel equal to zero

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawHorizLine(x, y, x2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an horizontal line with gamma correction at line y and at columns x to x2 included, using specified color

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawHorizLine(x, y, x2: int32or64; ec: TExpandedPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an horizontal line with gamma correction at line y and at columns x to x2 included, using specified color

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawHorizLine(x, y, x2: int32or64; texture: IBGRAScanner); overload;

</td>

</tr>

<tr>

</td>

</td>

Draws an horizontal line with gamma correction at line y and at columns x to x2 included, using specified scanner to get the source colors

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FastBlendHorizLine(x, y, x2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an horizontal line without gamma correction at line y and at columns x to x2 included, using specified color

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure HorizLine(x, y, x2: int32or64; texture: IBGRAScanner; ADrawMode : TDrawMode); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an horizontal line at line y and at columns x to x2 included, using specified scanner and the specified ADrawMode

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure HorizLine(x,y,x2: Int32or64; c: TBGRAPixel; ADrawMode: TDrawMode); overload;

</td>

</tr>

<tr>

</td>

</td>

Draws an horizontal line at line y and at columns x to x2 included, using specified color and the specified ADrawMode

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure AlphaHorizLine(x, y, x2: int32or64; alpha: byte); override;

</td>

</tr>

<tr>

</td>

</td>

Replaces the alpha value of the pixels at line y and at columns x to x2 included

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawHorizLineDiff(x, y, x2: int32or64; c, compare: TBGRAPixel;

</td>

</tr>

<tr>

</td>

</td>

Draws an horizontal line with gamma correction at line y and at columns x to x2 included, using specified color, and with a transparency that increases with the color difference with compare. If the difference is greater than maxDiff, pixels are not changed

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure SetVertLine(x, y, y2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Replaces a vertical line at column x and at row y to y2

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure XorVertLine(x, y, y2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Xors a vertical line at column x and at row y to y2

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawVertLine(x, y, y2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a vertical line with gamma correction at column x and at row y to y2

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FastBlendVertLine(x, y, y2: int32or64; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a vertical line without gamma correction at column x and at row y to y2

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure AlphaVertLine(x, y, y2: int32or64; alpha: byte); override;

</td>

</tr>

<tr>

</td>

</td>

Replace alpha values in a vertical line at column x and at row y to y2

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure VertLine(x,y,y2: Int32or64; c: TBGRAPixel; ADrawMode: TDrawMode);

</td>

</tr>

<tr>

</td>

</td>

Draws a vertical line with the specified draw mode at column x and at row y to y2

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawLine(x1, y1, x2, y2: integer; c: TBGRAPixel; DrawLastPixel: boolean; ADrawMode: TDrawMode = dmDrawWithTransparency); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an aliased line from (x1,y1) to (x2,y2) using Bresenham's algorithm c specifies the color. DrawLastPixel specifies if (x2,y2) must be drawn. ADrawMode specifies the mode to use when drawing the pixels

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawLineAntialias(x1, y1, x2, y2: integer; c: TBGRAPixel; DrawLastPixel: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an antialiased line from (x1,y1) to (x2,y2) using an improved version of Bresenham's algorithm c specifies the color. DrawLastPixel specifies if (x2,y2) must be drawn

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawLineAntialias(x1, y1, x2, y2: integer; c1, c2: TBGRAPixel; dashLen: integer; DrawLastPixel: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an antialiased line with two colors c1 and c2 as dashes of lenght dashLen

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawLineAntialias(x1, y1, x2, y2: integer; c1, c2: TBGRAPixel; dashLen: integer; DrawLastPixel: boolean; var DashPos: integer); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an antialiased line with two colors c1 and c2 as dashes of lenght dashLen. DashPos can be used to specify the start dash position and to retrieve the dash position at the end of the line, in order to draw a polyline with consistent dashes

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EraseLine(x1, y1, x2, y2: integer; alpha: byte; DrawLastPixel: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Erases the line from (x1,y1) to (x2,y2) using Bresenham's algorithm. alpha specifies how much to decrease. If alpha = 0, nothing is changed and if alpha = 255, all pixels become transparent. DrawListPixel specifies if (x2,y2) must be changed

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EraseLineAntialias(x1, y1, x2, y2: integer; alpha: byte; DrawLastPixel: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Erases the line from (x1,y1) to (x2,y2) width antialiasing. alpha specifies how much to decrease. If alpha = 0, nothing is changed and if alpha = 255, all pixels become transparent. DrawListPixel specifies if (x2,y2) must be changed

</td>

</tr>

</td>

</tr>

</table>

Drawing lines and polylines (floating point coordinates)

These functions use the current pen style/cap/join. The parameter w specifies the width of the line and the base unit for dashes. See coordinate system.

<tr>

</td>

procedure DrawLineAntialias(x1, y1, x2, y2: single; c: TBGRAPixel; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a line from (x1,y1) to (x2,y2) using current pen style/cap/join

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawLineAntialias(x1, y1, x2, y2: single; texture: IBGRAScanner; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a line from (x1,y1) to (x2,y2) using current pen style/cap/join. texture specifies the source color to use when filling the line

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawLineAntialias(x1, y1, x2, y2: single; c: TBGRAPixel; w: single; Closed: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a line from (x1,y1) to (x2,y2) using current pen style/cap/join. Closed specifies if the end of the line is closed. If it is not closed, a space is left so that the next line can fit

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawLineAntialias(x1, y1, x2, y2: single; texture: IBGRAScanner; w: single; Closed: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Same as above with texture specifying the source color to use when filling the line

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolyLineAntialias(const points: array of TPointF; c: TBGRAPixel; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a polyline using current pen style/cap/join

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolyLineAntialias(const points: array of TPointF; texture: IBGRAScanner; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a polyline using current pen style/cap/join. texture specifies the source color to use when filling the line

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolyLineAntialias(const points: array of TPointF; c: TBGRAPixel; w: single; Closed: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a polyline using current pen style/cap/join. Closed specifies if the end of the line is closed. If it is not closed, a space is left so that the next line can fit

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolyLineAntialias(const points: array of TPointF; c: TBGRAPixel; w: single; fillcolor: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a polyline using current pen style/cap/join. fillcolor specifies a color to fill the polygon formed by the points

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolyLineAntialiasAutocycle(const points: array of TPointF; c: TBGRAPixel; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a polyline using current pen style/cap/join. The last point considered as a join with the first point if it has the same coordinate

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolygonAntialias(const points: array of TPointF; c: TBGRAPixel; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a polygon using current pen style/cap/join. The polygon is always closed. You don't need to set the last point to be the same as the first point

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolygonAntialias(const points: array of TPointF; texture: IBGRAScanner; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a polygon using current pen style/cap/join. The polygon is always closed. You don't need to set the last point to be the same as the first point

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure DrawPolygonAntialias(const points: array of TPointF; c: TBGRAPixel; w: single; fillcolor: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a filled polygon using current pen style/cap/join. The polygon is always closed. You don't need to set the last point to be the same as the first point.

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EraseLineAntialias(x1, y1, x2, y2: single; alpha: byte; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Erases a line from (x1,y1) to (x2,y2) using current pen style/cap/join

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EraseLineAntialias(x1, y1, x2, y2: single; alpha: byte; w: single; Closed: boolean); override;

</td>

</tr>

<tr>

</td>

</td>

Erases a line from (x1,y1) to (x2,y2) using current pen style/cap/join. Closed specifies if the end of the line is closed. If it is not closed, a space is left so that the next line can fit

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure ErasePolyLineAntialias(const points: array of TPointF; alpha: byte; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Erases a polyline using current pen style/cap/join

</td>

</tr>

</td>

</tr>

</table>

Rectangles (integer coordinates)

The integer coordinates of rectangles interpreted such that that the bottom/right pixels are not drawn. The width is equal to x2-x, and pixels are drawn from x to x2-1. If x = x2, then nothing is drawn. See coordinate system.
These functions do not take into account current pen style/cap/join. They draw a continuous 1-pixel width border

<tr>

</td>

procedure Rectangle(x, y, x2, y2: integer; c: TBGRAPixel; mode: TDrawMode); override;

</td>

</tr>

<tr>

</td>

</td>

Draw a size border of a rectangle, using the specified mode

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure Rectangle(x, y, x2, y2: integer; BorderColor, FillColor: TBGRAPixel; mode: TDrawMode); override;

</td>

</tr>

<tr>

</td>

</td>

Draw a filled rectangle with a border of color BorderColor, using the specified mode

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillRect(x, y, x2, y2: integer; c: TBGRAPixel; mode: TDrawMode); override; overload;

</td>

</tr>

<tr>

</td>

</td>

Fills completely a rectangle, without any border, with the specified mode

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillRect(x, y, x2, y2: integer; texture: IBGRAScanner; mode: TDrawMode); override; overload;

</td>

</tr>

<tr>

</td>

</td>

Fills completely a rectangle, without any border, with the specified texture and with the specified mode

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure AlphaFillRect(x, y, x2, y2: integer; alpha: byte); override;

</td>

</tr>

<tr>

</td>

</td>

Sets the alpha value within the specified rectangle

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure RoundRect(X1, Y1, X2, Y2: integer; DX, DY: integer; BorderColor, FillColor: TBGRAPixel; ADrawMode: TDrawMode = dmDrawWithTransparency); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a filled round rectangle, with corners having an elliptical diameter of DX and DY

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure RoundRect(X1, Y1, X2, Y2: integer; DX, DY: integer; BorderColor: TBGRAPixel; ADrawMode: TDrawMode = dmDrawWithTransparency); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a round rectangle, with corners having an elliptical diameter of DX and DY

</td>

</tr>

</td>

</tr>

</table>

Rectangles and ellipses (floating point coordinates)

These functions use the current pen style/cap/join. The parameter w specifies the width of the line and the base unit for dashes
The coordinates are pixel-centered, so that when filling a rectangle, if the supplied values are integers, the border will be half transparent. If you want the border to be completely filled, you can subtract/add 0.5 to the coordinates to include the remaining thin border. See coordinate system.

<tr>

</td>

procedure RectangleAntialias(x, y, x2, y2: single; c: TBGRAPixel; w: single; back: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a rectangle with antialiasing and fills it with color back. Note that the pixel (x2,y2) is included contrary to integer coordinates

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure RectangleAntialias(x, y, x2, y2: single; texture: IBGRAScanner; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a rectangle with antialiasing. Note that the pixel (x2,y2) is included contrary to integer coordinates

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillRectAntialias(x, y, x2, y2: single; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Fills a rectangle with antialiasing. For example (-0.5,-0.5,0.5,0.5) fills one pixel

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillRectAntialias(x, y, x2, y2: single; texture: IBGRAScanner); override;

</td>

</tr>

<tr>

</td>

</td>

Fills a rectangle with a texture

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EraseRectAntialias(x, y, x2, y2: single; alpha: byte); override;

</td>

</tr>

<tr>

</td>

</td>

Erases the content of a rectangle with antialiasing

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure RoundRectAntialias(x,y,x2,y2,rx,ry: single; c: TBGRAPixel; w: single; options: TRoundRectangleOptions = []); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a rounded rectangle border with antialiasing. The corners have an elliptical radius of rx and ry. options specifies how to draw the corners. See geometry types

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure RoundRectAntialias(x,y,x2,y2,rx,ry: single; texture: IBGRAScanner; w: single; options: TRoundRectangleOptions = []); override;

</td>

</tr>

<tr>

</td>

</td>

Draws a rounded rectangle border with the specified texture. The corners have an elliptical radius of rx and ry. options specifies how to draw the corners. See geometry types

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure RoundRectAntialias(x,y,x2,y2,rx,ry: single; pencolor: TBGRAPixel; w: single; fillcolor: TBGRAPixel; options: TRoundRectangleOptions = []); override;

</td>

</tr>

<tr>

</td>

</td>

Draws and fills a round rectangle

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure RoundRectAntialias(x,y,x2,y2,rx,ry: single; penTexture: IBGRAScanner; w: single; fillTexture: IBGRAScanner; options: TRoundRectangleOptions = []); override;

</td>

</tr>

<tr>

</td>

</td>

Draws and fills a round rectangle with textures

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillRoundRectAntialias(x,y,x2,y2,rx,ry: single; c: TBGRAPixel; options: TRoundRectangleOptions = []); override;

</td>

</tr>

<tr>

</td>

</td>

Fills a rounded rectangle with antialiasing. The corners have an elliptical radius of rx and ry. options specifies how to draw the corners. See geometry types

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillRoundRectAntialias(x,y,x2,y2,rx,ry: single; texture: IBGRAScanner; options: TRoundRectangleOptions = []); override;

</td>

</tr>

<tr>

</td>

</td>

Fills a rounded rectangle with a texture

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EraseRoundRectAntialias(x,y,x2,y2,rx,ry: single; alpha: byte; options: TRoundRectangleOptions = []); override;

</td>

</tr>

<tr>

</td>

</td>

Erases the content of a rounded rectangle with a texture

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EllipseAntialias(x, y, rx, ry: single; c: TBGRAPixel; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an ellipse with antialising. rx is the horizontal radius and ry the vertical radius

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EllipseAntialias(x, y, rx, ry: single; texture: IBGRAScanner; w: single); override;

</td>

</tr>

<tr>

</td>

</td>

Draws an ellipse border with a texture

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EllipseAntialias(x, y, rx, ry: single; c: TBGRAPixel; w: single; back: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Draws and fills an ellipse

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillEllipseAntialias(x, y, rx, ry: single; c: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Fills an ellipse

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillEllipseAntialias(x, y, rx, ry: single; texture: IBGRAScanner); override;

</td>

</tr>

<tr>

</td>

</td>

Fills an ellipse with a texture

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure FillEllipseLinearColorAntialias(x, y, rx, ry: single; outercolor, innercolor: TBGRAPixel); override;

</td>

</tr>

<tr>

</td>

</td>

Fills an ellipse with a gradient of color. outercolor specifies the end color of the gradient on the border of the ellipse and innercolor the end color of the gradient at the center of the ellipse

</td>

</tr>

</td>

</tr>

<tr>

</td>

procedure EraseEllipseAntialias(x, y, rx, ry: single; alpha: byte); override;

</td>

</tr>

<tr>

</td>

</td>

Erases the content of an ellipse

</td>

</tr>

</td>

</tr>

</table>

Additionally, there are also FloodFill() and Arc() methods.

Text functions

pascal

class TBGRABitmap
  property FontName: string; read write;
  property FontStyle: TFontStyles; read write;
  property FontQuality : TBGRAFontQuality; read write;
  property FontOrientation: integer; read write;
  property FontHeight: integer; read write;
  property FontAntialias: Boolean; read write;
  property FontFullHeight: integer; read write;
  property FontPixelMetric: TFontPixelMetric;
  property FontRenderer: TBGRACustomFontRenderer; read write;

  procedure TextOut(x, y: single; sUTF8: string; c: TBGRAPixel; align: TAlignment);
  procedure TextOut(x, y: single; sUTF8: string; texture: IBGRAScanner; align: TAlignment);
  procedure TextOutAngle(x, y: single; orientationTenthDegCCW: integer; sUTF8: string; c: TBGRAPixel; align: TAlignment);
  procedure TextOutAngle(x, y: single; orientationTenthDegCCW: integer; sUTF8: string; texture: IBGRAScanner; align: TAlignment);
  procedure TextOut(x, y: single; sUTF8: string; c: TBGRAPixel);
  procedure TextOut(x, y: single; sUTF8: string; c: TColor);
  procedure TextOut(x, y: single; sUTF8: string; texture: IBGRAScanner);
  procedure TextRect(ARect: TRect; x, y: integer; sUTF8: string; style: TTextStyle; c: TBGRAPixel);
  procedure TextRect(ARect: TRect; x, y: integer; sUTF8: string; style: TTextStyle; texture: IBGRAScanner);
  procedure TextRect(ARect: TRect; sUTF8: string; halign: TAlignment; valign: TTextLayout; c: TBGRAPixel);
  procedure TextRect(ARect: TRect; sUTF8: string; halign: TAlignment; valign: TTextLayout; texture: IBGRAScanner);
  function TextSize(sUTF8: string): TSize;

See TBGRABitmap text functions.

From the Free Pascal wiki, page "TBGRABitmap class", as it stood on 2024-04-03 after a change by Circular, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.