From 00a355408e55117234635d9d8325561ce8ab0533 Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@holobit.hr>
Date: Mon, 3 Mar 2025 08:33:20 +0100
Subject: [PATCH] Qt5,Qt6: fixed QtComboBox sorted property. issue #41502

---
 lcl/interfaces/qt5/qtprivate.pp | 3 +--
 lcl/interfaces/qt6/qtprivate.pp | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/qt5/qtprivate.pp b/lcl/interfaces/qt5/qtprivate.pp
index 2cf8c9192b..adb3db72ae 100644
--- a/lcl/interfaces/qt5/qtprivate.pp
+++ b/lcl/interfaces/qt5/qtprivate.pp
@@ -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);
diff --git a/lcl/interfaces/qt6/qtprivate.pp b/lcl/interfaces/qt6/qtprivate.pp
index a771f6fd17..52155c6ca8 100644
--- a/lcl/interfaces/qt6/qtprivate.pp
+++ b/lcl/interfaces/qt6/qtprivate.pp
@@ -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);