paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 07:58:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed inconsistency with win32,gtk2 and Delphi when setting SelStart.It shouldn't keep sellength. issue #11802

Browse Source 
git-svn-id: trunk@35265 -
This commit is contained in:
zeljko 2012-02-09 12:10:24 +00:00
parent 353087a643
commit 6758bba5e0
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/qt/qtwsstdctrls.pp
View File

@ -984,15 +984,17 @@ class procedure TQtWSCustomEdit.SetSelStart(const ACustomEdit: TCustomEdit;
var
Widget: TQtWidget;
QtEdit: IQtEdit;
ALength: Integer;
// ALength: Integer;
begin
if not WSCheckHandleAllocated(ACustomEdit, 'SetSelStart') then
Exit;
Widget := TQtWidget(ACustomEdit.Handle);
ALength := GetSelLength(ACustomEdit);
// issue #11802, make qt consistent with gtk2 and win32.
// Delphi docs says that setting selection start should reset sellength !
// ALength := GetSelLength(ACustomEdit);
if Supports(Widget, IQtEdit, QtEdit) then
QtEdit.setSelection(NewStart, ALength);
QtEdit.setSelection(NewStart, 0);
end;
class procedure TQtWSCustomEdit.SetSelLength(const ACustomEdit: TCustomEdit;
@ -1472,15 +1474,17 @@ class procedure TQtWSCustomComboBox.SetSelStart(const ACustomComboBox: TCustomCo
var
Widget: TQtWidget;
QtEdit: IQtEdit;
ALength: Integer;
// ALength: Integer;
begin
if not WSCheckHandleAllocated(ACustomComboBox, 'SetSelStart') then
Exit;
Widget := TQtWidget(ACustomComboBox.Handle);
ALength := GetSelLength(ACustomComboBox);
// issue #11802, make qt consistent with gtk2 and win32.
// Delphi docs says that setting selection start should reset sellength !
// ALength := GetSelLength(ACustomComboBox);
if Supports(Widget, IQtEdit, QtEdit) then
QtEdit.setSelection(NewStart, ALength);
QtEdit.setSelection(NewStart, 0);
end;
class procedure TQtWSCustomComboBox.SetSelLength(