Unit BGRAPen
📄 Source code

Description

Uses

Structures

Functions and Procedures

Types

Constants

Variables

Description

Configuration and computation of pen style and width, as well as line caps and join styles.

A line consists in two points. A polyline consists in one or more lines, defined by two points or more. A poly-polyline consists in a series of polylines, defined by polyline points separated by empty points (see EmptyPointF and EmptyPoint)

Uses

Overview

Structures

Name	Description
Class `TBGRAPenStroker`	Class to hold pen stroker configuration and compute path

Functions and Procedures

procedure BGRADrawLineAliased(dest: TBGRACustomBitmap; x1, y1, x2, y2: integer; c: TBGRAPixel; DrawLastPixel: boolean; ADrawMode: TDrawMode = dmDrawWithTransparency); deprecated;

procedure BGRADrawLineAntialias(dest: TBGRACustomBitmap; x1, y1, x2, y2: integer; c: TBGRAPixel; DrawLastPixel: boolean; LinearBlend : boolean = false); overload; deprecated;

procedure BGRADrawLineAntialias(dest: TBGRACustomBitmap; x1, y1, x2, y2: integer; c1, c2: TBGRAPixel; dashLen: integer; DrawLastPixel: boolean; var DashPos: integer; LinearBlend : boolean = false); overload; deprecated;

procedure BGRAEraseLineAliased(dest: TBGRACustomBitmap; x1, y1, x2, y2: integer; alpha: byte; DrawLastPixel: boolean); deprecated;

procedure BGRAEraseLineAntialias(dest: TBGRACustomBitmap; x1, y1, x2, y2: integer; calpha: byte; DrawLastPixel: boolean); overload; deprecated;

function BGRAToPenStyle(ACustomPenStyle: TBGRAPenStyle): TPenStyle;

function ComputeWidePolylinePoints(const linepts: array of TPointF; width: single; pencolor: TBGRAPixel; linecap: TPenEndCap; joinstyle: TPenJoinStyle; const penstyle: TBGRAPenStyle; options: TBGRAPolyLineOptions; miterLimit: single = 2; arrow: TBGRACustomArrow = nil): ArrayOfTPointF;

function ComputeWidePolyPolylinePoints(const linepts: array of TPointF; width: single; pencolor: TBGRAPixel; linecap: TPenEndCap; joinstyle: TPenJoinStyle; const penstyle: TBGRAPenStyle; options: TBGRAPolyLineOptions; miterLimit: single = 2; arrow: TBGRACustomArrow = nil): ArrayOfTPointF;

function CreateBrushTexture(prototype: TBGRACustomBitmap; brushstyle: TBrushStyle; PatternColor, BackgroundColor: TBGRAPixel; width: integer = 8; height: integer = 8; penwidth: single = 1): TBGRACustomBitmap;

function DuplicatePenStyle(ACustomPenStyle: array of single): TBGRAPenStyle;

function GetAlphaJoinFactor(alpha: byte): single;

function IsClearPenStyle(ACustomPenStyle: TBGRAPenStyle): boolean;

function IsSolidPenStyle(ACustomPenStyle: TBGRAPenStyle): boolean;

function PenStyleEqual(AStyle1, AStyle2: TBGRAPenStyle): boolean;

function PenStyleToBGRA(APenStyle: TPenStyle): TBGRAPenStyle;

Types

TBGRAPolyLineOption = (...);

TBGRAPolyLineOptions = set of TBGRAPolyLineOption;

TComputeArrowHeadProc = function(const APosition: TPointF; const ADirection: TPointF; const AWidth: single; const ACurrentPos: single): ArrayOfTPointF of object;

TPenEndCap = BGRAGraphics.TPenEndCap;

TPenJoinStyle = BGRAGraphics.TPenJoinStyle;

Variables

ClearPenStyle: TBGRAPenStyle;

DashDotDotPenStyle: TBGRAPenStyle;

DashDotPenStyle: TBGRAPenStyle;

DashPenStyle: TBGRAPenStyle;

DotPenStyle: TBGRAPenStyle;

SolidPenStyle: TBGRAPenStyle;