Changeset 15 for trunk/Forms

Timestamp:

Dec 27, 2017, 8:28:45 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Drawing of TWindow background.
• Fixed: Initialize TGraphicObject canvas only once.

File:

• trunk/Forms/UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.pas

@@ -39 +39 @@
     procedure Timer1Timer(Sender: TObject);
   private
+    TempBitmap: TBitmap;
     RedrawPending: Boolean;
     VideoDevice: TDeviceVideoBase;
@@ -73 +74 @@
   NewApp2: TApp;
 begin
+  TempBitmap := TBitmap.Create;
   PaintBox1.ControlStyle := PaintBox1.ControlStyle + [csOpaque];
 
@@ -164 +166 @@
 begin
   FreeAndNil(Kernel);
+  FreeAndNil(TempBitmap);
 end;
 
@@ -186 +189 @@
   X, Y: Integer;
   DX, DY: Integer;
-  Bitmap: TBitmap;
   P, PR: PByte;
 begin
   try
-    Bitmap := TBitmap.Create;
-    Bitmap.BeginUpdate;
-    Bitmap.SetSize(PaintBox1.Width, PaintBox1.Height);
+    TempBitmap.BeginUpdate;
+    TempBitmap.SetSize(PaintBox1.Width, PaintBox1.Height);
 
     if Assigned(VideoDevice.VideoMemory) then begin
@@ -201 +202 @@
         PR := P;
         for X := 0 to VideoDevice.VideoMode.Size.X - 1 do begin
-          Bitmap.Canvas.Pixels[X, Y] := PInteger(PR)^ and $ffffff;
+          TempBitmap.Canvas.Pixels[X, Y] := PInteger(PR)^ and $ffffff;
           Inc(PR, DX);
         end;
@@ -208 +209 @@
     end;
   finally
-    PaintBox1.Canvas.Draw(0, 0, Bitmap);
-    Bitmap.EndUpdate;
-    Bitmap.Free;
+    PaintBox1.Canvas.Draw(0, 0, TempBitmap);
+    TempBitmap.EndUpdate;
   end;
 end;