source: trunk/Apps/Clock.pas

unit Clock;

interface

uses
  SysUtils, Kernel.App, DateUtils, Kernel.Core, Kernel.Scheduler, Kernel.IPC,
  Kernel.Graphics;

type

  { TAppClock }

  TAppClock = class(TApp)
    procedure Run(Task: TTask); override;
    constructor Create; override;
  end;

  { TAppClock2 }

  TAppClock2 = class(TApp)
    procedure Run(Task: TTask); override;
    constructor Create; override;
  end;


implementation

{ TAppClock }

procedure TAppClock.Run(Task: TTask);
var
  Message: TIPCMessage;
  WindowId: Integer;
  CanvasId: Integer;
  Angle: Double;
begin
  Message := TIPCMessage.Create;
  WindowId := API.WindowCreate;
  CanvasId := API.GetWindowCanvas(WindowId);
  API.WindowSetAttr(WindowId, TRectangle.Create(100, 150, 300, 200), True);
  while not Task.Terminated do begin
    API.WriteText('test');
    API.DrawRect(CanvasId, TRectangle.Create(60, 60, 180, 180), $b0ffff);
    API.DrawText(CanvasId, TPoint.Create(10, 10), 'Text', 0);
    Angle := Frac(Now / (10 * OneSecond)) * 2 * Pi;
    API.DrawLine(CanvasId, TPoint.Create(120, 120), TPoint.Create(Trunc(120 + Cos(Angle) * 60), Trunc(120 + Sin(Angle) * 60)), 0);
    API.Sleep(OneMillisecond * 10);
    //API.ReadMessage(Message);
  end;
  Message.Free;
end;

constructor TAppClock.Create;
begin
  inherited;
  Name := 'Clock';
end;

{ TAppClock2 }

procedure TAppClock2.Run(Task: TTask);
var
  Message: TIPCMessage;
  WindowId: Integer;
  CanvasId: Integer;
  Angle: Double;
begin
  Message := TIPCMessage.Create;
  WindowId := API.WindowCreate;
  CanvasId := API.GetWindowCanvas(WindowId);
  API.WindowSetAttr(WindowId, TRectangle.Create(120, 100, 400, 200), True);
  while not Task.Terminated do begin
    API.WriteText('test2');
    API.DrawRect(CanvasId, TRectangle.Create(460, 160, 380, 280), $ffff80);
    API.DrawText(CanvasId, TPoint.Create(210, 110), 'Text', 0);
    Angle := Frac(Now / (10 * OneSecond)) * 2 * Pi;
    API.DrawLine(CanvasId, TPoint.Create(320, 220), TPoint.Create(Trunc(320 + Cos(Angle) * 120), Trunc(220 + Sin(Angle) * 120)), 0);
    API.Sleep(OneMillisecond * 300);
    //API.ReadMessage(Message);
  end;
  Message.Free;
end;

constructor TAppClock2.Create;
begin
  inherited;
  Name := 'Clock2';
end;

end.