trackbar1.Max:=image1.Picture.Height;
MyRect:=Rect(0,0,image2.Width,trackbar1.Position);
image1.Width := MyRect.Right;
image1.Height := MyRect.Bottom;
image1.Canvas.CopyRect(image1.ClientRect, image2.Canvas,MyRect);
两个图片,根据控制条的位置。考一个图相应的位置大小的图片到另一个相应的位置,而且我想从下到上显示,问题在那里啊?///
但是后退回来,图象没有变化 /////?????
MyRect:=Rect(0,0,image2.Width,trackbar1.Position);
image1.Width := MyRect.Right;
image1.Height := MyRect.Bottom;
image1.Canvas.CopyRect(image1.ClientRect, image2.Canvas,MyRect);
两个图片,根据控制条的位置。考一个图相应的位置大小的图片到另一个相应的位置,而且我想从下到上显示,问题在那里啊?///
但是后退回来,图象没有变化 /////?????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货