924752_zh-CN

liliconcom

放大图片框图像

我有一个弹出窗口，里面显示一张图片。我希望用户能够放大图片查看更多细节，但我没有在窗口中找到任何缩放功能。请问如何实现这个功能？

dt = Current Data Table();<BR />// Plot bitmap
bitmap = New Window( (dt << Get Name()) || " Bit Map",
	pic_file = Open( file_path, png);
	pic_file << Set Size( {500, 500} );
	pb = Picture Box( pic_file );
);

自动化和脚本编写回复：放大图片框图像

通过图表框提供图像是允许用户使用工具栏中的放大镜工具的一种方法。

编辑：忘记添加示例脚本了

Names Default To Here(1);

imgBox = Graph Box(frameSize(500, 500), SuppressAxes);
win = New Window("Image", imgBox);

img = Open("$SAMPLE_IMAGES/tile.jpg", "jpg");
img << Set Size({500,500});

fb = win[framebox(1)];
fb << AddImage(Image(img));
img_seg = fb<< FindSeg(PictSeg(1));

img_seg << Fill Graph;
img_seg << lock(1);

Write();

回复：放大图片框图像

哇，真是个非常有创意/非常实用的变通方法！！！

回复：放大图片框图像

定义好图片缩放之后，就可以在任何需要的地方使用它：

PictureBoxZoom = Function( {filename},
	window:img = Open( filename, "jpg" );
	Graph Box(
		frameSize( 300, 300 ),
		SuppressAxes,
		<
     <ADDIMAGE></ADDIMAGE>