Hola a todos
Necesito una ayudita con un ejemplo que trae Fivewin xBrwTree.prg he logrado hacer esto
El fuente es este:
Lo que no puedo hacer es que aparezca la image "si" cuando un campo lógico de la base LPUE=.T.
Me toma sólo el valor del primer registro si este es .F. muestra en todos la imagen "no"
Gracias amigos por su ayuda
Saludos
Adhemar
Necesito una ayudita con un ejemplo que trae Fivewin xBrwTree.prg he logrado hacer esto
El fuente es este:
#include "FiveWin.ch"
#include "xbrowse.ch"
Function Main()
Local oWnd, oBrw,oDBF,oMnu
USE C:\SISTEMAS\ORDENES\MENU ALIAS Mnu
Mnu->( dBGoTop() )
DEFINE WINDOW oWnd TITLE "Mostrar menu de opciones como tree en XBrowse"
@ 0, 0 XBROWSE oBrw OF oWnd
oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
oBrw:lHScroll := .f.
oBrw:SetTree( BuildTree(), { "menos", "mas", iif(Mnu->lPUE,"si","no") } ) //Imagenes en un recurso
oBrw:aCols[ 1 ]:cHeader = "Opciones"
oBrw:CreateFromCode()
oWnd:oClient = oBrw
ACTIVATE WINDOW oWnd
return nil
Static function BuildTree()
Local oTree, cState
TREE oTree
While ! Eof()
if Empty( cState )
_TreeItem( AllTrim(Mnu->ITEM) ):Cargo := { Space( 10 ) }
TREE
cState = Mnu->TAB
else
if cState != Mnu->TAB
ENDTREE
cState = Mnu->TAB
_TreeItem( AllTrim(Mnu->ITEM) ):Cargo := { Space( 10 ) }
TREE
endif
endif
if Mnu->TAB == cState .and. !Empty( Mnu->OP )
_TreeItem( AllTrim(Mnu->ITEM) ):Cargo := { Space( 10 )}
Endi
SKIP
enddo
ENDTREE
ENDTREE
GO TOP
Return oTreeLo que no puedo hacer es que aparezca la image "si" cuando un campo lógico de la base LPUE=.T.
Me toma sólo el valor del primer registro si este es .F. muestra en todos la imagen "no"
Gracias amigos por su ayuda
Saludos
Adhemar
Saludos,
Adhemar C.
Adhemar C.
