Timage如何实现jpg的任意缩放，鼠标移动？ ( 积分: 100 )

RT，如同ACDSEE一样。

RT，如同ACDSEE一样。

Timage有个Stretch属性，设置为TRUE的时候会自动拉伸，就像ACDSEE的适应大小显示。只要你用代码改变Timage的大小，就可以实现jpg的任意缩放了。
至于要做到象ACDSEE一样用鼠标移动，我想你要在Timage的MouseDOWN事件自己写代码去改变Timage在窗体上的位置了。
另外，Timage还有AutoSize,Center两个属性，可能对你有点用，你可以看看。

用imageen试试

Uses
...,JPEG;
Var
tempJPEG:TJpegImage;
tempBitmap:TBitamp;
begin
tempJPEG:=TJpegImage.Create;
tempBitmap:=TBitmap.Create;
tempJPEG.LoadFromFile(OpenPictureDialog1.FileName);
tempBitmap.Assign(tempJPEG);
end;
上面的代码用来读jpg文件
缩放用Timage.Canvas.CopyRect就可以缩放画出tempBitamp
鼠标移动没有做过，应该直接重画就可以了把