Class TFirePainter

Unit

Declaration

type TFirePainter = class(TObject)

Description

Hierarchy

Overview

Methods

Public constructor Create(Canvas: TCanvas; AbsoluteOpacity: Single = 1.0); overload;
Public constructor Create(Control: TControl); overload;
Public destructor Destroy; override;
Public function GetFont: TFont;
Public procedure SetFont(const Font: TFont);
Public procedure DrawRect(const R: TRect; const Color: TAlphaColor); overload;
Public procedure DrawRect(const R: TRect); overload;
Public procedure DrawRoundedRect(const R: TRect; const Color: TAlphaColor; RadiusX, RadiusY: Integer);
Public procedure FillRect(const R: TRect; const Color: TAlphaColor); overload;
Public procedure FillRect(const R: TRect; const Brush: TBrush); overload;
Public procedure FillRoundedRect(const R: TRect; const Color: TAlphaColor; RadiusX, RadiusY: Integer);
Public procedure DrawLine(const P1: TPoint; const P2: TPoint); overload;
Public procedure DrawLine(const Line: TFireLine); overload;
Public procedure Translate(const OffsetX, OffsetY: Integer);
Public procedure SetScale(const AScaleX, AScaleY: Integer);
Public procedure Rotate(const Angle: Integer);
Public procedure DrawText(const R: TRect; const Text: String; const WordWrap: Boolean; const Flags: TFillTextFlags; const Alignment: TAlignment = TAlignment.taLeftJustify; VerticalAlignment: TVerticalAlignment = TVerticalAlignment.taVerticalCenter; Trimming: TTextTrimming = TTextTrimming.None);
Public procedure DrawBitmap(const Pos: TPoint; const Bitmap: TBitmap; const SrcRect: TRect; HighSpeed: Boolean = True); overload;
Public procedure DrawBitmap(const R: TRect; const Bitmap: TBitmap; const SrcRect: TRect; HighSpeed: Boolean = True); overload;
Public procedure DrawBitmap(const Pos: TPoint; const Bitmap: TBitmap; HighSpeed: Boolean = True); overload;
Public procedure DrawBitmap(const R: TRect; const Bitmap: TBitmap; HighSpeed: Boolean = True); overload;
Public procedure DrawPolygon(const Points: TPolygon);
Public procedure FillPolygon(const Points: TPolygon);
Public procedure DrawPath(Path: TFirePainterPath);
Public procedure FillPath(Path: TFirePainterPath; const ABrush: TBrush = nil);
Public procedure SetPenColor(const Color: TAlphaColor);
Public procedure SetFillColor(const Color: TAlphaColor);
Public procedure SetPenDash(Dash: TStrokeDash);
Public procedure SetPenThickness(const Thickness: Integer);
Public procedure SetPenBrush(const Brush: TBrush);
Public procedure SetTextColor(const Color: TAlphaColor);
Public procedure SetPlatformCanvas(Canvas: TCanvas);
Public procedure Clear(const Color: TAlphaColor);
Public procedure ClearRect(const R: TRect; const Color: TAlphaColor);
Public procedure IntersectClipRect(const R: TRect);
Public function FromPixelRect(const R: TRect): TRectF;
Public function FromPixelPoint(const P: TPoint): TPointF;
Public function ToPixelRect(const R: TRectF): TRect;
Public function ToPixelPoint(const P: TPointF): TPoint;
Public function GetScaleFactor: Single;
Public function BoundedText(const Text: String; const WordWrap: Boolean = False; const Font: TFont = nil): TSize; overload;
Public function BoundedText(const Rect: TRect; const Text: String; const WordWrap: Boolean = False; const Font: TFont = nil): TSize; overload;
Public function FontHeight(const Font: TFont = nil): Integer;
Public procedure Save;
Public procedure Restore;

Properties

Public property PlatformCanvas: TCanvas read FPlatformCanvas;
Public property Opacity: Single read GetOpacity write FOpacity;
Public property Font: TFont read GetFont write SetFont;
Public property ScaleFactor: Single read GetScaleFactor;

Description

Methods

Public constructor Create(Canvas: TCanvas; AbsoluteOpacity: Single = 1.0); overload;
 
Public constructor Create(Control: TControl); overload;
 
Public destructor Destroy; override;
 
Public function GetFont: TFont;
 
Public procedure SetFont(const Font: TFont);
 
Public procedure DrawRect(const R: TRect; const Color: TAlphaColor); overload;
 
Public procedure DrawRect(const R: TRect); overload;
 
Public procedure DrawRoundedRect(const R: TRect; const Color: TAlphaColor; RadiusX, RadiusY: Integer);
 
Public procedure FillRect(const R: TRect; const Color: TAlphaColor); overload;
 
Public procedure FillRect(const R: TRect; const Brush: TBrush); overload;
 
Public procedure FillRoundedRect(const R: TRect; const Color: TAlphaColor; RadiusX, RadiusY: Integer);
 
Public procedure DrawLine(const P1: TPoint; const P2: TPoint); overload;
 
Public procedure DrawLine(const Line: TFireLine); overload;
 
Public procedure Translate(const OffsetX, OffsetY: Integer);
 
Public procedure SetScale(const AScaleX, AScaleY: Integer);
 
Public procedure Rotate(const Angle: Integer);
 
Public procedure DrawText(const R: TRect; const Text: String; const WordWrap: Boolean; const Flags: TFillTextFlags; const Alignment: TAlignment = TAlignment.taLeftJustify; VerticalAlignment: TVerticalAlignment = TVerticalAlignment.taVerticalCenter; Trimming: TTextTrimming = TTextTrimming.None);
 
Public procedure DrawBitmap(const Pos: TPoint; const Bitmap: TBitmap; const SrcRect: TRect; HighSpeed: Boolean = True); overload;
 
Public procedure DrawBitmap(const R: TRect; const Bitmap: TBitmap; const SrcRect: TRect; HighSpeed: Boolean = True); overload;
 
Public procedure DrawBitmap(const Pos: TPoint; const Bitmap: TBitmap; HighSpeed: Boolean = True); overload;
 
Public procedure DrawBitmap(const R: TRect; const Bitmap: TBitmap; HighSpeed: Boolean = True); overload;
 
Public procedure DrawPolygon(const Points: TPolygon);
 
Public procedure FillPolygon(const Points: TPolygon);
 
Public procedure DrawPath(Path: TFirePainterPath);
 
Public procedure FillPath(Path: TFirePainterPath; const ABrush: TBrush = nil);
 
Public procedure SetPenColor(const Color: TAlphaColor);
 
Public procedure SetFillColor(const Color: TAlphaColor);
 
Public procedure SetPenDash(Dash: TStrokeDash);
 
Public procedure SetPenThickness(const Thickness: Integer);
 
Public procedure SetPenBrush(const Brush: TBrush);
 
Public procedure SetTextColor(const Color: TAlphaColor);
 
Public procedure SetPlatformCanvas(Canvas: TCanvas);
 
Public procedure Clear(const Color: TAlphaColor);
 
Public procedure ClearRect(const R: TRect; const Color: TAlphaColor);
 
Public procedure IntersectClipRect(const R: TRect);
 
Public function FromPixelRect(const R: TRect): TRectF;
 
Public function FromPixelPoint(const P: TPoint): TPointF;
 
Public function ToPixelRect(const R: TRectF): TRect;
 
Public function ToPixelPoint(const P: TPointF): TPoint;
 
Public function GetScaleFactor: Single;
 
Public function BoundedText(const Text: String; const WordWrap: Boolean = False; const Font: TFont = nil): TSize; overload;
 
Public function BoundedText(const Rect: TRect; const Text: String; const WordWrap: Boolean = False; const Font: TFont = nil): TSize; overload;
 
Public function FontHeight(const Font: TFont = nil): Integer;
 
Public procedure Save;
 
Public procedure Restore;
 

Properties

Public property PlatformCanvas: TCanvas read FPlatformCanvas;
 
Public property Opacity: Single read GetOpacity write FOpacity;
 
Public property Font: TFont read GetFont write SetFont;
 
Public property ScaleFactor: Single read GetScaleFactor;
 

Generated by PasDoc 0.15.0.