paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 07:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt,Qt5,Qt6: do not clear editable combobox edit text if items are cleared. issue #40734

Browse Source 
(cherry picked from commit 1dbfb8fee2)
This commit is contained in:
Željan Rikalo 2024-01-29 20:08:05 +01:00
parent 89282a94ee
commit 2f07be9f42
3 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtprivate.pp
View File

@ -604,13 +604,21 @@ begin
end;
procedure TQtComboStrings.Clear;
var
AText: WideString;
begin
inherited Clear;
if Assigned(FWinControl) and (FWinControl.HandleAllocated) then
begin
FOwner.BeginUpdate;
if FOwner.getEditable then
AText := FOwner.LineEdit.getText
else
AText := '';
FOwner.ClearItems;
if (AText <> '') then
FOwner.setText(AText);
FOwner.EndUpdate;
end;
end;

8
lcl/interfaces/qt5/qtprivate.pp
View File

@ -605,13 +605,21 @@ begin
end;
procedure TQtComboStrings.Clear;
var
AText: WideString;
begin
inherited Clear;
if Assigned(FWinControl) and (FWinControl.HandleAllocated) then
begin
FOwner.BeginUpdate;
if FOwner.getEditable then
AText := FOwner.LineEdit.getText
else
AText := '';
FOwner.ClearItems;
if (AText <> '') then
FOwner.setText(AText);
FOwner.EndUpdate;
end;
end;

8
lcl/interfaces/qt6/qtprivate.pp
View File

@ -608,13 +608,21 @@ begin
end;
procedure TQtComboStrings.Clear;
var
AText: WideString;
begin
inherited Clear;
if Assigned(FWinControl) and (FWinControl.HandleAllocated) then
begin
FOwner.BeginUpdate;
if FOwner.getEditable then
AText := FOwner.LineEdit.getText
else
AText := '';
FOwner.ClearItems;
if (AText <> '') then
FOwner.setText(AText);
FOwner.EndUpdate;
end;
end;