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

Qt: bugfix, readonly ctls should not avoid eg. Ctrl+C usage inside read only control (TQtLineEdit, TQtTextEdit), so we do not change focuspolicy at this place - let LCL decide about it.

Browse Source 
git-svn-id: trunk@22524 -
This commit is contained in:
zeljko 2009-11-10 14:51:56 +00:00
parent 461751ec27
commit f3e3bd4288
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5350,13 +5350,6 @@ end;
procedure TQtLineEdit.setReadOnly(const AReadOnly: Boolean);
begin
QLineEdit_setReadOnly(QLineEditH(Widget), AReadOnly);
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);
@ -5490,13 +5483,6 @@ end;
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
begin
QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
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);