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

Qt5,Qt6: fixed readOnly status for TQtTextEdit on FreeBSD. issue #40930

Browse Source 
(cherry picked from commit 0a7ff2fb3d)

Co-authored-by: Željan Rikalo <zeljko@lazarus-ide.org>
This commit is contained in:
Željan Rikalo 2024-05-05 14:27:17 +00:00 committed by Željan Rikalo
parent d126b7b202
commit 9e4dc74ca5
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -10213,7 +10213,7 @@ end;
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
begin
{$IFDEF DARWIN} // issue #40246
{$IF DEFINED(DARWIN) OR DEFINED(FREEBSD)} // issue #40246
if AReadOnly <> QTextEdit_isReadOnly(QTextEditH(Widget)) then
{$ENDIF}
QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);

2
lcl/interfaces/qt6/qtwidgets.pas
View File

@ -10243,7 +10243,7 @@ end;
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
begin
{$IFDEF DARWIN} // issue #40246
{$IF DEFINED(DARWIN) OR DEFINED(FREEBSD)} // issue #40246
if AReadOnly <> QTextEdit_isReadOnly(QTextEditH(Widget)) then
{$ENDIF}
QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);