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

LCL-GTK3: Prevent a crash when starting the IDE build for GTK3.

Browse Source 
git-svn-id: trunk@62259 -
This commit is contained in:
juha 2019-11-17 14:30:44 +00:00
parent 8d9ae58846
commit b5c25f2a0f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk3/gtk3lclintf.inc
View File

@ -230,7 +230,8 @@ begin
ImageFormat := CAIRO_FORMAT_ARGB32;
end;
ARowStride := GetBytesPerLine(Desc.Width, Desc.BitsPerPixel, rileDWordBoundary);
ABitmap := HBitmap(TGtk3Image.Create(NewData, Desc.Width, Desc.Height, ARowStride, ImageFormat, True));
ABitmap := HBitmap(TGtk3Image.Create(NewData, Desc.Width, Desc.Height, ARowStride, ImageFormat,
not ASkipMask)); // Using ASkipMask for DataOwner param prevents a crash later.
Result := ABitmap <> 0;
if ASkipMask then Exit;