Thefull

IconView

Nuevo widget portado a T-Gtk

Recientemente estoy realizando portando mas widgets en T-Gtk, y esta vez le
a tocado a los iconview.

Desarrollando la aplicacion que anteriormente habiamos comentado, me encontré
con la necesidad de mostrar una imagen.

Pensé un momento, y me dí cuenta, que lo mejor era mostrar todas las imagenes
que quiesiera.

Para ello, la mejor manera que vi, fue el usar el widget llamado GtkIconView.

Dicho widget hace uso de un modelo de datos, para mostrar imagenes más una etiqueta.

Su funcionamiento es muy simple usando POO, podemos realizar lo que estamos buscando, que era mostrar una lista de imagenes.

El codigo es muy simple:

  DEFINE WINDOW oWnd TITLE "GtkIconView. T-Gtk for [x]Harbour (c)03-2006 Rafa Carmona" SIZE 500,500

     DEFINE SCROLLEDWINDOW oScroll OF oWnd CONTAINER

     oModel := Create_Model()

     DEFINE ICONVIEW oIconView MODEL oModel OF oScroll CONTAINER

* Indicamos que la primera columna es el que contiene el texto.

     oIconView:SetTexColumn( 1 )

* Indicamos que la segunda columna es el que contiene la imagen.

     oIconView:SetPixBufColumn( 2 )

* Indicamos que queremos 5 columnas.

     oIconView:SetColumns( 5 )

* Cada vez que activemos la imagen, double-click o return, saltaremos

* a la funcion Comprueba, y veremos como mostrar la imagen real.

     oIconView:bItem_Activated := {|oSender,pPath| Comprueba( oSender, pPath )  }

  ACTIVATE WINDOW oWnd CENTER

Como podeis apreciar, el codigo inicial, son unas pocas lineas, sin ningun
tipo de misterio ni complicacion.

Ahora nos detendremos en la creacion del modelo de datos, que lo realizamos
desde la funcion Create_Model(), el cual podeis observar a continuacion,
y os sorprendereis lo poquita cosa que es:

FUNCTION Create_Model()
  local aIter := array( 4 )
  local oLbx, x, oImage,pixbuf
  Local aFiles := {}
  local aPngs := Directory( "../../images/*.png" )
  local aJpgs := Directory( "../../images/*.jpg" )
  
* Obtenemos TODOS los ficheros graficos
  Aeval( aPngs ,{ | a| AADD( aFiles, a[1] ) } )
  Aeval( aJpgs ,{ | a| AADD( aFiles, a[1] ) } )

* Definimos el model de datos, ListStore, con los tipos adecuados.

   DEFINE LIST_STORE oLbx TYPES G_TYPE_STRING, GDK_TYPE_PIXBUF 

    For x := 1 To Len( aFiles )

        APPEND LIST_STORE oLbx ITER aIter

        SET LIST_STORE oLbx ITER aIter POS 1 VALUE aFiles[x]

        * Cargamos la imagen

        DEFINE IMAGE oImage FILE "../../images/"+aFiles[ x ] LOAD

        * Conversion de la imagen a 100x100

        pixbuf := gdk_pixbuf_scale_simple( oImage:GetPixBuf(), 100,100 )

        SET LIST_STORE oLbx ITER aIter POS 2 VALUE pixbuf

        gdk_pixbuf_unref( pixbuf )

    Next

 RETURN oLbx

La única cosa que nos trae la atencion, es la funcion gdk_pixbuf_scale_simple().
Bueno, he de decir, que si cargamos el modelo de datos con la imagen, este lo
cargará con el tamaño REAL, asi, tendremos en la vista de los iconos, diferentes
tamaños, dando la sensacion un poco extraña.

Para ello lo que vamos a realizar, es transformar dicha imagen a una que nos
interese, en este caso a 100x100.

Asi, cuando cargamos la imagen:
DEFINE IMAGE oImage FILE "../../images/"+aFiles[ x ] LOAD

Podemos facilmente transformala al tamaño que nos interese:
pixbuf := gdk_pixbuf_scale_simple( oImage:GetPixBuf(), 100,100 )

Y podeis observar , como el valor de la variable, pixbuf, es la que vamos
a introducir en el modelo de datos:
SET LIST_STORE oLbx ITER aIter POS 2 VALUE pixbuf

Y lo último que nos queda por hacer, es desreferenciar el pixbuf:
gdk_pixbuf_unref( pixbuf )

Ahora lo úncio que nos queda, es coger el valor de donde estamos
y hacer algo interesante , como mostrar la imagen en su tamaño real,
en una ventana.

Static Function Comprueba( oIconView, pPath  )
    Local oWnd , oImage, width, height, pImage, cText

    * Obtenemos el nombre del fichero

    cText  := oIconView:GetValue( 1,, pPath )

    

    DEFINE WINDOW oWnd TITLE cText TYPE_HINT GDK_WINDOW_TYPE_HINT_MENU

         DEFINE IMAGE oImage FILE "../../images/"+cText OF oWnd CONTAINER

    

       ACTIVATE WINDOW oWnd MODAL CENTER

Return nil

Bueno, espero que con esta explicación podais entender mejor dicho widget.
Como siempre , una imagen vale más que mil palabras ;-)

Escrito por Rafa Carmona a las Junio 28, 2006 07:11 PM