paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-14 19:36:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazFreeType: Move OnRenderText event to TFreeTypeRenderableFont. Patch by "circular".

Browse Source 
git-svn-id: trunk@40134 -
This commit is contained in:
ask 2013-02-03 00:09:36 +00:00
parent f62e7a3b8d
commit 4694ce68f5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/easylazfreetype.pas
View File

@ -139,11 +139,14 @@ type
{***************************** Rendering classes *********************************}
TOnRenderTextHandler = procedure(AText: string; x,y: single) of object;
{ TFreeTypeRenderableFont }
TFreeTypeRenderableFont = class
protected
FWordBreakHandler: TFreeTypeWordBreakHandler;
FOnRenderText: TOnRenderTextHandler;
function GetClearType: boolean; virtual; abstract;
procedure SetClearType(const AValue: boolean); virtual; abstract;
function GetLineFullHeight: single; virtual; abstract;
@ -167,6 +170,7 @@ type
property LineFullHeight: single read GetLineFullHeight;
property Hinted: boolean read GetHinted write SetHinted;
property OnWordBreak: TFreeTypeWordBreakHandler read FWordBreakHandler write FWordBreakHandler;
property OnRenderText: TOnRenderTextHandler read FOnRenderText write FOnRenderText;
end;
{ TFreeTypeDrawer }
@ -182,8 +186,6 @@ type
{********************************* Font implementation **********************************}
TOnRenderTextHandler = procedure(AText: string; x,y: single) of object;
{ TFreeTypeFont }
TFreeTypeFont = class(TFreeTypeRenderableFont)
@ -196,7 +198,6 @@ type
FClearType: boolean;
FNamesArray: array of string;
FCollection: TCustomFreeTypeFontCollection;
FOnRenderText: TOnRenderTextHandler;
function FindGlyphNode(Index: Integer): TAvgLvlTreeNode;
function GetCharIndex(AChar: integer): integer;
function GetDPI: integer;
@ -275,7 +276,6 @@ type
property Collection: TCustomFreeTypeFontCollection read GetCollection write FCollection;
property StyleAsString: string read FStyleStr write SetStyleAsString;
property Style: TFreeTypeStyles read GetFreeTypeStyles write SetFreeTypeStyles;
property OnRenderText: TOnRenderTextHandler read FOnRenderText write FOnRenderText;
end;
{ TFreeTypeGlyph }