Changeset 494 for GraphicTest/Packages/bgrabitmap/bgrawritelzp.pas

Timestamp:

Dec 22, 2016, 8:49:19 PM (7 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/bgrawritelzp.pas (modified) (4 diffs)

GraphicTest/Packages/bgrabitmap/bgrawritelzp.pas

@@ -33 +33 @@
 implementation
 
-uses BGRACompressableBitmap, FPWritePNG;
+uses BGRACompressableBitmap;
 
 { TBGRAWriterLazPaint }
@@ -42 +42 @@
   OldResampleFilter: TResampleFilter;
   thumbnail: TBGRACustomBitmap;
-  p: PBGRAPixel;
-  n: integer;
 begin
   result := false;
@@ -68 +66 @@
     thumbnail := TBGRACustomBitmap(Img).Resample(w,h,rmFineResample);
     TBGRACustomBitmap(Img).ResampleFilter := OldResampleFilter;
-
-    p := thumbnail.data; //avoid PNG bug with black color transformed into transparent
-    for n := thumbnail.NbPixels-1 downto 0 do
-    begin
-      if (p^.alpha <> 0) and (p^.red = 0) and (p^.green = 0) and (p^.blue = 0) then
-        p^.blue := 1;
-      inc(p);
-    end;
 
     try
@@ -89 +79 @@
     finally
       thumbnail.Free;
+    end;
+  end else
+  begin
+    thumbStream := TMemoryStream.Create;
+    try
+      TBGRACustomBitmap(Img).SaveToStreamAsPng(thumbStream);
+      thumbStream.Position:= 0;
+      Str.CopyFrom(thumbStream, thumbStream.Size);
+      result := true;
+    finally
+      thumbStream.Free;
     end;
   end;