Thefull

Tree Store

Implementacion de Tree Store en POO.

Si bien, habia implementado en T-Gtk el tema de los Listore, este fin de semana
he sacado tiempo para terminar el tema de los Tree Store.

He realizado una mejora con respecto a los listore, que tengo que tocarlos para que
soporten la manera de hacer en ambos modelo de datos, y es que si una columna,
el padre , OF, no es un TreeView , lo tratará como otra columna, de esta manera,
podemos formar varias columnas, como una sola columna.

La verdad, es que el Modelo/Vista/Controlador, nos da un maravillo mundo de posibilidades.

Como muestra, una imagen:

Como siempre, aqui esta el codigo fuente:

 /* Ejemplo de TreeStore  */

 
 
#include "gclass.ch"
 
 
#define GtkTreeIter  Array( 4 )
 
 
Function Main()
 
 
  local hWnd, oScroll, oTreeView, oWnd, oLbx, oBox, oCol, oCol2, oCol4

   

   DEFINE WINDOW oWnd TITLE "T-Gtk TreeStore power!!" SIZE 600,400

    DEFINE BOX oBox VERTICAL  SPACING 8 OF oWnd

      DEFINE LABEL PROMPT "Planning Calendar"  OF oBox    

      

      DEFINE SCROLLEDWINDOW oScroll OF oBox EXPAND FILL

       oScroll:SetShadow( GTK_SHADOW_ETCHED_IN )

       oScroll:SetPolicy( GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC)

      

      /*Modelo de Datos */

      oLbx := Create_Model()

      

      DEFINE TREEVIEW oTreeView MODEL oLbx OF oScroll CONTAINER

      oTreeView:SetRules( .T. )            

      

      

      DEFINE TREEVIEWCOLUMN oCol COLUMN 1 TITLE "Holiday" TYPE "text" OF oTreeView

      oCol:SetResizable( .T. )

      // Esta columna, formará parte de "Holiday"

      DEFINE TREEVIEWCOLUMN COLUMN 4  TYPE "progress" OF oCol 
 
 
     DEFINE TREEVIEWCOLUMN oCol COLUMN 2 TITLE "Check + FIESTA!!" TYPE "active" OF oTreeView 

      oCol:Set_Valist( oCol:pRenderer ,{ "cell-background", "Yellow", ;

                                         "cell-background-set", .t. } )

       

      // Fijaos, como podemos FORMAR en una misma columna , un grafico , por ejemplo.

      // Ademas, alineamos el pixbuf a la derecha, xAlign, y mantememos el mismo color de fondo

      DEFINE TREEVIEWCOLUMN oCol2 COLUMN 3 TYPE "pixbuf" OF oCol EXPAND

      oCol2:Set_Valist( oCol2:pRenderer ,{ "cell-background", "Yellow", ;

                                           "cell-background-set", .t.,;

                                           "xalign", 0.0 } )
 
 
     oTreeView:SetFocus()
 
 
   ACTIVATE WINDOW oWnd CENTER

   

 RETURN NIL         
 
 
STATIC FUNCTION Create_Model()

   local oLbx

   local aParent, aChild , aIter

   local nMonth, nDay, pixbuf

   local nToday  := 0

   local aDays   := { "Lunes", "Martes", "Miercoles", "Jueves", ;

                      "Viernes", "Sabado", "Domingo" }

   local aMonths := { "Ene", "Feb", "Mar", "Abr", "May", "Jun", ;

                      "Jul", "Ago", "Sep", "Oct", "Nov", "Dic" }
 
 
  DEFINE TREE_STORE oLbx TYPES G_TYPE_STRING, G_TYPE_BOOLEAN, GDK_TYPE_PIXBUF , G_TYPE_INT
 
 
  pixbuf := gdk_pixbuf_new_from_file( "../../images/gnome-gsame.png" )
 
 
  for nMonth := 1 to len( aMonths )

       

       APPEND TREE_STORE oLbx ITER aParent VALUES aMonths[nMonth]

       SET TREE_STORE oLbx ITER aParent POS 4 VALUE 50

       

       for nDay := 1 to 30

           if nToday == 7

              SET TREE_STORE oLbx ITER aParent POS 2 VALUE .T.

              nToday  = 1

           else

              nToday += 1

           endif

            SET TREE_STORE oLbx ITER aParent POS 2 VALUE .T.

       

            APPEND TREE_STORE oLbx PARENT aParent ;

                   ITER aChild ;

                   VALUES aDays[nToday] + " " +;

                          str(nDay,2) + " de " + aMonths[nMonth] + " de 2.005"

           if aDays[nToday] == "Sabado" .OR. aDays[nToday] == "Domingo"

              SET TREE_STORE oLbx ITER aChild POS 2 VALUE .T.

              SET TREE_STORE oLbx ITER aChild POS 3 VALUE pixbuf

              SET TREE_STORE oLbx ITER aChild POS 4 VALUE 100

           else

              SET TREE_STORE oLbx ITER aChild POS 4 VALUE nDay

           endif

       next

   next

   

   gdk_pixbuf_unref( pixbuf )

    

   /* Ejemplo de INSERTAR un padre y un par de hijos en la primera posicion */

   INSERT TREE_STORE oLbx ROW 1 ITER aParent           // Padre

   

   SET TREE_STORE oLbx ITER aParent POS 1 VALUE "Hola" // Valor Padre

   

   SET TREE_STORE oLbx ITER aParent POS 4 VALUE 75     // Valor de Progress

   

       INSERT TREE_STORE oLbx ROW 1 ;

              ITER aChild PARENT aParent ;

              VALUES "Hijo",.T.,pixbuf,100 // Hijo con valores directamente
 
 
          INSERT TREE_STORE oLbx ROW 1 ;

                  ITER aIter PARENT aChild ;

                  VALUES "SubHijo",.F.,,50 // Hijo con valores directamente
 
 
 Return oLbx
 
 

Saludos.