paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 13:07:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix compilation

Browse Source 
git-svn-id: trunk@20330 -
This commit is contained in:
paul 2009-06-01 00:56:57 +00:00
parent c5f17f0fce
commit 10a39a669c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/intfgraphics.pas
View File

@ -5400,8 +5400,8 @@ begin
// MWE: Correction, it seems that even 32bit icons can have a mask following
// if BFI.biBitCount >= 32 then Exit;
Info.Encoding := lrdeRGB;
Info.BitCount := 1;
FDIBinfo.Encoding := lrdeRGB;
FDIBinfo.BitCount := 1;
InitLineBuf;
try
for Row := Desc.Height - 1 downto 0 do