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

LCL, fix exception on gtk1 while trying to load default font

Browse Source 
git-svn-id: trunk@26719 -
This commit is contained in:
jesus 2010-07-17 18:33:18 +00:00
parent 4a03e1482b
commit 62d890f71d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1433,7 +1433,7 @@ var
procedure LoadDefaultFont;
begin
DisposeGDIObject(GdiObject);
ReleaseGdiObject(GdiObject);
GdiObject:=CreateDefaultFont;
{$IFDEF VerboseFonts}
DebugLn('TGtkWidgetSet.CreateFontIndirectEx.LoadDefaultFont');