GDI problem

[Silvio.Falconi]

when I use the function

oImage1:= GDIBmp():new(,"hotdog" )

and move the WINDOW or size the WINDOW where I show the bitmap or I put another application window on the window where I show the bitmap
it erased the bitmap

[Antonio Linares]

Silvio,

Please provide a small PRG to test it, thanks

[Silvio.Falconi]

Code: Select all  Expand view

    #include "FiveWin.ch"
    #include "constant.ch"

    static oWnd,oBmp



    Function Main()



      DEFINE BITMAP oBmp FILENAME "C:\fwh\bitmaps\pngs\Logo.png"
      DEFINE WINDOW oWnd  FROM 10, 10 TO 48,110 TITLE "test"  

      DrawImage(oBmp)


      ACTIVATE WINDOW oWnd ;
        on init DrawImage(oWnd)  
    return nil

     function DrawImage(ownd)
    local hdc:= oWnd:getdc()
    local oGraphics := Graphics():New( ownd:hDC )
    local oImage:= GDIBmp():new(,"cuoco" )

    oGraphics:DrawImage( oImage , 60 ,60 )

    oGraphics:destroy()
    oWnd:releasedc()

    Return nil
       

if you resize the window or put another window over the image ...pouff !!!

[nageswaragunupudi]

Obvious.
You should draw image in ON PAINT.
Not ON INIT.

[Silvio.Falconi]

Sorry,
this was only a sample
I cannot pubblish all sources

[nageswaragunupudi]

I do not want your sources. I do not have any use with them.

I pointed out the error in your sample and explained why your image is vanishing.

If you want to learn or not it is upto you.

[Silvio.Falconi]

some have changed the function DrawImage on gdiplus because

I had

oGraphics:DrawImage( aImages[i] , 1 ,aPos[i])

and it run ok

Now ( I have also the fwh March 2016)

oGraphics:DrawImage( aImages[i] , aPos[i],1 )

I have this

METHOD DrawImage( oImage, nTop, nleft, nWidth, nHeight ) CLASS Graphics

if Empty(nWidth ) .or. Empty( nHeight )
GdiPlusDrawImage( ::hGraphics, oImage:hBmp, nTop, nLeft )
else
GdiPlusDrawImage( ::hGraphics, oImage:hBmp,nTop,nLeft, nWidth, nHeight )
endif

Return nil

[Silvio.Falconi]

I do not want your sources. I do not have any use with them.

I pointed out the error in your sample and explained why your image is vanishing.

If you want to learn or not it is upto you.

the sources not is the problem for me I just only say to you I use the clausole ON INIT on my application it was only a test because
I not found a solution

my problem not is "on init " but is another
I tried also with On Paint ( on my app) the error is the same

I sent you my test

[cnavarro]

Silvio, try
I hope i understood you

Code: Select all  Expand view

#include "FiveWin.ch"

Static oWnd
Static oBmp
Static oImage

Function Main()

   DEFINE WINDOW oWnd  FROM 1, 1 TO 38,80 TITLE "Test"  

      DrawImage1()
      DrawImage2()
   
   ACTIVATE WINDOW oWnd ON PAINT ( DrawImage1(), DrawImage2() ) //  ON INIT ( DrawImage1(), DrawImage2() )

   oBmp:Destroy()
   oImage:Destroy()

return nil
   
Function DrawImage1()

   local hdc
   local oGraphics

   hdc       := oWnd:GetDC()
   oGraphics := Graphics():New( hDC )
   
   if Empty( oBmp )
       oBmp      := GDIBmp():new("..\bitmaps\pngs\pan_setting.png" )
   endif
   oGraphics:DrawImage( oBmp , 10 ,10 )

   oGraphics:Destroy()
   oWnd:ReleaseDC()

Return nil

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

function DrawImage2()

   local hdc
   local oGraphics
   
   hdc       := oWnd:GetDC()
   oGraphics := Graphics():New( hdc )

   if Empty( oImage )
      oImage:= GDIBmp():new("D:\fwh\fwhteam\bitmaps\sms.bmp" )
   endif
   oGraphics:DrawImage( oImage ,100 ,100 )

   oGraphics:destroy()
   oWnd:releasedc()

Return nil
 
//----------------------------------------------------------------------------//

 

[ukoenig]

Another complete GDI-test

1. draw a image ON PAINT ( windows )
2. draw a image on button-action
3. testing window on move ( image stays visible )
4. testing window on resize ( image stays visible )
5. testing different backgrounds

http://www.pflegeplus.com/DOWNLOADS/GDITest1.zip



best regards
Uwe

[Silvio.Falconi]

Uwe, do u remeber roller test
when I change the size of the window the image make with gdi vanish