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

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

Browse Source
This commit is contained in:
zeljan1 2025-03-03 08:33:20 +01:00
parent 33ef9e8b6a
commit 00a355408e
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

@ -529,8 +529,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

@ -528,8 +528,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);