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
EN EL EDITOR DE RECURSOS, MARCA EL DIALOGO QUE VAS A ASOCIAR A UNA DE LAS PESTAÑAS DEL FOLDER COMO CHILD
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.
#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 nildlg1 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
}Gracias Daniel, era lo que necesitaba, muchas gracias.
Saludos
Miguel