From e8d89737897b22eafd7754eba7a80f6f19a8538a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 26 Jun 2022 17:39:07 +0000
Subject: [PATCH] fpspreadsheet: Improved painting of embedded images in
 worksheetgrid in case of scaling factor 1.0

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8329 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index 2bd60dfb6..c261223ba 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -3041,7 +3041,10 @@ begin
       SelectClipRgn(Canvas.Handle, rgn);
       R := Rect(0, 0, w, h);
       OffsetRect(R, imgRect.Left, imgRect.Top);
-      Canvas.StretchDraw(R, TPicture(img^.Picture).Graphic);
+      if (img^.ScaleX = 1.0) and (img^.ScaleY = 1.0) then
+        Canvas.Draw(R.Left, R.Top, TPicture(img^.Picture).Graphic)
+      else
+        Canvas.StretchDraw(R, TPicture(img^.Picture).Graphic);
     finally
       DeleteObject(rgn);
     end;