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

lcl: gtk2: debug

Browse Source 
git-svn-id: trunk@65082 -
This commit is contained in:
mattias 2021-05-02 15:38:00 +00:00
parent e70b03a463
commit 5c8e7c1abb
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -404,6 +404,14 @@ begin
if ARawImage.Description.BitsPerPixel <> GetGdkImageBitsPerPixel(GdkImage) if ARawImage.Description.BitsPerPixel <> GetGdkImageBitsPerPixel(GdkImage)
then begin then begin
DebugLn('TGtk2WidgetSet.CreateBitmapFromRawImage GdkImage: ',
' BytesPerLine=',dbgs(GdkImage^.bpl),
' BitsPerPixel=',dbgs(GetGdkImageBitsPerPixel(GdkImage)),
' ByteOrder=',dbgs(ord(GdkImage^.byte_order)),
' Visual^.depth=',dbgs(Visual^.depth),
' ImgDepth=',dbgs(ImgDepth),
' ARawImage.Description.BitsPerPixel=',dbgs(ARawImage.Description.BitsPerPixel),
'');
RaiseGDBException('TGtk2WidgetSet.CreateBitmapFromRawImage Incompatible BitsPerPixel'); RaiseGDBException('TGtk2WidgetSet.CreateBitmapFromRawImage Incompatible BitsPerPixel');
end; end;
if ImgDataSize <> GdkImage^.bpl * ImgHeight if ImgDataSize <> GdkImage^.bpl * ImgHeight