diff --git a/examples/lazfreetype/lazfreetypetest.lpi b/examples/lazfreetype/lazfreetypetest.lpi index 910d3f6134..59483c4802 100644 --- a/examples/lazfreetype/lazfreetypetest.lpi +++ b/examples/lazfreetype/lazfreetypetest.lpi @@ -1,4 +1,4 @@ - + @@ -17,8 +17,38 @@ - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -39,7 +69,6 @@ - @@ -47,7 +76,6 @@ - @@ -61,9 +89,24 @@ + + + + + + + + + + + + + + + @@ -71,12 +114,6 @@ - - - - - - diff --git a/examples/lazfreetype/lazfreetypetest.res b/examples/lazfreetype/lazfreetypetest.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/lazfreetype/lazfreetypetest.res and b/examples/lazfreetype/lazfreetypetest.res differ diff --git a/examples/lazfreetype/mainform.lfm b/examples/lazfreetype/mainform.lfm index 8543dce4ca..e0ce3e6056 100644 --- a/examples/lazfreetype/mainform.lfm +++ b/examples/lazfreetype/mainform.lfm @@ -14,7 +14,7 @@ object Form1: TForm1 OnPaint = FormPaint OnShow = FormShow Position = poDefault - LCLVersion = '1.1' + LCLVersion = '1.7' object Panel_Option: TPanel Left = 0 Height = 40 @@ -50,15 +50,15 @@ object Form1: TForm1 end object Label1: TLabel Left = 6 - Height = 13 + Height = 15 Top = 12 - Width = 26 + Width = 32 Caption = 'Zoom' ParentColor = False end object SpinEdit_Zoom: TSpinEdit Left = 48 - Height = 21 + Height = 23 Top = 8 Width = 40 MaxValue = 9 @@ -68,10 +68,10 @@ object Form1: TForm1 Value = 1 end object CheckBox_Rect: TCheckBox - Left = 393 - Height = 17 + Left = 392 + Height = 19 Top = 10 - Width = 42 + Width = 43 Anchors = [akTop, akRight] Caption = 'Rect' OnChange = CheckBox_RectChange diff --git a/examples/lazfreetype/mainform.pas b/examples/lazfreetype/mainform.pas index 6d8a9773f0..de94a6d94b 100644 --- a/examples/lazfreetype/mainform.pas +++ b/examples/lazfreetype/mainform.pas @@ -10,8 +10,8 @@ uses IntfGraphics, GraphType, //Intf basic routines - EasyLazFreeType, LazFreeTypeIntfDrawer //EasyFreeType with Intf - + EasyLazFreeType, LazFreeTypeIntfDrawer, //EasyFreeType with Intf + LazFreeTypeFontCollection ; type @@ -65,7 +65,7 @@ var function LoadFont: TFreeTypeFont; var - FileName: string; + FileName, FontFamilyName: string; begin result := nil; inc(n); @@ -81,8 +81,9 @@ var else exit; end; + FontFamilyName := FontCollection.AddFile(FileName).Family.FamilyName; result := TFreeTypeFont.Create; - result.Name := FileName; + result.Name := FontFamilyName; LastFileName:= FileName; end;