xbrowse array que solo muestre algunas columnas

[goosfancito]

hola.
Si defino de esta manera mi xbrowse

Code: Select all  Expand view

 oBrw:= TXBROWSE():new(oDlg)
      oBrw:setArray(aComputistas)

      WITH OBJECT oBrw

         :bClrStd    := { || If( oBrw:KeyNo() % 2 == 0, ;
                   { CLR_BLACK, RGB( 224, 236, 255 ) }, ;
                   { CLR_BLACK, RGB( 191, 191, 255 ) } ) }

         :bClrRowFocus     := { || { CLR_BLACK, CLR_WHITE} }

         :nMarqueeStyle       := 5

         :nRowHeight          := 22

como hago para que (mi array tiene 3 columnas) el xbrowse no muestre (ni presionando el boton derecho dle mouse sobre el encabezado) una de las columnas?

gracias.

[ACC69]

hola.
Si defino de esta manera mi xbrowse

Code: Select all  Expand view

 oBrw:= TXBROWSE():new(oDlg)
      oBrw:setArray(aComputistas)

      WITH OBJECT oBrw

         :bClrStd    := { || If( oBrw:KeyNo() % 2 == 0, ;
                   { CLR_BLACK, RGB( 224, 236, 255 ) }, ;
                   { CLR_BLACK, RGB( 191, 191, 255 ) } ) }

         :bClrRowFocus     := { || { CLR_BLACK, CLR_WHITE} }

         :nMarqueeStyle       := 5

         :nRowHeight          := 22

como hago para que (mi array tiene 3 columnas) el xbrowse no muestre (ni presionando el boton derecho dle mouse sobre el encabezado) una de las columnas?

gracias.

Hola Goosfancito buenos dias, como estas, para ocultar columnas, es asi con esta instruccion:

oBrw:aCols[7]:lHide = .T. //Oculta columna 7

Saludos y buen dia.!

Atte: Adrian C. C.

[FranciscoA]

... (ni presionando el boton derecho dle mouse sobre el encabezado)

Hola, ademas de lo que indica Adrian...

Code: Select all  Expand view

AEval(oBrw:aCols,{|o| o:bRClickHeader := {|| NIL } })

Saludos.

[ACC69]

... (ni presionando el boton derecho dle mouse sobre el encabezado)

Hola, ademas de lo que indica Adrian...

Code: Select all  Expand view

AEval(oBrw:aCols,{|o| o:bRClickHeader := {|| NIL } })

Saludos.

Gracias Francisco, esta instruccion me faltaba ocultar columnas al darle click derecho.

Saludos .

Atte: Adrian C. C.

[joseluisysturiz]

Yo uso esto para que no aparezcan los nombres de las columnas y para que no se puedan intercambiar, saludos...

:lAllowColHiding := .f.
:lAllowColSwapping := .f.

usando bRClickHeader creo no podras usar boton derecho para alguna otra cosa sobre las columnas, es solo suposicion, nunca lo he usado, solo los que nombre antes.

[goosfancito]

ya que estamos...
como saco el borde este que me hace en el xbrowse por recursos,
le puse un codigo que encontre de Style y me saca los scrooll (que es lo que queria hacer)
pero me pone ese borde que no lo quiero.

http://1drv.ms/1o552FZ

gracias.

[MarioG]

Goosfancito
Si usas WorkShop:
Al hacer doble clic sobre el recurso se abre la ventana Windows Style
En el cuadro Frame Style, seleccionas No border
En el cuadro Dialog Style, quitas el tilde a Thickf frame y a Modal frame

Si usas PellesC... estoy en el horno

[goosfancito]

uso pelles C jajaja

[FranciscoA]

Con PellesC, intenta asi:
Window Styles 0x50310000

[goosfancito]

bien.
Saco el borde. ahora a pelear de nuevo con el scrooll (no lo quiero) pero gracias es un gran avance.