paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 14:54:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

TFileListBox: fix not adding filenames wich only differ in case, when the control doesn't have a handle yet (i.e. with Directry set in OI). Issue #41441

Browse Source 
(cherry picked from commit 3cc3475c2b)
This commit is contained in:
Bart 2025-02-19 20:29:41 +01:00 committed by Martin
parent bdd77a1902
commit 70f4f50636
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/filectrl.pp
View File

@ -478,6 +478,7 @@ var
CurrentDir: string; CurrentDir: string;
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
TStringList(Items).CaseSensitive := True; //Issue #41441
//Initializes the Mask property. //Initializes the Mask property.
FMask := AllDirectoryEntriesMask; FMask := AllDirectoryEntriesMask;
//Initializes the FileType property. //Initializes the FileType property.