[patch] Patch for dev-lang/lazarus-2.0.2/6/12 - fix qt5 font issues in IDE

lazarus-2.0.X-qt5fonts.patch (text/plain), 424 bytes, created by Bill Binder on 2021-10-26 16:50:48 UTC

--- lazarus/lcl/interfaces/qt5/qtobjects.pas
+++ lazarus/lcl/interfaces/qt5/qtobjects.pas
@@ -3115,8 +3115,9 @@
   SelFont := AFont;
   if (AFont.FHandle <> nil) and (Widget <> nil) then
   begin
-    QFnt := QPainter_font(Widget);
-    AssignQtFont(AFont.FHandle, QFnt);
+    QFnt := QFont_Create(AFont.FHandle);
+    QPainter_setFont(Widget, QFnt);
+    QFont_destroy(QFnt);
     vFont.Angle := AFont.Angle;
   end;
 end;