用两个TImage:Image1,Image2
Image1.Strech:=False;
Image1.AutoSize:=True;
Image1.Center:=True;
Image1.Picture.Assign(YourBitmap);
Image1.AutoSize:=False;
Image1.Width:=Image1.Width div 2;
Image1.Height:=Image1.Height div 2;
Image2.AutoSize:=False;
Image2.Width:=Image1.Width ;
Image2.Height:=Image1.Height ;
Image2.Canvas.Draw(0,0,Image1.Picture.Graphic );
TCanvas.Draw(Rect.Left,Rect.Top,Image2.Picture.Bitmap);
Image1.Strech:=False;
Image1.AutoSize:=True;
Image1.Center:=True;
Image1.Picture.Assign(YourBitmap);
Image1.AutoSize:=False;
Image1.Width:=Image1.Width div 2;
Image1.Height:=Image1.Height div 2;
Image2.AutoSize:=False;
Image2.Width:=Image1.Width ;
Image2.Height:=Image1.Height ;
Image2.Canvas.Draw(0,0,Image1.Picture.Graphic );
TCanvas.Draw(Rect.Left,Rect.Top,Image2.Picture.Bitmap);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货