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

LCL/TCustomComboBox: Sorted supported (Cocoa first)

Browse Source
This commit is contained in:
rich2014 2023-06-14 22:39:47 +08:00
parent 2ce8c12ed9
commit 062bacda7a
1 changed files with 2 additions and 0 deletions

2
lcl/include/customcombobox.inc
View File

@ -33,6 +33,8 @@ begin
if (FItems<>NewStrings) and (FItems<>nil) then
begin
NewStrings.Assign(FItems);
if NewStrings is TStringList then
TStringList(NewStrings).Sorted:= self.Sorted;
FItems.Free;
end;
// and use the interface based list