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.

Para Jose F. Gimenez ->Sigo con el TStatusPanel

Foro público de Xailer en español
Responder
proveedores
Mensajes: 37
Registrado: Jue Mar 23, 2006 5:34 am

Para Jose F. Gimenez ->Sigo con el TStatusPanel

Mensaje por proveedores »

!! Hola de nuevo ¡¡
Gracias por tu ayuda Jose F.
Tal como me indicaste he intentado modificar el tamaño del
los Tpanel en la TStatusBar mediante el evento OnSize con el siguiente
código:
//---------------------------------------------------------- --------------------
METHOD ResizeoPanel( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS
TForm1
::oStBar1Panel1:nWidth:= 500 //---------->Panel para el
aItem[n]:Message de oMenu
::oStBar1Panel2:nWidth:= 60 //---------->Panel con nType := sbDATE
::oStBar1Panel3:nWidth:= 60 //---------->Panel con nType := sbTIME
RETURN Nil
//---------------------------------------------------------- --------------------
Seguro que lo estoy haciendo mal porque obtengo el siguiente error en
runtime :
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Class: 'NIL' has no property
Operación: NWIDTH
Argumentos: [ 1] = Tipo: N Valor: 500
Fichero:
Código error SO: 0
Pila de llamadas:
TFORM1:RESIZEOPANEL (64)
TFORM1:ONSIZE (0)
TFORM1:WMSIZE (643)
SETMENU (0)
TFORM1:SETMENU (148)
(b)XMENU:XMENU (62)
TMENU:SETMENU (0)
TFORM1:CREATEFORM (40)
TFORM1:NEW (179)
MAIN (16)
Arriba
jasm.nospam
Mensajes: 203
Registrado: Vie Abr 01, 2005 9:05 am

Para Jose F. Gimenez ->Sigo con el TStatusPanel

Mensaje por jasm.nospam »

Separa el operador := de la palabra nWidth!!!
José Ramón Truchado escribió:
> !! Hola de nuevo ¡¡
>
> Gracias por tu ayuda Jose F.
> Tal como me indicaste he intentado modificar el tamaño del
> los Tpanel en la TStatusBar mediante el evento OnSize con el siguiente
> código:
> //---------------------------------------------------------- --------------------
> METHOD ResizeoPanel( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS
> TForm1
> ::oStBar1Panel1:nWidth:= 500 //---------->Panel para el
> aItem[n]:Message de oMenu
> ::oStBar1Panel2:nWidth:= 60 //---------->Panel con nType := sbDATE
> ::oStBar1Panel3:nWidth:= 60 //---------->Panel con nType := sbTIME
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
> Seguro que lo estoy haciendo mal porque obtengo el siguiente error en
> runtime :
>
> Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Class: 'NIL' has no property
> Operación: NWIDTH
> Argumentos: [ 1] = Tipo: N Valor: 500
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TFORM1:RESIZEOPANEL (64)
> TFORM1:ONSIZE (0)
> TFORM1:WMSIZE (643)
> SETMENU (0)
> TFORM1:SETMENU (148)
> (b)XMENU:XMENU (62)
> TMENU:SETMENU (0)
> TFORM1:CREATEFORM (40)
> TFORM1:NEW (179)
> MAIN (16)
>
>
>
>
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Para Jose F. Gimenez ->Sigo con el TStatusPanel

Mensaje por Xevi »

José Ramon,
Si entiendo bien tu caso, lo que necesitas es que al redimensionar la
ventana, cambiar de tamaño los paneles de la StatusBar...
¿es así???
Bien, si este es tu caso, lo que yo haría es atacar el OnSize del Form.
METHOD FormSize( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS
TFrmORAlbarans
::oStBar1:aItems[1]:nWidth := ::nClientWidth - 200 //Por ejemplo
RETURN Nil
Un Saludo,
Xevi.
"José Ramón Truchado" <proveedores@e-tmsoft.com> escribió en el mensaje
news:44242fa5$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> !! Hola de nuevo ¡¡
>
> Gracias por tu ayuda Jose F.
> Tal como me indicaste he intentado modificar el tamaño del
> los Tpanel en la TStatusBar mediante el evento OnSize con el siguiente
> código:
> //---------------------------------------------------------- --------------------
> METHOD ResizeoPanel( oSender, nSizeType, nClientWidth, nClientHeight )
> CLASS
> TForm1
> ::oStBar1Panel1:nWidth:= 500 //---------->Panel para el
> aItem[n]:Message de oMenu
> ::oStBar1Panel2:nWidth:= 60 //---------->Panel con nType :=
> sbDATE
> ::oStBar1Panel3:nWidth:= 60 //---------->Panel con nType := sbTIME
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
> Seguro que lo estoy haciendo mal porque obtengo el siguiente error en
> runtime :
>
> Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Class: 'NIL' has no property
> Operación: NWIDTH
> Argumentos: [ 1] = Tipo: N Valor: 500
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TFORM1:RESIZEOPANEL (64)
> TFORM1:ONSIZE (0)
> TFORM1:WMSIZE (643)
> SETMENU (0)
> TFORM1:SETMENU (148)
> (b)XMENU:XMENU (62)
> TMENU:SETMENU (0)
> TFORM1:CREATEFORM (40)
> TFORM1:NEW (179)
> MAIN (16)
>
>
>
>
>
Arriba
Responder

Volver a “Xailer Spanish”