From 7f85cc9da85441073fb8bd4b03a8b83c533ea30f Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:17 +0000 Subject: [PATCH] fixed default font git-svn-id: trunk@2346 - --- lcl/interfaces/gtk/gtkwinapi.inc | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc index e2365dd4e9..795fe6fe19 100644 --- a/lcl/interfaces/gtk/gtkwinapi.inc +++ b/lcl/interfaces/gtk/gtkwinapi.inc @@ -1382,6 +1382,8 @@ begin // For info about xlfd see: // http://wwwinfo.cern.ch/umtf/working-groups/X11/fonts/hp_xlfd.html // Lets fill in all the xlfd parts. Assume we have scalable fonts + + //writeln('TgtkObject.CreateFontIndirectEx A Name=',LogFont.lfFaceName,' Height=',LogFont.lfHeight); Result := 0; GDIObject := NewGDIObject(gdiFont); @@ -4128,7 +4130,7 @@ end; {------------------------------------------------------------------------------ Function TgtkObject.CreateSystemFont : hFont; ------------------------------------------------------------------------------} -Function TgtkObject.CreateSystemFont : hFont; +Function TgtkObject.CreateSystemFont: hFont; var GDIObj : PGDIObject; begin @@ -4137,7 +4139,6 @@ begin Result := hFont(GDIObj); end; - {------------------------------------------------------------------------------ Function: GetStockObject Params: @@ -8034,6 +8035,9 @@ end; { ============================================================================= $Log$ + Revision 1.229 2003/04/02 13:23:24 mattias + fixed default font + Revision 1.228 2003/03/31 20:25:19 mattias fixed scrollbars of TIpHtmlPanel