forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove dead vars + reimplement dup checker in libman ctor, deleted IDKW

This commit is contained in:
Basile Burg 2017-07-10 11:28:04 +02:00
parent efcba233a6
commit 9ca1326edd
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_libman.pas
View File

@ -322,8 +322,8 @@ end;
constructor TLibraryManager.create(aOwner: TComponent);
var
nme: string;
als: string;
lib: TLibraryItem;
lb2: TLibraryItem;
lb1: TLibraryItem;
i: integer;
begin
inherited;
@ -335,9 +335,14 @@ begin
loadFromFile(nme);
for i := fCollection.Count-1 downto 0 do
begin
lib := libraryByIndex[i];
als := lib.libAlias.upperCase;
lib.updateModulesInfo;
lb2 := libraryByIndex[i];
lb1 := libraryByAlias[lb2.libAlias];
if lb1.isNotNil and (lb1.Index < lb2.Index) then
begin
fCollection.Delete(i);
continue;
end;
lb2.updateModulesInfo;
end;
updateItemsByAlias;
updateDCD;

1
src/ce_messages.pas
View File

@ -1003,7 +1003,6 @@ procedure TCEMessagesWidget.filterMessages(aCtxt: TCEAppMessageCtxt);
var
itm: TTreeNode;
i: integer;
f: boolean;
begin
if updating then
exit;