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

1
src/ce_messages.pas
View File

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