Autoajustar un Browse

[Fernando Hernandez]

Buenos Dias
He estado buscando informacion de como autoajustar todas las columnas de un
browse al crearlo. Me imagino que es sencillo. Alguien podria ayudarme.
Saludos

[Bingen Ugaldebere]

Buenas Fernando, esto es lo que uso yo
For nAt:=1 To Len(::oBrw:aCols)
::oBrw:oHeader:OnDividerDblClick( ,,nAt )
Next
> Buenos Dias
>
> He estado buscando informacion de como autoajustar todas las columnas de un
> browse al crearlo. Me imagino que es sencillo. Alguien podria ayudarme.
>
> Saludos
>
>

[Fernando Hernandez]

Ok, gracias por la ayuda
He probado ingresarlo en todos los metodos, pero no logro hacer que me
autoajuste el Browse, no se si sera porque el datasource es de Oracle ??
Adjunto Parte del Código.
Saludos
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=46ef65dc@ozsrv2.ozlan.local...]46ef65dc@ozsrv2.ozlan.local...[/email]
> Buenas Fernando, esto es lo que uso yo
>
> For nAt:=1 To Len(::oBrw:aCols)
> ::oBrw:oHeader:OnDividerDblClick( ,,nAt )
> Next
>
>
>
>
>> Buenos Dias
>>
>> He estado buscando informacion de como autoajustar todas las columnas de
>> un browse al crearlo. Me imagino que es sencillo. Alguien podria
>> ayudarme.
>>
>> Saludos
>>

[Bingen Ugaldebere]

No veo el código que me comentas.
Yo lo hago sobre DBFs pero no creo que eso afecte para nada, en realidad
lo que puedes ver que hago es como si hiciera doble clic en los
separadores de columnas, si has probado a hacer esto último a mano y te
funciona también te deberí­a de funcionar este código.
Salu2.

[jasm]

Bingen
¿En que metodo lo metes ese codigo?
Saludos
Jose A. Suarez

[Bingen Ugaldebere]

Perdón pero jurarí­a que ese trozo de código me andaba cuando lo puse en
una versión anterior de Xailer donde lo preparé y es cierto ahora en la
1.6.6 es inocuo, no falla pero no hace nada.
Una alternativa que encontré en su momento "no documentada" es
AdjustColWidth si que funciona pero con un error, solo auto ajusta
columnas visibles no las ocultas ya que peta el programa.
For nAt:=1 To Len(::oDBBrowse2:aCols)
::oDBBrowse2:AdjustColWidth(::oDBBrowse2,nAt)
Next
Sigo investigando.
Salu2.

[Bingen Ugaldebere]

DEFINITIVO
Esta es la buena funciona con todo y es usando la "indocumentada"
AdjustWidth de la tBRWColumn funciona correctamante.
METHOD DBBrowse2Enter( oSender, oPrevCtl ) CLASS TBuscador
Local nAt:=0
For nAt:=1 To Len(::oDBBrowse2:aCols)
::oDBBrowse2:aCols[nAt]:AdjustWidth()
Next
RETURN Nil
Salu2

[jasm]

Pos a mi como que no me va esto

[Fernando Hernandez]

Yo lo he agregado al evento OnInitialize del formulario, y me funciona de
maravilla.
METHOD FormInitialize( oSender ) CLASS TFrmRuta
Local nAt := 0
::oSQlTable1:oDataSource := AppData:op_ADOData
::oSqlTable1:lOpen:=.T.
::osqltable1:sort("Ruta")
::oeditbtn1:nMaxLength := 10
::asignarico()
For nAt:=1 To Len(::oDBBrowse1:aCols)
::oDBBrowse1:aCols[nAt]:AdjustWidth()
Next
RETURN Nil
Saludos
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:46f187a7$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
> Pos a mi como que no me va esto

[Bingen Ugaldebere]

Si José Alfonso tienes razón yo lo tenia puesto en el OnEnter del Browse
y pensé que andaba pero no hace nada y me despisté por que lo tengo
también puesto en otro sitio y ese era el que andaba.
Ahora he quitado el otro y lo he puesto como dice Fernando en el
OnInitialize del Form y va perfectamente.
Perdón por el despiste.
Salu2.