Deleteobject function fails

[hmpaquito]

Hi,

In this sample deleteObject() function fails, because do not release hBrush object.
There is no DC context associate.

Please, help me.

Regards.

Code: Select all  Expand view  RUN

//-------------------------------------------------------------------------//
STATIC FUNCTION PruebaRecursos()

Local hBrush
Local l1, l2

hBrush:= CreateSolidBrush(CLR_RED)

l1:= isgdiobject(hbrush)
l2:= deleteobject(hbrush)

MsgInfo(Transform(l1, ""))  // .t.
MsgInfo(Transform(l2, ""))  // .f.
return nil
 

[Enrico Maria Giordano]

Your sample works fine here:

Code: Select all  Expand view  RUN

MsgInfo(Transform(l2, ""))  // .t.

EMG

[nageswaragunupudi]

MsgInfo(Transform(l1, "")) // .t.
MsgInfo(Transform(l2, "")) // .f.

Where is the need to use Transform() here?
We can directly write

MsgInfo( l1 )
MsgInfo( l2 )

Or is there any special reason for using transform() ?

[hmpaquito]

Your sample works fine here:

Code: Select all  Expand view  RUN

MsgInfo(Transform(l2, ""))  // .t.

EMG

Yoi're right. Thks.

[hmpaquito]

MsgInfo(Transform(l1, "")) // .t.
MsgInfo(Transform(l2, "")) // .f.

Where is the need to use Transform() here?
We can directly write

MsgInfo( l1 )
MsgInfo( l2 )

Or is there any special reason for using transform() ?

Yoi're right. Thks.