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;