TdxPNGImage

最新推荐文章于 2024-07-24 14:05:37 发布
最新推荐文章于 2024-07-24 14:05:37 发布
阅读量3.1k 收藏 1
点赞数 1
分类专栏： XE4
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/cb168/article/details/13771023
版权
在XE4中，安装cx控件后，image控件默认使用TdxPNGImage加载PNG文件。若不希望使用TdxPNGImage，可以注释掉dxGDIPlusClasses.pas中的{$DEFINE DXREGISTERPNGIMAGE}，以防止TPicture注册TdxPNGImage类型，解决Delphi表单流式传输时的问题。此外，禁用TdxPNGImage注册可以让Delphi自身处理PNG图像，避免运行时因未使用DevExpress组件而导致图片无法显示。
摘要由CSDN通过智能技术生成

xe4 里已经支持PNGImage 文件了，安装了cx控件后有多出来了TdxPNGImage ，iamge控件加载PNG文件时认到TdxPNGImage 类型上了，不想用的话，

找到文件dxGDIPlusClasses.pas

注释这句话 {$DEFINE DXREGISTERPNGIMAGE} 

就不会注册

最低0.47元/天 解锁文章
缘中人
关注
专栏目录
pngimage控件
08-11
pngimage,欢迎使用
PNG Image控件（Delphi）
01-25
用于支持PNG图片的Delphi控件，同样也可用于c++ Builder，很好用的东东，正在使用中
Delphi5实现鱼C屏幕保护程序
最新发布
weixin_52116519的博客
07-24 462
使用Form1的events的oncreate事件，双击命名为FormCreate。即上面的“- □ ×”不显示。
pngimage
07-08
pngimage控件，欢迎使用
Delphi7 PngImage控件 PNGimage for Delph7
12-03
使用方法：（Delphi 7 使用成功案例） 1、将本包中所有文件复制到开发文件保存的目录中 2、在USES单元中加入pngimage 3、窗体中插入image1控件 4、在调用位置，加入如下代码就OK啦！ var png: tpngimage; begin png := tpngimage.Create; png.LoadFromFile(getcurrentdir() + '\pic.png'); Image1.Picture.Bitmap.Assign(png); png.Free; end;
Delphi 2007 的PNGimage
xcheese的专栏
08-25 3551
本想随意的调整一下界面，于是从Delphi盒子下了个pngimage1.5，结果在Delphi 2007里用不了。还好，参考了一下D2009的代码，于是OK了，效果如下： 代码改动：位置：第4469行{ Copy Form D2009 1.564 }            begin              pRGBTriple(@ImageData[i])^ := pRGB
Delphi7可用的PngImage控件 PNG Delphi v.1.564
08-26
Delphi7可用的PngImage控件 PNG Delphi v.1.564，可用于D7显示Png图片。 使用方法：（Delphi 7 使用成功案例） 1、将本包中所有文件复制到开发文件保存的目录中 2、在USES单元中加入pngimage 3、窗体中插入image1控件 4、在调用位置，加入如下代码就OK啦！ var Png: TPngObject; begin Png := TPngObject.Create; try Png.LoadFromFile(getcurrentdir() + '\test.png'); img1.Picture.Assign(Png); finally Png.Free; end; end;
PngImage处理png图片
10-18
网上对于png图片处理不太好用，这是用GDI二次封装后的，有类和实例说明，备份
pngimage1.56
05-15
pngimage1.56是升级版，包括旧版的全部功能，另外在这个版本中可以支持strecht属性
VB在image控件中显示png
08-25
纯VB代码用GDI实现将png显示到image中.
PNGImage_1.564 修改版_纠错
05-05
之前上传的版本如果安装了DEV组件，则加载PNG图片时将会出错。感谢下载的网友指出的错误，因为本人上传之后一直未关注过评论，今天偶然发现，在此向各位致歉。 我在本机的XE版本下安装时好像不需要obj文件，但既然有网友指出，我就将d7目录下的obj拷贝了一份放在xe源码目录内。 该修改版本仅在D7和XE中测试。如果是其他版本，请自行修改。 安装说明参见压缩包内的reademe文件。 ---------------------------------------------------------- 针对XE版本增加的属性 如下： Anchors: TAnchors; //按钮相对位置 Action: TActionList; //与 actionlist 连接 CaptionAlign: TAlignment; //按钮标题对齐方式 //是否填充渐变色，取决于后两个变量 IsDrawGradientColorFace: Boolean; //是否以渐变色填充按钮表面 IsDrawFaceOnMouseOver: boolean; //鼠标悬停时是否填充按钮表面 IsDrawFaceOnPush: Boolean; //鼠标按下时是否填充按钮表面 //边框 IsDrawBorderOnMouseOver: Boolean; IsDrawBorderOnPush: Boolean; //悬停及按下时的渐变色设置 DrawOverFaceStartColor: TColor; //鼠标悬停时渐变填充起始色 DrawOverFaceEndColor: TColor; //鼠标悬停时渐变填充结束色 DrawPushFaceStartColor: TColor; DrawPushFaceEndColor: TColor; //按钮表面单色 DrawUniqueColorFaceOnMouseOver: TColor; //鼠标悬停时单色填充时的颜色 DrawUniqueFaceColorOnPush: TColor; //边框 DrawBorderOnMouseOver: TColor; //鼠标悬停时边框颜色 DrawBorderOnPush: TColor; IsShowCaption: boolean; //是否显示按钮文字 注：与颜色相关的属性仅在 buttonStyle 设为 pbsFlat 或 pbsNoFrame 时有效
TPNGImage 1.5
09-18
procedure BitmapFileToPNG(const Source, Dest: String); var Bitmap: TBitmap; PNG: TPNGObject; begin Bitmap := TBitmap.Create; PNG := TPNGObject.Create; {In case something goes wrong, free booth Bitmap and PNG} try Bitmap.LoadFromFile(Source); PNG.Assign(Bitmap); //Convert data into png PNG.SaveToFile(Dest); finally Bitmap.Free; PNG.Free; end end; Converting from PNG file to Windows bitmap file The above inverse. Loads a png and saves into a bitmap procedure PNGFileToBitmap(const Source, Dest: String); var Bitmap: TBitmap; PNG: TPNGObject; begin PNG := TPNGObject.Create; Bitmap := TBitmap.Create; {In case something goes wrong, free booth PNG and Bitmap} try PNG.LoadFromFile(Source); Bitmap.Assign(PNG); //Convert data into bitmap Bitmap.SaveToFile(Dest); finally PNG.Free; Bitmap.Free; end end; Converting from TImage to PNG file This method converts from TImage to PNG. It has full exception handling and allows converting from file formats other than TBitmap (since they allow assigning to a TBitmap) procedure TImageToPNG(Source: TImage; const Dest: String); var PNG: TPNGObject; BMP: TBitmap; begin PNG := TPNGObject.Create; {In case something goes wrong, free PNG} try //If the TImage contains a TBitmap, just assign from it if Source.Picture.Graphic is TBitmap then PNG.Assign(TBitmap(Source.Picture.Graphic)) //Convert bitmap data into png else begin //Otherwise try to assign first to a TBimap BMP := TBitmap.Create; try BMP.Assign(Source.Picture.Graphic); PNG.Assign(BMP); finally BMP.Free; end; end; //Save to PNG format PNG.SaveToFile(Dest); finally PNG.Free; end end;
TPNGImage.v1.564.Full.Source
08-24
Delphi下的pngimg图片控件!支持D7及以上版本，可以方便编辑png图片,显示图片
pngimage1.564完整版
06-20
pngimage1.564完整版，包括pngimage, zlib 1.28
delphi安装pngimage控件，不需要安装，只需引用就行
weixin_30388677的博客
05-10 1336
delphi7的pngimage控件如何安装20 解压后的安装包如图所示，求高人指点如何把它安到delphi7上，感激不尽 在路径里面引用你这个文件夹菜单--tools---library然后只要uses PNGImage就可以使用了 转载于:https://www.cnblogs.com/manhuidhu/p/6837402.html...
对PNG图像进行编码 Encoding the PNG image
weixin_43873389的博客
12-05 3681
PNG编码的六个步骤——通道提取，扫描线序列化，过滤，压缩，分块，数据流构造
Delphi7 处理PNG图片
See___You的博客
10-20 2333
原型：Scanline[const Index: Integer]: Pointer;参数说明：Index是指行数，最大值为图片的高度；类型值是指向Index行的RGB值的指针。参数说明：Index是指行数，最大值为图片的高度；类型值是指向Index行的Alpha值的指针，指向长度等于PNG图片的宽度，当PNG图片没有透明度时返回null.原型：Pixels[const X, Y: Integer]: TColor;类型值是指定坐标的RGB值，值得注意，字节对应关系是从低字节到高字节是RGB。
png images反色保留背景透明
BigBoss911的博客
02-25 460
将src-png-folder目录下的所有png images反色并保留保留透明不变。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值