To Antonio:

[HunterEC]

Antonio:

I've been trying to hide a button when entering a GET (via the WHEN clause) and displaying / enabling it at GET exit (via the VALID clause). The first part works OK, the second (VALID clause) does not work at all. The button stays hidden.

Code: Select all  Expand view

  @ 025,045 GET oGets[01] VAR adRefDate[1]    OF oDlg SIZE 40,10 PIXEL ;
             PICTURE "D" CENTER WHEN (oButtons[2]:hide(), oButtons[2]:disable(), .T.) ;
             VALID (oButtons[2]:show(), oButtons[2]:enable(), .T.)

Any ideas ?

[Antonio Linares]

Gustavo,

Este ejemplo puede darte una idea de como hacerlo:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oGet, cTest := Space( 20 ), oBtn

   DEFINE DIALOG oDlg

   @ 2, 5 GET oGet VAR cTest OF oDlg ;
      WHEN ( oBtn:Hide(), oGet:bWhen := nil, .T. ) ;
      VALID ( oBtn:Show(), .T. )

   @ 3, 6 BUTTON oBtn PROMPT "Ok" OF oDlg

   @ 3, 14 BUTTON "Cancel" OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

[HunterEC]

Antonio:

On your example the button appears after exiting the get the first time. If I Back-Tab to the GET the button does not disappear anymore. FiveWin 10.6 Thank you for your help.

[James Bott]

Hunter,

From a design perspective I don't think disappearing buttons are good idea. This is confusing to the user and non-standard. Disabling buttons are standard and this is what I would suggest.

Regards,
James

[FranciscoA]

Hunter, maybe you'd want to do this way:

Code: Select all  Expand view

@ 025,045 GET oGets[01] VAR adRefDate[1]    OF oDlg SIZE 40,10 PIXEL  PICTURE "D" CENTER
 oGets[01]:bGotFocus:={|| oBt1:Hide() }
 oGets[01]:bLostFocus:={|| oBt1:Show()

}

Regards.

[Antonio Linares]

Francisco,

yes, very good. I missed that one, thanks

[FranciscoA]

Antonio,
It is a pleasure to collaborate.
Best regards.

[HunterEC]

Francisco, Antonio, James:

Thank you all guys, worked "by the book", as intended.

James:

Thank you for your design tip. I'll take it for current and future developments.


Gustavo

[James Bott]

Gustavo,

I think these changes to the code will provide disable/enable capability.

Code: Select all  Expand view

@ 025,045 GET oGets[01] VAR adRefDate[1]    OF oDlg SIZE 40,10 PIXEL  PICTURE "D" CENTER
 oGets[01]:bGotFocus:={|| oBt1:disable() }
 oGets[01]:bLostFocus:={|| oBt1:enable()

James