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

gtk: fix RawImage_SetAlpha for non X11 systems (at least for windows)

Browse Source 
git-svn-id: trunk@12463 -
This commit is contained in:
paul 2007-10-14 16:20:03 +00:00
parent 1d41ad50f5
commit 472b6d5858
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2216,7 +2216,15 @@ var
for Y := 0 to AHeight - 1 do
begin
// bit order for X11 differ from other bit orders, at least it differ from
// win32 and direct_fb
// x11 stores bits in order while others in reversed order
// this difference cause us to write such nice ifdefs here and below
{$ifdef HasX}
SrcMask := 1;
{$else}
SrcMask := $80;
{$endif}
SrcPtr := SrcLinePtr;
DstPtr := DstLinePtr;
for x := 0 to AWidth - 1 do
@ -2225,10 +2233,18 @@ var
then DstPtr32^ := DstPtr32^ and DstMask
else DstPtr32^ := (DstPtr32^ and DstMask) or DstSet;
Inc(DstPtr32);
{$ifdef HasX}
SrcMask := SrcMask shl 1;
{$else}
SrcMask := SrcMask shr 1;
{$endif}
if SrcMask = 0
then begin
{$ifdef HasX}
SrcMask := 1;
{$else}
SrcMask := $80;
{$endif}
Inc(SrcPtr);
end;
end;