From ddb1d7ca8ffe0b4ed4fd02d0fe7092a95c7afdc3 Mon Sep 17 00:00:00 2001
From: AnthonyAxenov <anthonyaxenov@gmail.com>
Date: Sun, 20 Jan 2019 13:59:11 +0800
Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=B2=D0=BE=D1=80=D0=B0=D1=87=D0=B8?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5=20=D0=B8=20=D1=80=D0=B0=D0=B7?=
 =?UTF-8?q?=D0=B2=D0=BE=D1=80=D0=B0=D1=87=D0=B8=D0=B2=D0=B0=D0=BD=D0=B8?=
 =?UTF-8?q?=D0=B5=20=D0=B4=D0=B5=D1=80=D0=B5=D0=B2=D0=B0=20=D0=BD=D0=B0=20?=
 =?UTF-8?q?=D0=B0=D0=BA=D1=82=D0=B8=D0=B2=D0=BD=D0=BE=D0=B9=20=D0=B2=D0=BA?=
 =?UTF-8?q?=D0=BB=D0=B0=D0=B4=D0=BA=D0=B5=20=D1=87=D0=B5=D1=80=D0=B5=D0=B7?=
 =?UTF-8?q?=20=D0=BC=D0=B5=D0=BD=D1=8E?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 dmain.lfm |  2 ++
 dmain.pas | 36 ++++++++++++++++++++++++++++++++----
 2 files changed, 34 insertions(+), 4 deletions(-)

diff --git a/dmain.lfm b/dmain.lfm
index 131e507..5037c83 100644
--- a/dmain.lfm
+++ b/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
diff --git a/dmain.pas b/dmain.pas
index a19b6cf..33ebde2 100644
--- a/dmain.pas
+++ b/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 }
@@ -78,10 +82,34 @@ begin
   PrepareDirs();
   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()
-Назначение:    Подготовка директорий
+Процедура:  TdmMain.PreparePackages()
+Назначение: Подготовка директорий
 ------------------------------------------------------------------------------}
 procedure TdmMain.PrepareDirs();
 begin
@@ -99,8 +127,8 @@ begin
 end;
        
 {------------------------------------------------------------------------------
-Процедура:     TdmMain.PreparePackages()
-Назначение:    Подготовка списков пакетов
+Процедура:  TdmMain.PreparePackages()
+Назначение: Подготовка списков пакетов
 ------------------------------------------------------------------------------}
 procedure TdmMain.PreparePackages();
 begin