Alineaci
Publicado: Vie Jul 07, 2006 5:30 am
Gracias, Jose.
Lo probaré en la primera oportunidad que tenga.
Saludos,
Rodolfo MG
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:44af7a12$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Rodolfo,
>
>> Quisiera que los paneles en una StatusBar aparecieran de derecha a
>> izquierda. Es decir, que al redimencionar la ventana los paneles se
>> dibujen de derecha a izquierda de modo que, al redimencionar la ventana,
>> se dibuje primero el que esta en el límite derecho de la StatusBar y, a
>> partir de este, los siguientes a la izquierda.
>>
>> He buscado en la ayuda, pero no he encontrado nada al respecto.
>> ¿Existe alguna manera de hacerlo?
>
> Tienes que cambiar las dimensiones de los paneles a mano desde el evento
> OnSize del formulario. El siguiente ejemplo cambia la anchura del primer
> panel, para que los demás paneles se muestren como "alineados a la
> derecha":
>
> METHOD FormSize( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS
> TPrincipal
> IF ::oStatusBar1 != Nil .AND. nClientWidth > 0
> ::oStatusBar1:aItems[1]:nWidth := nClientWidth - 210
> ENDIF
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
Lo probaré en la primera oportunidad que tenga.
Saludos,
Rodolfo MG
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:44af7a12$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Rodolfo,
>
>> Quisiera que los paneles en una StatusBar aparecieran de derecha a
>> izquierda. Es decir, que al redimencionar la ventana los paneles se
>> dibujen de derecha a izquierda de modo que, al redimencionar la ventana,
>> se dibuje primero el que esta en el límite derecho de la StatusBar y, a
>> partir de este, los siguientes a la izquierda.
>>
>> He buscado en la ayuda, pero no he encontrado nada al respecto.
>> ¿Existe alguna manera de hacerlo?
>
> Tienes que cambiar las dimensiones de los paneles a mano desde el evento
> OnSize del formulario. El siguiente ejemplo cambia la anchura del primer
> panel, para que los demás paneles se muestren como "alineados a la
> derecha":
>
> METHOD FormSize( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS
> TPrincipal
> IF ::oStatusBar1 != Nil .AND. nClientWidth > 0
> ::oStatusBar1:aItems[1]:nWidth := nClientWidth - 210
> ENDIF
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>