paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 22:47:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: clean up

Browse Source 
git-svn-id: trunk@48355 -
This commit is contained in:
mattias 2015-03-15 10:19:37 +00:00
parent 7dcab79a7f
commit 4b7419bb8f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/ttgload.pas
View File

@ -122,7 +122,7 @@ const
var
left_bearing, advance : TT_Pos;
begin
TT_Get_Metrics( face^.horizontalHeader, index, left_bearing{%H-}, advance {%H-});
TT_Get_Metrics( face^.horizontalHeader, index, left_bearing{%H-}, advance{%H-});
lsb := Int(left_bearing);
aw := Int(advance);