Окно настроек. Вызов из главного окна. Неокончательно.
This commit is contained in:
@@ -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()
|
||||
Назначение: Обновление списка пакетов и дерева на активной вкладке главного окна
|
||||
|
||||
Reference in New Issue
Block a user