ADJUST en Bitmap

[Carles]

Antonio,

Como teneis el tema del ADJUST en los bitmaps ?

Aparece u2 mensajes -> Not implemented yet -> CreateBitmapIndirect() y SetStretchBlt()


Saludos.
C.

[Antonio Linares]

Carles,

Son funciones que no soporta el API de Windows Mobile. Tenemos que implementar unas equivalentes, ó hacerlo de otra forma.

[Carles]

Antonio,

Esta bien, pero p.e. si ejecutas el codigo (tutor11) añadiendo el ancho y alto en oWnd:SayBitmap(), aparecen los dos mensajes pero despues muestra el bitmap redimensionado. No habria manera de momento, 'capar' estas dos funciones.

Code: Select all  Expand view  RUN

#include "FWCE.ch"

//----------------------------------------------------------

function Main()

   local oWnd, oBmp

   DEFINE BITMAP oBmp FILE CurDir() + "\test.bmp"

   DEFINE WINDOW oWnd TITLE "Tutor11"

   ACTIVATE WINDOW oWnd ;
            ON PAINT oWnd:SayBitmap( 10, 10, oBmp, 20, 20 )   // <- 20, 20

   oBmp:End()

return nil

//----------------------------------------------------------


Nota: Para poner una imagen en el post, es necesario ponerla en una url primero ?. Como lo haces tu ?

Saludos.
C.

[Antonio Linares]

Carles,

Los avisos están puestos para recordar las funciones que no están disponibles en el API de Windows Mobile. Si conseguimos implementar una determinada funcionalidad de otra forma, entonces no son llamadas y no aparecen los mensajes

>
Nota: Para poner una imagen en el post, es necesario ponerla en una url primero ?. Como lo haces tu ?
>

Sí, primero alojas la imagen en un servidor de imágenes como www.imageshack.us y te proporciona una dirección URL que es la que hay que copiar aqui.

[Carles]

Antonio

Yo lo decia, porque a apriori, he creado ejemplos jugando con el tamaño, y funciona perfectamente. Por eso te decia la posiblidad 'momentanea' de quitar los mensajes, para poder utilizar ya esta funcionalidad.

Imagen con parametros nWidth y nHeight




Imagen normal




Q te parece ?

Saludos.
C.

[Antonio Linares]

Carles,

Puedes poner el código del ejemplo completo ? gracias

[Carles]

Antonio,

Es el ejemplo tutor11, añadiendo en el metodo :Saybitmap(), el cuarto y quinto parametro (nWidth, nHeight)

Code: Select all  Expand view  RUN

function Main()

   local oWnd, oBmp

   DEFINE BITMAP oBmp FILE CurDir() + "\test.bmp"

   DEFINE WINDOW oWnd TITLE "Tutor11"

   ACTIVATE WINDOW oWnd ;
            ON PAINT oWnd:SayBitmap( 10, 10, oBmp, 20, 20 )

   oBmp:End()

return nil


Saludos.
C.

[Antonio Linares]

Carles,

Corregido y publicado un nuevo build que además incluye la función SerialNumber() para obtener el identificador del Pocket PC.

[Carles]

Antonio,

Caray, q rapido cuando quieres ( o cuando puedes )

Voy a probarlo a ver q tal. -> Gracias

Nota: ( Te envie el MsgGet corregido, lo recibiste ?)


Saludos.
C.

[Antonio Linares]

Carles,

Sí, lo recibí. Lo que ocurre es que aún no he tenido tiempo de revisarlo. Gracias