FOLDER AJUSTADO A UNA VENTANA MDI

[joseluisysturiz]

Buen dia y saludos a todos, ando un poco perdido con esto, si alguno tendria UN EJEMPLO para colocar un folder y que se ajuste a una ventana mdi o imagino que la ventana sera la que se ajuste al tamaño del folder y que no pueda redimensionarla, solo minimizarla, este folder lleva en la primera pestaña, browse, botones y gets, desde ya gracias...saludos desde Venezuela.

[quique]

¿has pobado con oWndChild:setControl( oFld )?

[FranciscoA]

Buen dia y saludos a todos, ando un poco perdido con esto, si alguno tendria UN EJEMPLO para colocar un folder y que se ajuste a una ventana mdi o imagino que la ventana sera la que se ajuste al tamaño del folder y que no pueda redimensionarla, solo minimizarla, este folder lleva en la primera pestaña, browse, botones y gets, desde ya gracias...saludos desde Venezuela.

Aquí tienes otro ejemplo:

DEFINE DIALOG oDlg TITLE "Pruebas" SIZE 500,300 //ó WINDOW oWnd

@ 0,0 FOLDER oFld PROMPT "Folder 1", "Folder 2", "folder 3", "folder 4", "folder 5" OF oDlg SIZE oDlg:nWidth, oDlg:nHeight


Saludos.
Francisco

[joseluisysturiz]

Espero haberte explicado...el folder va en un DLG, lo que quiero es que la ventana que va ser child se ajuste al tamaño de DLG que contien el folder. aun no he probado lo que me indico QUIQUE y FRANCISCO, adelanto por si ayuda en algo para vuestra ayuda...gracias.

[quique]

Entonces olvida mi sugerencia, pensaba que el folder estaba en la ventana y querías que la ventana tuviera el tamaño del folder, algo como esto

Code: Select all  Expand view  RUN

#INCLUDE "FIVEWIN.CH"

function main
   local oWnd
   define window oWnd mdi
   activate window oWnd on init mdiHija( oWnd )
return nil

function mdiHija( oWnd )
   local oMdi, oFld
   define window oMdi mdichild of oWnd
   @0,0 folder oFld prompts "Folder"
   oMdi:setControl( oFld )
   activate window oMdi
return nil

[joseluisysturiz]

Entonces olvida mi sugerencia, pensaba que el folder estaba en la ventana y querías que la ventana tuviera el tamaño del folder, algo como esto

Code: Select all  Expand view  RUN

#INCLUDE "FIVEWIN.CH"

function main
   local oWnd
   define window oWnd mdi
   activate window oWnd on init mdiHija( oWnd )
return nil

function mdiHija( oWnd )
   local oMdi, oFld
   define window oMdi mdichild of oWnd
   @0,0 folder oFld prompts "Folder"
   oMdi:setControl( oFld )
   activate window oMdi
return nil

Ok, quique, pruebo en lo que llegue a casa y aviso...gracias.