Fix show alternate url option only on browser present

vhanla · Aug 14, 2023 · 2796981 · 2796981
1 parent 5c1c4d5
commit 2796981
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 6 deletions.
diff --git a/menu.dfm b/menu.dfm
@@ -192,6 +192,7 @@ object frmMenu: TfrmMenu
     end
     object AlternatURL1: TMenuItem
       Caption = 'Alternat URL'
+      Visible = False
       OnClick = AlternatURL1Click
     end
   end

diff --git a/menu.pas b/menu.pas
@@ -268,18 +268,20 @@ procedure TfrmMenu.ShowMenuAnimation;
 procedure TfrmMenu.SiteContextPopup(Sender: TObject; MousePos: TPoint;
   var Handled: Boolean);
 begin
+  AlternatURL1.Visible := False;
   if Sender is TSkSvg then
   begin
     //TODO needs better way for it to enable close site option
     if not TSkSvg(Sender).Svg.GrayScale then
-      FCurrentPopupCardId := Settings.Sites[TSkSvg(Sender).Tag].Id
-    else
-      FCurrentPopupCardId := 0; // hard coded way to say, site not started
+    begin
+      FCurrentPopupCardId := Settings.Sites[TSkSvg(Sender).Tag].Id;
+      // show alternate URL once the broser is loaded
+      if Trim(Settings.Sites[TSkSvg(Sender).Tag].AltUrl) <> '' then
+        AlternatURL1.Visible := True;
 
-    if Trim(Settings.Sites[TSkSvg(Sender).Tag].AltUrl) <> '' then
-      AlternatURL1.Visible := True
+    end
     else
-      AlternatURL1.Visible := False;
+      FCurrentPopupCardId := 0; // hard coded way to say, site not started
   end;
 end;