Class TBGRACanvas
Unit
Declaration
type TBGRACanvas = class(TObject)
Description
Improved canvas with gamma correction and transparency
Hierarchy
- TObject
- TBGRACanvas
Overview
Fields
 |
AntialiasingMode: TAntialiasingMode; |
|
DrawFontBackground: boolean; |
 |
FBitmap: TBGRACustomBitmap; |
|
FBrush: TBGRABrush; |
|
FClippingOn: Boolean; |
|
FFont: TBGRAFont; |
|
FillMode: TFillMode; |
|
FInactiveClipRect: TRect; |
|
FPen: TBGRAPen; |
|
FPenPos: TPoint; |
|
TextStyle: TTextStyle; |
Methods
|
constructor Create(ABitmap: TBGRACustomBitmap); |
|
destructor Destroy; override; |
|
function GetPixelColor(X, Y: Integer): TColor; |
|
function TextExtent(const Text: string): TSize; |
|
function TextHeight(const Text: string): Integer; |
|
function TextWidth(const Text: string): Integer; |
|
function NoBrush: boolean; |
|
function NoPen: boolean; |
|
procedure Arc(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
procedure Arc(x1,y1,x2,y2,sx,sy,ex,ey: integer); |
|
procedure Arc65536(x1,y1,x2,y2: integer; start65536,end65536: word; Options: TArcOptions); |
|
procedure Chord(x1,y1,x2,y2,sx,sy,ex,ey: integer); |
|
procedure Chord(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
procedure CopyRect(X,Y: Integer; SrcBitmap: TBGRACustomBitmap; SrcRect: TRect); |
|
procedure CopyRect(Dest: TRect; SrcBmp: TBGRACustomBitmap; Source: TRect); virtual; |
|
procedure Draw(X,Y: Integer; SrcBitmap: TBitmap); overload; |
|
procedure Draw(X,Y: Integer; SrcBitmap: TBGRACustomBitmap); overload; |
|
procedure DrawFocusRect(bounds: TRect); |
|
procedure Ellipse(const bounds: TRect); |
|
procedure Ellipse(x1,y1,x2,y2: integer); |
|
procedure EllipseC(x,y,rx,ry: integer); |
|
procedure FillRect(const bounds: TRect); |
|
procedure FillRect(x1,y1,x2,y2: integer); |
|
procedure FloodFill(X, Y: Integer); |
|
procedure FloodFill(X, Y: Integer; FillColor: TBGRAPixel; FillStyle: TFillStyle); |
|
procedure FloodFill(X, Y: Integer; FillColor: TColor; FillStyle: TFillStyle); |
|
procedure Frame(const bounds: TRect); |
|
procedure Frame(x1,y1,x2,y2: integer); |
|
procedure Frame3D(var bounds: TRect; width: integer; Style: TGraphicsBevelCut); overload; |
|
procedure Frame3D(var bounds: TRect; width: integer; Style: TGraphicsBevelCut; LightColor: TBGRAPixel; ShadowColor: TBGRAPixel); overload; |
|
procedure FrameRect(x1,y1,x2,y2: integer; width: integer = 1); |
|
procedure FrameRect(const bounds: TRect; width: integer = 1); |
|
procedure GradientFill(ARect: TRect; AStart, AStop: TColor; ADirection: TGradientDirection; GammaCorrection: Boolean = false); |
|
procedure Line(p1,p2: TPoint); overload; |
|
procedure Line(x1,y1,x2,y2: integer); overload; |
|
procedure LineTo(x,y: integer); overload; |
|
procedure LineTo(p: TPoint); overload; |
|
procedure MoveTo(p: TPoint); overload; |
|
procedure MoveTo(x,y: integer); overload; |
|
procedure Pie(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
procedure Pie(x1,y1,x2,y2,sx,sy,ex,ey: integer); |
|
procedure PolyBezier(const Points: array of TPoint; Filled: boolean = False; Continuous: boolean = False); |
|
procedure PolyBezier(Points: PPoint; NumPts: Integer; Filled: boolean = False; Continuous: boolean = False); |
|
procedure Polygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); |
|
procedure Polygon(const Points: array of TPoint; Winding: Boolean; StartIndex: Integer = 0; NumPts: Integer = -1); |
|
procedure Polygon(const APoints: array of TPoint); |
|
procedure PolygonF(const APoints: array of TPointF; Winding: Boolean; FillOnly: Boolean = False); |
|
procedure PolygonF(const APoints: array of TPointF); |
|
procedure Polyline(Points: PPoint; NumPts: Integer); |
|
procedure Polyline(const Points: array of TPoint; StartIndex: Integer; NumPts: Integer = -1); |
|
procedure Polyline(const APoints: array of TPoint); |
|
procedure PolylineF(const APoints: array of TPointF); |
|
procedure RadialPie(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
procedure Rectangle(x1,y1,x2,y2: integer; Filled: Boolean = True); |
|
procedure Rectangle(const bounds: TRect; Filled: Boolean = True); |
|
procedure RoundRect(const bounds: TRect; dx,dy: integer); |
|
procedure RoundRect(x1,y1,x2,y2: integer; dx,dy: integer); |
|
procedure SetBrush(const AValue: TBGRABrush); |
|
procedure SetPen(const AValue: TBGRAPen); |
|
procedure SetPixelColor(X, Y: Integer; const AValue: TColor); |
|
procedure StretchDraw(DestRect: TRect; SrcBitmap: TBGRACustomBitmap; HorizFlip: Boolean = false; VertFlip: Boolean = false); |
|
procedure TextOut(X,Y: Integer; const Text: String; RightToLeft: boolean = false); |
|
procedure TextRect(const ARect: TRect; X, Y: integer; const Text: string); |
|
procedure TextRect(ARect: TRect; X, Y: integer; const Text: string; const Style: TTextStyle); |
|
procedure ApplyFont; |
|
procedure ApplyPenStyle; |
Properties
|
property Brush: TBGRABrush read FBrush write SetBrush; |
|
property Clipping: Boolean read GetClipping write SetClipping; |
|
property ClipRect: TRect read GetClipRect write SetClipRect; |
|
property Colors[X,Y: Integer]: TFPColor read GetFPPixelColor write SetFPPixelColor; |
|
property Font: TBGRAFont read FFont write SetFont; |
|
property GammaExpandedPixels[X,Y: Integer]: TExpandedPixel read GetExpandedPixel write SetExpandedPixel; |
|
property Height: integer read GetHeight; |
|
property Pen: TBGRAPen read FPen write SetPen; |
|
property PenPos : TPoint read FPenPos write FPenPos; |
|
property Pixels[X,Y: Integer]: TColor read GetPixelColor write SetPixelColor; |
|
property Width : integer read GetWidth; |
Description
Fields
|
AntialiasingMode: TAntialiasingMode; |
|
This item has no description. | |
|
DrawFontBackground: boolean; |
|
This item has no description. | |
|
FBitmap: TBGRACustomBitmap; |
|
This item has no description. | |
|
FBrush: TBGRABrush; |
|
This item has no description. | |
|
FClippingOn: Boolean; |
|
This item has no description. | |
|
FFont: TBGRAFont; |
|
This item has no description. | |
|
FillMode: TFillMode; |
|
This item has no description. | |
|
FInactiveClipRect: TRect; |
|
This item has no description. | |
|
FPen: TBGRAPen; |
|
This item has no description. | |
|
FPenPos: TPoint; |
|
This item has no description. | |
|
TextStyle: TTextStyle; |
|
This item has no description. | |
Methods
|
constructor Create(ABitmap: TBGRACustomBitmap); |
|
This item has no description. | |
|
destructor Destroy; override; |
|
This item has no description. | |
|
function GetPixelColor(X, Y: Integer): TColor; |
|
This item has no description. | |
|
function TextExtent(const Text: string): TSize; |
|
This item has no description. | |
|
function TextHeight(const Text: string): Integer; |
|
This item has no description. | |
|
function TextWidth(const Text: string): Integer; |
|
This item has no description. | |
|
function NoBrush: boolean; |
|
This item has no description. | |
|
function NoPen: boolean; |
|
This item has no description. | |
|
procedure Arc(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
This item has no description. | |
|
procedure Arc(x1,y1,x2,y2,sx,sy,ex,ey: integer); |
|
This item has no description. | |
|
procedure Arc65536(x1,y1,x2,y2: integer; start65536,end65536: word; Options: TArcOptions); |
|
This item has no description. | |
|
procedure Chord(x1,y1,x2,y2,sx,sy,ex,ey: integer); |
|
This item has no description. | |
|
procedure Chord(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
This item has no description. | |
|
procedure CopyRect(X,Y: Integer; SrcBitmap: TBGRACustomBitmap; SrcRect: TRect); |
|
This item has no description. | |
|
procedure CopyRect(Dest: TRect; SrcBmp: TBGRACustomBitmap; Source: TRect); virtual; |
|
This item has no description. | |
|
procedure Draw(X,Y: Integer; SrcBitmap: TBitmap); overload; |
|
This item has no description. | |
|
procedure Draw(X,Y: Integer; SrcBitmap: TBGRACustomBitmap); overload; |
|
This item has no description. | |
|
procedure DrawFocusRect(bounds: TRect); |
|
This item has no description. | |
|
procedure Ellipse(const bounds: TRect); |
|
This item has no description. | |
|
procedure Ellipse(x1,y1,x2,y2: integer); |
|
This item has no description. | |
|
procedure EllipseC(x,y,rx,ry: integer); |
|
This item has no description. | |
|
procedure FillRect(const bounds: TRect); |
|
This item has no description. | |
|
procedure FillRect(x1,y1,x2,y2: integer); |
|
This item has no description. | |
|
procedure FloodFill(X, Y: Integer); |
|
This item has no description. | |
|
procedure FloodFill(X, Y: Integer; FillColor: TBGRAPixel; FillStyle: TFillStyle); |
|
This item has no description. | |
|
procedure FloodFill(X, Y: Integer; FillColor: TColor; FillStyle: TFillStyle); |
|
This item has no description. | |
|
procedure Frame(const bounds: TRect); |
|
This item has no description. | |
|
procedure Frame(x1,y1,x2,y2: integer); |
|
This item has no description. | |
|
procedure Frame3D(var bounds: TRect; width: integer; Style: TGraphicsBevelCut); overload; |
|
This item has no description. | |
|
procedure Frame3D(var bounds: TRect; width: integer; Style: TGraphicsBevelCut; LightColor: TBGRAPixel; ShadowColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure FrameRect(x1,y1,x2,y2: integer; width: integer = 1); |
|
This item has no description. | |
|
procedure FrameRect(const bounds: TRect; width: integer = 1); |
|
This item has no description. | |
|
procedure GradientFill(ARect: TRect; AStart, AStop: TColor; ADirection: TGradientDirection; GammaCorrection: Boolean = false); |
|
This item has no description. | |
|
procedure Line(p1,p2: TPoint); overload; |
|
This item has no description. | |
|
procedure Line(x1,y1,x2,y2: integer); overload; |
|
This item has no description. | |
|
procedure LineTo(x,y: integer); overload; |
|
This item has no description. | |
|
procedure LineTo(p: TPoint); overload; |
|
This item has no description. | |
|
procedure MoveTo(p: TPoint); overload; |
|
This item has no description. | |
|
procedure MoveTo(x,y: integer); overload; |
|
This item has no description. | |
|
procedure Pie(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
This item has no description. | |
|
procedure Pie(x1,y1,x2,y2,sx,sy,ex,ey: integer); |
|
This item has no description. | |
|
procedure PolyBezier(const Points: array of TPoint; Filled: boolean = False; Continuous: boolean = False); |
|
This item has no description. | |
|
procedure PolyBezier(Points: PPoint; NumPts: Integer; Filled: boolean = False; Continuous: boolean = False); |
|
This item has no description. | |
|
procedure Polygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); |
|
This item has no description. | |
|
procedure Polygon(const Points: array of TPoint; Winding: Boolean; StartIndex: Integer = 0; NumPts: Integer = -1); |
|
This item has no description. | |
|
procedure Polygon(const APoints: array of TPoint); |
|
This item has no description. | |
|
procedure PolygonF(const APoints: array of TPointF; Winding: Boolean; FillOnly: Boolean = False); |
|
This item has no description. | |
|
procedure PolygonF(const APoints: array of TPointF); |
|
This item has no description. | |
|
procedure Polyline(Points: PPoint; NumPts: Integer); |
|
This item has no description. | |
|
procedure Polyline(const Points: array of TPoint; StartIndex: Integer; NumPts: Integer = -1); |
|
This item has no description. | |
|
procedure Polyline(const APoints: array of TPoint); |
|
This item has no description. | |
|
procedure PolylineF(const APoints: array of TPointF); |
|
This item has no description. | |
|
procedure RadialPie(x1,y1,x2,y2,StartDeg16,LengthDeg16: integer); |
|
This item has no description. | |
|
procedure Rectangle(x1,y1,x2,y2: integer; Filled: Boolean = True); |
|
This item has no description. | |
|
procedure Rectangle(const bounds: TRect; Filled: Boolean = True); |
|
This item has no description. | |
|
procedure RoundRect(const bounds: TRect; dx,dy: integer); |
|
This item has no description. | |
|
procedure RoundRect(x1,y1,x2,y2: integer; dx,dy: integer); |
|
This item has no description. | |
|
procedure SetBrush(const AValue: TBGRABrush); |
|
This item has no description. | |
|
procedure SetPen(const AValue: TBGRAPen); |
|
This item has no description. | |
|
procedure SetPixelColor(X, Y: Integer; const AValue: TColor); |
|
This item has no description. | |
|
procedure StretchDraw(DestRect: TRect; SrcBitmap: TBGRACustomBitmap; HorizFlip: Boolean = false; VertFlip: Boolean = false); |
|
This item has no description. | |
|
procedure TextOut(X,Y: Integer; const Text: String; RightToLeft: boolean = false); |
|
This item has no description. | |
|
procedure TextRect(const ARect: TRect; X, Y: integer; const Text: string); |
|
This item has no description. | |
|
procedure TextRect(ARect: TRect; X, Y: integer; const Text: string; const Style: TTextStyle); |
|
This item has no description. | |
|
procedure ApplyFont; |
|
This item has no description. | |
|
procedure ApplyPenStyle; |
|
This item has no description. | |
Properties
|
property Brush: TBGRABrush read FBrush write SetBrush; |
|
This item has no description. | |
|
property Clipping: Boolean read GetClipping write SetClipping; |
|
This item has no description. | |
|
property ClipRect: TRect read GetClipRect write SetClipRect; |
|
This item has no description. | |
|
property Colors[X,Y: Integer]: TFPColor read GetFPPixelColor write SetFPPixelColor; |
|
This item has no description. | |
|
property Font: TBGRAFont read FFont write SetFont; |
|
This item has no description. | |
|
property GammaExpandedPixels[X,Y: Integer]: TExpandedPixel read GetExpandedPixel write SetExpandedPixel; |
|
This item has no description. | |
|
property Height: integer read GetHeight; |
|
This item has no description. | |
|
property Pen: TBGRAPen read FPen write SetPen; |
|
This item has no description. | |
|
property PenPos : TPoint read FPenPos write FPenPos; |
|
This item has no description. | |
|
property Pixels[X,Y: Integer]: TColor read GetPixelColor write SetPixelColor; |
|
This item has no description. | |
|
property Width : integer read GetWidth; |
|
This item has no description. | |