Xailer & OZ Software

Hola, Buenos Dias!
Tengo un TStatusbar con 3 Paneles
el Primero Contiene el Nombre de La Empresa
El Segundo La Fecha
El Tercero La Hora
1. Como Hacer para que la Fecha y La Hora se despliegen hacia el lado
Derecho : la Fecha y luego la Hora sin que se muevan de su posicion sin
Importar si Maximizo la Forma o la cambio de tamaño
2. Como Despliego la Fecha de la siguiente manera:18-Abril-2006 y no de
esta 04-18-2006
Gracias

Martín,
> 1. Como Hacer para que la Fecha y La Hora se despliegen hacia el lado
> Derecho : la Fecha y luego la Hora sin que se muevan de su posicion sin
> Importar si Maximizo la Forma o la cambio de tamaño
Tienes que usar el evento OnSize del formulario, con algo más o menos así:
METHOD FormSize( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS
TForm1
IF ::oStatusBar1 != Nil .AND. nClientWidth > 0
::oStatusBar1:aItems[1]:nWidth := nClientWidth - 210
ENDIF
RETURN Nil
> 2. Como Despliego la Fecha de la siguiente manera:18-Abril-2006 y no de
> esta 04-18-2006
Si has puesto en el panel nType = sbDATE, el texto se obtiene con DTOC(
Date() ); por lo tanto, se utiliza el formato que se haya establecido con
SET DATE FORMAT. Si no quieres que sea así, entonces tendrás que dejar nType
= sbTEXT y poner en el texto lo que quieras.
--
Un saludo,
José F. Giménez