924752_es-ES

liliconcom

Acercar la imagen del cuadro de imagen

Tengo una ventana emergente con una imagen. Me gustaría que los usuarios pudieran ampliarla para ver más detalles, pero no veo ninguna función de zoom en la ventana. ¿Cómo puedo lograrlo?

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 );
);

Automatización y scriptingRe: Ampliar la imagen del cuadro de imagen

Ofrecer imágenes a través de Graph Box es una opción que permitiría a los usuarios utilizar la herramienta Lupa desde la barra de herramientas.

Editar: olvidé agregar un script de ejemplo

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();

Re: Ampliar la imagen del cuadro de imagen

¡Vaya! ¡¡¡Una solución muy creativa y útil!!!

Re: Ampliar la imagen del cuadro de imagen

Después de definir zoom de imagen , se puede utilizar donde sea necesario:

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