fix compilation with VerboseRawImage

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

View File

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

View File

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