Xailer & OZ Software

Hola:
Intento abrir un archivo de imagen con el comando RUN si creo este método funciona perfectamente, abre el visor de imagenes de Windows y me muestra la imagen:
METHOD ImagenDblClick( oSender, nKeyFlags, nPosX, nPosY ) CLASS TMotos
RUN "C:GZMimagenesCCF29112011_00000.jpg"
RETURN Nil
Sin embargo si lo paso como una variable, del siguiente modo, no abre el visor de imagenes de Windows y no me funciona:
METHOD ImagenDblClick( oSender, nKeyFlags, nPosX, nPosY ) CLASS TMotos
local cImagen
cImagen := "C:GZMimagenesCCF29112011_00000.jpg"
RUN cImagen
RETURN Nil
Alguien me podrí­a decir algo al respecto, en realidad lo que busco es poder imprimir una determinada imagen, si hay algún otro sistema ( además de este de abrir el visor de imagenes de windows, me servirí­a igual)
Anticipadamente gracias,
Emilio Gil.

Emilio,
utiliza esto como punto de partida:
FUNCTION PrintImage( oPicture, lPreview )
Application:lBusy := .T.
Printer:lPreview := lPreview
Printer:cJobTitle := "Imprimir imagen"
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmPIXELS
Printer:StartPage()
Printer:oCanvas:DrawPicture( { 100, 100, Printer:PaperRes()[1],
Printer:PaperRes()[2] }, oPicture )
Printer:EndPage()
Printer:EndDoc()
Application:lBusy := .F.
IF lPreview
Printer:Preview()
ENDIF
RETURN Nil
Para usarla:
oPicture := TPicture():Create( cImagen )
PrintImage( oPicture, .T. | .F. )
oPicture:Destroy()
Saludos,
José Lalí­n

Lo que dice Jose es lo mejor pero si quieres seguir como antes prueba en
vez de
RUN cImagen
esto
RUN &(cImagen)
El 16/12/2011 12:37, Emilio Gil escribió:
> Hola:
>
> Intento abrir un archivo de imagen con el comando RUN si
> creo este método funciona perfectamente, abre el visor de
> imagenes de Windows y me muestra la imagen:
>
> METHOD ImagenDblClick( oSender, nKeyFlags, nPosX, nPosY )
> CLASS TMotos
>
> RUN "C:GZMimagenesCCF29112011_00000.jpg"
> RETURN Nil
>
> Sin embargo si lo paso como una variable, del siguiente
> modo, no abre el visor de imagenes de Windows y no me
> funciona:
>
> METHOD ImagenDblClick( oSender, nKeyFlags, nPosX, nPosY )
> CLASS TMotos
> local cImagen
>
> cImagen := "C:GZMimagenesCCF29112011_00000.jpg"
>
> RUN cImagen
>
> RETURN Nil
>
> Alguien me podrí­a decir algo al respecto, en realidad lo
> que busco es poder imprimir una determinada imagen, si hay
> algún otro sistema ( además de este de abrir el visor de
> imagenes de windows, me servirí­a igual)
>
> Anticipadamente gracias,
> Emilio Gil.

Muchas gracias a los dos, ambas soluciones me son satisfactorias.
Un saludo,
Emilio Gil.