mainform, always close dataprocess when selected website changed

riderkick · Jul 27, 2015 · 930395b · 930395b
1 parent 30264c2
commit 930395b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/mangadownloader/forms/frmMain.pas b/mangadownloader/forms/frmMain.pas
@@ -2130,9 +2130,12 @@ procedure TMainForm.cbSelectMangaChange(Sender: TObject);
   if currentWebsite <> cbSelectManga.Items[cbSelectManga.ItemIndex] then
   begin
     currentWebsite := cbSelectManga.Items[cbSelectManga.ItemIndex];
-    if dataProcess = nil then
-      dataProcess := TDBDataProcess.Create;
     vtMangaList.Clear;
+    if dataProcess = nil then
+      dataProcess := TDBDataProcess.Create
+    else
+    if dataProcess.Connected then
+      dataProcess.Close;
     lbMode.Caption := Format(RS_ModeAll, [0]);
     if DataFileExist(cbSelectManga.Items[cbSelectManga.ItemIndex]) then
     begin