[Lazarus] fix for issue 32894

AlexeyT aaa5500 at ya.ru
Sun Dec 31 15:38:21 CET 2017


+    // Duplicate logic in CreateFontIndirect
+    if not Win32WidgetSet.MetricsFailed and SameText(Font.Name, 
DefFontData.Name) then

Issue 32894
please, change "and SameText(..)" to

and IsFontNameDefault(Font.Name)
(func in LCLProc made by me)


-- 
Regards,
Alexey



More information about the Lazarus mailing list