paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-26 21:43:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazFreeType: Move Hinted property to the TFreeTypeRenderableFont. Implement hinting for centered text.

Browse Source 
Based on patch by "circular".

git-svn-id: trunk@40130 -
This commit is contained in:
ask 2013-02-02 23:14:39 +00:00
parent c74596dc57
commit 3c8243bd4c
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazutils/easylazfreetype.pas
View File

@ -151,6 +151,8 @@ type
function GetDescent: single; virtual; abstract;
function GetLineSpacing: single; virtual; abstract;
procedure DefaultWordBreakHandler(var ABefore, AAfter: string);
function GetHinted: boolean; virtual; abstract;
procedure SetHinted(const AValue: boolean); virtual; abstract;
public
function TextWidth(AText: string): single; virtual; abstract;
function TextHeight(AText: string): single; virtual; abstract;
@ -163,6 +165,7 @@ type
property Descent: single read GetDescent;
property LineSpacing: single read GetLineSpacing;
property LineFullHeight: single read GetLineFullHeight;
property Hinted: boolean read GetHinted write SetHinted;
property OnWordBreak: TFreeTypeWordBreakHandler read FWordBreakHandler write FWordBreakHandler;
end;
@ -206,7 +209,6 @@ type
function GetVersionNumber: string;
procedure SetDPI(const AValue: integer);
procedure SetFreeTypeStyles(AValue: TFreeTypeStyles);
procedure SetHinted(const AValue: boolean);
procedure SetLineFullHeight(AValue: single);
procedure SetStyleAsString(AValue: string);
procedure UpdateFace(const AName: String);
@ -238,6 +240,8 @@ type
function GetAscent: single; override;
function GetDescent: single; override;
function GetLineSpacing: single; override;
procedure SetHinted(const AValue: boolean); override;
function GetHinted: boolean; override;
procedure OnDestroyFontItem;
procedure FetchNames;
function GetCollection: TCustomFreeTypeFontCollection;
@ -518,6 +522,7 @@ end;
procedure TFreeTypeDrawer.DrawText(AText: string;
AFont: TFreeTypeRenderableFont; x, y: single; AColor: TFPColor; AAlign: TFreeTypeAlignments);
var idx : integer;
delta: single;
begin
if not (ftaBaseline in AAlign) then
begin
@ -541,10 +546,13 @@ begin
if not (ftaLeft in AAlign) then
begin
delta := 0;
if ftaCenter in AAlign then
x -= AFont.TextWidth(AText)/2 else
delta := -AFont.TextWidth(AText)/2 else
if ftaRight in AAlign then
x -= AFont.TextWidth(AText);
delta := -AFont.TextWidth(AText);
if AFont.Hinted then delta := round(delta);
x += delta;
end;
DrawText(AText, AFont, x,y, AColor);
end;
@ -961,6 +969,11 @@ begin
FGlyphTable.FreeAndClear;
end;
function TFreeTypeFont.GetHinted: boolean;
begin
result := FHinted;
end;
procedure TFreeTypeFont.SetLineFullHeight(AValue: single);
var Ratio: single;
begin