source: os/trunk/Applications/UDesktop.pas

unit UDesktop;

interface

uses
  Xvcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, LDOS.Kernel,
  Xvcl.Generics, SysUtils;

type
  TDesktopApp = class(TApplication)
  private
    procedure TaskButtonClick(Sender: TObject);
  protected
  public
    MenuButton: TButton;
    MainBar: TForm;
    TaskBar: TPanel;
    TestApp: TApplication;
    TaskButtons: TObjectList<TButton>;
    function HandleMessage(Message: TMessage): Boolean; override;
    procedure Run; override;
    constructor Create; override;
    destructor Destroy; override;
    procedure ButtonClick(Sender: TObject);
    procedure UpdateTaskList;
    procedure UpdateTaskBar;
  end;


implementation

uses
  TestApplication;

{ TDesktopApp }

procedure TDesktopApp.ButtonClick(Sender: TObject);
begin
  TestApp := TTestApplication.Create;
  TestApp.Screen := Screen;
  TScreen(Screen).Kernel.RunApplication(TestApp);
end;

procedure TDesktopApp.TaskButtonClick(Sender: TObject);
var
  Process: TProcess;
begin
  if Sender is TButton then begin
    Process := TScreen(Screen).Kernel.Processes[TaskButtons.IndexOf(TButton(Sender))];
    if Assigned(Process) and Assigned(Process.Application.MainForm) then
      Process.Application.MainForm.Focused := True;
  end;
end;

constructor TDesktopApp.Create;
begin
  inherited;
  TaskButtons := TObjectList<TButton>.Create;
end;

destructor TDesktopApp.Destroy;
begin
  TaskButtons.Destroy;
  inherited;
end;

function TDesktopApp.HandleMessage(Message: TMessage): Boolean;
begin
  if (Message is TMessageResize) or (Message is TMessageTaskList) then begin
    UpdateTaskBar;
    Result := True;
  end else Result := False;
end;

procedure TDesktopApp.Run;
begin
  inherited;
  Caption := 'Desktop';
  MainBar := TForm.Create;
  MainBar.Owner := Self;
  MainBar.BorderStyle := bsNone;
  MainBar.Name := 'MainBar';
  MainBar.Caption := 'fdfdfd';
  MainBar.Screen := Screen;
  MainBar.Application := Self;
  TaskBar := TPanel.Create;
  TaskBar.Parent := MainBar;
  TaskBar.Owner := MainBar;
  TaskBar.Name := 'TaskBar';
  TaskBar.Color := clLightGreen;
  TaskBar.Visible := True;
  TaskBar.Caption := 'dds';
  MenuButton := TButton.Create;
  MenuButton.Parent := MainBar;
  MenuButton.Owner := MainBar;
  MenuButton.Bounds := TRectangle.Create(0, 0, 50, 24);
  MenuButton.Visible := True;
  MenuButton.Caption := 'Menu';
  MenuButton.OnClick := ButtonClick;
  TScreen(Screen).Forms.Add(MainBar);
  MainForm := MainBar;
  UpdateTaskBar;
  TScreen(Screen).Paint;
end;

procedure TDesktopApp.UpdateTaskBar;
begin
  MainBar.Bounds := TRectangle.Create(0, TScreen(Screen).Size.Y - 24,
    TScreen(Screen).Size.X, 24);
  TaskBar.Bounds := TRectangle.Create(0, 0,
    MainBar.Bounds.Width, MainBar.Bounds.Height);
  UpdateTaskList;
  TScreen(Screen).Paint;
end;

procedure TDesktopApp.UpdateTaskList;
var
  I: Integer;
  Width: Integer;
const
  MaxWidth = 70;
begin
  for I := 0 to TaskButtons.Count - 1 do begin
    MainBar.Controls.Remove(TaskButtons[I]);
    TaskButtons[I].Destroy;
  end;

  with TScreen(Screen).Kernel do begin
    TaskButtons.Count := Processes.Count;
    Width := (MainBar.Bounds.Width - MenuButton.Bounds.Width) div Processes.Count;
    if Width > MaxWidth then Width := MaxWidth;

    for I := 0 to Processes.Count - 1 do begin
      TaskButtons[I] := TButton.Create;
      TaskButtons[I].Name := 'Button';
      TaskButtons[I].Caption := Processes[I].Name;
      TaskButtons[I].Visible := True;
      TaskButtons[I].Parent := MainBar;
      TaskButtons[I].Bounds := TRectangle.Create(MenuButton.Bounds.Width +
        I * Width, 0, Width, MainBar.Bounds.Height);
      TaskButtons[I].OnClick := TaskButtonClick;
      MainBar.Controls.Add(TaskButtons[I]);
    end;
  end;
end;

end.