source: branches/Independent/Apps/Test/AppTest.pas

unit AppTest;

interface

uses
  Classes, SysUtils, Api, DateUtils;

type

  { TAppTest }

  TAppTest = class(TApp)
    procedure Run(Context: TAppContext); override;
    constructor Create; override;
  end;


implementation

{ TAppTest }

procedure TAppTest.Run(Context: TAppContext);
var
  Handle: THandle;
  Pos: TPoint;
begin
  with Context.Api do begin
    WriteLine('Hello World!');
    Sleep(OneSecond);
    RunApp('Code');
    Handle := CreateWindow;
    SetWindowName(Handle, 'New window');
    SetWindowRect(Handle, Bounds(100, 100, 400, 200));
    SetWindowVisible(Handle, True);

    Handle := CreateWindow;
    SetWindowName(Handle, 'Second window');
    SetWindowRect(Handle, Bounds(350, 150, 500, 300));
    SetWindowVisible(Handle, True);

    repeat
      Pos := GetMousePosition;
      SetWindowName(Handle, IntToStr(Pos.X) + ', ' + IntToStr(Pos.Y));
      Sleep(100 * OneMillisecond);
    until Terminated;
  end;
end;

constructor TAppTest.Create;
begin
  Name := 'Test';
end;

end.