放大圖片框圖像我有一個彈出窗口,裡面顯示一張圖片。我希望用戶能夠放大圖片查看更多細節,但我沒有在視窗中找到任何縮放功能。請問如何實現這個功能?
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>