Merge pull request #20 from bemagri/codex/fix-build-errors-related-to-stretchdraw

Fix StretchDraw calls and add transparent color support

src/book.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Graphics, ExtCtrls, Controls, LCLIntf, LResources, Process,
-  Math, IntfGraphics, FPImage, LazCanvas, FileUtil, LazJPG;
+  Math, IntfGraphics, FPImage, GraphType, LazCanvas, FileUtil, LazJPG;
 
 
 type
@@ -124,7 +124,7 @@ begin
           dstH := Round(Pic.Height * scale);
           offX := (W - dstW) div 2;
           offY := (H - dstH) div 2;
-          Canvas.StretchDraw(Rect(offX, offY, offX + dstW, offY + dstH), Pic.Graphic);
+          Canvas.StretchDraw(offX, offY, dstW, dstH, Pic.Graphic);
         end;
         Png.Assign(Img);
         Png.SaveToFile(Result);
@@ -211,7 +211,7 @@ begin
           dstH := Round(Pic.Height * scale);
           offX := (W - dstW) div 2;
           offY := (H - dstH) div 2;
-          Canvas.StretchDraw(Rect(offX, offY, offX + dstW, offY + dstH), Pic.Graphic);
+          Canvas.StretchDraw(offX, offY, dstW, dstH, Pic.Graphic);
         end;
 
         // No runtime scaling anymore; we drew at target size

src/unitCoverWorker.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Process, LCLIntf, Graphics, Math, LazJpeg,
-  IntfGraphics, FPImage, LazCanvas,
+  IntfGraphics, FPImage, GraphType, LazCanvas,
   Book, BookCollection, FileUtil;
 
 { Call this once after loading your data: it scans the list and enqueues
@@ -116,7 +116,7 @@ begin
           dstH := Round(Pic.Height * scale);
           offX := (W - dstW) div 2;
           offY := (H - dstH) div 2;
-          Canvas.StretchDraw(Rect(offX, offY, offX + dstW, offY + dstH), Pic.Graphic);
+          Canvas.StretchDraw(offX, offY, dstW, dstH, Pic.Graphic);
         end;
         Png.Assign(Img);
         Png.SaveToFile(Result);