Sobre las rebars

[joseluis]

Hola,
Hay algo que me desconcierta. Supongo que es porque, como ya habeis
comentado varias veces, las rebars/toolbars se han de re-escribir.
Por partes:
Tengo dos rebars. Cada una pertenece a un oPages diferente.
La rebar de la derecha está hecha está construida así­:
************************************************************
METHOD CreaBarraNavegacionFrm( oPadre ) CLASS tMantenimiento
LOCAL oRebar1
LOCAL oRebar2
LOCAL oRebar3
LOCAL oBar, oBar2
LOCAL oText
LOCAL oMenuExpandir
oMenuExpandir := TMenu():Create( Self, .t. )
WITH OBJECT TMenuItem():New(oMenuExpandir )
:cText := "Colapsar Menú Vertical"
:OnClick := {|o| Self:ExpandeOptlst( o ) }
:Create()
END
WITH OBJECT TMenuItem():New( oMenuExpandir )
:cText := "Menú Vertical a la derecha"
:OnClick := {|o| Self:AlineaOptlst( o ) }
:Create()
END
oReBar1 := TReBar():Create( oPadre )
WITH OBJECT oBar2 := TToolBar():New( oReBar1 )
:SetBounds( 12, 1, 3, 20 ) // 29
:nBtnHeight := 16
:nBtnWidth := 16
:Create()
:AddButton("", "A",,, "Menú", {|| Self:ExpandeOptlst() },
oMenuExpandir )
END
WITH OBJECT oBar := TToolBar():New( oReBar1 )
:SetBounds( 12, 1, 3, 20 ) // 29
:nBtnHeight := 16
:nBtnWidth := 16
:Create()
:AddButton("", "A",,,"Alta", {| | Self:Alta() })
:AddButton("", "B",,,"Baja", {| | Self:Baja() } )
:AddButton("", "C",,,"Consulta",{| | Self:Consulta() } )
:AddButton("", "M",,,"Modifica",{| | Self:Modifica() } )
END
WITH OBJECT oText := TLabel():New( oReBar1 )
:SetBounds( 120, 4, 80, 20 )
:cText := ::cDescLarga
:lParentFont := .F.
:oFont := TFont():Create( "MS Sans Serif", 14, 0, 700 )
:nClrText := clBlue
:nAlignment := taRIGHT
:nAnchors := akTOPRIGHT
:Create()
END
WITH OBJECT TRebarBand():New( oRebar1 )
//:lFixed := .T.
:oControl := oBar2
:Create()
END
WITH OBJECT TRebarBand():New( oRebar1 )
//:lFixed := .T.
:oControl := oBar
:Create()
END
WITH OBJECT TRebarBand():New( oRebar1 )
//:lFixed := .T.
:oControl := oText
:Create()
END
RETURN oBar
************************************************************
Y la rebar de la izquierda es así­:
************************************************************
oReBar := TReBar():Create( ::oPgIzq )
WITH OBJECT ::oMnuBusqueda := TToolBar():New( oReBar )
:SetBounds( 12, 1, 3, 20 ) //20
:nBtnHeight := 16
:nBtnWidth := 16
:lList := .T.
:Create()
************************************************************
a. ¿por que en la rebar de la izquierda no salen los puntos verticales?
¿Es por que solo hay una toolbar?
b. ¿Por que, aparentemente, la altura de ambas rebars son diferentes?
(ver cí­rculo rojo)
c. ¿Por que en la rebar de la derecha los botones parecen que están
colocado más abajo que los de la izquierda?
d. ¿Por que el tamaño de la barra *no* es el que yo he indicado por
programa?
En algún sitio no estoy haciendo bien las cosas.
Gracias por vuestra ayuda.
José Luis Capel
--

[joseluis]

Ups...
El código de la barra de la izquierda es incompleto.
Este es el código:
oReBar := TReBar():Create( ::oPgIzq )
WITH OBJECT ::oMnuBusqueda := TToolBar():New( oReBar )
:SetBounds( 12, 1, 3, 20 ) //20
:nBtnHeight := 16
:nBtnWidth := 16
:lList := .T.
:Create()
:AddButton("Ficha", "A",,,"Expandir", {|| IIF (
Self:lModoBrowse, (Self:ModoFicha(), Self:oMnuGeneral:lEnabled := .T.),
(Self:ModoBrowse(), Self:oMnuGeneral:lEnabled := .F.) )})
END
WITH OBJECT TRebarBand():New( oRebar )
//:lFixed := .T.
:oControl := ::oMnuBusqueda
:Create()
END
Saludos,
José Luis Capel
José Luis Capel escribió:
> Hola,
>
> Hay algo que me desconcierta. Supongo que es porque, como ya habeis
> comentado varias veces, las rebars/toolbars se han de re-escribir.
>
> Por partes:
>
> Tengo dos rebars. Cada una pertenece a un oPages diferente.
>
> La rebar de la derecha está hecha está construida así­:
>
> ************************************************************
> METHOD CreaBarraNavegacionFrm( oPadre ) CLASS tMantenimiento
> LOCAL oRebar1
> LOCAL oRebar2
> LOCAL oRebar3
> LOCAL oBar, oBar2
> LOCAL oText
> LOCAL oMenuExpandir
>
>
> oMenuExpandir := TMenu():Create( Self, .t. )
>
> WITH OBJECT TMenuItem():New(oMenuExpandir )
> :cText := "Colapsar Menú Vertical"
> :OnClick := {|o| Self:ExpandeOptlst( o ) }
> :Create()
> END
>
> WITH OBJECT TMenuItem():New( oMenuExpandir )
> :cText := "Menú Vertical a la derecha"
> :OnClick := {|o| Self:AlineaOptlst( o ) }
> :Create()
> END
>
>
> oReBar1 := TReBar():Create( oPadre )
>
> WITH OBJECT oBar2 := TToolBar():New( oReBar1 )
> :SetBounds( 12, 1, 3, 20 ) // 29
> :nBtnHeight := 16
> :nBtnWidth := 16
> :Create()
> :AddButton("", "A",,, "Menú", {|| Self:ExpandeOptlst() },
> oMenuExpandir )
> END
>
>
> WITH OBJECT oBar := TToolBar():New( oReBar1 )
> :SetBounds( 12, 1, 3, 20 ) // 29
> :nBtnHeight := 16
> :nBtnWidth := 16
> :Create()
>
> :AddButton("", "A",,,"Alta", {| | Self:Alta() })
> :AddButton("", "B",,,"Baja", {| | Self:Baja() } )
> :AddButton("", "C",,,"Consulta",{| | Self:Consulta() } )
> :AddButton("", "M",,,"Modifica",{| | Self:Modifica() } )
> END
>
> WITH OBJECT oText := TLabel():New( oReBar1 )
> :SetBounds( 120, 4, 80, 20 )
> :cText := ::cDescLarga
> :lParentFont := .F.
> :oFont := TFont():Create( "MS Sans Serif", 14, 0, 700 )
> :nClrText := clBlue
> :nAlignment := taRIGHT
> :nAnchors := akTOPRIGHT
> :Create()
> END
>
>
> WITH OBJECT TRebarBand():New( oRebar1 )
> //:lFixed := .T.
> :oControl := oBar2
> :Create()
> END
>
>
> WITH OBJECT TRebarBand():New( oRebar1 )
> //:lFixed := .T.
> :oControl := oBar
> :Create()
> END
>
> WITH OBJECT TRebarBand():New( oRebar1 )
> //:lFixed := .T.
> :oControl := oText
> :Create()
> END
>
> RETURN oBar
> ************************************************************
>
>
> Y la rebar de la izquierda es así­:
>
> ************************************************************
> oReBar := TReBar():Create( ::oPgIzq )
>
> WITH OBJECT ::oMnuBusqueda := TToolBar():New( oReBar )
> :SetBounds( 12, 1, 3, 20 ) //20
> :nBtnHeight := 16
> :nBtnWidth := 16
> :lList := .T.
> :Create()
>
> ************************************************************
>
> a. ¿por que en la rebar de la izquierda no salen los puntos verticales?
> ¿Es por que solo hay una toolbar?
>
> b. ¿Por que, aparentemente, la altura de ambas rebars son diferentes?
> (ver cí­rculo rojo)
>
> c. ¿Por que en la rebar de la derecha los botones parecen que están
> colocado más abajo que los de la izquierda?
>
> d. ¿Por que el tamaño de la barra *no* es el que yo he indicado por
> programa?
>
> En algún sitio no estoy haciendo bien las cosas.
>
> Gracias por vuestra ayuda.
> José Luis Capel
>
>
> ------------------------------------------------------------ ------------
>

[jfgimenez]

José Luis,
> a. ¿por que en la rebar de la izquierda no salen los puntos verticales?
> ¿Es por que solo hay una toolbar?
Es porque sólo tiene una banda. Si quieres que siempre aparezcan los
puntitos, crea la banda así:
WITH OBJECT TRebarBand():New( oRebar )
:oControl := ::oMnuBusqueda
:nCtlStyle := RBBS_GRIPPERALWAYS
:Create()
END
> b. ¿Por que, aparentemente, la altura de ambas rebars son diferentes?
> (ver círculo rojo)
Es por lo que comentamos ayer: en la barra de la derecha tienes un botón con
menú, que provoca que la altura de ese botón y de la toolbar sea mayor.
> c. ¿Por que en la rebar de la derecha los botones parecen que están
> colocado más abajo que los de la izquierda?
Por la misma razón.
> d. ¿Por que el tamaño de la barra *no* es el que yo he indicado por
> programa?
Idem.
Una cosa por si te sirve... si te puedes apañar con que ese botón tenga
solamente el menú, sin acción directa, te funcionará bien. La diferencia es
que el botón no aparece partido, sino que la flechita está dentro del botón,
y al pulsarlo en cualquier parte se despliega el menú. Es exactamente igual
que el primer botón (nuevo) del IDE.
--
Un saludo,
José F. Giménez

[joseluis]

José,
> :nCtlStyle := RBBS_GRIPPERALWAYS
No encuentro ese define. Ni RBS_GRIPPERALWAYS
Saludos,
José Luis Capel

[jfgimenez]

José Luis,
>> :nCtlStyle := RBBS_GRIPPERALWAYS
>
>
> No encuentro ese define. Ni RBS_GRIPPERALWAYS
tiene que estar en CommCtrl.api
--
Un saludo,
José F. Giménez

[joseluis]

José,
>>> :nCtlStyle := RBBS_GRIPPERALWAYS
>>
>>
>>No encuentro ese define. Ni RBS_GRIPPERALWAYS
>
>
> tiene que estar en CommCtrl.api
>
No lo encuentra Xailer.
Mira las imágenes.
Saludos y gracias,
José Luis Capel
PD: en commctrl.api si que está :S
--

[joseluis]

José,
> Es porque sólo tiene una banda. Si quieres que siempre aparezcan los
> puntitos, crea la banda así­:
>
> WITH OBJECT TRebarBand():New( oRebar )
> :oControl := ::oMnuBusqueda
> :nCtlStyle := RBBS_GRIPPERALWAYS
> :Create()
> END
Gracias!!! Solucionado!!!
>
>
>
>>b. ¿Por que, aparentemente, la altura de ambas rebars son diferentes?
>>(ver cí­rculo rojo)
>
>
> Es por lo que comentamos ayer: en la barra de la derecha tienes un botón con
> menú, que provoca que la altura de ese botón y de la toolbar sea mayor.
>
Parece que eso no ha cambiado (creo). Mira la imagen.
>>c. ¿Por que en la rebar de la derecha los botones parecen que están
>>colocado más abajo que los de la izquierda?
>
>
> Por la misma razón.
>
>
Efectivamente.... y así­ fue....
>
>>d. ¿Por que el tamaño de la barra *no* es el que yo he indicado por
>>programa?
>
>
> Idem.
>
>
Eso no lo tengo claro... son 5 pí­xeles más alto de lo que yo indico en
el programa.
> Una cosa por si te sirve... si te puedes apañar con que ese botón tenga
> solamente el menú, sin acción directa, te funcionará bien. La diferencia es
> que el botón no aparece partido, sino que la flechita está dentro del botón,
> y al pulsarlo en cualquier parte se despliega el menú. Es exactamente igual
> que el primer botón (nuevo) del IDE.
>
Eso es lo que voy a hacer.
Y una última cuestión: mirando la imagen... ¿por que la rebar de la
izquierda tiene una coloració diferente a la de la derecha (más oscura)?
(He redimensionado las dos rebars al mismo ancho y la coloración sigue
siendo más oscura para la de la izquierda)
Gracias por todo!!!!
Saludos,
José Luis Capel
--

[jfgimenez]

José Luis,
> No lo encuentra Xailer.
Tienes que incluirlo en tu .prg:
#include "CommCtrl.api"
Ese es uno de los pocos ficheros de cabecera que no se incluyen
automáticamente. Es más, cuando estén terminadas las rebar y toolbar no hará
falta.
--
Un saludo,
José F. Giménez

[jfgimenez]

José Luis,
> Y una última cuestión: mirando la imagen... ¿por que la rebar de la
> izquierda tiene una coloració diferente a la de la derecha (más oscura)?
> (He redimensionado las dos rebars al mismo ancho y la coloración sigue
> siendo más oscura para la de la izquierda)
No sabría decirte. Con el tema "Luna", las bandas de la rebar se pintan con
un suave degradado, por lo que la de la izqda. me parece correcta. Lo que no
sé decirte es porque la de la derecha parece que tiene un único color.
Quizás sea por el contenedor de la rebar.
--
Un saludo,
José F. Giménez

[joseluis]

José,
>
> No sabrí­a decirte. Con el tema "Luna", las bandas de la rebar se pintan con
> un suave degradado, por lo que la de la izqda. me parece correcta. Lo que no
> sé decirte es porque la de la derecha parece que tiene un único color.
> Quizás sea por el contenedor de la rebar.
>
Ya lo veremos cuando hayas re-escrito el tema de las rebars.
Saludos y gracias!
José Luis Capel