今天做界面, 在imagelist里加载一个带有半透明通道的PNG图, 结果发现图片居然发暗, 如下:

原图: IDE里加载以后的图:

明显变暗...查询了源码, 无果

然后又用2010去测试, 发现没问题...可惜2010版本看不到ImageListEditer的源码, 所以无从比较

随后我又用代码去动态加载图片, 发现仍然会有图片变暗的问题:

var
  nWIC: TWICImage;
  nBmp: TBitmap;
begin
  nWIC := TWICImage.Create;
  nWIC.LoadFromFile(‘d:\542725.png‘);

  nBmp := TBitmap.Create;
  nBmp.Assign(nWIC);

  ImageList1.Add(nBmp, nil);
  nBmp.Free;
  nWIC.Free;
end;

继续查找源码, 经过1个多小时的各种郁闷, 终于发现了一个以前被忽略过的属性: nBmp.AlphaFormat

从帮助上看到其描述:

Vcl.Graphics.TAlphaFormat

From RAD Studio API Documentation

• Up to Parent: Vcl.Graphics

Delphi

TAlphaFormat = (afIgnored, afDefined, afPremultiplied);

C++

enum DECLSPEC_DENUM TAlphaFormat : unsigned char { afIgnored, afDefined, afPremultiplied };

Properties

Description

TAlphaFormat indicates how the reserved byte of each pixel is used in a 32 bit bitmap.

TAlphaFormat has the following values:

似乎应该使用afDefined值, 可以让BMP理解透明通道的值, 可是写了测试代码, 却无效果

试试其他的值, 发现使用afIgnored的时候是正常的...-_- 不知道为啥

var
  nWIC: TWICImage;
  nBmp: TBitmap;
begin
  nWIC := TWICImage.Create;
  nWIC.LoadFromFile(‘d:\542725.png‘);

  nBmp := TBitmap.Create;
  nBmp.Assign(nwic);
  nBmp.AlphaFormat := afIgnored;

  ImageList1.Add(nbmp, nil);
  nBmp.Free;
  nWIC.Free;
end;

可惜在IDE界面里, 直接使用编辑器向ImageList添加图像仍然是灰色的, 无解....只好通过代码从资源文件中加载了.....先这么办吧