source: branches/topdown/FormMain.pas

unit FormMain;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
  OsSystem, FormMenu;

type

  { TFormMain }

  TFormMain = class(TForm)
    ButtonMenu: TButton;
    PanelTasks: TPanel;
    PanelTaskBar: TPanel;
    procedure ButtonMenuClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FormMenu: TFormMenu;
    procedure TaskButtonClick(Sender: TObject);
    procedure TasksChange(Sender: TObject);
    procedure ReloadTasks;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  AppCalc, AppFileManager, AppTextEditor;

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
begin
end;

procedure TFormMain.TaskButtonClick(Sender: TObject);
begin
  if Sender is TButton then
    TTask(TButton(Sender).Tag).Form.Show;
end;

procedure TFormMain.TasksChange(Sender: TObject);
begin
  ReloadTasks;
end;

procedure TFormMain.ReloadTasks;
var
  I: Integer;
  Button: TButton;
begin
  with PanelTasks do
  while ControlCount > 0 do
    RemoveControl(Controls[ControlCount - 1]);
  for I := 0 to BaseSystem.Tasks.Count - 1 do
  with TTask(BaseSystem.Tasks[I]) do
  if not Terminated then begin
    Button := TButton.Create(PanelTasks);
    Button.Align := alLeft;
    Button.Caption := Form.Caption;
    Button.OnClick := TaskButtonClick;
    Button.Tag := PtrInt(BaseSystem.Tasks[I]);
    Button.Parent := PanelTasks;
    Button.Width := 100;
    Button.Visible := True;
  end;
end;

procedure TFormMain.ButtonMenuClick(Sender: TObject);
var
  P: TPoint;
begin
  P := PanelTaskBar.ClientToScreen(Point(ButtonMenu.Left, ButtonMenu.Top - PanelTaskBar.Height));
  FormMenu.BoundsRect := Bounds(P.X, P.Y - FormMenu.Height,
    FormMenu.Width, FormMenu.Height);
  FormMenu.Show;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  BoundsRect := Bounds(0, 0, Screen.Width, Screen.Height);
  BaseSystem.ScreenForm := Self;
  BaseSystem.Apps.AddNew('Calculator', TFormCalculator);
  BaseSystem.Apps.AddNew('File manager', TFormFileManager);
  BaseSystem.Apps.AddNew('Text editor', TFormTextEditor);
  BaseSystem.Tasks.OnChange := TasksChange;

  FormMenu := TFormMenu.Create(nil);
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FormMenu);
end;

end.