bug_28_fix.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

diff --git a/bgraqtbitmap.pas b/bgraqtbitmap.pas
index c232c8d..39cb0f9 100644
--- a/bgraqtbitmap.pas
+++ b/bgraqtbitmap.pas
@@ -107,9 +107,9 @@ begin
 
   RawImage.Init;
   if TBGRAPixel_RGBAOrder then
-    RawImage.Description.Init_BPP32_R8G8B8_BIO_TTB(AWidth, AHeight)
+    RawImage.Description.Init_BPP32_R8G8B8A8_BIO_TTB(AWidth, AHeight)
   else
-    RawImage.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth, AHeight);
+    RawImage.Description.Init_BPP32_B8G8R8A8_BIO_TTB(AWidth, AHeight);
   RawImage.Description.LineOrder := ALineOrder;
   RawImage.Description.LineEnd := rileDWordBoundary;
   RawImage.Data     := PByte(AData);