:end()

[josevalle]

Hojeando el foro he visto que hay que hacer :end() de los objetos al salir
de una funcion, incluso de los objetos Locales.

¿Es así?

En el ejemplo de Carles hay cuatro objetos, oBmp, oDlg, oSay, oFont

¿por que solo con 2 de ellos se hace :end()?

oBmp:End()
oFont:End()

¿Hay alguna forma de ver que objetos hay en memoria?


*----------------------
STATIC FUNCTION About()
*----------------------
LOCAL oBmp, oDlg, oSay, oFont
LOCAL cText := 'Ejemplo de uso de FWPPC' + CRLF + CRLF + ;
'(c) Carles Aubia'

DEFINE FONT oFont NAME 'Arial' SIZE 0, -10

DEFINE DIALOG oDlg RESOURCE "About"

REDEFINE BITMAP oBmp NAME 'FWPPC' ID 200 OF oDlg

REDEFINE SAY oSay PROMPT cText ID 210 OF oDlg ;
FONT oFont COLOR CLR_BLACK, CLR_WHITE

oDlg:blClicked := {|| oDlg:End() }
oBmp:blClicked := {|| oDlg:End() }

ACTIVATE DIALOG oDlg CENTERED

oBmp:End()
oFont:End()

RETU NIL

[Carles]

Hola Jose,

Realmente solo se tendria de aplicar el metodo End() al objeto oFont. oBmp ya lo destruye oDlg. Seguramente se quedo asi de las muchas pruebas q realize.

[josevalle]

Ahora ya lo entiendo.

Nunca había usado fivewin pero con vuestra ayuda es muy fácil de utilizar.

[Antonio Linares]

Jose,

El método End() lo usamos para destruir determinados valores (handles) de Windows que precisan ser liberados, ó se consumen recursos del sistema, tales como handles de ventanas, recursos GDI (fonts, bitmaps, pens,etc), timers, etc.