Changeset 10 for trunk/Packages/Kernel/UKernel.pas

Timestamp:

Aug 29, 2016, 5:35:21 PM (8 years ago)

Author:

chronos

Message:

• Added: Second clock task running in parallel.
• Modified: Redraw screen only with maximum defined period. Not after each graphic operation.

File:

• trunk/Packages/Kernel/UKernel.pas (modified) (3 diffs)

trunk/Packages/Kernel/UKernel.pas

@@ -18 +18 @@
   end;
 
-  TTimer = class
-    Period: TDateTime;
-  end;
+//  TTimer = class
+//    Period: TDateTime;
+//  end;
 
   { TKernel }
@@ -115 +115 @@
   NewFile.Name := 'Clock';
   NewDrive.FileSystem.TopDirectory.Items.Add(NewFile);
-  InitVideo;
+
+  NewFile := TFile.Create;
+  NewFile.Name := 'Clock2';
+  NewDrive.FileSystem.TopDirectory.Items.Add(NewFile);
+InitVideo;
 end;
 
@@ -129 +133 @@
     SystemFileSystem := SystemDrive.FileSystem;
     AppFile := TFile(SystemFileSystem.TopDirectory.Items.FindByName('Clock'));
+    if Assigned(AppFile) then AppExecute(AppFile)
+      else raise Exception.Create('Cannot start first application');
+    AppFile := TFile(SystemFileSystem.TopDirectory.Items.FindByName('Clock2'));
     if Assigned(AppFile) then AppExecute(AppFile)
       else raise Exception.Create('Cannot start first application');