source: os/trunk/Applications/TestApplication.pas

unit TestApplication;

interface

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

type
  TTestApplication = class(TApplication)
    Form1: TForm;
    Form2: TForm;
    Button: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Run; override;
    procedure ButtonClick(Sender: TObject);
  end;


implementation

{ TTestApplication }

procedure TTestApplication.ButtonClick(Sender: TObject);
begin
  Button.Caption := 'Clicked';
  Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);
end;

procedure TTestApplication.Run;
begin
  Caption := 'TestApp';
  Form1 := TForm.Create;
  Form1.Owner := Self;
  Form1.Bounds := TRectangle.Create(50, 80, 200, 120);
  Form1.Name := 'Form1';
  Form1.Caption := 'Test application';
  Form1.Screen := Screen;
  Form1.Application := Self;
  Form2 := TForm.Create;
  Form2.Owner := Self;
  Form2.Bounds := TRectangle.Create(350, 150, 200, 150);
  Form2.Name := 'Form2';
  Form2.Caption := 'Some form';
  Form2.Screen := Screen;
  Form2.Application := Self;
  Timer1 := TTimer.Create;
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
  TScreen(Screen).Kernel.Timers.Add(Timer1);
  Button := TButton.Create;
  Button.Parent := Form1;
  Button.Owner := Form1;
  Button.Bounds := TRectangle.Create(50, 50, 60, 24);
  Button.Visible := True;
  Button.Caption := 'Start';
  Button.OnClick := ButtonClick;
  Label1 := TLabel.Create;
  Label1.Parent := Form1;
  Label1.Owner := Form1;
  Label1.Bounds := TRectangle.Create(60, 80, 60, 24);
  Label1.Visible := True;
  Label1.Caption := '0';
  Edit1 := TEdit.Create;
  Edit1.Parent := Form2;
  Edit1.Owner := Form2;
  Edit1.Bounds := TRectangle.Create(60, 80, 60, 24);
  Edit1.Visible := True;
  Edit1.Text := 'Text';
  MainForm := Form1;
  TScreen(Screen).Forms.Add(Form1);
  TScreen(Screen).Forms.Add(Form2);
  TScreen(Screen).Paint;
end;

end.