From 87292a147fdb5c070b35f73bd36aa2964aa4db40 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Tue, 23 Aug 2005 13:30:17 +0000
Subject: [PATCH] fix line ending: DIBs are dword, but CreateBitmap wants
 word-aligned

git-svn-id: trunk@7557 -
---
 lcl/interfaces/win32/win32winapi.inc | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index d4b5a32c14..d310b25734 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -1643,14 +1643,15 @@ begin
     Desc^.BitsPerPixel := Desc^.Depth;
   Desc^.LineEnd := rileDWordBoundary;
   FillRawImageDescriptionColors(Desc);
-  Desc^.AlphaShift := 0;
+  Desc^.AlphaPrec := 1;
   Desc^.AlphaSeparate := true; // the alpha is stored as separate Mask
   // The next values are only valid, if there is a separate alpha mask
   Desc^.AlphaBitsPerPixel := 1; // bits per alpha mask pixel.
   Desc^.AlphaBitOrder := riboReversedBits;
   Desc^.AlphaByteOrder := riboLSBFirst;
-  Desc^.AlphaLineEnd := rileDWordBoundary;
-  Desc^.AlphaPrec := 1;
+  // CreateBitmap winapi call wants word-aligned data
+  Desc^.AlphaLineEnd := rileWordBoundary;
+  Desc^.AlphaShift := 0;
 end;
 
 function TWin32WidgetSet.GetRawImageFromDevice(SrcDC: HDC; const SrcRect: TRect; var NewRawImage: TRawImage): boolean;