Antonio oGet:oBtn:lCancel:=.T. no me funciona

[Ruben D. Fernandez]

Antonio.

Este código me da error
REDEFINE GET oGet VAR iNfam ID 170 OF iDlg1 FONT xFont1 PICTURE "@!" ;
ACTION (FamiBus(), oGet:SetFocus(), iDlg1:Update()) ;
VALID (Verfami22(iDlg1)) UPDATE
oGet:oBtn:lCancel:=.t.

Da el error
Application
===========
Path and name: C:\Fuentes32\F3CC\F3CC.Exe (32 bits)
Size: 6,487,552 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 03/10/2008, 19:33:39
Error description: Error BASE/1005 No exported variable: LCANCEL
Args:
[ 1] = U
[ 2] = L .T.

Stack Calls
===========
Called from: => _LCANCEL(0)
Called from: F3cc05.prg => NEW_ITEM(655)...

Alguna sugerencia.

Gracias Maestro.

Ruben Fernandez.
FWH0809

[Antonio Linares]

Ruben,

Tienes que asignar ese valor desde la claúsula ON INIT del diálogo que es cuando el botón ya se habrá creado:

Code: Select all  Expand view  RUN

ACTIVATE DIALOG oDlg ;
   ON INIT ( oGet:oBtn:lCancel :=.t. )


[Ruben D. Fernandez]

Gracias Maestro: Funcionó.

En la version 0810 estará arreglado?
(o que y donde cambio para ya tenerlo)

Gracias nuevamente

Ruben Fernandez

[Antonio Linares]

Ruben,

No hay nada que arreglar

El botón no puede crearse hasta que no existe el handle de su contenedor (el GET) y dicho handle no se crea hasta que no se inicializa el diálogo.

[Antonio Linares]

Ruben,

Rectifico! Ya lo habíamos arreglado para facilitar su uso.

Si está arreglado, y estará incluido en la versión 8.10. Hay que añadir esta línea aqui:

Code: Select all  Expand view  RUN

METHOD CreateButton() CLASS TGet

   ...
      ::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused   
   endif   
   
return nil   


[Ruben D. Fernandez]

Gracias Maestroooooooooooooooo

Ruben Fernandez.