Changeset 27 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 22, 2016, 5:35:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Use faster drawing to TBitmap RawImage.

File:

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

trunk/Forms/UFormMain.pas

@@ -64 +64 @@
     MousePos: TPoint;
     Activated: Boolean;
+  public
     procedure EraseBackground(DC: HDC); override;
-  public
     procedure UpdateStatusBar;
     procedure Redraw;
@@ -120 +120 @@
     TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left,
       View.SrcRect.Bottom - View.SrcRect.Top);
-    TempBitmap.BeginUpdate(True);
+    //TempBitmap.BeginUpdate(True);
     TempBitmap.Canvas.Brush.Color := clBlack;
     TempBitmap.Canvas.FillRect(0, 0, TempBitmap.Width, TempBitmap.Height);
     View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
-    Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
-    TempBitmap.EndUpdate(False);
+    //Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
+    Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
+    //TempBitmap.EndUpdate(False);
     PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap);
     //PaintBox1.Canvas.Draw(0, 0, TempBitmap);