diff options
author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-04-15 15:07:22 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-04-15 15:07:22 +0000 |
commit | 34043ffa0c15f40910d4cb6c36001ebaa4c9c2c5 (patch) | |
tree | 772388da4f0d04adcf4a00a88495b254d8a32fce | |
parent | b44565fdd5a7d591159c594b1ee375e10845a595 (diff) | |
download | fpGUI-34043ffa0c15f40910d4cb6c36001ebaa4c9c2c5.tar.xz |
Fixed the issue with not Xft font support and the default font could not be created.
-rw-r--r-- | gfx/x11/gfx_x11.pas | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gfx/x11/gfx_x11.pas b/gfx/x11/gfx_x11.pas index 5fbd80a2..4c619d60 100644 --- a/gfx/x11/gfx_x11.pas +++ b/gfx/x11/gfx_x11.pas @@ -1274,14 +1274,12 @@ begin // FDefaultFont := TX11FontResourceImpl.Create('Sans-10'); {$ELSE} FDefaultFont := TX11FontResourceImpl.Create('-adobe-helvetica-medium-r-normal--*-120-*-*-*-*-iso8859-1'); -// FDefaultFont.FontData := XLoadQueryFont(Handle, -// '-adobe-helvetica-medium-r-normal--*-120-*-*-*-*-iso8859-1'); {$ENDIF} if not Assigned(FDefaultFont) then begin {$IFNDEF XftSupport} - FDefaultFont.FontData := XLoadQueryFont(Handle, 'fixed'); + FDefaultFont := TX11FontResourceImpl.Create('-*-fixed-*-*-*-*-*-*-*-*-*-*-iso8859-*'); {$ENDIF} if not Assigned(FDefaultFont) then raise EX11Error.Create(SNoDefaultFont); |