Página 1 de 1

lCentered

Publicado: Mié Ago 03, 2005 12:53 am
por fredy[1]
Hola,
Quiero mostrar un formulario centrado, pero solo en horizontal. En vertical
quiero que esté en la parte superior de la pantalla.
Para ello tengo que poner el ntop := 0, pero no sé en qué evento ponerlo.
Lo mejor que he conseguido es poniéndolo en el OnShow, pero se ve como pinta
el formulario centrado y luego se mueve a la parte superior.
¿Hay alguna forma de hacerlo sin que se muestre este "efecto"?
Un saludico,
Fredy

lCentered

Publicado: Mié Ago 03, 2005 9:47 am
por ignacio
Fredy,
OnCreate u OnInititalize.
Un saludo
"Fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=a20b86f3fd88c765dce1bd0bfc@news.xailer.com...]a20b86f3fd88c765dce1bd0bfc@news.xailer.com...[/email]
> Hola,
> Quiero mostrar un formulario centrado, pero solo en horizontal. En
> vertical quiero que esté en la parte superior de la pantalla.
> Para ello tengo que poner el ntop := 0, pero no sé en qué evento ponerlo.
> Lo mejor que he conseguido es poniéndolo en el OnShow, pero se ve como
> pinta el formulario centrado y luego se mueve a la parte superior.
> ¿Hay alguna forma de hacerlo sin que se muestre este "efecto"?
>
> Un saludico,
> Fredy
>
>

lCentered

Publicado: Mié Ago 03, 2005 11:20 am
por jfgimenez
Fredy,
no pongas lCentered a .T.. En vez de eso, pon en el evento OnInitialize:
::nTop := 0
::nLeft := ( Screen:nWidth - ::nWidth ) / 2
o en un sólo paso:
::SetBounds( 0, ( Screen:nWidth - ::nWidth ) / 2 )
--
Un saludo,
José F. Giménez

lCentered

Publicado: Mié Ago 03, 2005 11:22 am
por jfgimenez
Fredy,
> ::SetBounds( 0, ( Screen:nWidth - ::nWidth ) / 2 )
perdón, es al revés:
::SetBounds( ( Screen:nWidth - ::nWidth ) / 2 ), 0 )
--
Un saludo,
José F. Giménez