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

[smijerryan]

其实是上一个发布的帖子，最终还是没解决，再发一次帖子。代码的目的从image1控件的图片截取圆形区域到image2控件中,然后image2控件的图片要导出bmp文件，要求圆形区域走位是透明的。程序在win xp下运行没问题，截图的周边背景是透明的。 在win 7环境下就不行，周边背景是白色，不透明。能否请教是什么问题么？怎么解决？

unit Unit1;

interface

uses
  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平台运行的屏幕效果如下：

[feiba7288]

上个帖子就让你按我的代码来了，你杂不用我的代码呢，哥。。。 下面的代码在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;

[jaxdong]

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

[smijerryan]

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

[smijerryan]

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