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

Qt,Qt5: set selection start to 0 if edit control is disabled. issue #23369

Browse Source 
git-svn-id: trunk@62827 -
This commit is contained in:
zeljko 2020-03-31 10:48:29 +00:00
parent ca458a59c2
commit 5e1a4e94f5
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9902,6 +9902,8 @@ end;
procedure TQtLineEdit.setText(const AText: WideString); procedure TQtLineEdit.setText(const AText: WideString);
begin begin
QLineEdit_setText(QLineEditH(Widget), @AText); QLineEdit_setText(QLineEditH(Widget), @AText);
if not getEnabled then
setSelection(0, 0);
end; end;
procedure TQtLineEdit.setTextMargins(ARect: TRect); procedure TQtLineEdit.setTextMargins(ARect: TRect);

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

@ -9828,6 +9828,8 @@ end;
procedure TQtLineEdit.setText(const AText: WideString); procedure TQtLineEdit.setText(const AText: WideString);
begin begin
QLineEdit_setText(QLineEditH(Widget), @AText); QLineEdit_setText(QLineEditH(Widget), @AText);
if not getEnabled then
setSelection(0, 0);
end; end;
procedure TQtLineEdit.setTextHint(const ATextHint: string); procedure TQtLineEdit.setTextHint(const ATextHint: string);