Folders y recursos

[jmartial]

Hola,

He estado repasando y probando los ejemplos de Folders y compruebo que no existe ninguno definiendo los controles say, get, etc redefinidos desde el .RC, sino que están posicionados "a pelo" desde código.

¿ Funciona el redefinir says, gets, etc ? ¿Existe algún ejemplo en .RC para hacer esto?


Un Saludo,
Joaquín

[R.F.]

Si, funciona perfectamente:

Code: Select all  Expand view

FUNCTION Preferencias()
   LOCAL oDlg, oFld, lContinuar := .F.
   LOCAL nBuffer := mem_nBuf
   LOCAL oGet, oChkbox
   MsgInfo(nBuffer)
   MsgInfo(mem_lkey)
   DEFINE DIALOG oDlg RESOURCE "Dialogo2" OF oWnd
      REDEFINE FOLDER oFld ID 101 OF oDlg ITEMS "General","Seguridad" DIALOGS "pesta1"
         REDEFINE GET oGet VAR mem_nBuf PICTURE "99" ID 102 OF oFld:aDialogs[1]
         REDEFINE CHECKBOX oChkBox VAR mem_lKey ID 101 OF oFld:aDialogs[1]

      REDEFINE BUTTON ID 102 OF oDlg ACTION (lContinuar := .T. ,oDlg:End())
      REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg:End()
   ACTIVATE DIALOG oDlg ON INIT oDlg:Move(0,0)
   IF lContinuar
      SAVE TO (curdir()+"\notes.mem") ALL LIKE mem*
      IF nBuffer <> mem_nBuf
         notes->(DBGOTOP())
         DBEVAL({|| notes->header := SUBSTR(notes->Nota,1,mem_nBuf)})
         notes->(DBGOTOP())
      ENDIF
   ENDIF
RETURN (.T.)

[jmartial]

Gracias René,

He retocado el ejemplo TestFld.prg y .Rc que viene en samples, le he cambiado el color y redefinido el say y funciona perfectamente.


Un Saludo,
Joaquín