Page 1 of 1

Problema con folder

Posted: Wed Dec 05, 2007 5:19 pm
by 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:

Image

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

Posted: Thu Dec 06, 2007 9:06 pm
by 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!

Posted: Thu Dec 06, 2007 10:04 pm
by Antonio Linares
Andrés,

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

Image

Code: Select all

#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   

Posted: Mon Dec 10, 2007 7:47 am
by 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