Changeset 176 for branches/virtualcpu4/UFormMain.pas

Timestamp:

Apr 12, 2019, 11:43:24 AM (5 years ago)

Author:

chronos

Message:

• Modified: Optimization of draw only modified part of screen.

Location:

branches/virtualcpu4

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (9 diffs)

branches/virtualcpu4

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc

branches/virtualcpu4/UFormMain.pas

@@ -16 +16 @@
     ButtonStart: TButton;
     ButtonStop: TButton;
+    Image1: TImage;
     Label1: TLabel;
     Label2: TLabel;
@@ -21 +22 @@
     ListViewRegisters: TListView;
     Memo1: TMemo;
-    PaintBox1: TPaintBox;
     Timer1: TTimer;
     TimerDraw: TTimer;
@@ -32 +32 @@
     procedure ListViewRegistersData(Sender: TObject; Item: TListItem);
     procedure Memo1KeyPress(Sender: TObject; var Key: char);
-    procedure PaintBox1Paint(Sender: TObject);
+    procedure ScreenRepaing;
     procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
@@ -83 +83 @@
 begin
   LoadProgram;
+  PaintBox1Resize(Self);
 end;
 
@@ -123 +124 @@
 end;
 
-procedure TFormMain.PaintBox1Paint(Sender: TObject);
-var
-  X, Y: Integer;
+procedure TFormMain.ScreenRepaing;
+var
   B: Byte;
-  MemorySizeTmp: Integer;
-  Addr: Integer;
-begin
-  MemorySizeTmp := Machine.MemorySize;
-  with Machine, Screen do
-  for Y := 0 to Size.Y - 1 do
-  for X := 0 to Size.X - 1 do begin
-    Addr := MemoryBase + Y * Size.X + X;
-    if Addr < MemorySizeTmp then begin
-      B := PByte(Memory + Addr)^;
-      PaintBox1.Canvas.Pixels[X, Y] := B * $010101;
+  P: Integer;
+begin
+  with Machine, Screen do begin
+    if ChangedAreaFrom < ChangedAreaTo then begin
+      if (Image1.Picture.Bitmap.Width <> Image1.Width) or
+      (Image1.Picture.Bitmap.Height <> Image1.Height) then
+        Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
+      Image1.Picture.Bitmap.BeginUpdate(True);
+      P := ChangedAreaFrom;
+      while P <= ChangedAreaTo do begin
+        B := PByte(Memory + MemoryBase + P)^;
+        Image1.Canvas.Pixels[P mod Size.X, P div Size.X] := B * $010101;
+        Inc(P);
+      end;
+      ChangedAreaTo := MemoryBase;
+      ChangedAreaFrom := MemoryBase + MemorySize;
+      Image1.Picture.Bitmap.EndUpdate;
     end;
   end;
@@ -144 +150 @@
 procedure TFormMain.PaintBox1Resize(Sender: TObject);
 begin
-  Machine.Screen.Size := Point(PaintBox1.Width, PaintBox1.Height);
+  Machine.Screen.Size := Point(Image1.Width, Image1.Height);
 end;
 
@@ -160 +166 @@
 procedure TFormMain.TimerDrawTimer(Sender: TObject);
 begin
-  PaintBox1.Repaint;
+  ScreenRepaing;
 end;
 
@@ -196 +202 @@
     Loadi(R2, 12);
   LabelPrint := IP;
-      DataPrefix8; LoadMem(R3, R1);
+    DataPrefix8; LoadMem(R3, R1);
     DataPrefix8; Output(0, R3);
     Increment(R1);
@@ -213 +219 @@
     Test(R2);
     JumpNotZero(LabelClearScreen);
+
+    // Update screen area
+    Loadi(R1, 0);
+    Output(4, R1);
+    Loadi(R1, $10000);
+    Output(5, R1);
 
     // Read keyboard and print to console

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc