Imagenes del Tree en un Browse, cómo ? (solucionado parcial)
Posted: Fri Jun 21, 2024 2:54 amAmigos foreros:
Como se ven en el siguiente código, tengo un Tree montado en un Browse:
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
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