Changeset 16 for trunk/Apps

Timestamp:

Dec 28, 2017, 1:14:31 AM (7 years ago)

Author:

chronos

Message:

• Added: API function DrawFrame.
• Fixed: Drawing position of TWindow frame.

File:

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

trunk/Apps/UClock.pas

@@ -38 +38 @@
   WindowId := API.WindowCreate;
   CanvasId := API.GetWindowCanvas(WindowId);
-  API.WindowSetAttr(WindowId, TRectangle.Create(100, 50, 300, 200), True);
+  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), $ffffff);
+    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;
@@ -69 +69 @@
   WindowId := API.WindowCreate;
   CanvasId := API.GetWindowCanvas(WindowId);
-  API.WindowSetAttr(WindowId, TRectangle.Create(100, 100, 300, 200), True);
+  API.WindowSetAttr(WindowId, TRectangle.Create(120, 100, 400, 200), True);
   while not Task.Terminated do begin
     API.WriteText('test2');