paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 14:31:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk intf: preventing deleting stock font object

Browse Source 
git-svn-id: trunk@13998 -
This commit is contained in:
mattias 2008-02-06 12:51:53 +00:00
parent f013d19da8
commit 377ac8850f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5661,10 +5661,11 @@ begin
*)
DEFAULT_GUI_FONT, SYSTEM_FONT: // System font. By default, Windows uses the system font to draw menus, dialog box controls, and text. In Windows versions 3.0 and later, the system font is a proportionally spaced font; earlier versions of Windows used a monospace system font.
begin
If FStockSystemFont <> 0 then begin //This is a Temporary Hack!!! This
// MG: this should only be done, when theme changed:
{If FStockSystemFont <> 0 then begin //This is a Temporary Hack!!! This
DeleteObject(FStockSystemFont); //should really only be done on
FStockSystemFont := 0; //theme change.
end;
end;}
If FStockSystemFont = 0 then
FStockSystemFont := HFont(PtrUInt(CreateDefaultFont));