paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-22 18:48:25 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customcombobox.inc
View File

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