Xailer & OZ Software

Hola,
Este trozo de código
o := tPicture():Load(::cPlano)
Printer:lPreview := .t.
Printer:cJobTitle := "Impresión de plano de utillaje"
n := Printer:nPaperSizeType
Printer:nPaperSizeType := DMPAPER_A4 // A4
logdebug(o:nHeight)
logdebug(o:nWidth)
IF o:nHeight < o:nWidth
Printer:nOrientation := DMORIENT_PORTRAIT
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:DrawPicture( {100, 100, 2000, 2500}, ::oImagen:oPicture)
END WITH
ELSE
Printer:nOrientation := DMORIENT_LANDSCAPE
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:DrawPicture( {100, 100, 2500, 2000}, ::oImagen:oPicture)
END WITH
ENDIF
Printer:EndPage()
Printer:EndDoc()
Los dos logdebugs muestran siempre el valor 0 tanto para el alto como para
el ancho.
¿Es correcta esta información?
--
Saludos,
José Luis Capel
www.capelblog.com vuelve a estar online!!

José Luis,
> Este trozo de código
>
> o := tPicture():Load(::cPlano)
>
>
> Printer:lPreview := .t.
> Printer:cJobTitle := "Impresión de plano de utillaje"
> n := Printer:nPaperSizeType
> Printer:nPaperSizeType := DMPAPER_A4 // A4
>
> logdebug(o:nHeight)
> logdebug(o:nWidth)
>
> IF o:nHeight < o:nWidth
> Printer:nOrientation := DMORIENT_PORTRAIT
> Printer:StartDoc()
> Printer:oCanvas:nMapMode := mmHIMETRICS
> Printer:StartPage()
> WITH OBJECT Printer:oCanvas
> :DrawPicture( {100, 100, 2000, 2500}, ::oImagen:oPicture)
> END WITH
> ELSE
> Printer:nOrientation := DMORIENT_LANDSCAPE
> Printer:StartDoc()
> Printer:oCanvas:nMapMode := mmHIMETRICS
> Printer:StartPage()
> WITH OBJECT Printer:oCanvas
> :DrawPicture( {100, 100, 2500, 2000}, ::oImagen:oPicture)
> END WITH
> ENDIF
>
> Printer:EndPage()
> Printer:EndDoc()
>
> Los dos logdebugs muestran siempre el valor 0 tanto para el alto como para
> el ancho.
>
> ¿Es correcta esta información?
¿Has comprobado que la imagen se está cargando correctamente? Puede que lo
que esté ocurriendo es simplemente que no encuentra la imagen.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

José,
La imagen se imprime. De hecho, ese trozo de código es parte del que viste
en la reunión del viernes donde vimos el error en el texto de ayuda del
método DrawPicture.
Si quieres un ejemplo te lo mando.
--
Saludos,
José Luis Capel
www.capelblog.com vuelve a estar online!!
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje de
noticias news:47120a93$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> José Luis,
>
>> Este trozo de código
>>
>> o := tPicture():Load(::cPlano)
>>
>>
>> Printer:lPreview := .t.
>> Printer:cJobTitle := "Impresión de plano de utillaje"
>> n := Printer:nPaperSizeType
>> Printer:nPaperSizeType := DMPAPER_A4 // A4
>>
>> logdebug(o:nHeight)
>> logdebug(o:nWidth)
>>
>> IF o:nHeight < o:nWidth
>> Printer:nOrientation := DMORIENT_PORTRAIT
>> Printer:StartDoc()
>> Printer:oCanvas:nMapMode := mmHIMETRICS
>> Printer:StartPage()
>> WITH OBJECT Printer:oCanvas
>> :DrawPicture( {100, 100, 2000, 2500}, ::oImagen:oPicture)
>> END WITH
>> ELSE
>> Printer:nOrientation := DMORIENT_LANDSCAPE
>> Printer:StartDoc()
>> Printer:oCanvas:nMapMode := mmHIMETRICS
>> Printer:StartPage()
>> WITH OBJECT Printer:oCanvas
>> :DrawPicture( {100, 100, 2500, 2000}, ::oImagen:oPicture)
>> END WITH
>> ENDIF
>>
>> Printer:EndPage()
>> Printer:EndDoc()
>>
>> Los dos logdebugs muestran siempre el valor 0 tanto para el alto como
>> para el ancho.
>>
>> ¿Es correcta esta información?
>
> ¿Has comprobado que la imagen se está cargando correctamente? Puede que lo
> que esté ocurriendo es simplemente que no encuentra la imagen.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>

José Luis,
> La imagen se imprime. De hecho, ese trozo de código es parte del que
> viste en la reunión del viernes donde vimos el error en el texto de ayuda
> del método DrawPicture.
Bueno, si te fijas bien verás que la imagen que imprimes es otra. La que
imprimes es ::oImage:oPicture, mientras que la imagen de la que quieres
obtener sus dimensiones la estás cargando con o := tPicture():Load(::cPlano)
Prueba a obtener las dimensiones de ::oImage:oPicture
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

José,
>
> Bueno, si te fijas bien verás que la imagen que imprimes es otra. La que
> imprimes es ::oImage:oPicture, mientras que la imagen de la que quieres
> obtener sus dimensiones la estás cargando con o :=
> tPicture():Load(::cPlano)
>
> Prueba a obtener las dimensiones de ::oImage:oPicture
>
Ostras Pedrín!!
Lo reviso...
Saludos,
José Luis Capel