Changeset 10 for trunk/Apps/UClock.pas

Timestamp:

Aug 29, 2016, 5:35:21 PM (8 years ago)

Author:

chronos

Message:

• Added: Second clock task running in parallel.
• Modified: Redraw screen only with maximum defined period. Not after each graphic operation.

File:

• trunk/Apps/UClock.pas (modified) (3 diffs)

trunk/Apps/UClock.pas

@@ -13 +13 @@
 
   TAppClock = class(TApp)
+    procedure Run(Task: TTask); override;
+    constructor Create; override;
+  end;
+
+  { TAppClock2 }
+
+  TAppClock2 = class(TApp)
     procedure Run(Task: TTask); override;
     constructor Create; override;
@@ -36 +43 @@
     Angle := Frac(Now / (10 * OneSecond)) * 2 * Pi;
     API.DrawLine(Point(120, 120), Point(Trunc(120 + Cos(Angle) * 60), Trunc(120 + Sin(Angle) * 60)), 0);
-    API.Sleep(OneMillisecond * 100);
+    API.Sleep(OneMillisecond * 50);
     //API.ReadMessage(Message);
   end;
@@ -48 +55 @@
 end;
 
+{ TAppClock2 }
+
+procedure TAppClock2.Run(Task: TTask);
+var
+  Message: TIPCMessage;
+  WindowId: Integer;
+  Angle: Double;
+begin
+  Message := TIPCMessage.Create;
+  WindowId := API.WindowCreate;
+  API.WindowSetAttr(300, 200, True);
+  while not Task.Terminated do begin
+    API.WriteText('test2');
+    API.DrawRect(Rect(260, 160, 380, 280), $ffff80);
+    API.DrawText(Point(210, 110), 'Text', 0);
+    Angle := Frac(Now / (10 * OneSecond)) * 2 * Pi;
+    API.DrawLine(Point(320, 220), Point(Trunc(320 + Cos(Angle) * 60), Trunc(220 + Sin(Angle) * 60)), 0);
+    API.Sleep(OneMillisecond * 300);
+    //API.ReadMessage(Message);
+  end;
+  Message.Free;
+end;
+
+constructor TAppClock2.Create;
+begin
+  inherited Create;
+  Name := 'Clock2';
+end;
+
 end.