delphi idhttp控件，timage

可以不用再写代码了，直接上DEMO（参考附件）第四个按钮是最后效果按钮。（由于 不能加附件，看来直接上代码了）：unit Unit1; interface uses ? Dialogs, jpeg, ExtCtrls, StdCtrls, Spin; type ? ? Image1: TImage;
? ? Button1: TButton;
? ? Button2: TButton;
? ? Button3: TButton;
? ? SpinEdit1: TSpinEdit;
? ? Button4: TButton;
? ? Panel1: TPanel;
? ? Image2: TImage;
? ? procedure Button1Click(Sender: TObject);
? ? procedure FormCreate(Sender: TObject);
? ? procedure Button2Click(Sender: TObject);
? ? procedure Button3Click(Sender: TObject);
? ? procedure Button4Click(Sender: TObject);
? private
? ? { Private declarations }
? ? procedure MyDraw;
? public
? ? { Public declarations }
? end; var
? Form1: TForm1; implementation {$R *.dfm}
uses Math; procedure TForm1.Button1Click(Sender: TObject);
begin
? MyDraw;
end; procedure TForm1.Button2Click(Sender: TObject);
var
??
? desBmp, srcBmp: TBitmap;
? Bmp :TBitmap;
? FRgn :HRGN;
? R:TRect;
begin?
? Bmp := TBitmap.Create;
? try
? ? Bmp.PixelFormat := Image1.Picture.Bitmap.PixelFormat;
? ? Bmp.Width ?:=100;
? ? Bmp.Height :=100;
? ? R := Image1.ClientRect;
? ? R.Left := 0;
? ? R.Top := 0;
? ? R.Bottom := 200;
? ? R.Right := 200; ? ? //FRgn:= CreateEllipticRgnIndirect(R);
? ? FRgn := CreateEllipticRgn(0,0,200,200); //创建圆形区域 ? ? ///Image2.Canvas.Draw(0,0,Bmp); //位图位于区域内的部分加载
? ? Image2.Picture.Assign(bmp);
? ? //Image2.Canvas.Ellipse(R); ? finally
? ? Bmp.Free;
? end;
? DeleteObject(FRgn);
end; procedure TForm1.MyDraw;
var
? bf: BLENDFUNCTION;
? desBmp, srcBmp: TBitmap;
? rgn: HRGN;
begin
? with bf do
? begin
? ? BlendOp := AC_SRC_OVER;
? ? BlendFlags := 0;
? ? AlphaFormat := 0;
? ? SourceConstantAlpha := 150; // 透明度，0~255
? end;
?
? desBmp := TBitmap.Create;
? srcBmp := TBitmap.Create;
? try
? ? //这里进行了转换（jpg的适应了bitmap
? ? srcBmp.Assign(image1.Picture.Graphic);
? ??
? ? image1.Picture.Assign(nil);
? ? image1.Picture.Bitmap.Assign(nil); ? ? desBmp.Width := srcBmp.Width;
? ? desBmp.Height := srcBmp.Height;
? ? Windows.AlphaBlend(desBmp.Canvas.Handle, 0, 0,
? ? ? desBmp.Width, desBmp.Height, srcBmp.Canvas.Handle,
? ? ? 0, 0, srcBmp.Width, srcBmp.Height, bf); ? ? rgn := CreateEllipticRgn(80,0, 200, 120); // 创建一个圆形区域 ? ? //画个透明的圈圈 ? ?
? ? srcBmp.Canvas.Draw(0, 0, desBmp);?
? ? image1.Picture.Bitmap.Assign(srcBmp);
? finally
? ? desBmp.Free;
? ? srcBmp.Free;
? end
end; procedure TForm1.FormCreate(Sender: TObject);
var
? jp:TJPEGImage;
begin
? (*
? ?jp:=TJPEGImage.Create;
? ?jp.loadfromFile('1.jpg');
? ?Image1.Picture.Assign(jp);
? ?jp.Free; ? ?Image1.Picture.LoadFromFile('head.jpg');
? ?DoubleBuffered := True;
end; procedure TForm1.Button3Click(Sender: TObject);
const
? BORDER = 3;
Var
? Bmp : TBitmap;
? w, h: Integer;
? x, y: Integer; ? ?
? rgn: HRGN;
begin
? Bmp:=TBitmap.Create;
? try
? ? Bmp.PixelFormat:=pf24bit;
? ? Bmp.Canvas.Font.Name ?:='Arial'; ? ? ? ? ? ? ? ? ? ? ? ? ? ?// set the font to use
? ? Bmp.Canvas.Font.Size ?:=20; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? //set the size of the font
? ? Bmp.Canvas.Font.Color := clWhite; ? ? ? ? ? ? ? ? ? ? ? ? ? //set the color of the text
? ? w ? ? ? ? ?:= SpinEdit1.Value;//Bmp.Canvas.TextWidth(酷酷的咖啡(SpinEdit1.Value)); ? //calculate the width of the image
? ? h ? ? ? ? ?:= SpinEdit1.Value;//Bmp.Canvas.TextHeight(酷酷的咖啡(SpinEdit1.Value)); ?//calculate the height of the image
? ? Bmp.Width ?:= Max(w, h) + BORDER * 2; ? ? ? ? ? ? ? ? ? ? ? // get a square
? ? Bmp.Height := Max(w, h) + BORDER * 2; ? ? ? ? ? ? ? ? ? ? ? // get a square
? ? x ? ? ? ? ?:= (Bmp.Width ?- w) div 2; ? ? ? ? ? ? ? ? ? ? ? // center
? ? y ? ? ? ? ?:= (Bmp.Height - h) div 2; ? ? ? ? ? ? ? ? ? ? ? // center
? ? Bmp.Canvas.Brush.Color := clBlue; ? ? ? ? ? ? ? ? ? ? ? ? ? //set the background
? ? //Bmp.Canvas.FillRect(Rect(0,0, Bmp.Width, Bmp.Height)); ? ? ?//paint the background which is transparent
? ? Bmp.Canvas.Brush.Color := clRed; ? ? ? ? ? ? ? ? ? ? ? ? ? ?// circle in red
? ? Bmp.Canvas.Pen.Color ? := clRed; ? ? ? ? ? ? ? ? ? ? ? ? ? ?// circle in red
? ? //Bmp.Canvas.Ellipse(0, 0, Bmp.Width, Bmp.Height); ? ? ? ? ? ?// draw the circle
? ? //Bmp.Canvas.TextOut(x, y, 酷酷的咖啡(SpinEdit1.Value)); ? ? ? ? ? ?//draw the number ? ? rgn := CreateEllipticRgn(0,0, 100, 100); // 创建一个圆形区域 ? ? //Bmp.Canvas.Draw(0,0, bmp); ? ? Image2.Picture.Assign(bmp); ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? // assign the bmp to the image ; image.transparent = true, .stretch = true;
? finally
? ? Bmp.Free;
? end;
end; procedure TForm1.Button4Click(Sender: TObject);
var
? bmp:TBitmap;
? Rhandle:HRGN;
? R:TRect;
begin ? Image2.Picture.LoadFromFile('head.jpg');
? Image2.AutoSize := true;
? R := Image2.ClientRect;
? bmp := TBitmap.Create;
? //bmp.LoadFromFile('1.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); ? 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); ? 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; end. 96233336