paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 10:55:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Don't use ADesc.Depth as biBitCount, it can only be used in case of a 24 bits image. Fixes #0017234

Browse Source 
git-svn-id: trunk@27235 -
This commit is contained in:
marc 2010-08-29 16:30:24 +00:00
parent 1b96dd26cd
commit 74596e95e8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32lclintf.inc
View File

@ -628,7 +628,11 @@ var
Info.Header.biWidth := ADesc.Width;
Info.Header.biHeight := -ADesc.Height; // create top to bottom
Info.Header.biPlanes := 1;
Info.Header.biBitCount := ADesc.Depth;
// for 24 bits images, BPP can be 24 or 32
// 32 shouldn't be use since we don't fill the alpha channel
if ADesc.Depth = 24
then Info.Header.biBitCount := 24
else Info.Header.biBitCount := ADesc.BitsPerPixel;
Info.Header.biCompression := BI_RGB;
{Info.Header.biSizeImage := 0;}
{ first color is black, second color is white, for monochrome bitmap }