Send SAMP selection when searching by name

pchev · Jan 23, 2019 · 04b8de0 · 04b8de0
1 parent f676e2b
commit 04b8de0
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/skychart/cu_catalog.pas b/skychart/cu_catalog.pas
@@ -4113,6 +4113,14 @@ function Tcatalog.SearchNebulae(Num: string; var ar1, de1: double): boolean;
           FFindRecOK := True;
           FFindRec := rec;
           Result := True;
+          if SampConnected then
+          begin
+            cfgcat.SampFindTable := vocat.SAMPid;
+            cfgcat.SampFindURL := vocat.SAMPurl;
+            cfgcat.SampFindRec := vocat.VOcatrec;
+          end
+          else
+            cfgcat.SampFindTable := '';
         end;
       until Result or (not ok);
     CloseVOCat;

diff --git a/skychart/fu_chart.pas b/skychart/fu_chart.pas
@@ -2866,6 +2866,12 @@ procedure Tf_chart.IdentSearchResult(num, stype: string; itype: integer;
     // show label
     sc.cfgsc.FindOK := True;
     ShowIdentLabel;
+    if SampConnected and (sc.Catalog.cfgcat.SampFindTable > '') then
+    begin
+      if assigned(FSendSelectRow) then
+        FSendSelectRow(sc.Catalog.cfgcat.SampFindTable, sc.Catalog.cfgcat.SampFindUrl,
+          IntToStr(sc.Catalog.cfgcat.SampFindRec));
+    end;
   end
   // only coordinates are available
   else