Delphi 2007 的PNGimage

最新推荐文章于 2025-05-29 09:14:17 发布

chscheese

最新推荐文章于 2025-05-29 09:14:17 发布

阅读量3.6k

点赞数 4

CC 4.0 BY-SA版权

文章标签： delphi insert

本文链接：https://blog.csdn.net/chscheese/article/details/2827553

本文介绍如何解决 Delphi2007 中使用 pngimage1.5 控件遇到的问题，并提供代码修改示例，确保该控件能正常工作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本想随意的调整一下界面，于是从Delphi盒子下了个pngimage1.5，结果在Delphi 2007里用不了。

还好，参考了一下D2009的代码，于是OK了，效果如下：

代码改动：位置：第4469行

{ Copy Form D2009 1.564 }
            begin
              pRGBTriple(@ImageData[i])^ := pRGBTriple(@ImageSource[i2 * 3])^;
              ImageData[i].rgbReserved := 255;
            end
{              ImageData[i] := pRGBQuad(@ImageSource[i2 * 3])^} //Old Code
            else
              with ImageData[i] do
              begin
                rgbRed := (255+ImageSource[2+i2*3] * AlphaSource[i2] + rgbRed *
                  (not AlphaSource[i2])) shr 8;
                rgbGreen := (255+ImageSource[1+i2*3] * AlphaSource[i2] +
                  rgbGreen * (not AlphaSource[i2])) shr 8;
                rgbBlue := (255+ImageSource[i2*3] * AlphaSource[i2] + rgbBlue *
                 (not AlphaSource[i2])) shr 8;
{ Copy Form D2009 1.564 insert}
                rgbReserved := not ((255 + (not rgbReserved) * (not AlphaSource[i2])) shr 8);