1 files changed, 14 insertions, 0 deletions
diff --git a/editors/lazarus/files/patch-lcl-interfaces-qt5_qtobjects.pas b/editors/lazarus/files/patch-lcl-interfaces-qt5_qtobjects.pas
new file mode 100644
index 000000000000..bc4c5e0c9957
--- /dev/null
+++ b/editors/lazarus/files/patch-lcl-interfaces-qt5_qtobjects.pas
@@ -0,0 +1,14 @@
+--- lcl/interfaces/qt5/qtobjects.pas	2020-11-23 21:01:09.916716000 -0500
++++ lcl/interfaces/qt5/qtobjects.pas	2020-11-23 21:02:33.484592000 -0500
+@@ -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;