Commit 00140d7

Nick Faro committed on
Load Pixelite font with QT5 toolkit
commit 00140d70b414332e587bb2243da2aef6724a0063 parent 695a203
1 changed files +10−0
Modifiedsrc/hUGETracker.lpr +10−0
@@ -12,6 +12,9 @@ uses
12 {$endif} 12 {$endif}
13 {$ifdef MSWINDOWS} 13 {$ifdef MSWINDOWS}
14 Windows, 14 Windows,
15 {$endif}
16 {$ifdef LCLQT5}
17 qt5,
15 {$endif} 18 {$endif}
16 FileUtil, 19 FileUtil,
17 SysUtils, 20 SysUtils,
@@ -36,6 +39,8 @@ function PangoCairoFontMapGetDefault: Pointer; cdecl; External 'libpangocairo-1.
36 procedure PangoFcFontMapConfigChanged(FcFontMap: Pointer); cdecl; External 'libpangoft2-1.0.so' Name 'pango_fc_font_map_config_changed'; 39 procedure PangoFcFontMapConfigChanged(FcFontMap: Pointer); cdecl; External 'libpangoft2-1.0.so' Name 'pango_fc_font_map_config_changed';
37 {$endif} 40 {$endif}
38 41
42 var
43 PixelitePath: WideString;
39 begin 44 begin
40 ReturnNilIfGrowHeapFails := False; 45 ReturnNilIfGrowHeapFails := False;
41 46
@@ -67,6 +72,11 @@ begin
67 PangoFcFontMapConfigChanged(PangoCairoFontMapGetDefault); 72 PangoFcFontMapConfigChanged(PangoCairoFontMapGetDefault);
68 {$endif} 73 {$endif}
69 74
75 {$ifdef LCLQT5}
76 PixelitePath := WideString(ConcatPaths([RuntimeDir, 'PixeliteTTF.ttf']));
77 QFontDatabase_addApplicationFont(@PixelitePath);
78 {$endif}
79
70 Application.Scaled:=True; 80 Application.Scaled:=True;
71 Application.Initialize; 81 Application.Initialize;
72 Application.CreateForm(TfrmTracker, frmTracker); 82 Application.CreateForm(TfrmTracker, frmTracker);