COMO ASOCIAR UN DIALOGO A FOLDER EN UNA WINDOW

[infosys]

Hola a Todos,
Estoy haciendo una aplicacion que en una Window pega un folder, mi idea es asociar un dialogo a una de las solapas del folder y un browse a otra solapa, lo segundo me funciona muy bien, pero cuando asocio el dialogo a la primera solapa, no me muestra el dialogo, me base en el ejemplo GENFOLD.PRG que viene con fivewin.
Alguien tiene alguna sugerencia para que el Dialogo que genero en un recurso se vea en el folder ?.

Gracias de Antemano.

Miguel

[ADBLANCO]

EN EL EDITOR DE RECURSOS, MARCA EL DIALOGO QUE VAS A ASOCIAR A UNA DE LAS PESTAÑAS DEL FOLDER COMO CHILD

[infosys]

Si eso lo se hacer, solo que el folder lo creo en una window no en un recurso, y cuando lo creo asi no me deja asociar el dialogo a una solapa.

DEFINE WINDOW oWnd TITLE "Folders generation" COLOR "N/W"
SELECT 3
USE EjeMPLO3.DBF
@0,0 LISTBOX olbx1 FIELDS SIZE 200,355

@ 20, 205 FOLDER oFld PROMPTS "Caracteristicas", "&Lecturas", "Filtro" ;
DIALOGS "SERIES","","";
OF oWnd PIXEL

//----------------
oBrw := TXBrowse():New( oFld:aDialogs[2])


SERIES, es un dialogo en un recurso, que esta como child, etc, etc, lo normal para un dialogo que forma parte de un fold, aun asi, no se ve y no se cual es la causa.

[Daniel Garcia-Gil]

Hola Infosys...

cuando lo creas de esa forma debes incluir el dialogo manualmente...

intentalo de esta forma....

el dbf es el encontrado en los ejemplos de FW

Code: Select all

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oWnd, oFld, oBrw, oDlg1, oDlg2
   local cAlias := "customer"
   
   use customer alias ( cAlias )
   DEFINE window oWnd title "test"
   
   @ 0,0 FOLDER oFld OF oWnd size 300,300;
      PROMPTS "One", "Two", "Three" 
   
   define dialog oDlg1 RESOURCE "DLG1" of oFld:aDialogs[ 1 ]
   activate dialog oDlg1 nowait
   
   @ 0,0 xbrowse oBrw alias cAlias of oFld:aDialogs[ 2 ]
   
   define dialog oDlg2 RESOURCE "DLG2" of oFld:aDialogs[ 3 ]
   activate dialog oDlg2 nowait

   
   oWnd:oClient := oFld
   oFld:aDialogs[ 2 ]:oClient := oBrw
   
   oBrw:createfromcode()
   
   ACTIVATE window oWnd on init (oFld:aDialogs[ 2 ]:resize())
   
return nil  

el archivo de recurso es:

Code: Select all

dlg1 DIALOG 18, 18, 134, 84
STYLE WS_CHILD | 4
{
 LTEXT "First page:", 10, 22, 17, 48, 8
 EDITTEXT 10, 22, 30, 65, 11
}

dlg2 DIALOG 18, 18, 134, 84
STYLE WS_CHILD | 4
{
 LTEXT "Second page:", 10, 22, 17, 48, 8
 EDITTEXT 10, 22, 30, 65, 11
 PUSHBUTTON "Change", 20, 45, 57, 44, 12
}

[infosys]

Gracias Daniel, era lo que necesitaba, muchas gracias.
Saludos
Miguel