Commit a85a3d9e authored by Michael W. Vogel's avatar Michael W. Vogel
Browse files

LazUtils: Missing TFPImageFreeTypeDrawer.DrawGlyph added. Issue #35032. Patch from Ondrej Pokorny

git-svn-id: trunk@60363 -
parent 20355397
......@@ -53,6 +53,7 @@ type
procedure DrawHorizLine(x1,y,x2: integer; const c: TFPColor);
procedure FillPixels(const c: TFPColor);
procedure DrawText(AText: string; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TFPColor); override;
procedure DrawGlyph(AGlyph: integer; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TFPColor); override;
destructor Destroy; override;
property Image: TFPCustomImage read FImage;
end;
......@@ -455,6 +456,21 @@ begin
inherited Destroy;
end;
procedure TFPImageFreeTypeDrawer.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, GetClipRect, @RenderDirectlyClearType)
else
f.RenderGlyph(AGlyph, x, y, GetClipRect, @RenderDirectly);
end;
end;
{ TFPImageWithScanlineFreeTypeDrawer }
procedure TFPImageWithScanlineFreeTypeDrawer.MoveToPixel(x, y: integer);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment