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

Saludos,

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

dialog de resources

Ari

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 ?

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

Que controles tiene Resource: DE_HEADER_BROWSE ?

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

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

Antonio,

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

esperamos respuesta

saludos

fgondi wrote: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.

Ale SB wrote:
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)

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

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!

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

Antonio Linares wrote: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 (fw): Select all Collapse

#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