Changeset 29 for trunk/Forms/UFormMain.pas
- Timestamp:
- Dec 22, 2016, 9:46:17 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r28 r29 129 129 TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left, 130 130 View.SrcRect.Bottom - View.SrcRect.Top); 131 TempBitmap.BeginUpdate(True);131 //TempBitmap.BeginUpdate(True); 132 132 TempBitmap.Canvas.Brush.Color := clBlack; 133 133 TempBitmap.Canvas.FillRect(0, 0, TempBitmap.Width, TempBitmap.Height); 134 134 View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height); 135 Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);135 //Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect); 136 136 //Bitmap.PaintToBitmap(TempBitmap, View.SrcRect); 137 TempBitmap.EndUpdate(False);137 //TempBitmap.EndUpdate(False); 138 138 PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap); 139 139 //PaintBox1.Canvas.Draw(0, 0, TempBitmap);
Note:
See TracChangeset
for help on using the changeset viewer.