paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-23 18:45:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Call LazFreeType.CheckInstance in GetCharIndex and make it public. Issue #28163, patch from Johann.

Browse Source 
git-svn-id: trunk@49146 -
This commit is contained in:
juha 2015-05-23 12:44:54 +00:00
parent 73d0bc5ed1
commit 824f9ac5d9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/easylazfreetype.pas
View File

@ -275,7 +275,6 @@ type
procedure FetchNames;
function GetCollection: TCustomFreeTypeFontCollection;
function CheckFace: boolean;
function CheckInstance: boolean;
public
Quality : TGlyphRenderQuality;
SmallLinePadding: boolean;
@ -293,6 +292,7 @@ type
function CharsWidth(AText: string): ArrayOfSingle;
function CharsPosition(AText: string): ArrayOfCharPosition; overload;
function CharsPosition(AText: string; AAlign: TFreeTypeAlignments): ArrayOfCharPosition; overload;
function CheckInstance: boolean;
property Name: String read FName write SetName;
property DPI: integer read GetDPI write SetDPI;
property SizeInPoints: single read FPointSize write SetPointSize;
@ -946,6 +946,11 @@ end;
function TFreeTypeFont.GetCharIndex(AUnicodeChar: integer): integer;
begin
if not CheckInstance then
begin
result := 0;
exit;
end;
if FCharmapOk then
begin
if FCharmapSymbol then