topic-20219

jll-fwh

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Progress en celda del xBrowse
Posted: Sun Nov 07, 2010 03:23 AM

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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Progress en celda del xBrowse
Posted: Sun Nov 07, 2010 07:27 PM

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

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

jll-fwh

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: Progress en celda del xBrowse
Posted: Sun Nov 07, 2010 07:48 PM

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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Progress en celda del xBrowse
Posted: Sun Nov 07, 2010 08:36 PM

....

Este es el ejemplo de la version que usas

Code (fw): Select all Collapse

#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

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

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

jll-fwh

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: Progress en celda del xBrowse
Posted: Mon Nov 08, 2010 12:19 AM

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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

FiveTech Support Forums

Continue the discussion