Disable the menu to change visibility of Connection, Focus, Capture, …

…Sequence, Video, Guider, Finder
pchev · Apr 20, 2024 · f22da97 · f22da97
1 parent eae2f7b
commit f22da97
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 5 deletions.
diff --git a/src/pu_main.lfm b/src/pu_main.lfm
@@ -1061,6 +1061,7 @@ object f_main: Tf_main
         AutoCheck = True
         Caption = 'Connection'
         Checked = True
+        Enabled = False
         ShowAlwaysCheckable = True
         OnClick = MenuViewConnectionClick
       end
@@ -1082,14 +1083,17 @@ object f_main: Tf_main
         AutoCheck = True
         Caption = 'Internal guider'
         Checked = True
+        Enabled = False
         ShowAlwaysCheckable = True
         OnClick = MenuViewInternalguiderClick
       end
       object MenuViewFinder: TMenuItem
         AutoCheck = True
         Caption = 'Finder camera'
         Checked = True
+        Enabled = False
         ShowAlwaysCheckable = True
+        OnClick = MenuViewFinderClick
       end
       object MenuViewPlanetarium: TMenuItem
         AutoCheck = True
@@ -1130,6 +1134,7 @@ object f_main: Tf_main
         AutoCheck = True
         Caption = 'Star profile'
         Checked = True
+        Enabled = False
         ShowAlwaysCheckable = True
         OnClick = MenuViewStarProfileClick
       end
@@ -1144,6 +1149,7 @@ object f_main: Tf_main
         AutoCheck = True
         Caption = 'Capture'
         Checked = True
+        Enabled = False
         ShowAlwaysCheckable = True
         OnClick = MenuViewCaptureClick
       end
@@ -1205,14 +1211,17 @@ object f_main: Tf_main
         AutoCheck = True
         Caption = 'Sequence'
         Checked = True
+        Enabled = False
         ShowAlwaysCheckable = True
         OnClick = MenuViewSequenceClick
       end
       object MenuViewVideo: TMenuItem
         AutoCheck = True
         Caption = 'Video'
         Checked = True
+        Enabled = False
         ShowAlwaysCheckable = True
+        OnClick = MenuViewVideoClick
       end
       object MenuViewHistogram: TMenuItem
         AutoCheck = True

diff --git a/src/pu_main.pas b/src/pu_main.pas
@@ -485,7 +485,9 @@   Tf_main = class(TForm)
     procedure MenuItemSelectGuideStarClick(Sender: TObject);
     procedure MenuPolarAlignment2Click(Sender: TObject);
     procedure MenuSensorAnalysisClick(Sender: TObject);
+    procedure MenuViewFinderClick(Sender: TObject);
     procedure MenuViewInternalguiderClick(Sender: TObject);
+    procedure MenuViewVideoClick(Sender: TObject);
     procedure PageInternalGuiderShow(Sender: TObject);
     procedure PanelCenterResize(Sender: TObject);
     procedure ShowDarkInfo;
@@ -10260,7 +10262,7 @@ procedure Tf_main.OptionGetFocaleLength(Sender: TObject);
 
 procedure Tf_main.MenuViewConnectionClick(Sender: TObject);
 begin
-  f_devicesconnection.Visible:=MenuViewConnection.Checked;
+  MenuViewConnection.Checked:=true;
 end;
 
 procedure Tf_main.MenuViewDomeClick(Sender: TObject);
@@ -10355,7 +10357,7 @@ procedure Tf_main.MenuViewPreviewClick(Sender: TObject);
 
 procedure Tf_main.MenuViewCaptureClick(Sender: TObject);
 begin
-  f_capture.Visible:=MenuViewCapture.Checked;
+  MenuViewCapture.Checked:=true;
 end;
 
 procedure Tf_main.MenuViewScriptClick(Sender: TObject);
@@ -10365,19 +10367,24 @@ procedure Tf_main.MenuViewScriptClick(Sender: TObject);
 
 procedure Tf_main.MenuViewSequenceClick(Sender: TObject);
 begin
-  f_sequence.Visible:=MenuViewSequence.Checked;
+  MenuViewSequence.Checked:=true;
 end;
 
 procedure Tf_main.MenuViewStarProfileClick(Sender: TObject);
 begin
-  f_starprofile.Visible:=MenuViewStarProfile.Checked;
+  MenuViewStarProfile.Checked:=true;
 end;
 
 procedure Tf_main.MenuViewWeatherClick(Sender: TObject);
 begin
   f_weather.Visible:=MenuViewWeather.Checked;
 end;
 
+procedure Tf_main.MenuViewVideoClick(Sender: TObject);
+begin
+  MenuViewVideo.Checked:=true;
+end;
+
 procedure Tf_main.MenuVisuZoom12Click(Sender: TObject);
 begin
   f_visu.BtnZoom05.Click;
@@ -10405,7 +10412,12 @@ procedure Tf_main.MenuViewAutoguiderClick(Sender: TObject);
 
 procedure Tf_main.MenuViewInternalguiderClick(Sender: TObject);
 begin
-  f_internalguider.Visible:=MenuViewInternalguider.Checked;
+  MenuViewInternalguider.Checked:=true;
+end;
+
+procedure Tf_main.MenuViewFinderClick(Sender: TObject);
+begin
+  MenuViewFinder.Checked:=true;
 end;
 
 procedure Tf_main.PanelDragDrop(Sender, Source: TObject; X, Y: Integer);