请问这样的取图效果有没有办法实现呀.? ( 积分: 30 )

公司要求软件里实现这么一个功能:有一个IMAGE,里面装载了一个BMP图像,现在的目的是想在里面抓一个128*128的图片,用鼠标直接抓取已经实现了,但是要用鼠标一格一格慢慢的移动来定位,现在想,有没有办法,在鼠标移到image上的时候,就以鼠标为基点,画出一个128*128的白色矩形出来,这样就可以很好的对要取的图像定位了.但是当我没有确定时,这个白色矩形框会跟着当标移动.哪位大虾告诉一下,感激不尽....

公司要求软件里实现这么一个功能:有一个IMAGE,里面装载了一个BMP图像,现在的目的是想在里面抓一个128*128的图片,用鼠标直接抓取已经实现了,但是要用鼠标一格一格慢慢的移动来定位,现在想,有没有办法,在鼠标移到image上的时候,就以鼠标为基点,画出一个128*128的白色矩形出来,这样就可以很好的对要取的图像定位了.但是当我没有确定时,这个白色矩形框会跟着当标移动.哪位大虾告诉一下,感激不尽....

http://www.fm201.com/software-janitor-1.htm
源码下载 希望有帮助

with image1.Canvas do
begin
moveto(oldsxw_x,oldsxw_y);
lineto(oldsxw_x+map_w,oldsxw_y); //第一画
moveto(oldsxw_x+map_w,oldsxw_y);
lineto(oldsxw_x+map_w,oldsxw_y+map_h);// 第二画
moveto(oldsxw_x,oldsxw_y);// moveto(oldsxw_x+128,oldsxw_y+16);
lineto(oldsxw_x,oldsxw_y+map_h);//lineto(0,oldsxw_y+16);//第三画
moveto(oldsxw_x,oldsxw_y+map_h);//moveto(0,oldsxw_y+16);
lineto(oldsxw_x+map_w,oldsxw_y+map_h); //lineto(0,oldsxw_Y);//第四画
//-----------------------------
moveto(x,y);
lineto(x+map_w,y); //第一画
moveto(x+map_w,y);
lineto(x+map_w,y+map_h);// 第二画
moveto(x,y);// moveto(oldsxw_x+128,oldsxw_y+16);
lineto(x,y+map_h);//lineto(0,oldsxw_y+16);//第三画
moveto(x,y+map_h);//moveto(0,oldsxw_y+16);
lineto(x+map_w,y+map_h); //lineto(0,oldsxw_Y);//第四画
refresh;
end;

多人接受答案了。