@@ -33,7 +33,7 @@ uses |
| 33 |
function AddFontResourceExA(Dir: PAnsiChar; Flag: DWORD): LongBool; StdCall; External GDI32; |
33 |
function AddFontResourceExA(Dir: PAnsiChar; Flag: DWORD): LongBool; StdCall; External GDI32; |
| 34 |
{$endif} |
34 |
{$endif} |
| 35 |
|
35 |
|
| 36 |
{$ifdef UNIX} |
36 |
{$if defined(LINUX) or defined(BSD)} |
| 37 |
function FcConfigAppFontAddFile(Config: Pointer; _File: PChar): Integer; cdecl; External 'libfontconfig.so'; |
37 |
function FcConfigAppFontAddFile(Config: Pointer; _File: PChar): Integer; cdecl; External 'libfontconfig.so'; |
| 38 |
function PangoCairoFontMapGetDefault: Pointer; cdecl; External 'libpangocairo-1.0.so' Name 'pango_cairo_font_map_get_default'; |
38 |
function PangoCairoFontMapGetDefault: Pointer; cdecl; External 'libpangocairo-1.0.so' Name 'pango_cairo_font_map_get_default'; |
| 39 |
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'; |
@@ -63,7 +63,7 @@ begin |
| 63 |
Writeln(StdErr, '[ERROR] Couldn''t load Pixelite!!!'); |
63 |
Writeln(StdErr, '[ERROR] Couldn''t load Pixelite!!!'); |
| 64 |
{$endif} |
64 |
{$endif} |
| 65 |
|
65 |
|
| 66 |
{$ifdef UNIX} |
66 |
{$ifdef defined(LINUX) or defined(BSD)} |
| 67 |
// https://gitlab.gnome.org/GNOME/gtk/-/issues/3886 |
67 |
// https://gitlab.gnome.org/GNOME/gtk/-/issues/3886 |
| 68 |
if FcConfigAppFontAddFile(nil, PChar('PixeliteTTF.ttf')) = 0 then |
68 |
if FcConfigAppFontAddFile(nil, PChar('PixeliteTTF.ttf')) = 0 then |
| 69 |
Writeln(StdErr, '[ERROR] Couldn''t load Pixelite!!!'); |
69 |
Writeln(StdErr, '[ERROR] Couldn''t load Pixelite!!!'); |