source: branches/overos/Os.Application.pas

unit Os.Application;

interface

uses
  Classes, SysUtils, Generics.Collections, Os.Types, Os.Window;

type

  { TMessageQueue }

  TMessageQueue = class
    Messages: TObjectList<TMessage>;
    procedure PostMessage(Handle: TObject; Message: TMessage);
    constructor Create;
    destructor Destroy; override;
  end;

  { TApplication }

  TApplication = class
    MessageQueue: TMessageQueue;
    MainWindow: TWindow;
    procedure ProcessMessages;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TApplication }

procedure TApplication.ProcessMessages;
var
  Message: TMessage;
begin
  while MessageQueue.Messages.Count > 0 do begin
    Message := MessageQueue.Messages.First;
    MessageQueue.Messages.Delete(0);
    if Message is TMessageWindow then
      TWindow(Message.Handle).HandleMessage(Message);
    Message.Free;
  end;
end;

constructor TApplication.Create;
begin
  MessageQueue := TMessageQueue.Create;
end;

destructor TApplication.Destroy;
begin
  FreeAndNil(MessageQueue);
  inherited;
end;

{ TMessageQueue }

procedure TMessageQueue.PostMessage(Handle: TObject; Message: TMessage);
begin
  Message.Handle := Handle;
  Messages.Add(Message);
end;

constructor TMessageQueue.Create;
begin
  Messages := TObjectList<TMessage>.Create;
  Messages.OwnsObjects := False;
end;

destructor TMessageQueue.Destroy;
var
  I: Integer;
begin
  for I := 0 to Messages.Count - 1 do
    Messages[I].Free;
  FreeAndNil(Messages);
  inherited;
end;

end.