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

win32: workaround windows 98 AV inside GetObjectType (issue #9955)

Browse Source 
git-svn-id: trunk@12532 -
This commit is contained in:
paul 2007-10-20 11:41:16 +00:00
parent 2bc78d0dfd
commit ce4864f3b7
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/interfaces/win32/win32extra.pas
View File

@ -487,10 +487,27 @@ begin
if (blendFunction.AlphaFormat = AC_SRC_ALPHA) and (SrcSection.dsBm.bmBitsPixel <> 32) then Exit(False); // invalid
// get destination info, atleast bitmap, if possible also section
if GetObjectType(hdcDest) = OBJ_MEMDC
then DstBmp := GetCurrentObject(hdcDest, OBJ_BITMAP)
else DstBmp := 0;
if (DstBmp = 0) or (GetObject(DstBmp, SizeOf(DstSection), @DstSection) = 0)
if WindowsVersion in [wv95, wv98]
then begin
// under windows 98 GetObjectType() sometimes produce AV inside and
// as result our debugger stopes and show exception
// lazarus is not alone application with such problem under windows 98
// here is workaround for windows 9x
DstBmp := GetCurrentObject(hdcDest, OBJ_BITMAP);
DstSection.dsBm.bmBits := nil;
if (DstBmp <> 0)
and ((GetObject(DstBmp, SizeOf(DstSection), @DstSection) < SizeOf(TDIBSection)) or (DstSection.dsBm.bmBits = nil))
then DstBmp := 0;
end
else begin
if GetObjectType(hdcDest) = OBJ_MEMDC
then DstBmp := GetCurrentObject(hdcDest, OBJ_BITMAP)
else DstBmp := 0;
if (DstBmp <> 0) and (GetObject(DstBmp, SizeOf(DstSection), @DstSection) = 0)
then DstBmp := 0;
end;
if (DstBmp = 0)
then begin
// GetCurrentObject can only be used on memory devices,
// so fill in some values manually