259800_es-ES

liliconcom

¿Cómo abrir un archivo de imagen después de hacer clic en Picture Box?

Hola todos,

Estoy usando cuadros de imágenes para mostrar 4 imágenes cargadas desde archivos. El tamaño de las imágenes debe reducirse para fines de visualización. Sin embargo, me gustaría abrir un archivo de imagen original después de hacer clic en la imagen que se muestra en el cuadro de imagen. Agradecería sugerencias de cómo hacerlo.

Atentamente.

//initially no images
img1 = empty();
img2 = empty();
img3 = empty();
img4 = empty();
New Window("Images",             
  H List Box(
  Panel Box("El 1",  //place for EL images
   EL1 = Picture Box(img1),    
  ),
  Panel Box("El 2",
   EL2 = Picture Box(img2),
  ),
  Panel Box("El 3",
   EL3 = Picture Box(img3),
  ),
  Panel Box("El 4",
   EL4 = Picture Box(img4),
  ),
);
//here images will be opened
//img1 = open("D:\image.tif", tif);
//img1 << set size({image_w_new, image_h_new});
//EL1 << set image (img1);

Re: ¿Cómo abrir un archivo de imagen después de hacer clic en Picture Box?

¡Gracias por las sugerencias y el código! Con la apertura de una imagen original me refiero a abrir el archivo, por ejemplo, en Paint para examinar los detalles de la imagen en tamaño original. ¿Hay alguna manera de hacer eso? Saludos

EDITAR:

De hecho, podría crear una nueva ventana y luego abrir la imagen nuevamente pero en su tamaño original.

EDITAR:

Ok, logré abrir la nueva ventana y mostrar la imagen (usar Paint u otra cosa en realidad no es necesario). Estoy proporcionando código de vince_faller con cambios muy pequeños, tal vez sea útil para alguien. Gracias otra vez.

Names default to here(1);
//initially no images
img1 = empty();
img2 = empty();
img3 = empty();
img4 = empty();

New Window("Example",             
    V List Box(
  H List Box(
  mb = MouseBox(
   Panel Box("El 1",  //place for EL images
    EL1 = Picture Box(img1),    
   ),
   <<SETTRACKENABLE></SETTRACKENABLE>

Re: ¿Cómo abrir un archivo de imagen después de hacer clic en Picture Box?

Podría usar una caja de ratón.Pero comprenda que el mousebox le hará perder otras funciones del mouse para ese objeto (menús contextuales, selección de gráficos, etc.)

 

Names default to here(1);
//initially no images
img1 = empty();
img2 = empty();
img3 = empty();
img4 = empty();

New Window("Images",             
 H List Box(
  mb = MouseBox(
   Panel Box("El 1",  //place for EL images
    EL1 = Picture Box(img1),    
   ),
   <<SETTRACKENABLE></SETTRACKENABLE>