Forum > LazUtils
[LazFreeType]Bug in LazFreeType?
(1/1)
zamtmn:
Сollided with incomprehensible behavior LazFreeType. The work of the module depends on the sequence loading fonts.
If load font times.ttf first (patch for \lazarus\examples\lazfreetype\mainform.pas):
--- Code: ---Index: mainform.pas
===================================================================
--- mainform.pas (revision 40361)
+++ mainform.pas (working copy)
@@ -67,13 +67,13 @@
try
ftFont1 := TFreeTypeFont.Create;
- ftFont1.Name := 'arial.ttf';
+ ftFont1.Name := 'c:\windows\fonts\times.ttf';
ftFont2 := TFreeTypeFont.Create;
- ftFont2.Name := 'timesi.ttf';
+ ftFont2.Name := 'c:\windows\fonts\ariali.ttf';
ftFont3 := TFreeTypeFont.Create;
- ftFont3.Name := 'verdana.ttf';
+ ftFont3.Name := 'c:\windows\fonts\arial.ttf';
except
on ex: Exception do
begin
--- End code ---
everything works.
If you load it last
--- Code: ---Index: mainform.pas
===================================================================
--- mainform.pas (revision 40361)
+++ mainform.pas (working copy)
@@ -67,13 +67,13 @@
try
ftFont1 := TFreeTypeFont.Create;
- ftFont1.Name := 'arial.ttf';
+ ftFont1.Name := 'c:\windows\fonts\arial.ttf';
ftFont2 := TFreeTypeFont.Create;
- ftFont2.Name := 'timesi.ttf';
+ ftFont2.Name := 'c:\windows\fonts\ariali.ttf';
ftFont3 := TFreeTypeFont.Create;
- ftFont3.Name := 'verdana.ttf';
+ ftFont3.Name := 'c:\windows\fonts\times.ttf';
except
on ex: Exception do
begin
--- End code ---
it does not appear and glyph^.outline.points^[] returns only zeros
circular:
Does it do that bug in latest svn ?
zamtmn:
Yes. svn40361
circular:
Oh maybe last patches have not been applied, see here :
http://www.lazarus.freepascal.org/index.php/topic,16399.msg114230.html#msg114230
zamtmn:
Thanks, patches fix a bug
Navigation
[0] Message Index