paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:19:13 +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 begin
if FSorted=AValue then Exit; if FSorted=AValue then Exit;
FSorted:=AValue; FSorted:=AValue;
if FSorted then inherited Sorted:=FSorted;
Sort;
end; end;
procedure TQtComboStrings.Put(Index: Integer; const S: string); 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 begin
if FSorted=AValue then Exit; if FSorted=AValue then Exit;
FSorted:=AValue; FSorted:=AValue;
if FSorted then inherited Sorted:=FSorted;
Sort;
end; end;
procedure TQtComboStrings.Put(Index: Integer; const S: string); procedure TQtComboStrings.Put(Index: Integer; const S: string);