From f3e3bd428832612ece692e9a30db659f03b49858 Mon Sep 17 00:00:00 2001 From: zeljko Date: Tue, 10 Nov 2009 14:51:56 +0000 Subject: [PATCH] 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. git-svn-id: trunk@22524 - --- lcl/interfaces/qt/qtwidgets.pas | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas index 5c30b76b89..0018abc939 100644 --- a/lcl/interfaces/qt/qtwidgets.pas +++ b/lcl/interfaces/qt/qtwidgets.pas @@ -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);