Ancho de Control Fijo

[zeasoftware]

Estoy usando la nueva TReBar, pero ahora si le aplico un objeto
(TComboBoxEx) este al maximizar la ventana (MDI) se expande al ancho de
esta.
Que propiedad o valor tengo que asignar para que el control sea de ancho
fijo?
Me hizo lo mismo tanto en el IDe como creando el TComboBoxEx en RunTime.
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[Rene Flores]

Ramón:
Tienes que meter un Bevel en el TReBar y luego dentro del Bevel el
contol que quieras, si no lo haces asi, el control toma el ancho del
TRebar contenedor.
Saludos
Rene Flores
http://www.ciber-tec.com
Zea escribió:
> Estoy usando la nueva TReBar, pero ahora si le aplico un objeto
> (TComboBoxEx) este al maximizar la ventana (MDI) se expande al ancho de
> esta.
>
> Que propiedad o valor tengo que asignar para que el control sea de ancho
> fijo?
>
> Me hizo lo mismo tanto en el IDe como creando el TComboBoxEx en RunTime.
>
> Gracias.
>

[ignacio]

Ramón,
Me temo que lo ha hecho siempre. Cualquier control que insertes una
TRebarBand adapta sus dimensiones al tamaño de la TRebarBand.
Sin ir más lejos, no hace mucho tiempo que un usuario nos pidió que el
combobox del preview no tuviera ese efecto de ocupar toda la banda y lo
arreglamos poniendo primero un bevel como te acaba de comentar René.
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> wrote in message
news:449edf2d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Gracias, incluso el tBevel toma el ancho del ReBar al maximixar la
> ventana, pero poniendole ancho fijo al ComboBox quedo listo.
>
> Antes esto no lo hacia el TReBar.
>
> Saludos.
> --
> Ramón Zea
> ramonzea@yahoo.com
>
> http://www.paginasprodigy.com/zeasoft/
>
>

[zeasoftware]

Gracias, incluso el tBevel toma el ancho del ReBar al maximixar la ventana,
pero poniendole ancho fijo al ComboBox quedo listo.
Antes esto no lo hacia el TReBar.
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[zeasoftware]

Afirmativo IOZ, diseñandolo en el IDE queda bien, a como dicen tu y RF, pero
en tiempo de ejecucion, exactamente aplicandolo en OnInitialize, se expande
el Bevel.
Gracias por su tiempo.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[zeasoftware]

Igualmente, con la TStatusBar, no se puede poner fijo un TProgressBar?
ya lo intente incluso con TBevel dentro del TStatusPanel.
Alguna sugerencia? o no se puede?
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[jfgimenez]

Ramón,
> Afirmativo IOZ, diseñandolo en el IDE queda bien, a como dicen tu y RF,
> pero en tiempo de ejecucion, exactamente aplicandolo en OnInitialize, se
> expande el Bevel.
Seguramente es porque estás asignando el combo a la propiedad oControl de la
rebarband. En vez de eso, asignale el bevel, y pon el combo como hijo del
bevel. Así sí tiene que funcionar. Para que veas lo que digo, este es
exactamente el código correspondiente del preview de Xailer:
WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
:SetBounds( 0, 0, 130, 20 )
:nBorderStyle := bvNONE
:lTransparent := .T.
:Create()
END
WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
:SetBounds( 0, 0, 125, 300 )
:nStyle := CBS_DROPDOWNLIST
:Create()
:SetItems( { "500", "200", "150", "100", "50", "25", "10",;
LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
XA_MSG_LARGO_DE_PAGINA ),;
LT( XA_MSG_TODA_LA_PAGINA ) } )
:SelectString( Ltrim( Str( ::oPreviewPage:nZoomFactor ) ) )
:OnChange := "SetZoom"
END
::oBevel:nHeight := ::oCombo:nHeight
WITH OBJECT TRebarBand():New( ::oRebar )
:cText := LT( XA_MSG_ZOOM ) + ":"
:oControl := ::oBevel
:Create()
END
Fijate que el padre del bevel es la rebar, y el padre del combo es el bevel.
Al final, la propiedad oControl de la rebarband se asigna con el bevel.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[jfgimenez]

Ramón,
> Igualmente, con la TStatusBar, no se puede poner fijo un TProgressBar?
> ya lo intente incluso con TBevel dentro del TStatusPanel.
>
> Alguna sugerencia? o no se puede?
Puedes usar exactamente la misma técnica. Envíanos el ejemplo de lo que has
intentado y no te funciona, y le podremos echar un vistazo.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[zeasoftware]

Eso fue exactamente lo que hice, pero,lo que veo que no hice es esto:
> WITH OBJECT TRebarBand():New( ::oRebar )
> :cText := LT( XA_MSG_ZOOM ) + ":"
> :oControl := ::oBevel
> :Create()
> END
>
Gracias
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/
--