Changeset 12 for trunk/Apps

Timestamp:

Sep 6, 2017, 6:47:49 PM (7 years ago)

Author:

chronos

Message:

• Modified: Separate API command to be kernel and user space. Execute API command through single callback function.

File:

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

trunk/Apps/UClock.pas

@@ -36 +36 @@
   Message := TIPCMessage.Create;
   WindowId := API.WindowCreate;
-  API.WindowSetAttr(300, 200, True);
+  API.WindowSetAttr(Point(300, 200), True);
   while not Task.Terminated do begin
     API.WriteText('test');
@@ -65 +65 @@
   Message := TIPCMessage.Create;
   WindowId := API.WindowCreate;
-  API.WindowSetAttr(300, 200, True);
+  API.WindowSetAttr(Point(300, 200), True);
   while not Task.Terminated do begin
     API.WriteText('test2');