Problema con folder

[Andrés G.]

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

[ADBLANCO]

TE FALTA DEFINIR CUALES DIALOGOS VA A PRESENTAR CADA FOLDER


REDEFINE FOLDER oFolder ID 501 of oDlg;
Prompt "Datos Generales","Declaracion","Datos Conductor";
Dialogs "SINDATGEN","SINDECLA","SINDATCON"



POR ESO TE PRESENTA ESE ESPACIO EN BLANCO

SUERTE!

[Antonio Linares]

Andrés,

Que versión de FWH estás usando ? Con FWH 7.12 tu ejemplo, con algunos cambios para poder compilarlo, se muestra correctamente:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, n1 := 123, c2 := Space( 20 )

   DEFINE DIALOG oDlg FROM 1,1 TO 498,672 PIXEL TITLE "TIT"
   
   @ 12,10 SAY "NIF:" SIZE 12,9 PIXEL OF oDlg
   @ 10,26 GET n1 SIZE 38,11 PICTURE "!9999999!" UPDATE PIXEL OF oDlg
   @ 12,69 SAY "Cognoms i nom:" SIZE 48,9 PIXEL
   @ 10,121 GET C2 SIZE 205,11 PIXEL OF oDlg
   @ 25,10 FOLDER CARPETA PROMPT "Dades personals","Itinerari","Situació actual","Càrrecs anteriors","Estudis" SIZE 316,190 PIXEL OF oDlg
   @ 227,113 BUTTON "&D'acord" OF oDlg SIZE 50,12 PIXEL
   @ 227,173 BUTTON "&Cancel·lar" OF oDlg SIZE 50,12 PIXEL
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil   


[Andrés G.]

Antonio,

Lo estava compilando con una versión vieja de FWH, ahora lo he probado con la 7.09 y me funciona bien.

Gracias por todo.

Andrés