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

fixed default font

Browse Source 
git-svn-id: trunk@2346 -
This commit is contained in:
mattias 2002-08-17 23:41:17 +00:00
parent 57ac27ed73
commit 7f85cc9da8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -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