Page 1 of 1
Folders y recursos
Posted: Mon Aug 07, 2006 12:20 pm
by 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
Posted: Mon Aug 07, 2006 4:29 pm
by R.F.
Si, funciona perfectamente:
Code: Select all
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.)
Posted: Mon Aug 07, 2006 5:17 pm
by 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