FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index To do - WishList / Por hacer - Peticiones ADJUST en Bitmap
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
ADJUST en Bitmap
Posted: Tue Mar 07, 2006 01:33 PM

Antonio,

Como teneis el tema del ADJUST en los bitmaps ?

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

Saludos.
C.

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
ADJUST en Bitmap
Posted: Tue Mar 07, 2006 03:52 PM

Carles,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
ADJUST en Bitmap
Posted: Wed Mar 08, 2006 07:50 AM
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.

#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.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
ADJUST en Bitmap
Posted: Wed Mar 08, 2006 08:42 AM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
ADJUST en Bitmap
Posted: Wed Mar 08, 2006 09:20 AM
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.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
ADJUST en Bitmap
Posted: Thu Mar 09, 2006 07:38 AM

Carles,

Puedes poner el código del ejemplo completo ? gracias :)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
ADJUST en Bitmap
Posted: Thu Mar 09, 2006 07:50 AM
Antonio,

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


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.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
ADJUST en Bitmap
Posted: Thu Mar 09, 2006 08:08 AM

Carles,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
ADJUST en Bitmap
Posted: Thu Mar 09, 2006 08:13 AM

Antonio,

Caray, q rapido cuando quieres ( o cuando puedes :wink: )

Voy a probarlo a ver q tal. -> Gracias

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

Saludos.
C.

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
ADJUST en Bitmap
Posted: Thu Mar 09, 2006 10:18 AM

Carles,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion