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.

Ajustar From ?

Foro público de Xailer en español
Responder
Gabriel
Mensajes: 9
Registrado: Mié Nov 10, 2004 9:53 pm

Ajustar From ?

Mensaje por Gabriel »

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)Â
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Ajustar From ?

Mensaje por jfgimenez »

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
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Ajustar From ?

Mensaje por jfgimenez »

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
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Gabriel
Mensajes: 9
Registrado: Mié Nov 10, 2004 9:53 pm

Ajustar From ?

Mensaje por Gabriel »

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 ?
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Ajustar From ?

Mensaje por jfgimenez »

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)Â
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Gabriel
Mensajes: 9
Registrado: Mié Nov 10, 2004 9:53 pm

Ajustar From ?

Mensaje por Gabriel »

Funciona perfecto, eso era lo que queria hacer.
un saludo y gracias desde ya
Gabriel
Responder