XBrowse 16.04 : Gets in Header Bar

[nageswaragunupudi]

As requested by many users, it is now possible to have Gets under header of each (or selected) columns and use the values entered either for filtering or for any other purpose by the programmer.

Sample screen-shot:


Programmer can toggle display of the bar showing the Gets.
Programmer can decide which columns need to have the Gets.

Specifying is as simple as one line of code:
Example:
oCol:uBarGetVal := Space(10)
This statement creates a Get to be displayed under the header.

[Silvio.Falconi]

goood mr Rao !!!!
it was that I asked !!

[ACC69]

As requested by many users, it is now possible to have Gets under header of each (or selected) columns and use the values entered either for filtering or for any other purpose by the programmer.

Sample screen-shot:


Programmer can toggle display of the bar showing the Gets.
Programmer can decide which columns need to have the Gets.

Specifying is as simple as one line of code:
Example:
oCol:uBarGetVal := Space(10)
This statement creates a Get to be displayed under the header.

Gracias Ing. maestro Mr Rao, esa es mi peticion que todos solicitamos ,como esta imagen que pongo:

http://s2.subirimagenes.com/otros/previ ... browse.jpg



Ver Imagen: http://s2.subirimagenes.com/otros/previ ... browse.jpg

Gracias por las mejoras

Saludos

Atte: Adrian C. C.

[joseluisysturiz]

Wow...esto si esta espectacular...ya que evita tener que hacer GETs en el DLG o un DLG adicional para entrar datos, viendo que estas trabajando fuertemente en cambios al xBrowse, habra alguna forma de agregarle botones de accion a la barra del footer.? esta serviria para AGREGAR REGISTRO, BUSCAR, IMPRIMIR, etc, algo como una pequeña button bar, esto lo propuse hace tiempo, pero creo nadie pudo hacerlo o se les paso, aca dejo un ejemplo en imagen, gracias, saludos...

Aca dejo link de mi tema original, haber si se puede implementar en el xbrowse...seria muy bueno, gracias, saludos...

viewtopic.php?f=6&t=29954&p=170413&hilit=barra+de+botones#p170413

[FranciscoA]

Great!

[joseluisysturiz]

As requested by many users, it is now possible to have Gets under header of each (or selected) columns and use the values entered either for filtering or for any other purpose by the programmer.

Sample screen-shot:


Programmer can toggle display of the bar showing the Gets.
Programmer can decide which columns need to have the Gets.

Specifying is as simple as one line of code:
Example:
oCol:uBarGetVal := Space(10)
This statement creates a Get to be displayed under the header.

Una duda, sera solo GETs o cualquier control de manejo de datos.? checkbox, combobox...? gracias, saludos...

[nageswaragunupudi]

Una duda, sera solo GETs o cualquier control de manejo de datos.? checkbox, combobox...?

Only Gets in this release.
But we keep improving based on what most users require and suggest.

algo como una pequeña button bar

1. In this version, we provided a drop-down menu when user clicks on RecSel Header.
2. We were actively considering a mini buttonbar within xbrowse. But we wanted to know how many users would consider it useful in addition to buttonbar in the window/dialog

[joseluisysturiz]

Una duda, sera solo GETs o cualquier control de manejo de datos.? checkbox, combobox...?

Only Gets in this release.
But we keep improving based on what most users require and suggest.

algo como una pequeña button bar

1. In this version, we provided a drop-down menu when user clicks on RecSel Header.
2. We were actively considering a mini buttonbar within xbrowse. But we wanted to know how many users would consider it useful in addition to buttonbar in the window/dialog

Ingles(traslator)
mini bar buttons on the xbrowse apart from some in dialog or window is good as these buttons would affect only the xbrowse independently of any other creature, and leave more space to display data, especially for small tables screens on laptops or , has already been presented to me that detail and I had to improvise by placing columns with buttons on the right end of xbrowse, something like the web grids, as is as tell consideration and needs of most users, I hope someone else will see benefit and to join the suggestion, but his work in xbrowse this being well, congratulations.

Español
la mini barra de botones en el xbrowse aparte de alguna en dialogo o ventana es buena ya que estos botones afectarian solo al xbrowse de forma independiente a cualquier otra creada y dejaria mas espacio para mostrar datos, sobre todo para las pantallas pequeñas en laptops o tablas, ya se me ha presentado ese detalle y he tenido que improvisar colocando columnas con botones al final derecho del xbrowse, algo parecido a lo grillas web, igual queda como dices a consideracion y necesidad de la mayoria de usuarios, espero alguien mas le vea beneficio y se sume a la sugerencia, pero su trabajo en xbrowse esta quedando muy bien, felicitaciones.

gracias, saludos...

[nageswaragunupudi]

Mr joseluisysturiz

Thanks for the explanation. This is my personal view too. Let us see how many other users also consider it useful.

We shall provide a mini buttonbar also. May not be in this release 16.04 but in the next release.

[joseluisysturiz]

Mr joseluisysturiz

Thanks for the explanation. This is my personal view too. Let us see how many other users also consider it useful.

We shall provide a mini buttonbar also. May not be in this release 16.04 but in the next release.

Gracias a usted por tomar en consideracion las sugerencias dadas, saludos...

[albeiroval]

Incluye el manejo con tdolphin ?

Google translator :

It includes handling with tdolphin?

[nageswaragunupudi]

It does not matter, because xbrowse provides the Gets only. Programmer may use the values entered in the Gets for filtering or for any purpose he likes.

I provide here a sample code, which clarifies how to use the feature:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

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

function Main()

   SET DATE ITALIAN
   SET CENTURY ON
   SET DELETED ON
   RDDSETDEFAULT( "DBFCDX" )
   SetGetColorFocus()

   Sample1()

return nil

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

static function Sample1()

   local oDlg, oBrw, oFont, oBold
   local n

   USE CUSTOMER NEW SHARED

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

   DEFINE DIALOG oDlg SIZE 800,500 PIXEL TRUEPIXEL ;
      FONT oFont TITLE FWVERSION + " : Bar Get"

   @ 110,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" AUTOCOLS CELL LINES NOBORDER

   // Relevant Code
   for n := 1 to Len( oBrw:aCols )
      WITH OBJECT oBrw:aCols[ n ]
         if FieldType( n ) != 'L'
            :uBarGetVal    := uValBlank( fieldGet( n ) )
            if FieldType( n ) == 'N'
               :cBarGetPic := NumPict( FieldLen( n ), FieldDec( n ) )
            endif
         endif
      END
   next
   oBrw:lGetBar   := .t.
   // End of Relevant Code

   WITH OBJECT oBrw
      :nHeaderHeight    := 40 // optional
      :oHeaderFonts     := oBold
      :bClrEdits        := { || { CLR_BLACK, CLR_YELLOW } }
      :AutoFit()
      //
      :CreateFromCode()
   END

   @ 10,20 SAY "Gets under Headers. Entered values can be used" + ;
      "for filtering or any othe purpose" + CRLF + ;
      "Usage: oCol:uBarGetVal := Space( 10 ); oBrw:lGetBar := .t." ;
      SIZE oDlg:nWidth - 40,40 PIXEL OF oDlg CENTER

   @ 60, 20 BTNBMP PROMPT { || If( oBrw:lGetBar, "Hide GetBar", "ShowGetBar" ) } ;
      SIZE 100,40 PIXEL OF oDlg FLAT ;
      ACTION ( oBrw:lGetBar := ! oBrw:lGetBar, oBrw:Refresh() )

   @ 60,140 BTNBMP PROMPT "Set Filter" ;
      SIZE 100,40 PIXEL OF oDlg FLAT ;
      ACTION ( oBrw:cAlias )->( SetFilter( oBrw ) )

   @ 60,250 BTNBMP PROMPT "Clear Filter" ;
      SIZE 100,40 PIXEL OF oDlg FLAT ;
      ACTION ( oBrw:cAlias )->( DBCLEARFILTER(), oBrw:Refresh(), oBrw:SetFocus() )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont, oBold

return nil

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

static function SetFilter( oBrw )

   local cFilter := ""
   local n, oCol, uVal, cType

   for n := 1 to Len( oBrw:aCols )
      oCol  := oBrw:aCols[ n ]
      if ! Empty( uVal := oCol:uBarGetVal )
         if !Empty( cFilter )
            cFilter  += " .AND. "
         endif
         cType    := ValType( uVal )

         do case
         case cType == 'C'
            uVal     := Upper( AllTrim( uVal ) )
            cFilter += '"' + uVal + '" $ UPPER( ' + FieldName( n ) + " )"
         otherwise
            cFilter  += FieldName( n ) + " == " + cValToChar( uVal )
         endcase
      endif

   next

   if Empty( cFilter )
      if ! Empty( DBFILTER() )
         DBCLEARFILTER()
         oBrw:Refresh()
      endif
   else
      if !( DBFILTER() == cFilter )
         SET FILTER TO &cFilter
         GO TOP
         oBrw:Refresh()
      endif
   endif

   oBrw:SetFocus()

return nil

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

[HunterEC]

Rao:

G R E A T J O B ! ! !

A buttonbar on xBrowse it's a very welcome feature, it will save us from having buttons on a dialog/window to control the browse.
You're an xBrowse GURU !!!

[joseluisysturiz]

Rao:

G R E A T J O B ! ! !

A buttonbar on xBrowse it's a very welcome feature, it will save us from having buttons on a dialog/window to control the browse.
You're an xBrowse GURU !!!

Español:
haber a quien mas considera que una pequeña butonbar como parte del xbrowse es algo de bastante ayuda para controlar el browse: primer registro, ultimo registro, subir, bajar, modificar y eliminar registro seleccionado, seleccionar todos los registros, imprimir, son algunas ideas que se me vienen a la mente y que he visto en otras grillas...gracias A.L, RAO y demas guru del xbrowse...saludos...

English(google traslator):
be who else considers that a small butonbar as part of xbrowse is something quite helpful to control the browse: first record, last record, upload, download, modify and delete selected record, select all records, print, are some ideas that I come to mind and I've seen in other grids ... thanks AL, RAO and other xbrowse guru ... greetings ...

[rhlawek]

For the active header bar get I would like to display two icons on the right side of the get, that can pressed as distinct buttons, all user programmable of course. For me the first would be a magnifying glass that when pressed would set the desired filter. The second would be an X. If pressed when a filter is active is clears the filter. If pressed without a filter active it clears the content of the get itself.

Is this doable?

Robb