paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 02:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix bitmaps on windows 9x (issue #7966)

Browse Source 
git-svn-id: trunk@10434 -
This commit is contained in:
micha 2007-01-12 21:24:34 +00:00
parent 6d408b4534
commit 9824f1f124
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1922,7 +1922,7 @@ begin
BitmapInfo.bmiHeader.biCompression := BI_RGB;
{BitmapInfo.bmiHeader.biSizeImage := 0;}
hScreenDC := Windows.GetDC(0);
hScreenDC := Windows.GetDC(Windows.GetDesktopWindow);
MaskBitmap := 0;
Bitmap := Windows.CreateDIBitmap(hScreenDC, Windows.TBitmapInfoHeader(BitmapInfo.bmiHeader),
CBM_INIT, RawImage.Data, Windows.TBitmapInfo(BitmapInfo), DIB_RGB_COLORS);
@ -1939,14 +1939,14 @@ begin
if Result then
begin
BitmapInfo.bmiHeader.biBitCount := 1;
Result := Windows.SetDIBits(0, MaskBitmap, 0, RawImage.Description.Height,
Result := Windows.SetDIBits(hScreenDC, MaskBitmap, 0, RawImage.Description.Height,
RawImage.Mask, Windows.TBitmapInfo(BitmapInfo), DIB_RGB_COLORS)
= LongInt(RawImage.Description.Height);
end;
end;
end;
end;
Windows.ReleaseDC(0, hScreenDC);
Windows.ReleaseDC(Windows.GetDesktopWindow, hScreenDC);
end;
function TWin32WidgetSet.CreateDIBSection(DC: HDC; const p2: tagBitmapInfo; p3: UINT;