Changeset 33 for trunk/UFormMain.pas

Timestamp:

Apr 19, 2015, 12:42:58 AM (9 years ago)

Author:

chronos

Message:

• Added: Attempt to reduce scene redraw be introducing Redraw method and RedrawPending flag. But clock need to be redrawn as fast as possible so different approach need to be taken.

File:

• trunk/UFormMain.pas (modified) (4 diffs)

trunk/UFormMain.pas

@@ -37 +37 @@
   public
     Engine: TEngine;
-    procedure Repaint;
   end;
 
@@ -114 +113 @@
 procedure TFormMain.PaintBox1Resize(Sender: TObject);
 begin
+  Engine.Redraw;
 end;
 
@@ -119 +119 @@
 begin
   Engine.Tick;
-  PaintBox1.Repaint;
+  if Engine.RedrawPending then
+    PaintBox1.Repaint;
 end;
 
@@ -127 +128 @@
 end;
 
-procedure TFormMain.Repaint;
-begin
-
-end;
-
 end.