Dialog de recurso incrustada en una ventana

User avatar
José Luis Sánchez
Posts: 484
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España
Contact:

Post by José Luis Sánchez »

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

Saludos,
User avatar
Ari
Posts: 128
Joined: Fri Feb 03, 2006 4:21 pm
Location: Brazil
Contact:

E como ficaria ?

Post by Ari »

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

dialog de resources

Ari
User avatar
Ale SB
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil

Post 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 ?
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
User avatar
Ale SB
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil

Post by Ale SB »

Alguien sabe o que es esse erro, acima ???
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Que controles tiene Resource: DE_HEADER_BROWSE ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post 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
FWH 10.6 + xHarbour + Borland 582
miragerr2
Posts: 5
Joined: Fri Jul 27, 2007 12:37 am

Post 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
Jackson Douglas C. Brito
FWH 2.8 Nov 2006
XH 0.99.61
xMate
Roraima / Brasil
User avatar
wmormar
Posts: 1050
Joined: Fri Oct 07, 2005 10:41 pm
Location: México
Contact:

Post by wmormar »

Antonio,

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

esperamos respuesta

saludos
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
Posts: 1050
Joined: Fri Oct 07, 2005 10:41 pm
Location: México
Contact:

Post 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.
Image
Antonio,

ha habido alguna solución al problema comentado?

esperamos respuesta...
William, Morales
Saludos

méxico.sureste
triumvirato
Posts: 199
Joined: Tue Apr 22, 2008 9:54 am
Location: Valladolid, Spain.

Re:

Post 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!!!!
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Dialog de recurso incrustada en una ventana

Post 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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
triumvirato
Posts: 199
Joined: Tue Apr 22, 2008 9:54 am
Location: Valladolid, Spain.

Re: Dialog de recurso incrustada en una ventana

Post 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!
User avatar
sjingo
Posts: 229
Joined: Sat Mar 18, 2006 3:42 pm
Location: Ibarra-Ecuador

Re: Dialog de recurso incrustada en una ventana

Post 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
Marcelo Jingo
Compuin
Posts: 1017
Joined: Tue Dec 28, 2010 1:29 pm

Re:

Post 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 
 
Image
Post Reply