Class TBGLCustomFont
Unit
Declaration
type TBGLCustomFont = class(TInterfacedObject, IBGLFont)
Description
Abstract class for a font drawn on OpenGL canvas
Hierarchy
- TInterfacedObject
- TBGLCustomFont
Overview
Fields
 |
FFlags: LongWord; |
|
FHorizontalAlign: TAlignment; |
|
FJustify: boolean; |
|
FPadding: TRectF; |
|
FScale: single; |
|
FStepX: single; |
|
FVerticalAlign: TTextLayout; |
Methods
 |
constructor Create(AFilename: UTF8String); |
|
destructor Destroy; override; |
|
function TextHeight(const Text: UTF8String; AWidth: single): single; overload; virtual; abstract; |
|
function TextHeight(const Text: UTF8String): single; overload; virtual; abstract; |
|
function TextWidth(const Text: UTF8String): single; virtual; abstract; |
|
function GetClipped: boolean; virtual; abstract; |
|
function GetDefaultColor: TBGRAPixel; virtual; |
|
function GetHorizontalAlign: TAlignment; virtual; |
|
function GetJustify: boolean; virtual; |
|
function GetPadding: TRectF; |
|
function GetScale: single; virtual; |
|
function GetStepX: single; virtual; |
|
function GetUseGradientColors: boolean; virtual; abstract; |
|
function GetVerticalAlign: TTextLayout; virtual; |
|
function LoadFromFile(AFilename: UTF8String): boolean; virtual; abstract; |
|
procedure FreeMemory; virtual; |
|
procedure SetGradientColors(ATopLeft, ATopRight, ABottomRight, ABottomLeft: TBGRAPixel); virtual; abstract; |
|
procedure TextOut(X, Y: Single; const Text : UTF8String); overload; |
|
procedure TextOut(X, Y: Single; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
procedure TextOut(X, Y: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
procedure TextOut(X, Y: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AVertAlign: TTextLayout); overload; |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
procedure TextRect(ARect: TRect; const Text : UTF8String); overload; |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AVertAlign: TTextLayout); overload; |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String); overload; |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String); overload; |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AVertAlign: TTextLayout); overload; |
|
procedure DoTextOut(X, Y: Single; const Text : UTF8String; AColor: TBGRAPixel); virtual; abstract; |
|
procedure DoTextRect(X, Y, Width, Height: Single; const Text : UTF8String; AColor: TBGRAPixel); virtual; abstract; |
|
procedure FreeMemoryOnDestroy; virtual; |
|
procedure Init; virtual; |
|
procedure SetClipped(AValue: boolean); virtual; abstract; |
|
procedure SetHorizontalAlign(AValue: TAlignment); virtual; |
|
procedure SetJustify(AValue: boolean); virtual; |
|
procedure SetPadding(AValue: TRectF); virtual; |
|
procedure SetScale(AValue: single); virtual; |
|
procedure SetStepX(AValue: single); virtual; |
|
procedure SetUseGradientColors(AValue: boolean); virtual; abstract; |
|
procedure SetVerticalAlign(AValue: TTextLayout); virtual; |
|
procedure SwapRectIfNeeded(var ARect: TRect); overload; |
|
procedure SwapRectIfNeeded(var ARect: TRectF); overload; |
Properties
|
property Clipped: boolean read GetClipped write SetClipped; |
|
property GradientColors: boolean read GetUseGradientColors write SetUseGradientColors; |
|
property HorizontalAlign: TAlignment read GetHorizontalAlign write SetHorizontalAlign; |
|
property Justify: boolean read GetJustify write SetJustify; |
|
property Padding: TRectF read GetPadding write SetPadding; |
|
property Scale: single read GetScale write SetScale; |
|
property StepX: single read GetStepX write SetStepX; |
|
property VerticalAlign: TTextLayout read GetVerticalAlign write SetVerticalAlign; |
Description
Fields
|
FFlags: LongWord; |
|
This item has no description. | |
|
FHorizontalAlign: TAlignment; |
|
This item has no description. | |
|
FJustify: boolean; |
|
This item has no description. | |
|
FPadding: TRectF; |
|
This item has no description. | |
|
FScale: single; |
|
This item has no description. | |
|
FStepX: single; |
|
This item has no description. | |
|
FVerticalAlign: TTextLayout; |
|
This item has no description. | |
Methods
|
constructor Create(AFilename: UTF8String); |
|
This item has no description. | |
|
destructor Destroy; override; |
|
This item has no description. | |
|
function TextHeight(const Text: UTF8String; AWidth: single): single; overload; virtual; abstract; |
|
This item has no description. | |
|
function TextHeight(const Text: UTF8String): single; overload; virtual; abstract; |
|
This item has no description. | |
|
function TextWidth(const Text: UTF8String): single; virtual; abstract; |
|
This item has no description. | |
|
function GetClipped: boolean; virtual; abstract; |
|
This item has no description. | |
|
function GetDefaultColor: TBGRAPixel; virtual; |
|
This item has no description. | |
|
function GetHorizontalAlign: TAlignment; virtual; |
|
This item has no description. | |
|
function GetJustify: boolean; virtual; |
|
This item has no description. | |
|
function GetPadding: TRectF; |
|
This item has no description. | |
|
function GetScale: single; virtual; |
|
This item has no description. | |
|
function GetStepX: single; virtual; |
|
This item has no description. | |
|
function GetUseGradientColors: boolean; virtual; abstract; |
|
This item has no description. | |
|
function GetVerticalAlign: TTextLayout; virtual; |
|
This item has no description. | |
|
function LoadFromFile(AFilename: UTF8String): boolean; virtual; abstract; |
|
This item has no description. | |
|
procedure FreeMemory; virtual; |
|
This item has no description. | |
|
procedure SetGradientColors(ATopLeft, ATopRight, ABottomRight, ABottomLeft: TBGRAPixel); virtual; abstract; |
|
This item has no description. | |
|
procedure TextOut(X, Y: Single; const Text : UTF8String); overload; |
|
This item has no description. | |
|
procedure TextOut(X, Y: Single; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextOut(X, Y: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextOut(X, Y: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AVertAlign: TTextLayout); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
This item has no description. | |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRect; const Text : UTF8String); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout = tlTop); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AVertAlign: TTextLayout); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRect; const Text : UTF8String; AHorizAlign: TAlignment; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String); overload; |
|
This item has no description. | |
|
procedure TextRect(ARect: TRectF; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String); overload; |
|
This item has no description. | |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AVertAlign: TTextLayout; AColor: TBGRAPixel); overload; |
|
This item has no description. | |
|
procedure TextRect(X, Y, Width, Height: Single; const Text : UTF8String; AVertAlign: TTextLayout); overload; |
|
This item has no description. | |
|
procedure DoTextOut(X, Y: Single; const Text : UTF8String; AColor: TBGRAPixel); virtual; abstract; |
|
This item has no description. | |
|
procedure DoTextRect(X, Y, Width, Height: Single; const Text : UTF8String; AColor: TBGRAPixel); virtual; abstract; |
|
This item has no description. | |
|
procedure FreeMemoryOnDestroy; virtual; |
|
This item has no description. | |
|
procedure Init; virtual; |
|
This item has no description. | |
|
procedure SetClipped(AValue: boolean); virtual; abstract; |
|
This item has no description. | |
|
procedure SetHorizontalAlign(AValue: TAlignment); virtual; |
|
This item has no description. | |
|
procedure SetJustify(AValue: boolean); virtual; |
|
This item has no description. | |
|
procedure SetPadding(AValue: TRectF); virtual; |
|
This item has no description. | |
|
procedure SetScale(AValue: single); virtual; |
|
This item has no description. | |
|
procedure SetStepX(AValue: single); virtual; |
|
This item has no description. | |
|
procedure SetUseGradientColors(AValue: boolean); virtual; abstract; |
|
This item has no description. | |
|
procedure SetVerticalAlign(AValue: TTextLayout); virtual; |
|
This item has no description. | |
|
procedure SwapRectIfNeeded(var ARect: TRect); overload; |
|
This item has no description. | |
|
procedure SwapRectIfNeeded(var ARect: TRectF); overload; |
|
This item has no description. | |
Properties
|
property Clipped: boolean read GetClipped write SetClipped; |
|
This item has no description. | |
|
property GradientColors: boolean read GetUseGradientColors write SetUseGradientColors; |
|
This item has no description. | |
|
property HorizontalAlign: TAlignment read GetHorizontalAlign write SetHorizontalAlign; |
|
This item has no description. | |
|
property Justify: boolean read GetJustify write SetJustify; |
|
This item has no description. | |
|
property Padding: TRectF read GetPadding write SetPadding; |
|
This item has no description. | |
|
property Scale: single read GetScale write SetScale; |
|
This item has no description. | |
|
property StepX: single read GetStepX write SetStepX; |
|
This item has no description. | |
|
property VerticalAlign: TTextLayout read GetVerticalAlign write SetVerticalAlign; |
|
This item has no description. | |