Changeset 35 for trunk/Forms/UFormMain.pas

Timestamp:

May 4, 2018, 12:56:52 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Do not allocate big temp image for drawing on screen of zoomed out image.

File:

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

trunk/Forms/UFormMain.pas

@@ -135 +135 @@
     StatusBar1.Panels[0].Text := '[' + IntToStr(Pos.X) + ', ' + IntToStr(Pos.Y) + '] Zoom:' +
       FloatToStr(Core.Project.View.Zoom);
-    StatusBar1.Panels[1].Text := 'Src: ' + IntToStr(View.SrcRect.Right - View.SrcRect.Left) + ', ' +
+    StatusBar1.Panels[1].Text := 'Src: ' + IntToStr(View.SrcRect.Left) + ', ' +
+      IntToStr(View.SrcRect.Top) + ', ' +
+      IntToStr(View.SrcRect.Right - View.SrcRect.Left) + ', ' +
       IntToStr(View.SrcRect.Bottom - View.SrcRect.Top);
-    StatusBar1.Panels[2].Text := 'Dst: ' + IntToStr(View.DestRect.Right - View.DestRect.Left) + ', ' +
+    StatusBar1.Panels[2].Text := 'Dst: ' + IntToStr(View.DestRect.Left) + ', ' +
+      IntToStr(View.DestRect.Top) + ', ' +
+      IntToStr(View.DestRect.Right - View.DestRect.Left) + ', ' +
       IntToStr(View.DestRect.Bottom - View.DestRect.Top);
   end;
@@ -150 +154 @@
 begin
   with Core.Project do begin
-    TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left,
-      View.SrcRect.Bottom - View.SrcRect.Top);
+    //TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left,
+    //  View.SrcRect.Bottom - View.SrcRect.Top);
+    TempBitmap.SetSize(PaintBox1.Width, PaintBox1.Height);
     //TempBitmap.BeginUpdate(True);
     TempBitmap.Canvas.Brush.Color := clBlack;
@@ -158 +163 @@
    // Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
    // if EnableDraw then
-      Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
+    Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
+      //StatusBar1.Panels[0].Text := IntToStr(TempBitmap.Width) + ', ' + IntToStr(TempBitmap.Height);
     //TempBitmap.EndUpdate(False);
-    PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap);
+    PaintBox1.Canvas.Draw(0, 0, TempBitmap);
     //PaintBox1.Canvas.Draw(0, 0, TempBitmap);
   end;