paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 00:22:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: get always a default font

Browse Source 
git-svn-id: trunk@1130 -
This commit is contained in:
lazarus 2002-02-09 01:47:55 +00:00
parent 3a76bea201
commit 57931f1398
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3013,12 +3013,15 @@ begin
If (Style^.RC_Style <> nil) and (Style^.RC_Style^.font_name <> nil) If (Style^.RC_Style <> nil) and (Style^.RC_Style^.font_name <> nil)
then then
Result := gdk_font_load(Style^.RC_Style^.font_name); Result := gdk_font_load(Style^.RC_Style^.font_name);
If Result <> nil then
Result := gdk_font_ref(Result);
end; end;
If Result = nil then If Result = nil then
Result := gdk_fontset_load('-*-fixed-*-*-*-*-*-120-*-*-*-*-*-*'); Result := gdk_fontset_load('-*-fixed-*-*-*-*-*-120-*-*-*-*-*-*');
if Result = nil then
Result := gdk_fontset_load('-*-*-*-*-*-*-*-*-*-*-*-*-*-*');
If Result <> nil then
Result := gdk_font_ref(Result);
end; end;
Function GetSysGCValues(Color : TColorRef) : TGDKGCValues; Function GetSysGCValues(Color : TColorRef) : TGDKGCValues;
@ -3457,6 +3460,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.124 2002/10/10 19:59:41 lazarus
MG: get always a default font
Revision 1.123 2002/10/10 19:43:17 lazarus Revision 1.123 2002/10/10 19:43:17 lazarus
MG: accelerated GetTextMetrics MG: accelerated GetTextMetrics