Hola Amigos
Continuo haciendo pruebas con xailer y cada dia me esta gustando mas, he
creado una toolbar en una window y lo que pretendo es cuando llamo a un
from (dialog) me quede ajustado por debajo de la toolbar y por encima de la
TStatusbar y tambien que cuando se redimensione la window tambien lo haga el
From(dialog), llevo un par de dias liado con esto y nada no hay forma,
adjunto proyecto, por favor una ayudita para un novato de xailer
Un saludo y gracias desde ya
Gabriel
Attached files Test.zip (5.1 KB)Â
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Ajustar From ?
Ajustar From ?
Gabri,
> Continuo haciendo pruebas con xailer y cada dia me esta gustando mas, he
> creado una toolbar en una window y lo que pretendo es cuando llamo a un
> from (dialog) me quede ajustado por debajo de la toolbar y por encima de
> la TStatusbar y tambien que cuando se redimensione la window tambien lo
> haga el From(dialog), llevo un par de dias liado con esto y nada no hay
> forma, adjunto proyecto, por favor una ayudita para un novato de xailer
>
Lo que quieres hacer se puede conseguir muy fácilmente usando MDI. Establece
las siguientes propiedades de Form1.prg y Clientes.prg:
- Form1.prg:
- nFormType = ftMDIFRAME
- Clientes.prg:
- nFormType = ftMDICHILD
- nShowMode = smMAXIMIZE
Compila y ejecuta, y verás que la ventana de clientes está dentro de la
ventana principal, y que se redimensiona al redimensionar esta última.
--
Un saludo,
José F. Giménez
> Continuo haciendo pruebas con xailer y cada dia me esta gustando mas, he
> creado una toolbar en una window y lo que pretendo es cuando llamo a un
> from (dialog) me quede ajustado por debajo de la toolbar y por encima de
> la TStatusbar y tambien que cuando se redimensione la window tambien lo
> haga el From(dialog), llevo un par de dias liado con esto y nada no hay
> forma, adjunto proyecto, por favor una ayudita para un novato de xailer
>
Lo que quieres hacer se puede conseguir muy fácilmente usando MDI. Establece
las siguientes propiedades de Form1.prg y Clientes.prg:
- Form1.prg:
- nFormType = ftMDIFRAME
- Clientes.prg:
- nFormType = ftMDICHILD
- nShowMode = smMAXIMIZE
Compila y ejecuta, y verás que la ventana de clientes está dentro de la
ventana principal, y que se redimensiona al redimensionar esta última.
--
Un saludo,
José F. Giménez
Ajustar From ?
Gabri,
por cierto, si no quieres que el usuario pueda "restaurar" la ventana de
clientes a su posición original, puedes añadir este método:
METHOD WMSysCommand( nWParam, nLParam ) CLASS TClientes
IF nWParam == SC_RESTORE
RETURN 0
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
por cierto, si no quieres que el usuario pueda "restaurar" la ventana de
clientes a su posición original, puedes añadir este método:
METHOD WMSysCommand( nWParam, nLParam ) CLASS TClientes
IF nWParam == SC_RESTORE
RETURN 0
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
Ajustar From ?
Gracias J F funciona perfectamente, pero lo que yo quiero es que no sea
una mdichil, me gusta mejor que la ventana tenga su borde, alguna idea
maestro ?
una mdichil, me gusta mejor que la ventana tenga su borde, alguna idea
maestro ?
Ajustar From ?
Gabri,
> Gracias J F funciona perfectamente, pero lo que yo quiero es que no sea
> una mdichil, me gusta mejor que la ventana tenga su borde, alguna idea
> maestro ?
Ok. La ventana puede seguir siendo MdiChild, aunque veo que no te gusta
maximizada. Para encajarca dentro de la ventana principal, hay que hacerlo
en el evento OnInitialize de TClientes, poniendo:
::SetBounds( 0, 0, ::oParent:oMdiClient:nWidth,
::oParent:oMdiClient:nHeight )
Y para que al cambiar el tamaño de TForm1 se ajuste TClientes, hay que poner
en el evento OnSize de TForm1:
IF ::oMdiClient != Nil .AND. !Empty( ::oMdiClient:aForms )
::oMdiClient:aForms[1]:SetBounds( 0, 0, ::oMdiClient:nWidth,
::oMdiClient:nHeight )
ENDIF
No obstante, queda pendiente un problema: el usuario podría mover la ventana
TClientes a su gusto, fastidiando todo el invento. Para evitarlo, lo más
sencillo es eliminar la opción "mover" del menú de sistema. Esto se puede
hacer también en el evento OnInitilize de TClientes:
DeleteMenu( GetSystemMenu( ::Handle, .F. ), 0, MF_BYPOSITION )
Así queda todo controlado. Te adjunto el proyecto modificado (sin imágenes).
--
Un saludo,
José F. Giménez
Attached files Visual.zip (3 KB)Â
> Gracias J F funciona perfectamente, pero lo que yo quiero es que no sea
> una mdichil, me gusta mejor que la ventana tenga su borde, alguna idea
> maestro ?
Ok. La ventana puede seguir siendo MdiChild, aunque veo que no te gusta
maximizada. Para encajarca dentro de la ventana principal, hay que hacerlo
en el evento OnInitialize de TClientes, poniendo:
::SetBounds( 0, 0, ::oParent:oMdiClient:nWidth,
::oParent:oMdiClient:nHeight )
Y para que al cambiar el tamaño de TForm1 se ajuste TClientes, hay que poner
en el evento OnSize de TForm1:
IF ::oMdiClient != Nil .AND. !Empty( ::oMdiClient:aForms )
::oMdiClient:aForms[1]:SetBounds( 0, 0, ::oMdiClient:nWidth,
::oMdiClient:nHeight )
ENDIF
No obstante, queda pendiente un problema: el usuario podría mover la ventana
TClientes a su gusto, fastidiando todo el invento. Para evitarlo, lo más
sencillo es eliminar la opción "mover" del menú de sistema. Esto se puede
hacer también en el evento OnInitilize de TClientes:
DeleteMenu( GetSystemMenu( ::Handle, .F. ), 0, MF_BYPOSITION )
Así queda todo controlado. Te adjunto el proyecto modificado (sin imágenes).
--
Un saludo,
José F. Giménez
Attached files Visual.zip (3 KB)Â
Ajustar From ?
Funciona perfecto, eso era lo que queria hacer.
un saludo y gracias desde ya
Gabriel
un saludo y gracias desde ya
Gabriel