如何在Delphi TImageList 中使用 透明 png 图标

最新推荐文章于 2019-09-02 15:02:00 发布
最新推荐文章于 2019-09-02 15:02:00 发布
阅读量4.7k 收藏 3
点赞数
分类专栏： DELPHI

前一段时间写一个程序，ImageList中添加PNG图片，Toolbar引用ImageList中的PNG图片时，图片背景是黑色，

其实只要设置ImageList的一个属性：ColorDepth设置成cd32Bit就可以了。

 

2010-11-29 17:06

[转] 如何在Delphi TImageList 中使用 透明 png 图标

原文标题：How to use transparent PNG icons with Delphi ImageList

原文：http://www.aha-soft.com/faq/delphi-imagelist-png.htm

Query: "Embarcadero Delphi ImageList does not show transparent PNG icons correctly. How to fix it?".

Solution: If you want to use 32-bit (24-bit + alpha channel) PNG icons within Delphi TImageList, you need to set the following property values for TImageList.DrawingStyle: dsTransparent
ColorDepth: cd32Bit

#皮肤界面

 

缘中人
关注
专栏目录
Delphi7 处理PNG图片
See___You的博客
10-20 2293
原型：Scanline[const Index: Integer]: Pointer;参数说明：Index是指行数，最大值为图片的高度；类型值是指向Index行的RGB值的指针。参数说明：Index是指行数，最大值为图片的高度；类型值是指向Index行的Alpha值的指针，指向长度等于PNG图片的宽度，当PNG图片没有透明度时返回null.原型：Pixels[const X, Y: Integer]: TColor;类型值是指定坐标的RGB值，值得注意，字节对应关系是从低字节到高字节是RGB。
delphi bmp生成透明png
05-08
delphi bmp生成透明png gid+几个实例 半透等
Delphi做异型窗体PNG透明
dkopg24406的专栏
09-02 408
{*******************************************************}{ }{ 异形窗口 ...
PNG透明窗体全攻略（控件不透明）
Riklin的专栏
08-06 5995
这两天在研究透明窗体，总算略有小成。网上大部分文章都是介绍到把窗体弄透明就没有下文。其实窗体透明并不难，难就难在透明的窗体上还要放控件。今天我就把窗体透明一直到控件不透明怎么制作一块给写了吧。     先截张图诱惑下你们，如果你没兴趣就没必要再看下文了，有兴趣的话就继续往下看吧^_^！      看好了，这是XP系统，未装.net。我的Photoshop学的不太好，把玻璃片弄的
改变PNG图片的透明度 delphi
weixin_33932129的博客
01-05 177
type TARGBRect = packed record Blue, Green, Red, Alpha: Byte; end; var I, x, y: Integer; bmp: TGpBitmap; bg: TGpGraphics; Data: TBitmapData; P: PInteger; begin ...
Delphi 在ListView中拖动图标.rar
07-10
Delphi 在ListView中拖动图标，本实例演示如何在程序运行过程中动态拖动TListView组件中的图标。在窗体中添加一个TImageList组件，并且为它添加3个图像文件。然后添加一个TListView组件，设置它的LargeImages和Small...
在Delphi的窗体状态栏中添加图标功能..rar
05-08
- 在这里，我们用Panel.Tag属性来存储图标在ImageList中的索引，以便在OnDrawPanel事件中使用。 5. **关联图标和状态栏面板** - 当需要在状态栏显示图标时，可以通过设置状态栏面板的Tag属性来指定相应的图标。...
拖动视图Delphi实现，在列表中拖动图标..rar
05-09
为了实现图标在拖动过程中的可视化效果，你可能需要覆盖TDropTarget的DragImage方法，返回一个TGraphic对象，这个对象将被用来显示拖动的图标。你可以创建一个临时的TBitmap对象，从TImageList中获取图标并绘制到这...
使用Delphi的OnChange事件，Timagelist组件..rar
05-06
在Delphi编程环境中，Timagelist组件是开发GUI应用程序时常用的一个组件，它主要用于存储和管理图像，如图标、按钮图、菜单项等。在这个主题中，我们将深入探讨如何使用Timagelist组件以及其onChange事件。 首先，...
PNG文件透明处理
06-22
[英雄区] ServerName=冲浪传奇(英雄电信) ServerIP=115.238.246.100 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [英雄区] ServerName=冲浪传奇(英雄网通) ServerIP=103.246.155.100 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [英雄区] ServerName=飓风时代(英雄电信) ServerIP=115.238.246.100 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [英雄区] ServerName=飓风时代(英雄网通) ServerIP=103.246.155.100 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧一区(电信) ServerIP=115.238.250.44 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧一区(网通) ServerIP=60.12.121.44 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧二区(电信) ServerIP=115.238.250.44 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧二区(网通) ServerIP=60.12.121.44 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧三区(电信) ServerIP=115.238.250.44 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧三区(网通) ServerIP=60.12.121.44 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧四区(电信) ServerIP=115.238.251.110 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧四区(网通) ServerIP=60.12.121.110 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com DownUrl=http://www.mircl.com [怀旧区] ServerName=经典怀旧五区(电信) ServerIP=115.238.251.110 ServerPort=8000 ServerWeb=http://www.mircl.com BuyUrl=http://www.mircl.com Do
Delphi GDI+实现半透明异型窗口(使用PNG图片)
05-15
我觉得这个窗体的样子很不错，窗体支持右键菜单，还可以设置窗口置顶和更换PNG图片，原来使用GDI+技术，用PNG就能实现这么漂亮、个性的半透明窗体，也让我对Delphi产生了信心，作者和时间：2008 赵述杰。 运行环境：Windows/Delphi7
delphi TImage 增加支持 png 图片格式 TPNGImage
03-08
Delphi 开发人员越来越少，我也来分享一下，需要对你们有用。
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;
Delphi7支持Png图片控件
04-30
This is PNG Delphi version 1.56 documentation (this version is a major rewrite intended to replace the previous version, 1.2). Improvements in this new version includes: This new version allows the programmer to not use Delphi heavy units which will greatly reduce the size of the final executable. Read more about this feature here.
delphi从imagelist中获取透明背景图片的方法
CODER 沙漠孤狐
10-07 8765
 Bitmap:= TBitmap.Create();Bitmap.TransparentMode := tmFixed; //必须在getBitmap前设置 Bitmap.Transparent := True;if (ImageList.GetBitmap(SubMenu.Tag, Bitmap)) thenbegin    Bitmap.Trans
使用PNG实现半透明的窗体
伴水之剑
02-25 9796
  Delphi中标准控件是不支持png图片的，据说从Window2000后增加gdiplus.dll库处理更多的gdi图像，其中包括png。  关键的几个api  GdipCreateBitmapFromFile()，从文件载入图像（不单只Bitmap）  GdipCreateBitmapFromStreamICM()，从流中入图像  GdipCreateHBITMAPFromB
How to use transparent PNG icons with Delphi ImageList
weixin_34252090的博客
10-22 66
http://www.aha-soft.com/faq/delphi-imagelist-png.htm Query: "Embarcadero Delphi ImageList does not show transparent PNG icons correctly. How to fix it?".Solution: If you want to use 32-bit (24-bit...
Delphi图像处理 -- 图像显示
热门推荐
闲人阿发伯的业余编程心得
10-30 1万+
阅读提示：    《Delphi图像处理》系列以效率为侧重点，一般代码为PASCAL，核心代码采用BASM。    《C++图像处理》系列以代码清晰，可读性为主，全部使用C++代码。    尽可能保持二者内容一致，可相互对照。    本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元和《Delphi图像处理 -- 图像合成》中除例子外的全部代码
delphi timagelist addicon返回-1
最新发布
07-13
在 Delphi 中，`TImageList.AddIcon` 方法返回-1的原因可能有多个。下面是一些常见的原因和解决方法： 1. 图标文件无效：确保你传递给 `TImageList.AddIcon` 方法的图标文件是有效的。可以使用 `TIcon.LoadFromFile` 方法来加载图标文件，并确保图标加载成功。 ```delphi var Icon: TIcon; begin Icon := TIcon.Create; try Icon.LoadFromFile('path/to/icon.ico'); ImageList.AddIcon(Icon); finally Icon.Free; end; end; ``` 2. 图标大小超过限制：`TImageList` 对象有一个最大图标大小限制，默认为 32x32 像素。如果你尝试添加一个大于该限制的图标，`TImageList.AddIcon` 方法将返回-1。你可以通过设置 `TImageList` 的 `Width` 和 `Height` 属性来增加图标大小限制。 ```delphi ImageList.Width := 64; // 设置图标宽度为 64 像素 ImageList.Height := 64; // 设置图标高度为 64 像素 ``` 3. 内存不足：如果系统内存不足，可能导致 `TImageList.AddIcon` 方法返回-1。在这种情况下，你可以尝试释放一些内存或增加系统内存。 请检查以上原因，并根据实际情况进行适当的调整和处理。如果问题仍然存在，请检查其他可能的原因，例如图标文件的格式是否有效或图标是否已经添加到其他 `TImageList` 对象中。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值