Progress en celda del xBrowse

[jll-fwh]

Hola a todos:

Alguien podra dejarme un ejemplo de como insertar un meter dentro de una celda del xBrowse?

en la carpeta samples habia un ejemplo, pero me ha desaparecido.

un saludo y gracias de antemano;
JLL

[Daniel Garcia-Gil]

http://forums.fivetechsupport.com/viewtopic.php?f=3&p=107093#p107093

[jll-fwh]

Hola Daniel:

el problema es que me han desaparecido los ficheros de \samples y el CD donde tenia la copia de FWH no la encuentro por ningna parte, por eso, pido que alguien me pasa el ejemplo o me mande la carpeta \samples entera, yo uso FWH8 diciembre del 2008.

gracias por contestar.
JLL

[Daniel Garcia-Gil]

....

Este es el ejemplo de la version que usas

Code: Select all  Expand view  RUN

#include 'fivewin.ch'
#include 'xbrowse.ch'

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oBrw, oFont

   USE customer NEW ALIAS CUST

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12

   DEFINE DIALOG oDlg SIZE 600,300 PIXEL ;
      TITLE "Progress Bars in XBrowse" ;
      FONT oFont

   @ 10,10 XBROWSE oBrw ;
      COLUMNS 'First', 'Age' ;
      OF oDlg ;
      SIZE 280,130 PIXEL ;
      ALIAS 'CUST' ;
      CELL LINES

   oBrw:oCol( "Age" ):SetProgBar( 100, 200 )

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

//----------------------------------------------------------------------------//



 

[jll-fwh]

Hola daniel:

Gracias como siempre por tu ayuda y colaboracion en el foro.

Mirando la clase encontre que habia un metodo SetProgBar y la estaba usando de este modo pero no me funcionaba:

oGrid::SetProgBar( 100, 0 )

La forma de hacerlo es:

oGrid:aCols[4]:SetProgBar( 100, 0 )

Para aquellos que quieran asignar el color del meter dentro de la celda del xBrowse, se hace asi:

oGrid:aCols[4]:bClrProg := {|| { RGB(128,255,128), RGB(255,128,255 ) } }

Un saludo
JLL