Thefull

Browses para T-Gtk

Bien, Joaquim a realizado un estupendo trabajo, peleandose con C , gObjects y los widgets en su parte más oscura para conseguir un magnifico trabajo.

El funcionamiento del browse es identico al de Fivewin, Harbour, Clipper, solamente se pinta lo que se ve, no es necesario recorrer TODA la base de datos , para pintar,
en contraposicion al Modelo/Vista/Controlador.

Hasta ahora, no me habia preocupado lo más mínimo el tema de los browses para
T-Gtk, porque usando las Listores, TreeView, etc.., lo teniamos solucionado, y con
toda la tecnologica que implica usar el Modelo / Vista / Controlador.

Pero, tambien puedo dar constancia, de la complejidad que eso supone, y más cuando al dia de hoy , no he realizado todavia las clases para gClass , para encapsular toda complejidad, y de momento , hay que batallar en base a funciones. Espero poder terminar cuanto antes este tema.

Pero , desde que me enseño Joaquim el trabajo que a realizado, me he quedado realmente ilusionado con ello, por que desde un principio, soporta colores, fonts, imagenes, etc..

Por mi parte estoy mejorando la clases y creando los comandos xBase, para
una mejor manera de crear los browses.

Voy a poner una simple imagen, para que podais ver el resultado final, y el codigo fuente que realiza este ejemplo.

Codigo fuente:
#include "gclass.ch"
#include "browse.ch"

static Pixbuf1

function main()
Local oWnd, oBrw, oLabel , oBox, Image

pixbuf1 := gdk_pixbuf_new_from_file( "header.png" )

USE CUSTOMER NEW SHARED ALIAS "CUSTUM"

DEFINE WINDOW oWnd TITLE "Browse Native of T-Gtk" SIZE 600,300

DEFINE BOX oBox VERTICAL OF oWnd

DEFINE BROWSE oBrw ;
FIELDS Field->First, Field->Last ;
HEADERS "Primero","Ultimo" ;
ALIAS "CUSTUM" ;
COLSIZES 150,100 ;
OF oBox ;
FONT "Tahoma Italic 10" ;
ON CHANGE oLabel:SetText( "Registro actual:" + cValToChar( Recno() ) );
COLORS "black", {|| MyColorFon() }

ADD COLUMN TO BROWSE oBrw ;
DATA Field->Set ;
HEADER "SET" ;
COLORS "black", {|| MyColorFon() } ;
TYPE COL_TYPE_RADIO ;
SIZE 50

ADD COLUMN TO BROWSE oBrw ;
DATA Field->Street;
HEADER "Street" ;
HEADER_PICTURE "header.png" ;
COLOR "red","black" ;
SIZE 150

ADD COLUMN TO BROWSE oBrw ;
DATA CogePicture() ;
HEADER "Imagenes al vuelo" ;
TYPE COL_TYPE_BITMAP ;
COLORS "black", {|| MyColorFon() } ;

DEFINE LABEL oLabel PROMPT "Registro actual:" + cValToChar( Recno() ) OF oBox

oBrw:bKeyEvent := {|o,nkey| if( nKey == K_ENTER, MsgInfo( "HOLA" ), ) }

ACTIVATE WINDOW oWnd CENTER

// Desferenciamos pixbufs
gdk_pixbuf_unref( pixbuf1 )

return nil

STATIC FUNCTION MyColorFon()
Local cColor

if ( ( "CUSTUM" )->( OrdKeyNo() )%2 <> 0 )
cColor := "gray"
else
cColor := "yellow"
endif

Return cColor

/*
Simple, fácil y potente.
Hemos implementado en las columnas, la posibilidad de que el picture sea
un fichero, poniendo simplemente una cadena de texto, o , para ser mucho
más rápido y mas eficiente ahorrando memoria, es pasarle el puntero del pixbuf
que hemos cargado previamente.

¿ Puedes ver la diferencia ?
Mientras que la viendo 20 filas, cargamos 10 PICTURES IGUALES! en el caso del texo,
con el pixbuf, solamente ocupará en memoria UN PICTURE, independientemente de los
que veamos.

Es por ello, que he implementado esa caracteristica.

*/
STATIC FUNCTION COGEPICTURE()
Local cPicture

if ( ( "CUSTUM" )->( OrdKeyNo() )%2 <> 0 )
cPicture := pixbuf1 // Asigmos el puntero del pixbuf
else
cPicture := "browse.png" // Aqui , se cargará la imagen desde el DISCO!
endif

Return cPicture

Escrito por Rafa Carmona a las 14 de Septiembre 2005 a las 01:34 PM