paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 17:20:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed bug when changing ReadOnly for TQtTextEdit & TQtLineEdit during runtime.

Browse Source 
git-svn-id: trunk@22250 -
This commit is contained in:
zeljko 2009-10-21 16:38:41 +00:00
parent 1f597e595b
commit 6fab82a729
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/qt/qtwidgets.pas
View File

@ -5349,8 +5349,13 @@ end;
procedure TQtLineEdit.setReadOnly(const AReadOnly: Boolean);
begin
QLineEdit_setReadOnly(QLineEditH(Widget), AReadOnly);
if AReadOnly and Assigned(LCLObject) and not (LCLObject.TabStop) then
setFocusPolicy(QtNoFocus);
if Assigned(LCLObject) then
begin
if AReadOnly and not LCLObject.TabStop then
setFocusPolicy(QtNoFocus)
else
setFocusPolicy(QtClickFocus);
end;
end;
procedure TQtLineEdit.setSelection(const AStart, ALength: Integer);
@ -5484,8 +5489,13 @@ end;
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
begin
QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
if AReadOnly and Assigned(LCLObject) and not (LCLObject.TabStop) then
setFocusPolicy(QtNoFocus);
if Assigned(LCLObject) then
begin
if AReadOnly and not LCLObject.TabStop then
setFocusPolicy(QtNoFocus)
else
setFocusPolicy(QtClickFocus);
end;
end;
procedure TQtTextEdit.setSelection(const AStart, ALength: Integer);