还是100分求助：同一段程序为什么在xp和win7环境运行效果不同？

Question

其实是上一个发布的帖子，最终还是没解决，再发一次帖子。代码的目的从image1控件的图片截取圆形区域到image2控件中,然后image2控件的图片要导出bmp文件，要求圆形区域走位是透明的。程序在win xp下运行没问题，截图的周边背景是透明的。 在win 7环境下就不行，周边背景是白色，不透明。能否请教是什么问题么？怎么解决？unit Unit1;interfaceuses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}uses jpeg;procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Rgn: HRGN; { long型}
  jpeg: TJPEGImage;
begin
  Bitmap := TBitmap.Create;
  jpeg := TJPEGImage.Create;  jpeg.Assign(image1.Picture.Graphic);
  Bitmap.Assign(jpeg);  Rgn := CreateEllipticRgn(0, 0, 150, 150); { 圆形区域}
  SelectClipRgn(image2.Canvas.Handle, Rgn);  image2.Transparent := True;
  with image2.Canvas do
  begin
    Brush.Style := bsClear;
    Draw(0, 0, Bitmap);
  end;
  Bitmap.Free;
  jpeg.free;end;procedure TForm1.FormCreate(Sender: TObject);
begin
  image1.Picture.LoadFromFile('..\..\bbbb.jpg');
end;end.在win7平台运行的屏幕效果如下：在win xp平台运行的屏幕效果如下：Windows XPWindows 7圆形区域截图 透明 

Answer 1

上个帖子就让你按我的代码来了，你杂不用我的代码呢，哥下面的代码在win7，XP下都行的。procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Rgn: HRGN; { long型}
  jpeg: TJPEGImage;
begin
  Bitmap := TBitmap.Create;
  jpeg := TJPEGImage.Create;
 
  jpeg.Assign(image1.Picture.Graphic);
  Bitmap.Assign(jpeg);
 
  //加上下面两句就行了，作用是将Image2的背景色填充为窗口的颜色
  image2.Canvas.Brush.Color := Self.Color;
  image2.Canvas.FillRect(image2.ClientRect);
  ////////////////////////////////////////////////////////////
 
  Rgn := CreateEllipticRgn(0, 0, 150, 150); { 圆形区域}
  SelectClipRgn(image2.Canvas.Handle, Rgn);
 
  //image2.Transparent := True;
  with image2.Canvas do
  begin
    Brush.Style := bsClear;
    Draw(0, 0, Bitmap);
  end;
  Bitmap.Free;
end;

Answer 2

只是背景色不同，bmp格式的图片是不支持透明滴。

Answer 3

我今天测试了下，好像在win xp环境下，截取后的image周边也不一定透明，如果win xp安装.net 4.0就不透明,要卸载掉.net 4.0才可以。win 7环境卸载掉.net 4.0也没有用。奇怪！

Answer 4

感谢2#的提醒！确实bmp格式的不支持透明