把选择的部分保存到文件,看了他带的例子,只能把选择的拖动,就是不知道怎样保存

解决方案 »

  1.   

    记下在TImage框选的区域坐标 startX, startY, endX, endY
    var
      aBmp: TBmitmap;
    begin
      aBmp:= TBmitmap.Create;
      try
        aBmp.Width:=endX- StartX;
        aBmp.Height:=endY- stratY;
        SetStretchBltMode(aBmp.Canvas.Handle, HalfTone);
        StretchBlt(aBmp.Canvas.Handle, 0, 0, aBmp.Width, aBmp.Height,
           TImage.Picture.Bitmap.Canvas.Handle, startX, startY,  
              aBmp.Width, aBmp.Height, SRCCOPY);
       aBmp.SaveToFile('c:\tmp.bmp');
     finally
       aBmp.Free;
     end; 
      
      

  2.   

    http://rabbitfox.blog.sohu.com/50812083.html
      

  3.   

    http://rabbitfox.blog.sohu.com/50812083.html
    裁剪下来的图片有边框,怎样把边框去掉呢?
      

  4.   

    to 楼上:我没发现有边框。如果真的有,其实也简单:Rect可以任意调整的。例如Rect(10,10,100,100),有一个1像素宽的边框,那去掉边框就是Rect(11,11,99,99)