Окно настроек. Вызов из главного окна. Неокончательно.

This commit is contained in:
2019-01-20 19:20:45 +08:00
parent d9a9332907
commit f20447a54d
8 changed files with 3782 additions and 24 deletions

View File

@@ -5,7 +5,8 @@ unit dMain;
interface
uses
Classes, SysUtils, FileUtil, Controls, Menus, VirtualTrees, uPackage, uPackageList;
Classes, SysUtils, FileUtil, Controls, Menus, VirtualTrees, uPackage,
uPackageList, fOptions;
type
@@ -41,6 +42,7 @@ type
procedure mbCheckNoneClick(Sender: TObject);
procedure mbCollapseTreeClick(Sender: TObject);
procedure mbExpandTreeClick(Sender: TObject);
procedure mbOptonsMainClick(Sender: TObject);
procedure mbRefreshClick(Sender: TObject);
private
// Подготовка директорий
@@ -174,6 +176,11 @@ begin
end;
end;
procedure TdmMain.mbOptonsMainClick(Sender: TObject);
begin
fmOptions.ShowModal;
end;
{------------------------------------------------------------------------------
Процедура: TdmMain.mbRefreshClick()
Назначение: Обновление списка пакетов и дерева на активной вкладке главного окна