clear tImage

Natter · Post by **Natter** » Tue Jul 22, 2008 9:36 pm

Hi all !
I created image

oIm:=tImage():New()
oIm:LoadBmp(cFile)

I want delete BMP from oIm. How do it ?

StefanHaupt · Post by **StefanHaupt** » Tue Jul 22, 2008 9:53 pm

Natter,

if you want to change the image just load load a new one
oIM:SetBmp(cResName) or oIM:ReLoad( cResName, cBmpFile )

if you want to delete the bmp you can destroy the object, just write oIM := nil or you try to load an unexisting image (not tested)

Natter · Post by **Natter** » Tue Jul 22, 2008 10:09 pm

... delete the bmp you can destroy the object, just write oIM := nil or you try to load an unexisting image (not tested)"

I do it. It's not work

ralph · Post by **ralph** » Wed Jul 23, 2008 3:59 am

try this:

oIm:hbitmap := 0
oIm:Refresh()

Ralph

Natter · Post by **Natter** » Wed Jul 23, 2008 6:19 am

It's not work

mmercado · Post by **mmercado** » Wed Jul 23, 2008 7:19 am

Natter wrote:It's not work

May be:

Code: Select all

PalBmpFree( oIm:hBitMap, oIm:hPalette )

Regards.

Manuel Mercado.

Wed Jul 23, 2008 9:45 am

This is a sample:

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oImg

    DEFINE DIALOG oDlg;
           SIZE 700, 500

    @ 1, 1 IMAGE oImg;
           FILE "SFONDO.JPG";
           SIZE 200, 200;
           ADJUST

    @ 0,  1 BUTTON "Save";
            ACTION MSGINFO( oImg:SaveImage( "SAVED.JPG", 2 ) )

    @ 0,  7 BUTTON "Print";
            ACTION PRINT( oImg )

    @ 0, 13 BUTTON "Paste";
            ACTION ( oImg:LoadFromClipboard(),;
                     oImg:Refresh() )

    @ 0, 19 BUTTON "Load";
            ACTION ( oImg:LoadImage( , "GRIGIO.JPG" ),;
                     oImg:Refresh() )

    @ 0, 25 BUTTON "Clear";
            ACTION ( PalBmpFree( oImg:hBitMap, oImg:hPalette ),;
                     oImg:hBitmap := 0,;
                     oImg:hPalette := 0,;
                     oImg:cResName := NIL,;
                     oImg:cBmpFile := NIL,;
                     oImg:Refresh() )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION PRINT( oImg )

    LOCAL oPrn

    PRINT oPrn PREVIEW MODAL
        PAGE
            oPrn:SayImage( 0, 0, oImg, oPrn:nHorzRes(), oPrn:nVertRes() )
        ENDPAGE
    ENDPRINT

    RETURN NIL

EMG

James Bott · Post by **James Bott** » Wed Jul 23, 2008 12:58 pm

It looks like the TImage class needs an End() method.

James

mmercado · Post by **mmercado** » Wed Jul 23, 2008 3:29 pm

James Bott wrote:It looks like the TImage class needs an End() method.

Hi James:

It has. TImage is a TBitmap subclass, then inherits Destroy Method.

Best regards.

Manuel Mercado

Natter · Post by **Natter** » Wed Jul 23, 2008 4:56 pm

Thank everybody !

@ 0, 25 BUTTON "Clear";
ACTION oImg:hBitmap := 0, ;
oImg:cBmpFile := NIL,;
oImg:Refresh() )

It work right !

James Bott · Post by **James Bott** » Wed Jul 23, 2008 4:59 pm

It has. TImage is a TBitmap subclass, then inherits Destroy Method.

It is not clear if we should call the Destroy() method or the End() method. I see that TBitmap inherits from TControl which inherits from TWindow, yet I do not see the Destroy() method being called by any of those classes' End() method.

To be consistant with all the other classes, the End() method should be the one that ends the object.

James

James Bott · Post by **James Bott** » Wed Jul 23, 2008 5:01 pm

Natter,

Try calling oImg:End() or oImg:Destroy() to see if one of those also works.

James

Natter · Post by **Natter** » Wed Jul 23, 2008 5:21 pm

1) calling oImg:End() - this method deleted control
2) calling oImg:Destroy() - this method not work right.

Wed Jul 23, 2008 5:36 pm

Natter wrote:Thank everybody !

@ 0, 25 BUTTON "Clear";
ACTION oImg:hBitmap := 0, ;
oImg:cBmpFile := NIL,;
oImg:Refresh() )

It work right !

It's not enough. Please use what I put in my sample if you don't want to have resource leak.

EMG