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

gtk: fix reading of bitmap mask under non-X systems

Browse Source 
git-svn-id: trunk@12574 -
This commit is contained in:
paul 2007-10-24 02:43:28 +00:00
parent 56ff3fad9c
commit 6afb960278
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2388,9 +2388,24 @@ end;
function TGTKWidgetSet.RawImage_AddMask(var ARawImage: TRawImage; AMask: PGdkBitmap; const ARect: TRect): boolean; function TGTKWidgetSet.RawImage_AddMask(var ARawImage: TRawImage; AMask: PGdkBitmap; const ARect: TRect): boolean;
// ARect must have the same dimension as the rawimage // ARect must have the same dimension as the rawimage
{$ifndef HasX}
function ReverseBits(A: Byte): Byte;
begin
Result := ((A shr 7) and $80) or
((A shr 6) and $40 shl 1) or
((A shr 5) and $20 shl 2) or
((A shr 4) and $10 shl 3) or
((A shr 3) and $08 shl 4) or
((A shr 2) and $04 shl 5) or
((A shr 1) and $02 shl 6) or
(A and $01 shl 7);
end;
{$endif}
var var
ADesc: TRawImageDescription absolute ARawImage.Description; ADesc: TRawImageDescription absolute ARawImage.Description;
Width, Height, H: longint; Width, Height, H{$ifndef HasX}, I{$endif}: longint;
Image: PGdkImage; Image: PGdkImage;
BytesPerLine: Integer; BytesPerLine: Integer;
SrcPtr, DstPtr: PByte; SrcPtr, DstPtr: PByte;
@ -2478,7 +2493,13 @@ begin
H := Height; H := Height;
while H > 0 do while H > 0 do
begin begin
{$ifdef HasX}
System.Move(SrcPtr^, DstPtr^, BytesPerLine); System.Move(SrcPtr^, DstPtr^, BytesPerLine);
{$else}
// Windows has another bit order than X-server
for i := 0 to BytesPerLine - 1 do
DstPtr[i] := ReverseBits(SrcPtr[i]);
{$endif}
Inc(SrcPtr, Image^.bpl); Inc(SrcPtr, Image^.bpl);
Inc(DstPtr, BytesPerLine); Inc(DstPtr, BytesPerLine);
Dec(H); Dec(H);