盒子论坛 v2.1

D:\控件\BSF v9.20\BSF v9.20\bspngimage.pas
{Copy interlaced images with 1 byte for R, G, B}
procedure TbsPngLayerIDAT.CopyInterlacedRGB8(const Pass: Byte;
  Src, Dest, Trans, Extra: pChar);
var
  Col: Integer;
begin
  Col := ColumnStart[Pass];
  Dest := pChar(Longint(Dest) + Col * 3);
  repeat
    //下面出错，如何修改可以编译？
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 2)^]; inc(Dest);
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 1)^]; inc(Dest);
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src)    )^]; inc(Dest);

    inc(Src, 3);
    inc(Dest, ColumnIncrement[Pass] * 3 - 3);
    inc(Col, ColumnIncrement[Pass]);
  until Col >= ImageWidth;
end;
----------------------------------------------
-

作者：

sail2000 (小帆工作室)	★☆☆☆☆	-
	盒子活跃会员

2011/10/18 18:13:57

1楼：

给出的这部分完全没问题，只要在单元上添加XE2的版本编译参数就过去了。
问题是继承的TListBox的声明已经改变了，为了兼容64位。如果官方不给出支持，自己改起来比较麻烦。
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？

信息

登陆以后才能回复