Changeset 7 for trunk/Apps

Timestamp:

May 9, 2015, 12:00:33 AM (10 years ago)

Author:

chronos

Message:

• Added: Action to switch to full screen mode.
• Added: Video driver registration.

File:

• trunk/Apps/UClock.pas (modified) (1 diff)

trunk/Apps/UClock.pas

@@ -24 +24 @@
 var
   Message: TIPCMessage;
+  WindowId: Integer;
 begin
   Message := TIPCMessage.Create;
+  WindowId := API.WindowCreate;
+  API.WindowSetAttr(300, 200, True);
   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.ReadMessage(Message);