by Guest » Thu Dec 15, 2005 12:14 pm
Enrico,
non mi sono spiegato bene.
Io voglio che una cartella (l'ultima) venga ADD/DEL al variare della condizione, nel caso che mi hai suggerito, i controls delle due cartelle si sovrappongono.
Ecco l'esempio:
******************************************************************************
FUNCTION Giudizi() // Gestione Gudizi
******************************************************************************
.........
.........
lDef := .f.
.........
.........
DEFINE DIALOG oDlg RESOURCE "giudizio" TITLE cTit FONT oFont1 ICON oIco
REDEFINE FOLDER oFld ID 105 OF oDlg ;
PROMPT "&Giudizi","Giudi&zio","Co&mune","&Contro" ,;
"&Rinvii","&Uffici","&Annotazioni","&Definizione" ;
DIALOGS "boxdati","Giudizi","Convenuti","Attori" ,;
"boxdati","boxdati","note","sentenza"
/* Giudizi - Elenco Giudizi */
/* Giudizi - Dettagio Giudizio */
........
........
REDEFINE CHECKBOX oDef VAR lDef ID 118 OF oFld:aDialogs[2];
ON CHANGE (IIF(lDef,oFld:AddItem("&Definizione",8),;
oFld:DelItem("&Definizione",8)),oFld:Refresh())
........
........
ACTIVATE DIALOG oDlg CENTERED ON INIT IIF(!lDef,oFld:DelItem("&Definizione"),)
RETURN( nil )
in questo modo invece le cartelle vengono shiftate
Dov'è lerrore?