Changeset 428 for ModularSystem/Demo


Ignore:
Timestamp:
Oct 9, 2012, 11:48:44 AM (12 years ago)
Author:
chronos
Message:
  • Added: Load and save module list to registry.
  • Added: Installation and uninstallation of modules are now performed in two steps as BeforeStart, BeforeStop and AfterStart, AfterStop.
  • Fixed: Demo works again.
Location:
ModularSystem/Demo
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • ModularSystem/Demo/Demo.lpi

    r397 r428  
    3535      <Item1>
    3636        <PackageName Value="ModularSystem"/>
     37        <DefaultFilename Value="..\ModularSystem.lpk" Prefer="True"/>
    3738      </Item1>
    3839      <Item2>

  • ModularSystem/Demo/UMainForm.lfm

    r394 r428  
    1010  OnDestroy = FormDestroy
    1111  OnShow = FormShow
    12   LCLVersion = '1.1'
     12  LCLVersion = '1.0.1.3'
    1313  object ListViewModules: TListView
    1414    Left = 8
    … …  
    3030      end   
    3131      item
    32         Caption = 'State'
     32        Caption = 'Installed'
     33        Width = 80
     34      end   
     35      item
     36        Caption = 'Running'
    3337        Width = 80
    3438      end   
    … …  
    8084    TabOrder = 3
    8185  end
     86  object ButtonUpdate1: TButton
     87    Left = 248
     88    Height = 25
     89    Top = 281
     90    Width = 75
     91    Action = AModuleStart
     92    Anchors = [akLeft, akBottom]
     93    TabOrder = 4
     94  end
     95  object ButtonUpdate2: TButton
     96    Left = 328
     97    Height = 25
     98    Top = 281
     99    Width = 75
     100    Action = AModuleStop
     101    Anchors = [akLeft, akBottom]
     102    TabOrder = 5
     103  end
    82104  object PopupMenu1: TPopupMenu
    83105    left = 183
    … …  
    92114      Action = AModuleUpdate
    93115    end
     116    object MenuItem4: TMenuItem
     117      Action = AModuleStart
     118    end
     119    object MenuItem5: TMenuItem
     120      Action = AModuleStop
     121    end
    94122  end
    95123  object ActionList1: TActionList
    96     left = 137
    97     top = 165
     124    left = 184
     125    top = 136
    98126    object AModuleInstall: TAction
    99127      Caption = 'Install'
    … …  
    108136      OnExecute = ButtonUpdateClick
    109137    end
     138    object AModuleStart: TAction
     139      Caption = 'Start'
     140      OnExecute = AModuleStartExecute
     141    end
     142    object AModuleStop: TAction
     143      Caption = 'Stop'
     144      OnExecute = AModuleStopExecute
     145    end
    110146  end
    111147end

  • ModularSystem/Demo/UMainForm.pas

    r397 r428  
    1515  TMainForm = class(TForm)
    1616  published
     17    AModuleStart: TAction;
     18    AModuleStop: TAction;
    1719    AModuleInstall: TAction;
    1820    AModuleUninstall: TAction;
    … …  
    2224    ButtonUninstall: TButton;
    2325    ButtonInstall: TButton;
     26    ButtonUpdate1: TButton;
     27    ButtonUpdate2: TButton;
    2428    ListViewModules: TListView;
    2529    MenuItem1: TMenuItem;
    2630    MenuItem2: TMenuItem;
    2731    MenuItem3: TMenuItem;
     32    MenuItem4: TMenuItem;
     33    MenuItem5: TMenuItem;
    2834    PopupMenu1: TPopupMenu;
     35    procedure AModuleStartExecute(Sender: TObject);
     36    procedure AModuleStopExecute(Sender: TObject);
    2937    procedure ButtonInstallClick(Sender: TObject);
    3038    procedure ButtonUninstallClick(Sender: TObject);
    … …  
    4452
    4553const
    46   InstalledText: array[Boolean] of string = ('Not installed', 'Installed');
     54  BoolText: array[Boolean] of string = ('No', 'Yes');
    4755
    4856var
    … …  
    6674    Item.Caption := Title;
    6775    Item.Data := ModuleManager.Modules[Item.Index];
    68     Item.SubItems.Add(Name);
     76    Item.SubItems.Add(Identification);
    6977    Item.SubItems.Add(Version);
    70     Item.SubItems.Add(InstalledText[Installed]);
     78    Item.SubItems.Add(BoolText[Installed]);
     79    Item.SubItems.Add(BoolText[Running]);
    7180    Item.SubItems.Add(License);
    7281    Item.SubItems.Add(StringReplace(Dependencies.Text, LineEnding, ', ', [rfReplaceAll]));
    … …  
    7988var
    8089  Installed: Boolean;
     90  Running: Boolean;
    8191begin
    8292  if Assigned(ListViewModules.Selected) then Installed := TModule(ListViewModules.Selected.Data).Installed;
     93  if Assigned(ListViewModules.Selected) then Running := TModule(ListViewModules.Selected.Data).Running;
    8394  AModuleInstall.Enabled := Assigned(ListViewModules.Selected) and not Installed;
    8495  AModuleUninstall.Enabled := Assigned(ListViewModules.Selected) and Installed;
    8596  AModuleUpdate.Enabled := Assigned(ListViewModules.Selected) and Installed;
     97  AModuleStart.Enabled := Assigned(ListViewModules.Selected) and not Running;
     98  AModuleStop.Enabled := Assigned(ListViewModules.Selected) and Running;
    8699end;
    87100
    88101procedure TMainForm.RegisterModules;
    89102begin
    90   ModuleManager.RegisterModule(TModuleUser.Create);
    91   ModuleManager.RegisterModule(TModuleBase.Create);
    92   ModuleManager.RegisterModule(TModuleACL.Create);
     103  ModuleManager.RegisterModule(TModuleUser.Create(nil));
     104  ModuleManager.RegisterModule(TModuleBase.Create(nil));
     105  ModuleManager.RegisterModule(TModuleACL.Create(nil));
    93106end;
    94107
    … …  
    129142end;
    130143
     144procedure TMainForm.AModuleStartExecute(Sender: TObject);
     145var
     146  ModuleList: TStringList;
     147begin
     148  if Assigned(ListViewModules.Selected) then begin
     149    try
     150      ModuleList := TStringList.Create;
     151      TModule(ListViewModules.Selected.Data).EnumModulesStart(ModuleList);
     152      if ModuleList.Count > 0 then begin
     153        if MessageDlg('These modules will be started in addition to ' +
     154          TModule(ListViewModules.Selected.Data).Name + ': ' +
     155          StringReplace(ModuleList.Text, LineEnding, ', ', [rfReplaceAll]),
     156          mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     157           TModule(ListViewModules.Selected.Data).Start;
     158      end else TModule(ListViewModules.Selected.Data).Start;
     159    finally
     160      ModuleList.Free;
     161    end;
     162    RefreshList;
     163  end;
     164end;
     165
     166procedure TMainForm.AModuleStopExecute(Sender: TObject);
     167var
     168  ModuleList: TStringList;
     169begin
     170  if Assigned(ListViewModules.Selected) then begin
     171    try
     172      ModuleList := TStringList.Create;
     173      TModule(ListViewModules.Selected.Data).EnumModulesStop(ModuleList);
     174      if ModuleList.Count > 0 then begin
     175        if MessageDlg('These modules will be stopped in addition to ' +
     176          TModule(ListViewModules.Selected.Data).Name + ': ' +
     177          StringReplace(ModuleList.Text, LineEnding, ', ', [rfReplaceAll]),
     178          mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     179            TModule(ListViewModules.Selected.Data).Stop;
     180      end else TModule(ListViewModules.Selected.Data).Stop;
     181    finally
     182      ModuleList.Free;
     183    end;
     184
     185    RefreshList;
     186  end;
     187end;
     188
    131189procedure TMainForm.ButtonUninstallClick(Sender: TObject);
    132190var
    … …  
    155213begin
    156214  if Assigned(ListViewModules.Selected) then begin
    157     TModule(ListViewModules.Selected.Data).Update;
     215    TModule(ListViewModules.Selected.Data).Upgrade;
    158216    RefreshList;
    159217  end;
    … …  
    162220procedure TMainForm.FormDestroy(Sender: TObject);
    163221begin
    164   ModuleManager.Free;
     222  FreeAndNil(ModuleManager);
    165223end;
    166224

  • ModularSystem/Demo/UModuleACL.pas

    r394 r428  
    1212
    1313  TModuleACL = class(TModule)
    14     constructor Create; override;
     14    constructor Create(AOwner: TComponent); override;
    1515    destructor Destroy; override;
    1616  end;
    … …  
    2121{ TModuleACL }
    2222
    23 constructor TModuleACL.Create;
     23constructor TModuleACL.Create(AOwner: TComponent);
    2424begin
    2525  inherited;
    26   Name := 'UserACL';
     26  Identification := 'UserACL';
    2727  Title := 'User ACL';
    2828  Version := '1.0';

  • ModularSystem/Demo/UModuleBase.pas

    r394 r428  
    1010type
    1111  TModuleBase = class(TModule)
    12     constructor Create; override;
     12    constructor Create(AOwner: TComponent); override;
    1313    destructor Destroy; override;
    1414  end;
    … …  
    1919{ TModuleUser }
    2020
    21 constructor TModuleBase.Create;
     21constructor TModuleBase.Create(AOwner: TComponent);
    2222begin
    2323inherited;
    24   Name := 'Base';
     24  Identification := 'Base';
    2525  Title := 'Base';
    2626  Version := '1.0';

  • ModularSystem/Demo/UModuleUser.pas

    r394 r428  
    1313
    1414  TModuleUser = class(TModule)
    15     constructor Create; override;
     15    constructor Create(AOwner: TComponent); override;
    1616    destructor Destroy; override;
    1717  end;
    … …  
    2121{ TModuleUser }
    2222
    23 constructor TModuleUser.Create;
     23constructor TModuleUser.Create(AOwner: TComponent);
    2424begin
    2525  inherited;
    26   Name := 'User';
     26  Identification := 'User';
    2727  Title := 'User';
    2828  Version := '1.0';
Note: See TracChangeset for help on using the changeset viewer.