Changeset 10 for trunk/Forms

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/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (6 diffs)

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;