PowerBuilder Tip #10: ¿Cómo Mostrar Imágenes TIFF en PowerBuilder?

En la actualidad, PowerBuilder no ofrece soporte nativo a imágenes en formato TIFF. Hay dos soluciones para visualizar imágenes TIFF en PowerBuilder:

1. Usar un OCX para ver la imagen TIFF (por ejemplo, Kodak Image Edit Control)

o

2. Convertir primero la imagen TIFF a un Bitmap (u otro formato soportado por PowerBuilder) usando una herramienta de terceros. 

Para usar el Kodak Image Edit Control:

1. En PowerBuilder, ir a Insert -> Control -> OLE...
2. En la pestaña Insert Control, seleccione Kodak Image Edit Control y de click en OK.
3. En su ventana, haga click en la ubicación en donde desea crear este control.
4. Para ver las propiedades y funciones disponibles, haga click en el Browser Painter (Tools -> Browser); vaya a la pestaña  OLE y expanda OLE Custom Controls; por último ubique el control.

La siguiente porción de código (que se puede usar en el evento 'clicked' de un botón) permite abrir una imagen TIFF y mostrarla en la ventana (ole_1 es el nombre del objeto):

string ls_title, ls_fullpathname, ls_filename, ls_extension, ls_filter
int li_rc

ls_title  = "Select a .TIF file"
ls_extension = "TIF"
ls_filter  = "TIF Files (*.TIF),*.TIF"

li_rc = GetFileOpenName ( ls_title, ls_fullpathname, ls_filename, ls_extension, ls_filter)

ole_1.object.ClearDisplay()
ole_1.object.Image = ls_filename
ole_1.object.Display()

Finalmente, estas dos líneas de código le permiten ver las dimenciones de la imagen:

MessageBox("Alto:", string(ole_1.object.ImageHeight))
MessageBox("Ancho:", string(ole_1.object.ImageWidth))