Сворачивание и разворачивание дерева на активной вкладке через меню

dmain.lfm

@@ -3628,6 +3628,7 @@ object dmMain: TdmMain
           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
         }
         ImageIndex = 21
+        OnClick = mbCollapseTreeClick
       end
       object mbExpandTree: TMenuItem
         Caption = 'Развернуть'
@@ -3668,6 +3669,7 @@ object dmMain: TdmMain
           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
         }
         ImageIndex = 22
+        OnClick = mbExpandTreeClick
       end
     end
     object mbCheck: TMenuItem

dmain.pas

@@ -35,6 +35,8 @@ type
     pmInstallTree: TPopupMenu;
     pmInstallCheck: TPopupMenu;
     procedure DataModuleCreate(Sender: TObject);
+    procedure mbCollapseTreeClick(Sender: TObject);
+    procedure mbExpandTreeClick(Sender: TObject);
   private
     // Подготовка директорий
     procedure PrepareDirs(); 
@@ -64,6 +66,8 @@ var
 
 implementation
 
+uses fMain;
+
 {$R *.lfm}
 
 { TdmMain }
@@ -79,6 +83,30 @@ begin
   PreparePackages();
 end;
       
+{------------------------------------------------------------------------------
+Процедура:  TdmMain.mbCollapseTreeClick()
+Назначение: Сворачивание дерева на активной вкладке главного окна
+------------------------------------------------------------------------------}
+procedure TdmMain.mbCollapseTreeClick(Sender: TObject);
+begin
+  case (fmMain.PageControl.ActivePageIndex) of
+    0: fmMain.vstSoftPkgContents.FullCollapse();
+    1: fmMain.vstToolsPkgContents.FullCollapse();
+  end;
+end;
+
+{------------------------------------------------------------------------------
+Процедура:  TdmMain.mbCollapseTreeClick()
+Назначение: Разворачивание дерева на активной вкладке главного окна
+------------------------------------------------------------------------------}
+procedure TdmMain.mbExpandTreeClick(Sender: TObject);
+begin
+  case (fmMain.PageControl.ActivePageIndex) of
+    0: fmMain.vstSoftPkgContents.FullExpand();
+    1: fmMain.vstToolsPkgContents.FullExpand();
+  end;
+end;
+                    
 {------------------------------------------------------------------------------
 Процедура:  TdmMain.PreparePackages()
 Назначение: Подготовка директорий