pudieron avanzar en ordenacion de un tree?
Posted: Mon Jul 26, 2021 9:10 pmEso
grcias.
grcias.
Ordenación alfabética ?
Lo ideal sería usar un codeblock como se usa con la función ASort()
Aún no está listo
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
pudieron avanzar en ordenacion de un tree?
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40674
Page 1 of 1
Posted: Mon Jul 26, 2021 9:10 pmRe: pudieron avanzar en ordenacion de un tree?
Posted: Tue Jul 27, 2021 8:44 amRe: pudieron avanzar en ordenacion de un tree?
Posted: Tue Jul 27, 2021 9:11 pmclaro,
Yo estoy aun peliandola, si logro ordenar voy a postearlo asi pueden aportar.
Yo estoy aun peliandola, si logro ordenar voy a postearlo asi pueden aportar.
Re: pudieron avanzar en ordenacion de un tree?
Posted: Tue Jul 27, 2021 10:29 pmgoosfancito, 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.
Regards, saludos.
Re: pudieron avanzar en ordenacion de un tree?
Posted: Wed Jul 28, 2021 12:59 amdale, no hay drama.
Mañana cuelgo uno el github asi pueden acceder
Mañana cuelgo uno el github asi pueden acceder
Re: pudieron avanzar en ordenacion de un tree?
Posted: Wed Jul 28, 2021 1:57 pmgoosfancito 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.
Re: pudieron avanzar en ordenacion de un tree? (xbrowse)
Posted: Mon Jul 10, 2023 12:18 pmHola 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
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
Re: pudieron avanzar en ordenacion de un tree?
Posted: Mon Jul 10, 2023 4:01 pmMay we know your FWH version please?
Re: pudieron avanzar en ordenacion de un tree?
Posted: Mon Jul 10, 2023 4:01 pmMay we know your FWH version please?
Re: pudieron avanzar en ordenacion de un tree?
Posted: Mon Jul 10, 2023 6:32 pmMr. Nagues...
my version is year 2018... very old... maybe it could be solved from programming with my version...
Roberto
my version is year 2018... very old... maybe it could be solved from programming with my version...
Roberto
Re: pudieron avanzar en ordenacion de un tree?
Posted: Tue Jul 11, 2023 1:32 pmFirst, 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:
- Code: Select all Expand view
- 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 nil
Please include the modified linklist.prg in your project link script.
Then you can sort the Tree as shown in this example program:
- Code: Select all Expand view
- #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 oTree
Re: pudieron avanzar en ordenacion de un tree?
Posted: Tue Jul 11, 2023 2:48 pmThanks Mr.Rao!!!!!!!!!