Delphi Image之圆形头像

Delphi Image之圆形头像

procedure TMainF.Button4Click(Sender: TObject);

var

  Bmp: TBitmap;

  Rhandle: HRGN;

//  R: TRect;

begin

  Image2.Picture.LoadFromFile('head.jpg');                                    // 加载图片

//  Image2.AutoSize := true;                                                  // image大小自动调整

//  R := Image2.ClientRect;

  Bmp := TBitmap.Create;                                                      // 创建 Bmp

  // bmp.LoadFromFile('1.bmp');                                               // 加载bmp图片

  Bmp.Assign(Image2.Picture.Graphic);

//  Rhandle:=CreateRoundRectRgn(100,0,200,100,100,100);

  Rhandle := CreateRoundRectRgn(0, 0, Image2.Width, Image2.height, Image2.Width, Image2.height);        // 创建圆角矩形Rgn

  Image2.Picture.Assign(nil);

//  Image2.AutoSize := false;

//  Image2.Stretch := false;

//  Image2.height := R.Bottom - R.Top;

//  Image2.Width := R.Right - R.Left;

  Image2.Canvas.Brush.Color := clRed;

  Image2.Canvas.FillRect(Image2.ClientRect);

  SelectClipRgn(Image2.Canvas.Handle, Rhandle);                               // 选择剪辑片段

  Image2.Canvas.Draw(0, 0, Bmp);

//  DeleteObject(Rhandle);

//  Image2.Canvas.Brush.Style := bsClear;

  Image2.Picture.Bitmap.TransparentColor := clRed;

//  Image2.Picture.Bitmap.Transparent := true;

  Image2.Transparent := true;

end;

————————————————

原文链接：https://blog.csdn.net/qq_44111597/article/details/108445483