Always show the comet or asteroid selected for the simulation

pchev · Jun 23, 2020 · 219a0dd · 219a0dd
1 parent 23f98fa
commit 219a0dd
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/skychart/cu_planet.pas b/skychart/cu_planet.pas
@@ -2638,6 +2638,8 @@ procedure TPlanet.ComputeAsteroid(cfgsc: Tconf_skychart);
       qry := qry + ' or (near_earth=1)';
     if searchid <> '' then
       qry := qry + ' or (id="' + searchid + '")';
+    if cfgsc.SimAsteroid <> '' then
+      qry := qry + ' or (id="' + cfgsc.SimAsteroid + '")';
     qry := qry + ' limit ' + IntToStr(MaxAsteroid);
     db2.Query(qry);
     if db2.Rowcount > 0 then
@@ -2747,6 +2749,8 @@ procedure TPlanet.ComputeComet(cfgsc: Tconf_skychart);
       ' and de<' + IntToStr(round(1000 * (cfgsc.decentre + d))) + '))' + ' or (near_earth=1)';
     if searchid <> '' then
       qry := qry + ' or (id="' + searchid + '")';
+    if cfgsc.SimComet <> '' then
+      qry := qry + ' or (id="' + cfgsc.SimComet + '")';
     qry := qry + ' limit ' + IntToStr(MaxComet);
     db2.Query(qry);
     if db2.Rowcount > 0 then