Imagenes del Tree en un Browse, cómo ? (solucionado parcial)

[Armando]

Amigos foreros:

Como se ven en el siguiente código, tengo un Tree montado en un Browse:

Code: Select all  Expand view

            REDEFINE XBROWSE oBrw ID 200 OF oDlg;
                DATASOURCE oRsTie;
                COLUMNS "CLI_NOM","TIE_SUC","TIE_NUM";
                HEADERS "Razón Social del Cliente","Nombre de la sucursal","Número";
                COLSIZES 250,200,50;
                PICTURES Nil,Nil,"@Z 9999999";
                JUSTIFY {AL_LEFT,AL_LEFT,AL_RIGHT};
                FOOTERS AUTOSORT

                WITH OBJECT oBrw
                    :l2007            := (.F.)
                    :lHScroll         := (.F.)
                    :lVScroll         := (.F.)
                    :nMarqueeStyle    := MARQSTYLE_HIGHLROW
                    :nColDividerStyle := LINESTYLE_LIGHTGRAY
                    :nRowDividerStyle := LINESTYLE_LIGHTGRAY
                    :nStretchCol      := STRETCHCOL_WIDEST
                    :nHeaderHeight      := 25
                    :nRowHeight         := 22
                    :nFooterHeight      := 25
                    :bClrHeader       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrFooter       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrSel          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :bClrSelFocus     := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
                    :bClrStd          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :nRecSelColor     := oApp:nRowParClr
                    :lDisplayZeros    := (.F.)

                    :SetTree()
                    :oTree:OpenAll()
               END
 

Las preguntas, cómo puedo poner imágenes al Tree, una cuando la rama está abierta y otra cuando está cerrada, y aprovechando
el viaje, como puedo definir que el Tree se muestre abierto hasta un rama o nivel X, con oBrw:oTree:OpenAll() se muestran todas las ramas
abiertas, algunos ejemplos?

Saludos

[leandro]

Armando buenos días como estas?
Creo que es lo que necesitas.

Code: Select all  Expand view

:aCols[1]:AddResource({"\img\down.png","\img\right.png","\img\rec.png"})
:aCols[1]:nWidth   := 110
:aCols[1]:oHeaderFont = oFont3
:aCols[1]:nHeadStrAlign = AL_CENTER
 

[Armando]

Hola Leandro y amigos:

Por acá todo bien, espero que ustedes también.

El tema de las imágenes ha quedado resuelto, solo me falta que al inicio el Tree se abra
al segundo nivel.

Saludos