paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Željan Rikalo 2024-05-04 17:45:59 +02:00
parent 575c9dcef5
commit 0a7ff2fb3d
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

@ -10245,7 +10245,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);