aboutsummaryrefslogtreecommitdiff
path: root/editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas
diff options
context:
space:
mode:
Diffstat (limited to 'editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas')
-rw-r--r--editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas14
1 files changed, 14 insertions, 0 deletions
diff --git a/editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas b/editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas
new file mode 100644
index 000000000000..462601cd0328
--- /dev/null
+++ b/editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas
@@ -0,0 +1,14 @@
+--- lcl/interfaces/qt6/qtwidgets.pas.orig 2024-05-04 05:06:13 UTC
++++ lcl/interfaces/qt6/qtwidgets.pas
+@@ -10243,7 +10243,10 @@ begin
+
+ procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
+ begin
+- QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
++ {$IF DEFINED(DARWIN) OR DEFINED(FREEBSD)} // issue #40246
++ if AReadOnly <> QTextEdit_isReadOnly(QTextEditH(Widget)) then
++ {$ENDIF}
++ QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
+ end;
+
+ procedure TQtTextEdit.setSelection(const AStart, ALength: Integer);