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

fix compilation with VerboseRawImage

Browse Source 
git-svn-id: trunk@12462 -
This commit is contained in:
paul 2007-10-14 14:06:56 +00:00
parent 6264aac23c
commit 1d41ad50f5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/graphtype.pp
View File

@ -947,12 +947,12 @@ function TRawImage.IsMasked(ATestPixels: Boolean): Boolean;
begin
DebugLn('RawImageMaskIsEmpty EdgeByte y=',dbgs(y),' x=',dbgs(x),
' Byte=',HexStr(Cardinal(p^),2),
' UnusedMask=',HexStr(Cardinal(UnusedMask),2),
' OR='+dbgs(p^ or UnusedMask),
//' UnusedMask=',HexStr(Cardinal(UnusedMask),2),
//' OR='+dbgs(p^ or UnusedMask),
' UnusedBitsAtEnd='+dbgs(UnusedBitsAtEnd),
' UsedBitsPerLine='+dbgs(UsedBitsPerLine),
' Width='+dbgs(Width),
' ARawImage.Description.AlphaBitsPerPixel='+dbgs(Description.AlphaBitsPerPixel));
' ARawImage.Description.MaskBitsPerPixel='+dbgs(Description.MaskBitsPerPixel));
end;
{$endif}

2
lcl/interfaces/gtk/gtkobject.inc
View File

@ -2437,7 +2437,7 @@ begin
DebugLn('TGtkWidgetSet.RawImage_AddMask: A BytesPerLine=',dbgs(Image^.bpl),
' theType=',dbgs({$IFDEF Gtk1}Image^.thetype{$ELSE}ord(Image^._type){$ENDIF}),
' depth=',dbgs(Image^.depth),' AnImage^.bpp=',dbgs(Image^.bpp));
DebugLn('RawImage=', RawImageDescription_AsString(ARawImage.Description));
DebugLn('RawImage=', ARawImage.Description.AsString);
{$ENDIF}
// See also GetWindowRawImageDescription