Dialog de recurso incrustada en una ventana

[José Luis Sánchez]

Busca la clase TFsdi2006 en http://www.avemundi.com que hace algo parecido a lo que quieres.

Saludos,

[Ari]

e como fazer para colocar uma Folder dentro da MDICHILD e depois colocar a DIALOG dentro do Folder ?

dialog de resources

Ari

[Ale SB]

Erro ao compilar...o exemplo do Antonio.
Erro.log
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: DE_HEADER_BROWSE

Stack Calls
===========
Called from: => CREATEDLGERROR(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: TestDlg.prg => BUILDDIALOG(53)
Called from: TestDlg.prg => (b)BUILDCHILD(26)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: MDICHILD.PRG => TMDICHILD:ACTIVATE(0)
Called from: TestDlg.prg => BUILDCHILD(26)
Called from: TestDlg.prg => (b)MAIN(14)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: TestDlg.prg => MAIN(14)

O estas faltando ?

[Ale SB]

Alguien sabe o que es esse erro, acima ???

[Antonio Linares]

Que controles tiene Resource: DE_HEADER_BROWSE ?

[Raymundo Islas M.]

Hola Ale:


Al parecer ( me ha pasado algunas veces ) que en el recurso ponemos algunos controles y no los redefinimos en el .prg y manda ese error.

Creo que bastaria con poner el codigo relacionado al control para que no salga ese mensaje.


Saludos

[miragerr2]

Ola amigos


Antonio estou tentando usar estes comandos em um novo sistema que estou fazendo, só que não esta funcionando ENTER nem TAB, como resolver isto ??


fico no aguardo

[wmormar]

Antonio,

se ha corregido lo de los TAB o INTRO que menciona fgondi?

esperamos respuesta

saludos

[wmormar]

Hola Antonio,

Gracias por esta nueva aportación

Tengo unos problemas con esta función:

1º Desde un get no funciona ni el tabulador ni el intro para cambiar a otro.

2º Uso groupbox sin redifinir en el programa (-1) para mostrar datos agrupados y con esta función no refrescan el fondo.

Antonio,

ha habido alguna solución al problema comentado?

esperamos respuesta...

[triumvirato]

Erro.log
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: DE_HEADER_BROWSE

Stack Calls
===========
Called from: => CREATEDLGERROR(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: TestDlg.prg => BUILDDIALOG(53)
Called from: TestDlg.prg => (b)BUILDCHILD(26)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: MDICHILD.PRG => TMDICHILD:ACTIVATE(0)
Called from: TestDlg.prg => BUILDCHILD(26)
Called from: TestDlg.prg => (b)MAIN(14)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: TestDlg.prg => MAIN(14)

A ver si alguien me puede orientar un poquito:

Hay algún ejemplo de esto en \Samples? o está el fichero de recursos que contiene el recurso "DE_HEADER_BROWSE" disponible por algún lado? Funciona correctamente lo mencionado por fgondi?
Mi intención es incrustar algunos diálogos en CHILD's porque necesito desde algunos abrir otra ventana. Esta es solución para ello?. Qué consecuencias puede tener el pasar esos diálogos a ventanas CHILD's? qué hay que controlar?...
Creo que son muchas preguntas y las respuestas quizás bastante más extensas y lo mismo da pereza contestar, pero creo que los ambientes CHILD's son bastante complicados y quisiera saber dónde documentarme o algo...

Muchas Gracias!!!!

[Antonio Linares]

William, Fernando,

Se me habían pasado vuestras preguntas aqui. Ahora al ver el nuevo mensaje de David, he visto los vuestros tambien. Por favor, cuando no responda (yo ó los demás), insistid

En FWH\samples\TestMDir.prg teneis un ejemplo funcionando y ambos Tab y Enter parecen funcionar correctamente

[triumvirato]

El problema que comentaba fgondi era sobre los gets, para moverse entre ellos con TAB o ENTER. Yo le he puesto unos GET's al ejemplo y parece que funciona perfectamente.

Saludos!

[sjingo]

Hola amigos

Buscando, me he encontrado con este método que me permite pasar todos los controles creado desde recursos a otro diálogo. Funciona casi perfecto, pero yo tengo el problema que una vez pasado no funcionan las teclas TAB ni ENTER.

En el ejemplo TESTMDIR.PRG todo funciona 100% , e incluso probé cambiar algunos botones por GETs en el código como en el RC de ejemplos, y sigue funcionando muy bien, pero con mi archivo RES no funciona, qué podrá ser.

Les comento más: Tengo una Ventana que no es MDI en esta tengo cargada un xbrowse y un folder con varias pestañas. Es en una de éstas pestañas que estoy cargando los controles desde otro diálogo que ha sido creado desde recursos. Como dije, se cargan los controles correctamente, pero no funcionan los TABS. Por favor una mano sip.

Uso FW904 y Resource Builder 3

Un saludo

Marcelo Jingo

[Compuin]

Antonio,

De esta forma se mantienen las variables locales o la Windows igualmente las destruye???

José,

Aqui tienes un ejemplo de una técnica mejor aún, que consiste en cambiar los controles del diálogo a la ventana, usando la función SetParent():

Code: Select all

#include "FiveWin.ch"

#define COLOR_BTNFACE   15

function Main()

   local oWnd

   USE Customer

   DEFINE WINDOW oWnd TITLE "Test" MDI

   ACTIVATE WINDOW oWnd ;
      ON INIT BuildChild()

return nil

function BuildChild()

   local oChild
   
   DEFINE WINDOW oChild TITLE "A Child Window" MDICHILD ;
      COLOR 0, GetSysColor( COLOR_BTNFACE )
   
   ACTIVATE WINDOW oChild ;
      ON INIT BuildDialog( oChild )
   
return nil   

function BuildDialog( oChild )

   local oDlg, oBrw, oSay, cText := "Hello World!"
 
   DEFINE DIALOG oDlg RESOURCE "DE_HEADER_BROWSE" OF oChild
   
   oBrw = TXBrowse():New( oDlg )
   oBrw:CreateFromResource( 10 )
   oBrw:SetRDD()
   
   REDEFINE BUTTON ID 20 OF oDlg
   REDEFINE BUTTON ID 30 OF oDlg
   REDEFINE BUTTON ID 40 OF oDlg
   REDEFINE BUTTON ID 50 OF oDlg
   REDEFINE BUTTON ID 60 OF oDlg
   REDEFINE BUTTON ID 70 OF oDlg
   REDEFINE BUTTON ID 80 OF oDlg
   REDEFINE BUTTON ID 100 OF oDlg
   REDEFINE BUTTON ID   1 OF oDlg

   REDEFINE SAY oSay VAR cText ID 90 OF oDlg

   ACTIVATE DIALOG oDlg NOWAIT ;
      ON INIT ChangeParent( oDlg, oChild )
      
   oDlg:End()   
   oChild:bResized = { || oBrw:SetSize( oChild:nWidth - 117, oChild:nHeight - 60 ),;
                                     oSay:nTop := oChild:nHeight - 55, oSay:nLeft := ( oChild:nWidth / 2 ) - oSay:nWidth / 2 }
   oChild:SetSize( 800, 400 )
   
return nil   

function ChangeParent( oDlg, oChild )

   local n
   
   for n = 1 to Len( oDlg:aControls )
      SetParent( oDlg:aControls[ n ]:hWnd, oChild:hWnd )
      AAdd( oChild:aControls, oDlg:aControls[ n ] )
   next
   
return nil