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

defaultfont patch from Micha

Browse Source 
git-svn-id: trunk@4530 -
This commit is contained in:
mattias 2003-08-26 16:14:21 +00:00
parent a627ec7e42
commit 20818e54b4
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32winapi.inc
View File

@ -459,6 +459,9 @@ End;
------------------------------------------------------------------------------}
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;
@ -2422,6 +2425,9 @@ end;
{ =============================================================================
$Log$
Revision 1.57 2003/08/26 16:14:21 mattias
defaultfont patch from Micha
Revision 1.56 2003/08/23 11:30:51 mattias
fixed SetComboHeight in win32 intf and finddeclaration of overloaded proc definition