Changeset 13 for trunk/Apps/UClock.pas

Timestamp:

Sep 25, 2017, 2:48:08 PM (7 years ago)

Author:

chronos

Message:

• Added: Drawing relative to Canvas. In case of Window drawing relative to Window.
• Modified: Use custom TPoint and TRectangle if possible.

File:

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

trunk/Apps/UClock.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UApp, dateutils, UKernel, UScheduler, UIPC;
+  SysUtils, UApp, dateutils, UKernel, UScheduler, UIPC, UGraphics;
 
 type
@@ -32 +32 @@
   Message: TIPCMessage;
   WindowId: Integer;
+  CanvasId: Integer;
   Angle: Double;
 begin
   Message := TIPCMessage.Create;
   WindowId := API.WindowCreate;
-  API.WindowSetAttr(Point(300, 200), True);
+  CanvasId := API.GetWindowCanvas(WindowId);
+  API.WindowSetAttr(WindowId, TRectangle.Create(100, 50, 300, 200), True);
   while not Task.Terminated do begin
     API.WriteText('test');
-    API.DrawRect(Rect(60, 60, 180, 180), $ffffff);
-    API.DrawText(Point(10, 10), 'Text', 0);
+    API.DrawRect(CanvasId, TRectangle.Create(60, 60, 180, 180), $ffffff);
+    API.DrawText(CanvasId, TPoint.Create(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.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);
@@ -61 +63 @@
   Message: TIPCMessage;
   WindowId: Integer;
+  CanvasId: Integer;
   Angle: Double;
 begin
   Message := TIPCMessage.Create;
   WindowId := API.WindowCreate;
-  API.WindowSetAttr(Point(300, 200), True);
+  CanvasId := API.GetWindowCanvas(WindowId);
+  API.WindowSetAttr(WindowId, TRectangle.Create(100, 100, 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);
+    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(Point(320, 220), Point(Trunc(320 + Cos(Angle) * 60), Trunc(220 + Sin(Angle) * 60)), 0);
+    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);