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

IDE: Fix case-sensitive default font name in Object Inspector in Win (issue #0031963)

Browse Source 
git-svn-id: trunk@55221 -
This commit is contained in:
wp 2017-06-04 21:34:31 +00:00
parent d3f428a7d5
commit 31045c9646
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/win32/win32winapi.inc
View File

@ -850,7 +850,7 @@ begin
FontName := LogFont.lfFaceName;
TempLogFont := LogFont;
if FontName = DefFontData.Name then
if SameText(FontName, DefFontData.Name) then
begin
TempLogFontW.lfFaceName := UTF8ToUTF16(FMetrics.lfMessageFont.lfFaceName); // FMetrics must be UTF16
if TempLogFont.lfHeight = 0 then