Jeff:
// This is the main dialog that contains the folder control
DEFINE DIALOG oDlg RESOURCE "OCOMPRA" ;
TITLE OEMTOANSI("Actualizaci¢n de Orden de Compra N§ ")+LEFT(MOVSTOCK->OCNUM,2)+"-"+;
SUBSTR(MOVSTOCK->OCNUM,3,4)+'-'+RIGHT(MOVSTOCK->OCNUM,4) ;
COLOR CLR_BLACK, RGB(202, 197, 192)
// This is the folder declaration
REDEFINE FOLDER oFld ID 701 OF oDlg ;
PROMPT "Datos Generales","Articulos","Vista Previa","Recibido del proveedor",;
oemtoansi("Env¡os realizados");
DIALOGS "FOLDER_DATOSG" ,"FOLDER_OPMER","OPVPREVIA","ENTREGA3","ENVIOS"
// This is a get that belongs to that main dialog
REDEFINE GET cFecha ID 103 FONT oFont3 OF oDlg PICTURE "@d" UPDATE
// This are controls that belongs to the first folder
REDEFINE GET oNumdoc VAR cOcNum ID 101 FONT oFont1 OF oFld:aDialogs[1] ;
VALID Valnumdoc(oFld,lNew,cXoc,@cOcNum,cEjercicio,oNumdoc,cOcOf) PICTURE "99999";
WHEN (WNRO_NIV == 1)
REDEFINE SAY oEjercicio PROMPT "/ "+SUBSTR(cEjercicio,3,2) ID 118 FONT oFont1 OF oFld:aDialogs[1]
// This to the second folder
REDEFINE SBUTTON OT:oBtn[1] FONT oFont4 ID 121;
RESOURCE "B_RNW","B_RNW","B_RNW" OF oFld:aDialogs[2] ;
PROMPT "&Agrega" ;
ACTION ( TAgrega(),Habilita(),OBACEPTAR:DISABLE(),OBCANCELAR:DISABLE(),oImprimir:Disable(),;
oAceptar:Enable(),oCancelar:enable(),oImprimir:Disable() ) ;
TOOLTIP "Agrega una nueva partida de articulos (Insert)" ;
TEXT POSITION ON_BOTTOM;
LOOK W97
// Finally, you activate the main dialog as usual
ACTIVATE DIALOG oDlg CENTERED VALID OPSALIR(oDlg,oFld,oAceptar,oCancelar,OBACEPTAR,OBCANCELAR,OIMPRIMIR,;
owCodSubp,owNomSubp1,owNomSubp2,@cwCodsubp,@cwNomsubp1,@cwNomsubp2) ;
ON INIT desabilita(oAceptar,oCancelar)
The dialogs in workshop have to be:
-Window type: CHILD
-Dialog style: only visible checked
Regards,
Jeff Barnes wrote:Hi Everybody,
I have never used folders before and now have a need to.
I would like to create the folders from resources (Borland Resource Workshop).
Can someone please provide a sample as to how I would create folders.
Thanks,
Jeff