aeval y buttons.

[goosfancito]

Code: Select all  Expand view

::obtns:= array(2)
...
   
  REDEFINE BUTTON ::oBtns[1] ID 200 OF oDlg
  REDEFINE BUTTON ::oBtns[2] ID 201 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ON INIT (this:botones())

   RETURN (NIL)

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

METHOD botones() CLASS T

   aEval(::oBtns, {|o| o:disabled()})

   RETURN (NIL)

Me tira un error y dice:

Code: Select all  Expand view

  Error description: Warning BASE/1004  Message not found: TBUTTON:DISABLED

como lo soluciono?
gracias

[Antonio Linares]

Quitando la "d"

o:disable()

[goosfancito]

Nope.

Code: Select all  Expand view

Error description: Error BASE/1004  Class: 'NIL' has no exported method: DISABLE
   Args:
     [   1] = U  

[compubrion]

Saludos !
A quien hereda la CLASS T

[goosfancito]

a Nadie estimado.

Code: Select all  Expand view

CLASS t
   DATA nIdMascota
   DATA nIdDiagnostico
   DATA oCnx
   DATA oGets
   DATA vGets
   DATA oBtns

METHOD NEW() CONSTRUCTOR

   PROTECTED:

METHOD crear()
METHOD abm(aRespuesta)
METHOD inicializar(aRespuesta)
METHOD botones()
METHOD grabar()

METHOD browser()

END CLASS

[compubrion]

Puedes mostrar como creas el buttom, para q puedas heredar los methods dberias crearlo de esta forma

oBtn[nButon] := TButton:New( nRow, nCol, cCaption, oWnd, bAction, nWidth, nHeight, nHelpId, oFont, lDefault,;
lPixel, lDesign, cMsg, lUpdate, bWhen, bValid, lCancel,cVarName, lMultiline )


ó

oBtn[nButon]:= TButton:ReDefine( nId, bAction, oWnd, nHelpId, cMsg, lUpdate, bWhen, bValid, cPrompt, lCancel )

[albeiroval]

Goosfancito,

Prueba asi :

Code: Select all  Expand view

METHOD Prueba() CLASS T

  Local oSelf:= Self
 
  ::obtns:= array(2)
  ...
   
  REDEFINE BUTTON ::oBtns[1] ID 200 OF oDlg
  REDEFINE BUTTON ::oBtns[2] ID 201 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ON INIT (oSelf:botones())

 RETURN (NIL)

METHOD botones() CLASS T

   aEval(::oBtns, {|o| o:disable()})

   RETURN (NIL)


 

Saludos,