[lazarus] Patch win32: default font

[Micha Nelissen]

Hi,

The attached patch implements the default font.

Regards,

Micha.


Index: win32winapi.inc
===================================================================
RCS file: /FPC/CVS/projects/lazarus/lcl/interfaces/win32/win32winapi.inc,v
retrieving revision 1.56
diff -u -w -r1.56 win32winapi.inc
--- win32winapi.inc	23 Aug 2003 11:30:51 -0000	1.56
+++ win32winapi.inc	26 Aug 2003 16:02:22 -0000
@@ -459,6 +459,9 @@
  ------------------------------------------------------------------------------}
 Function TWin32Object.CreateFontIndirect(Const LogFont: TLogFont): HFONT;
 Begin
+  if String(LogFont.lfFaceName) = 'default' then
+    Result := Windows.GetStockObject(DEFAULT_GUI_FONT)
+  else
   Result := Windows.CreateFontIndirect(@LogFont);
 End;