Tengo problemas con los CHECKBOX cuando los coloco en un FOLDEREX.
El siguiente codigo es una modificacion del ejemplo testchk2.prg
En este ejemplo el segundo CHECKBOX depende del primero (por eso esta deshabilitado al iniciarse).
Al hacer CLICK sobre el primer CHECKBOX, se habilita el segundo pero a su vez el segundo CHECKBOX BORRA el ESPACIO que esta debajo de el, borrando tambien los controles.
Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oFld1
LOCAL oChk,oChk2,oSay, lChk := .F., lChk2 := .t.
DEFINE DIALOG oDlg SIZE 200, 200
@ 1,1 FOLDEREX oFld1 OF oDlg;
PROMPT "&Clipper", "&Windows" PIXEL SIZE oDlg:nWidth/2, oDlg:nHeight/2
@ 2, 20 CHECKBOX oChk VAR lChk OF oFld1:aDialogs[ 1] COLOR CLR_YELLOW, CLR_GREEN PIXEL SIZE 100, 10
@ oChk:nBottom+1, oChk:nLeft-4 CHECKBOX oChk2 VAR lChk2 PROMPT "Dependiente" OF oFld1:aDialogs[ 1] COLOR CLR_YELLOW, CLR_GREEN WHEN lChk PIXEL SIZE 100, 10
@ oChk2:nBottom+3, oChk2:nLeft-4 SAY oSay PROMPT "ESTO ES UN SAY" OF oFld1:aDialogs[ 1] PIXEL SIZE 100, 10
@ oSay:nBottom+1, oSay:nLeft-4 BUTTON "&Close" ACTION oDlg:End() OF oFld1:aDialogs[ 1] PIXEL
@ oFld1:aDialogs[ 1]:nHeight-30, 2 BUTTON "&Otro" ACTION oDlg:End() OF oFld1:aDialogs[ 1] PIXEL
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
procedure AppSys // XBase++ requirement
return
NOTAS:
- A mi me parece que el problema ocurre porque no se define la ALTURA (nHeight) de este control en el codigo de la clase.
- En el ejemplo se establece la altura a 10, pero viendo el codigo de la clase, eso sirve para definir el BOTTTOM (::nBottom = ::nTop + nHeight).
- Solo ocurre con FOLDEREX o FOLDER.
Antonio, por favor responde.
Anteriormente puse varios POST (3) y nadie me respondio.
Atentamente,
Rolando
Cochabamba, Bolivia
