xBrowse dentro de un Folder!

[jrestojeda]

Hola a todos.
Como debo definir un xBrowse ´dentro de un folder?

Lo estoy haciendo asi:

Code: Select all

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

Code: Select all

   oBrw:=TXBrowse():New(oFld)

Code: Select all

   oBrw:=TXBrowse():New(oDlg1)

De ninguna de estas tres forma me funciona...
Si alguien tiene una idea estaré agradecido.
Desde ya muchas gracias.
Saludos, Esteban.

[Ricardo Ramirez E.]

Segun.. \samples\foldxbr.prg

Code: Select all

REDEFINE XBROWSE oBrw2 ID 10 OF oFld:aDialogs[ 2 ] ARRAY aDat2 AUTOCOLS 

Entonces..

Code: Select all

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

deberia funcionar...


El dialogo contenedor.. esta en un .RC, .RES?

[jrestojeda]

No amigo eso no funciona...

Este es el error:

Code: Select all

   Error description: Error BASE/1004  No exported method: EVAL
   Args:
     [   1] = U   

Lo estoy cargando desde un Res de la siguiente manera:

Code: Select all

   oBrw:CreateFromResource(100)

De todas maneras muchas gracias.

[Ricardo Ramirez E.]

Esteban...

Puedes colocar mas lineas de error... donde se vea que linea de xbrowse.prg arroja el error? que build de FW estas usando?

Enlaza \source\xbrowse.prg y fijate en que linea de codigo arroja el error.. a de ser en el Method New()

[Antonio Linares]

Aqui tienes un ejemplo de un folder y dos xbrowses:

test.prg

Code: Select all

#include "FiveWin.ch" 
#include "XBrowse.ch"

function Main() 

   local oDlg, oFld, oBrw1, oBrw2 
    
   USE Customer 
    
   DEFINE DIALOG oDlg RESOURCE "Test" 

   REDEFINE FOLDER oFld ; 
      PROMPTS "One", "Two" ; 
      DIALOGS "One", "Two" ; 
      ID 100 OF oDlg 
      
   REDEFINE XBROWSE oBrw1 ID 10 OF oFld:aDialogs[ 1 ]
      
   REDEFINE XBROWSE oBrw2 ID 10 OF oFld:aDialogs[ 2 ]
      
   ACTIVATE DIALOG oDlg CENTERED 

return nil

Test.rc

Code: Select all

#ifdef __FLAT__ 
   1 24 "WindowsXP.Manifest" 
#endif 

test DIALOG 17, 36, 185, 147 
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU 
CAPTION "Test" 
FONT 8, "MS Sans Serif" 
{ 
 CONTROL "", 100, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 6, 175, 117 
 DEFPUSHBUTTON "OK", 1, 67, 128, 50, 14 
} 

one DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
 CONTROL "", 10, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_HSCROLL, 4, 4, 168, 110
}

two DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
 CONTROL "", 10, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_HSCROLL, 4, 4, 168, 110
}

[Ricardo Ramirez E.]

Esteban :

Revisa quizas.. estes indicando en :

Code: Select all

 oBrw:CreateFromResource(100)  

El identificador del Folder como si fuera del xBrowse

[Antonio Linares]

[Ricardo Ramirez E.]

Antonio :

Cada vez que veo esas ventanas, me acuerdo que aun no probé el UE

De momento con Med + Vsx + Makes puros y duros..

[Antonio Linares]

Ricardo,

> Cada vez que veo esas ventanas, me acuerdo que aun no probé el UE

Te enamorarás de lo bien que funciona

Y si tienes dificultades en configurarlo desde aqui te ayudamos, ó si hace falta en sesión remota por "TeamViewer"

[Antonio Linares]

Ricardo,

De hecho, el "Visual FiveWin" lo estamos construyendo con el UEStudio

Hasta que lleguemos al momento en el que el "Visual FiveWin" pueda ser construido desde él mismo

[Ricardo Ramirez E.]

Hasta que lleguemos al momento en el que el "Visual FiveWin" pueda ser construido desde él mismo

[jrestojeda]

Listo Antonio, muchísimas gracias.
Funcionó perfecto!!!

Otra pregunta???
Falta mucho para que salga la primera versión funcional del Visual FiveWin??

Saludos, Esteban.

[Antonio Linares]

Esteban,

> Funcionó perfecto!!!

Bien

>
Falta mucho para que salga la primera versión funcional del Visual FiveWin??
>

Esta semana confiamos en poder publicar una primera versión beta, pero no será funcional aún. Solo para probarla y reportar errores, fallos, etc. que serán muchos.

La ventaja es que todo su código fuente va a ser proporcionado por lo que todo el que lo desee podrá construirlo, modificarlo, mejorarlo, etc. con lo que esperamos que evolucione rapidamente y pronto esté funcional

[jrestojeda]

Esteban,

Esta semana confiamos en poder publicar una primera versión beta, pero no será funcional aún. Solo para probarla y reportar errores, fallos, etc. que serán muchos.

La ventaja es que todo su código fuente va a ser proporcionado por lo que todo el que lo desee podrá construirlo, modificarlo, mejorarlo, etc. con lo que esperamos que evolucione rapidamente y pronto esté funcional

Excelente Antonio, esperaré pacientemente.
Asi realmente da gusto trabajar!!