source: branches/topdown/FormMenu.pas

unit FormMenu;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus,
  Buttons, ComCtrls;

type

  { TFormMenu }

  TFormMenu = class(TForm)
    ListBoxApps: TListBox;
    MenuItemReboot: TMenuItem;
    PopupMenu1: TPopupMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    procedure FormDeactivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListBoxAppsClick(Sender: TObject);
    procedure MenuItemRebootClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  public
    procedure ReloadList;
  end;


implementation

{$R *.lfm}

uses
  OsSystem;

{ TFormMenu }

procedure TFormMenu.FormDeactivate(Sender: TObject);
begin
  Hide;
end;

procedure TFormMenu.FormShow(Sender: TObject);
begin
  ReloadList;
end;

procedure TFormMenu.ListBoxAppsClick(Sender: TObject);
var
  FormClass: TFormTaskClass;
begin
  if ListBoxApps.ItemIndex <> -1 then begin
    FormClass := TFormTaskClass(ListBoxApps.Items.Objects[ListBoxApps.ItemIndex]);
    BaseSystem.Tasks.StartTask(FormClass);
  end;
end;

procedure TFormMenu.MenuItemRebootClick(Sender: TObject);
begin
  Hide;
  BaseSystem.Reboot;
end;

procedure TFormMenu.ToolButton1Click(Sender: TObject);
begin
  Hide;
  BaseSystem.ShutDown;
end;

procedure TFormMenu.ReloadList;
var
  I: Integer;
begin
  ListBoxApps.Clear;
  with BaseSystem do begin
    for I := 0 to Apps.Count - 1 do
    with TApp(Apps[I]) do begin
      ListBoxApps.Items.AddObject(Name, TObject(FormClass));
    end;
  end;
end;

end.