fix delete mangalist

riderkick · Jan 30, 2018 · 3ade68b · 3ade68b
1 parent 4058a67
commit 3ade68b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/mangadownloader/forms/frmMain.pas b/mangadownloader/forms/frmMain.pas
@@ -3303,15 +3303,17 @@ procedure TMainForm.miMangaListDeleteClick(Sender: TObject);
     while Assigned(Node) do
     begin
       if dataProcess.DeleteData(Node^.Index) then
+      begin
         Inc(DeleteCount);
-      Node := vtMangaList.GetPreviousSelected(Node);
+        vtMangaList.DeleteNode(Node);
+      end;
+      Node := vtMangaList.GetPreviousSelected(nil);
     end;
     dataProcess.Table.ApplyUpdates;
     dataProcess.Table.SQLTransaction.CommitRetaining;
     if DeleteCount <> 0 then
     begin
       vtMangaList.ClearSelection;
-      vtMangaList.RootNodeCount := dataProcess.RecordCount;
       UpdateVtMangaListFilterStatus;
     end;
   finally