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

Qt5,Qt6: fixed QtComboBox sorted property. issue #41502

Browse Source 
(cherry picked from commit 00a355408e)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Željan Rikalo 2025-03-03 16:01:11 +00:00 committed by Željan Rikalo
parent 87aa99d601
commit d5ec9d7a61
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -485,8 +485,7 @@ procedure TQtComboStrings.SetSorted(AValue: Boolean);
begin
if FSorted=AValue then Exit;
FSorted:=AValue;
if FSorted then
Sort;
inherited Sorted:=FSorted;
end;
procedure TQtComboStrings.Put(Index: Integer; const S: string);

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

@ -488,8 +488,7 @@ procedure TQtComboStrings.SetSorted(AValue: Boolean);
begin
if FSorted=AValue then Exit;
FSorted:=AValue;
if FSorted then
Sort;
inherited Sorted:=FSorted;
end;
procedure TQtComboStrings.Put(Index: Integer; const S: string);