Page 1 of 1
COMO ASOCIAR UN DIALOGO A FOLDER EN UNA WINDOW
Posted: Fri Feb 27, 2009 5:21 pm
by 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
Re: COMO ASOCIAR UN DIALOGO A FOLDER EN UNA WINDOW
Posted: Fri Feb 27, 2009 9:30 pm
by ADBLANCO
EN EL EDITOR DE RECURSOS, MARCA EL DIALOGO QUE VAS A ASOCIAR A UNA DE LAS PESTAÑAS DEL FOLDER COMO CHILD
Re: COMO ASOCIAR UN DIALOGO A FOLDER EN UNA WINDOW
Posted: Fri Feb 27, 2009 10:08 pm
by 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.
Re: COMO ASOCIAR UN DIALOGO A FOLDER EN UNA WINDOW
Posted: Fri Feb 27, 2009 11:10 pm
by 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
}
Re: COMO ASOCIAR UN DIALOGO A FOLDER EN UNA WINDOW
Posted: Sat Feb 28, 2009 1:24 pm
by infosys
Gracias Daniel, era lo que necesitaba, muchas gracias.
Saludos
Miguel