paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:39:15 +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

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

@ -1383,6 +1383,8 @@ begin
// http://wwwinfo.cern.ch/umtf/working-groups/X11/fonts/hp_xlfd.html // http://wwwinfo.cern.ch/umtf/working-groups/X11/fonts/hp_xlfd.html
// Lets fill in all the xlfd parts. Assume we have scalable fonts // Lets fill in all the xlfd parts. Assume we have scalable fonts
//writeln('TgtkObject.CreateFontIndirectEx A Name=',LogFont.lfFaceName,' Height=',LogFont.lfHeight);
Result := 0; Result := 0;
GDIObject := NewGDIObject(gdiFont); GDIObject := NewGDIObject(gdiFont);
@ -4137,7 +4139,6 @@ begin
Result := hFont(GDIObj); Result := hFont(GDIObj);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: GetStockObject Function: GetStockObject
Params: Params:
@ -8034,6 +8035,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.229 2003/04/02 13:23:24 mattias
fixed default font
Revision 1.228 2003/03/31 20:25:19 mattias Revision 1.228 2003/03/31 20:25:19 mattias
fixed scrollbars of TIpHtmlPanel fixed scrollbars of TIpHtmlPanel