Problema con folder
Posted: Wed Dec 05, 2007 5:19 pm
Hola atodos,
Estoy empezando ha programar con harbour y me encuantro con un problema a la hora de hacer folder's en mi aplicación.
Siempre ma aprece un cuadro blanco en el fondo de la aplicación y no se como evitarlo, he provado hasta a cambiar el color del folder y siempre me aprece el cuadro blanco. Aquí os dejo una imagen para que veais de lo que hablo:
La ventana la construí asi:
DEFINE DIALOG FINESTRA FROM 1,1 TO 498,672 PIXEL TITLE TIT FONT TLLETRA
@ 12,10 SAY "NIF:" SIZE 12,9 PIXEL OF FINESTRA
@ 10,26 GET CAMPS[1] SIZE 38,11 PICTURE "!9999999!" UPDATE VALID EMPTY(CAMPS[1]) .OR. NNC(CAMPS[1])="S" .OR. IF(LEN(ALLTRIM(NNC(CAMPS[1])))>1,(CAMPS[1]:=NNC(CAMPS[1]),FINESTRA:UPDATE(),.T.),(TONE(900,2),MsgStop("Número erroni","Atenció!"),.F.)) PIXEL WHEN OP $ "AR" OF FINESTRA
@ 12,69 SAY "Cognoms i nom:" SIZE 48,9 PIXEL
@ 10,121 GET C2 VAR CAMPS[2] SIZE 205,11 PIXEL WHEN OP $ "AR" OF FINESTRA
@ 25,10 FOLDER CARPETA PROMPT "Dades personals","Itinerari","Situació actual","Càrrecs anteriors","Estudis" SIZE 316,190 PIXEL FONT TLLETRA OF FINESTRA
@ 227,113 BUTTON "&D'acord" OF FINESTRA SIZE 50,12 PIXEL ACTION ACEPTAFI()
@ 227,173 BUTTON "&Cancel·lar" OF FINESTRA SIZE 50,12 PIXEL ACTION (OK:=.F.,FINESTRA:END())
ACTIVATE DIALOG FINESTRA CENTERED
Me aparece en todos los folder's.
Os agradeciria me ayudaseis a solucionar este problema.
Gracias de antemano.
Andrés González
Estoy empezando ha programar con harbour y me encuantro con un problema a la hora de hacer folder's en mi aplicación.
Siempre ma aprece un cuadro blanco en el fondo de la aplicación y no se como evitarlo, he provado hasta a cambiar el color del folder y siempre me aprece el cuadro blanco. Aquí os dejo una imagen para que veais de lo que hablo:
La ventana la construí asi:
DEFINE DIALOG FINESTRA FROM 1,1 TO 498,672 PIXEL TITLE TIT FONT TLLETRA
@ 12,10 SAY "NIF:" SIZE 12,9 PIXEL OF FINESTRA
@ 10,26 GET CAMPS[1] SIZE 38,11 PICTURE "!9999999!" UPDATE VALID EMPTY(CAMPS[1]) .OR. NNC(CAMPS[1])="S" .OR. IF(LEN(ALLTRIM(NNC(CAMPS[1])))>1,(CAMPS[1]:=NNC(CAMPS[1]),FINESTRA:UPDATE(),.T.),(TONE(900,2),MsgStop("Número erroni","Atenció!"),.F.)) PIXEL WHEN OP $ "AR" OF FINESTRA
@ 12,69 SAY "Cognoms i nom:" SIZE 48,9 PIXEL
@ 10,121 GET C2 VAR CAMPS[2] SIZE 205,11 PIXEL WHEN OP $ "AR" OF FINESTRA
@ 25,10 FOLDER CARPETA PROMPT "Dades personals","Itinerari","Situació actual","Càrrecs anteriors","Estudis" SIZE 316,190 PIXEL FONT TLLETRA OF FINESTRA
@ 227,113 BUTTON "&D'acord" OF FINESTRA SIZE 50,12 PIXEL ACTION ACEPTAFI()
@ 227,173 BUTTON "&Cancel·lar" OF FINESTRA SIZE 50,12 PIXEL ACTION (OK:=.F.,FINESTRA:END())
ACTIVATE DIALOG FINESTRA CENTERED
Me aparece en todos los folder's.
Os agradeciria me ayudaseis a solucionar este problema.
Gracias de antemano.
Andrés González