Thefull

Browses para T-Gtk (II)

Si anteriormente vimos el ejemplo de uso de un Browse sobre una tabla DBF,
ahora veremos sobre arrays.

Siguiendo con el Browse nativo, Joaquim a dado soporte tambien para arrays,
igual que anteriormente haciamos en Fivewin con oBrw:SetArray( aArray ),
con T-Gtk se realizará de la misma forma.

La diferencia, es que mientras en Fivewin tenemos que poner FIELD ""; ,
bajo T-Gtk no es necesario:

aElements := { { 1,2,3,4,5,6,7,8,9,10,11,12 } }

DEFINE BROWSE oBrw1 ;
HEADERS "Elementos" ;
COLSIZES 50;
OF oBox

oBrw1:SetArray( aElements )

Ademas, se a introducido una data a la columna, para especificar si debe
mostrar o no la barra como seleccionado, cuando estemos encima de la fila
actual.

oBrw:aColumns[1]:lDrawSelect := .f.

Seria el equivalente a NOBAR de la clase TSBROWSE.

Pongo aqui la imagen sobre dos browses relacionados, todo basado en arrays.

Finalmente , esto va tomando forma, y de momento nos estamos centrando en
depurar la clase , tanto a nivel de C como de prg.

Despues , me queda finalizar la implementación directamente en gClass , que
tengo al 99%, a falta de parar las caracteristicas actuales , en esta primera
revision.

Pero ya sabemos como funciona esto, no se termina nunca de contentar a nadie, y no se para nunca de intentar mejorar lo que se tiene.

Como siempre, aqui esta el codigo fuente que realiza lo de la imagen:

/** 

 * BrwArray.prg - Browse arrays & gclass (by TheFull)

 * Copyright (C) 2005 Joaquim Ferrer Godoy 

 **/


#include "gclass.ch"

#include "browse.ch"

function main()

  local oWnd, oBrw1, oBrw2, oBox

  local aColSpa := { "rojo", " blanco", "amarillo", "verde", "marron", "rosa", ;

                     "negro", "naranja", "gris", "lila", "azul", "fucsia" }

  local aColCat := { "roig", "blanc", "groc", "vert", "marro", "rosa", ;

                     "negre", "taronge", "gris", "lila", "blau", "fucsia" }

  local aColEng := { "red", "white", "yellow", "green", "brown", "pink", ;

                     "black", "orange", "gray", "purple", "blue", "#FF00FF" }

  local aNumber := { { 1,2,3,4,5,6,7,8,9,10,11,12 } }

  

  local aNumSpa := { "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis",;

                     "Siete", "Ocho", "Nueve", "Diez", "Once", "Doce" }

  local aNumCat := { "U", "Dos", "Tres", "Quatre", "Cinc", "Sis", ;

                     "Set", "Vuit", "Nou", "Deu", "Onze", "Dotze"     }

  local aNumEng := { "One", "Two", "Three", "Four", "Five", "Six", ;

                     "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve" }

  local aDays   := { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }

   

  

  DEFINE WINDOW oWnd TITLE "Browse arrays T-Gtk" SIZE 500,300

      

      DEFINE BOX oBox SPACING 2 OF oWnd

        

        DEFINE BROWSE oBrw1 ;

               HEADERS "Number" ;

               COLSIZES 50;                

               OF oBox ;

               COLORS "red" ;

               ON CHANGE ( oBrw2:SetArray( { { aNumSpa[oBrw1:nAt], aColSpa[oBrw1:nAt] }, ;

                                             { aNumCat[oBrw1:nAt], aColCat[oBrw1:nAt] }, ;

                                             { aNumEng[oBrw1:nAt], aColEng[oBrw1:nAt] } } ),; 

                           oBrw2:Refresh() )

   

          ADD COLUMN TO BROWSE oBrw1 ;

               DATA "";

               HEADER "Colors" ;

               COLOR "red", {|| aColEng[ oBrw1:nAt ] } ;

               SIZE 70

   

          atail( oBrw1:aColumns ):lDrawSelect := .f.

 

          ADD COLUMN TO BROWSE oBrw1 ;

               DATA {|| aDays[oBrw1:nAt] };

               HEADER "Months/Days" ;

               HEADER_PICTURE "browse.png" ;

               COLOR {|| if( oBrw1:nAt %2 <> 0, "red", "green" ) }, ;

                     {|| if( oBrw1:nAt %2 <> 0, "gray", "white" ) } ;

               SIZE 80

         

        oBrw1:SetArray( aNumber )

        

        DEFINE BROWSE oBrw2 ;

               HEADERS "Spanish", "Catalan", "English" ;  

               COLSIZES 70,70,70 ;                

               OF oBox ;

               COLORS "black"

        

        oBrw2:lArrow := .f.

        oBrw2:aColumns[ 2 ]:cfgColor = "#FFD700"

        oBrw2:aColumns[ 2 ]:cbgColor = "#1E90FF"       

        

  ACTIVATE WINDOW oWnd CENTER 

return nil

Escrito por Rafa Carmona a las Septiembre 19, 2005 11:43 PM