Xailer & OZ Software

!! 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)

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

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