paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 09:04:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Glyph drawer for LazFreeType. Issue #28079, patch from Johann.

Browse Source 
git-svn-id: trunk@49106 -
This commit is contained in:
juha 2015-05-19 16:13:42 +00:00
parent 09eff40893
commit 09ad3abd3c
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/lazfreetypeintfdrawer.pas
View File

@ -47,7 +47,8 @@ type
procedure DrawHorizLine(x1,y,x2: integer; const c: TFPColor);
procedure FillRect(x,y,x2,y2: integer; const c: TFPColor; ASetPixels: boolean = True);
procedure FillPixels(const c: TFPColor; ASetPixels: boolean = True);
procedure DrawText(AText: string; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TFPColor); override;
procedure DrawText(AText: string; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TFPColor); override; overload;
procedure DrawGlyph(AGlyph: integer; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TFPColor); override; overload;
property Destination: TLazIntfImage read FDestination write SetDestination;
destructor Destroy; override;
end;
@ -723,6 +724,21 @@ begin
AFont.RenderText(AText, x, y, rect(0,0,Destination.Width,Destination.Height), @RenderDirectly);
end;
procedure TIntfFreeTypeDrawer.DrawGlyph(AGlyph: integer;
AFont: TFreeTypeRenderableFont; x, y: single; AColor: TFPColor);
var f: TFreeTypeFont;
begin
if AFont is TFreeTypeFont then
begin
f := TFreeTypeFont(AFont);
FColor := AColor;
if AFont.ClearType then
f.RenderGlyph(AGlyph, x, y, rect(0,0,Destination.Width,Destination.Height), @RenderDirectlyClearType)
else
f.RenderGlyph(AGlyph, x, y, rect(0,0,Destination.Width,Destination.Height), @RenderDirectly);
end;
end;
destructor TIntfFreeTypeDrawer.Destroy;
begin
inherited Destroy;