Changeset 8 for trunk/Apps/UClock.pas

Timestamp:

May 9, 2015, 1:32:38 AM (9 years ago)

Author:

chronos

Message:

• Moved: Kernel related files moved to separate lazarus package named Kernel.
• Modified: Implemented simple graphic device driver and drawin example.

File:

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

trunk/Apps/UClock.pas

@@ -25 +25 @@
   Message: TIPCMessage;
   WindowId: Integer;
+  Angle: Double;
 begin
   Message := TIPCMessage.Create;
@@ -31 +32 @@
   while not Task.Terminated do begin
     API.WriteText('test');
-    API.DrawText(Point(10, 10), 'Text');
-    API.DrawLine(Point(20, 20), Point(100, 100));
-    API.Sleep(OneSecond);
+    API.DrawRect(Rect(60, 60, 180, 180), $ffffff);
+    API.DrawText(Point(10, 10), 'Text', 0);
+    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.ReadMessage(Message);
   end;