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

* Fix load of extra trees

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-10-18 22:28:54 +02:00
parent 32947827e5
commit 1a7f3fe29b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/instantsearch/ideinstantsearch.pas
View File

@ -644,7 +644,7 @@ begin
I:=GetEnumValue(TypeInfo(TMCMySQLClientVersion),S); I:=GetEnumValue(TypeInfo(TMCMySQLClientVersion),S);
if I<>-1 then if I<>-1 then
Findexer.MySQLVersion:=TMCMySQLClientVersion(I); Findexer.MySQLVersion:=TMCMySQLClientVersion(I);
Cfg.GetValue('Trees/Names',List); List:=Cfg.GetValue('Trees/Names','');
For I:=SourceTrees.Count-1 downto 0 do For I:=SourceTrees.Count-1 downto 0 do
if Not SourceTrees[i].System then if Not SourceTrees[i].System then
SourceTrees.Delete(I); SourceTrees.Delete(I);