File need to be renamed when the drawing change from star to dso

pchev · Dec 4, 2021 · a051543 · a051543
1 parent ec19010
commit a051543
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/skychart/pu_voconfig.pas b/skychart/pu_voconfig.pas
@@ -1008,7 +1008,7 @@ procedure Tf_voconfig.ReloadVO(fn: string);
 
 procedure Tf_voconfig.Updateconfig(Sender: TObject);
 var
-  objtype, extfn: string;
+  objtype, oldtype, extfn: string;
   i: integer;
   config: TCCDconfig;
 begin
@@ -1033,6 +1033,7 @@ procedure Tf_voconfig.Updateconfig(Sender: TObject);
         extfn := Fcurrentconfig;
         config := TCCDconfig.Create(self);
         config.Filename := extfn;
+        oldtype := config.GetValue('VOcat/catalog/objtype', '');
         config.SetValue('VOcat/catalog/objtype', objtype);
         config.SetValue('VOcat/update/fullcat', FullDownload.Checked);
         config.DeletePath('VOcat/data');
@@ -1071,6 +1072,11 @@ procedure Tf_voconfig.Updateconfig(Sender: TObject);
         config.Flush;
         config.Free;
       end;
+    if (oldtype<>'')and(oldtype<>objtype) then begin
+      RenameFile(extfn,StringReplace(extfn,'vo_'+oldtype+'_','vo_'+objtype+'_',[]));
+      extfn:=ChangeFileExt(extfn,'.xml');
+      RenameFile(extfn,StringReplace(extfn,'vo_'+oldtype+'_','vo_'+objtype+'_',[]));
+    end;
   finally
     screen.Cursor := crDefault;
     CloseTimer.Enabled := True;