Changeset 10

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.

Location:

trunk

Files:

• Apps/UClock.pas (modified) (3 diffs)
• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.pas (modified) (6 diffs)
• Packages/Kernel/UKernel.pas (modified) (3 diffs)

trunk/Apps/UClock.pas

@@ -13 +13 @@
 
   TAppClock = class(TApp)
+    procedure Run(Task: TTask); override;
+    constructor Create; override;
+  end;
+
+  { TAppClock2 }
+
+  TAppClock2 = class(TApp)
     procedure Run(Task: TTask); override;
     constructor Create; override;
@@ -36 +43 @@
     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.Sleep(OneMillisecond * 100);
+    API.Sleep(OneMillisecond * 50);
     //API.ReadMessage(Message);
   end;
@@ -48 +55 @@
 end;
 
+{ TAppClock2 }
+
+procedure TAppClock2.Run(Task: TTask);
+var
+  Message: TIPCMessage;
+  WindowId: Integer;
+  Angle: Double;
+begin
+  Message := TIPCMessage.Create;
+  WindowId := API.WindowCreate;
+  API.WindowSetAttr(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);
+    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.Sleep(OneMillisecond * 300);
+    //API.ReadMessage(Message);
+  end;
+  Message.Free;
+end;
+
+constructor TAppClock2.Create;
+begin
+  inherited Create;
+  Name := 'Clock2';
+end;
+
 end.
 

trunk/Forms/UFormMain.lfm

@@ -55 +55 @@
     end
   end
+  object Timer1: TTimer
+    Interval = 50
+    OnTimer = Timer1Timer
+    left = 180
+    top = 281
+  end
 end

trunk/Forms/UFormMain.pas

@@ -24 +24 @@
     MenuItem4: TMenuItem;
     PaintBox1: TPaintBox;
+    Timer1: TTimer;
     procedure AExitExecute(Sender: TObject);
     procedure AFullscreenExecute(Sender: TObject);
@@ -34 +35 @@
     procedure PaintBox1Paint(Sender: TObject);
     procedure PaintBox1Resize(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   private
+    RedrawPending: Boolean;
     VideoDevice: TDeviceVideoBase;
     SerialDevice: TBaseSerialDevice;
@@ -66 +69 @@
 var
   NewApp: TApp;
+  NewApp2: TApp;
 begin
   PaintBox1.ControlStyle := PaintBox1.ControlStyle + [csOpaque];
@@ -90 +94 @@
   NewApp := TAppClock.Create;
   Kernel.Apps.Add(NewApp);
+
+  NewApp2 := TAppClock2.Create;
+  Kernel.Apps.Add(NewApp2);
 end;
 
@@ -196 +203 @@
 end;
 
+procedure TFormMain.Timer1Timer(Sender: TObject);
+begin
+  if RedrawPending then begin
+    PaintBox1.Refresh;
+    RedrawPending := False;
+  end;
+end;
+
 procedure TFormMain.SerialDeviceReceiveDataSync;
 begin
@@ -214 +229 @@
 procedure TFormMain.VideoDeviceRedrawSync;
 begin
-  PaintBox1.Refresh;
+  RedrawPending := True;
 end;
 

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');