Pasar Imagen gdi+ a gdi

[mastintin]

pues parece que funciona bien ...

Code: Select all  Expand view

function Main()

   local oWnd
   local oImage

   DEFINE WINDOW oWnd TITLE "Testing GDI+ Class" FROM 5,5 TO 600, 800 PIXEL
   
   @ 3, 38 BITMAP oimage File "hola" size 120,120 of oWnd // cargamos la imagen en vacio.

   ACTIVATE WINDOW oWnd on init cogeimagen() ;
      ON PAINT Gditest(  oImage )

return nil

function Gditest(  oImage )
 
   // local cfile:= cGetfile("escoge una imagen")  // funciona también con png

  local cFile := "c:\fwh\bitmaps\pngs\image6.png"
   local obmp:= gdiBmp():new( cFile )
  oImage:hBitmap := GDIPLUSCREATEHBITMAPIMAGE( obmp:hbmp )  
  oImage:HasAlpha()
  oimage:refresh()

 Return nil

 

[hmpaquito]

Venga Manuel ! Estás llevando fwh más lejos.

Muchas gracias por tus grandes aportaciones.

Si tu estás en paro, con lo que dominas, no sé donde voy a parar yo.

Un cordial saludo.

[Antonio Linares]

Manuel,

Estás que te sales!!!

Mil gracias