Ajustar From ?

[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)Â

[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

[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

[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 ?

[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)Â

[Gabriel]

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