Page 2 of 2
Posted: Mon May 21, 2007 1:51 pm
by José Luis Sánchez
Busca la clase TFsdi2006 en
http://www.avemundi.com que hace algo parecido a lo que quieres.
Saludos,
E como ficaria ?
Posted: Sun Jun 24, 2007 5:50 pm
by Ari
e como fazer para colocar uma Folder dentro da MDICHILD e depois colocar a DIALOG dentro do Folder ?
dialog de resources
Ari
Posted: Tue Jun 26, 2007 10:32 am
by 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 ?
Posted: Wed Jun 27, 2007 4:10 pm
by Ale SB
Alguien sabe o que es esse erro, acima ???
Posted: Wed Jun 27, 2007 4:17 pm
by Antonio Linares
Que controles tiene Resource: DE_HEADER_BROWSE ?
Posted: Wed Jun 27, 2007 4:45 pm
by 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
Posted: Mon Oct 01, 2007 11:11 pm
by 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
Posted: Sun Apr 20, 2008 1:59 am
by wmormar
Antonio,
se ha corregido lo de los TAB o INTRO que menciona fgondi?
esperamos respuesta
saludos
Posted: Sun Jun 01, 2008 5:20 am
by wmormar
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.
Antonio,
ha habido alguna solución al problema comentado?
esperamos respuesta...
Re:
Posted: Fri Nov 27, 2009 7:49 am
by triumvirato
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)
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!!!!
Re: Dialog de recurso incrustada en una ventana
Posted: Fri Nov 27, 2009 8:18 am
by 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
Re: Dialog de recurso incrustada en una ventana
Posted: Fri Nov 27, 2009 8:43 am
by 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!
Re: Dialog de recurso incrustada en una ventana
Posted: Wed Feb 03, 2010 1:12 am
by 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
Re:
Posted: Wed Dec 14, 2011 1:43 pm
by Compuin
Antonio,
De esta forma se mantienen las variables locales o la Windows igualmente las destruye???
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: 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