Eso
grcias.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour pudieron avanzar en ordenacion de un tree?
Ordenación alfabética ?
Lo ideal sería usar un codeblock como se usa con la función ASort()
Aún no está listo
claro,
Yo estoy aun peliandola, si logro ordenar voy a postearlo asi pueden aportar.
goosfancito, todavía no sé cómo usar el árbol de Fivewin, si no estoy pidiendo demasiado, ¿podrías enviarme un modelo básico para que pueda aprender cómo funciona? Me gustaría hacer un árbol usando los usuarios y sus contraseñas, ¿es posible? Inclusión, borrado e impresión de contraseñas. ¿Lo entiendes? Gracias.
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
dale, no hay drama.
Mañana cuelgo uno el github asi pueden acceder
goosfancito wrote:dale, no hay drama.
Mañana cuelgo uno el github asi pueden acceder
Gracias. Hágalo lo más simple posible, porque la inteligencia no es mi punto fuerte. jajajajaja
Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Hola gente...
retomo de vuelta este hilo.. hay forma de ordenar un tree de un xbrowse?
El AUTOSORT no funciona, hay alguna otra manera de realizarlo?
Muchas gracias!
Roberto
May we know your FWH version please?
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
May we know your FWH version please?
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Mr. Nagues...
my version is year 2018... very old... maybe it could be solved from programming with my version...
Roberto
First, you need to modify the fwh program
fwh\source\classes\linklist.prg
In this program please replace the existing METHOD Sort() with this revised new method:
Please include the modified linklist.prg in your project link script.
Then you can sort the Tree as shown in this example program:
fwh\source\classes\linklist.prg
In this program please replace the existing METHOD Sort() with this revised new method:
METHOD Sort( lAsc, lRecurs ) CLASS TLinkList
local oPrev, oNext, n, aItems := {}
local oItem
local bSort
DEFAULT lAsc := .t., lRecurs := .f.
if HB_ISBLOCK( lAsc )
bSort := lAsc
lAsc := .t.
else
if HB_ISSTRING( lAsc )
lAsc := ( UPPER( LEFT( lAsc, 1 ) ) == "A" )
else
lAsc := !Empty( lAsc )
endif
if lAsc
bSort := { |x,y| Upper( x:cPrompt ) < Upper( y:cPrompt ) }
else
bSort := { |x,y| Upper( x:cPrompt ) > Upper( y:cPrompt ) }
endif
endif
if ::oFirst == nil
return nil
endif
oPrev := ::oFirst:oPrev
oNext := ::oLast:oNext
::Eval( { |o| AAdd( aItems, o ) }, nil, nil, .f. )
if lRecurs
AEval( aItems, { |o| If( o:oTree == nil,, o:oTree:Sort( bSort, .t. ) ) } )
endif
ASort( aItems,,,bSort )
::oFirst := aItems[ 1 ]
::oFirst:oPrev := oPrev
for n := 2 to Len( aItems )
aItems[ n ]:oPrev := aItems[ n - 1 ]
aItems[ n - 1 ]:SetNext( aItems[ n ] )
next n
::oLast := ATail( aItems )
::oLast:SetNext( oNext )
return nilThen you can sort the Tree as shown in this example program:
#include "fivewin.ch"
function Main()
local oTree
oTree := MakeTree()
XBROWSER oTree AUTOSORT SETUP ( ;
oBrw:aCols[ 1 ]:cSortOrder := { |oCol| SetOrder( oCol ) } ;
)
return nil
static function SetOrder( oCol )
local cOrder := If( oCol:cOrder == "A", "D", "A" )
WITH OBJECT oCol:oBrw
:oTree:Sort( cOrder, .t. )
:GoTop()
END
return cOrder
static function MakeTree()
local oTree
TREE oTree
TREEITEM "DEF"
TREE
TREEITEM "222"
TREEITEM "333"
TREE
TREEITEM "JAN"
TREEITEM "FEB"
TREEITEM "MAR"
ENDTREE
TREEITEM "111"
ENDTREE
TREEITEM "ABC"
TREE
TREEITEM "777"
TREEITEM "333"
TREEITEM "444"
ENDTREE
TREEITEM "CDE"
TREE
TREEITEM "SUN"
TREEITEM "MON"
TREEITEM "TUE"
ENDTREE
ENDTREE
oTree:OpenAll()
return oTreeRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thanks Mr.Rao!!!!!!!!!