mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Get monospace font under Linux (fixes #2062)

Browse source
This commit is contained in:
Alexander Koblov 2025-02-10 21:05:10 +03:00
commit 1b1ca89bc1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/platform/unix/umyunix.pas
View file

@ -621,7 +621,7 @@ begin
AFont:= FcFontMatch(nil, APattern, @Res);
if Assigned(AFont) then
begin
AFontName:= FcPatternFormat(AFont, '%{fullname}');
AFontName:= FcPatternFormat(AFont, '%{family}');
if Assigned(AFontName) then
begin
Result:= StrPas(AFontName);
@ -641,6 +641,7 @@ initialization
if LoadFontConfigLib('libfontconfig.so.1') then
begin
MonoSpaceFont:= GetFontName(MonoSpaceFont);
DebugLn('Monospace: ', MonoSpaceFont);
UnLoadFontConfigLib;
end;
{$ENDIF}