TButtonBmp ayuda

[tomafa]

tengo el siguiente problema, tengo un ejemplo simple y ya he revisado en el foro documentacion pero nada que he encontrado, uso la classe TButtonBmp, tengo un get que tiene un valid, pero el botton no me deja salir por la validacion que hago ya le puse la clasula CANCEL y aun asi no me deja

dejo el codigo

REDEFINE VGet oGets[3] VAR nGets[3] ID 113 OF oDlg VALID( DNotas() )

REDEFINE BUTTONBMP ID 111 OF oDlg PROMPT "&Cerrar" ACTION oDlg:End() BITMAP "CERRAR" CANCEL

[Antonio Linares]

Aqui tienes un ejemplo funcionando correctamente:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, cName := Space( 20 )

   DEFINE DIALOG oDlg

   @ 1, 2 GET cName VALID .F.

   @ 3, 8 BUTTONBMP PROMPT "Salir" CANCEL SIZE 50, 10 ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil   


Por favor, acostumbraros a proporcionar un ejemplo así, pequeño y autocontenido, para poder dar soporte técnico rapidamente, gracias