XBrowse 16.04 : Gets in Header Bar

[nageswaragunupudi]

Thanks for the feedback. So, we shall provide a buttonbar as part of xbrowse. We also keep in mind the suggestion of Mr Robb to provide the facility to display some buttons on the right.

[joseluisysturiz]

Español:
Saludos, que bueno saber que es viable y beneficioso lo de la barra de botones en el xbrowse...añadiendo algo seria que los GETs de la barra del header tubiese el boton accion de los GET normales, creo los botones que sugiere el colega Robb se podrian colocar en la misma barra de botones que sugiero para que no descuadre los GETs y tamaño de las columnas, igual hay que ver el diseño como se veria e xbrowse con los cambios sugeridos. Gracias. saludos...

English(google traslator):
Greetings, good to know that it is feasible and beneficial as the button bar at the xbrowse ... adding something serious that GETs Bar header tubiese the action of normal GET button, I think the buttons colleague suggests Robb could be placed on the same button bar I suggest not to mismatch the GETs and size of the columns, you still need to see the design as Veria and xbrowse with the suggested changes. Thank you. regards...

[ShumingWang]

1. 2 lines gets as optional, some filters like "a" --> "c", 100--1000
2. :bBarGetAction
Regards!
Shuming Wang

[MGA]

Mr. Rao ,

this will work with tdolphin object in xbrowse?

[nageswaragunupudi]

1. 2 lines gets as optional, some filters like "a" --> "c", 100--1000
2. :bBarGetAction
Regards!
Shuming Wang

We will try to provide soon.

[nageswaragunupudi]

Mr. Rao ,

this will work with tdolphin object in xbrowse?

The BarGets feature works with any browse.

[Marc Vanzegbroeck]

Hi,

Is it possible to execute a function, after entering a search-text in the get fields? Maybe a valid.
Than a filter-action can be executed automaticy, without pressing the 'Set filter'-button.

Thanks,

[nageswaragunupudi]

You can use oCol:bBarGetValid to be executed as Valid function for the Get.

But there is an issue. The Valid is executed only when the Get loses focus. At the moment, pressing enter or Tab is not exiting the Get and the only way is for the user to change the focus by clicking elsewhere. We are working on this limitation.

[rhlawek]

When using TArrayData() as the datasource for an xbrowse instance, how does one set a filter?

[nageswaragunupudi]

The idea is nice.
As of now that is not possible.
We shall consider how such extensions can be made possible.
Thanks for the suggestion.

[Silvio.Falconi]

Nages,
Is it possible to insert the gets (to search data) into header of each column . the final user can click with the mouse on header and it open in automatic the get
I saw it into QuantumGrid component

[ShumingWang]

Another simple way to add the getbar feature:

1. txbrowse class
+ data lgetbar

txbrwcolumn class
+ data cf1 // firstline
+ data cf2 //second line
+ data cfieldname // for sql where / search

2. method headerheight() class txbrowse
headerheight + 2*::nRowheight // to place the 2 gets bar lines

3. METHOD MouseRowPos( nRow ) CLASS TXBrowse
if ::lgetbar.and.nrow<::HeaderHeight().and.nrow>=::HeaderHeight()-::nrowheight
nrowpos:=-1
elseif ::lgetbar.and.nrow<=::HeaderHeight()-::nrowheight.and.nrow>=::HeaderHeight()-::nrowheight*2
nrowpos:=-2
else

nRowPos := Int( nTmp / ::nRowHeight ) + 1
end

4. method paint() class txbrowse

if ::lgetbar
for nFor := 1 to nLast
if aCols[ nFor ] > nBrwWidth
exit
endif
oCol := ::ColAtPos( nFor )
oCol:PaintData( nRow-::nrowheight*2, aCols[ nFor ], nHeight, lHighLite, .t., nFor, -1 )

oCol:PaintData( nRow-::nrowheight, aCols[ nFor ], nHeight, lHighLite, .t., nFor, 0 )

next
//the right+1 column
oCol:PaintData( nRow-::nrowheight*2, aCols[ nLast+1 ], nHeight, lHighLite, .t., nFor, -1 )
oCol:PaintData( nRow-::nrowheight, aCols[ nLast+1], nHeight, lHighLite, .t., nFor, 0 )
endif

5.
method paintdata() class txbrwcolumn

if ::bStrData != nil.and. !EVAL(::obrw:bBookMark)==EVAL(::obrw:bkeyCount)+1,.t.);
.or.::obrw:lgetbar.and.nPaintRow<=0

if ::obrw:lgetbar.and.nPaintRow==-1

cdata:=::cf1
elseif ::obrw:lgetbar.and.nPaintRow==0
cdata:=::cf2
else
cData := Eval( ::bStrData )
end

6. method edit() class txbrwcolumn

if ::obrw:nrowsel==-1
uvalue:=::cf1
elseif ::obrw:nrowsel==0
uvalue:=::cf2
else
uValue := IfNil( ::Value, ::BlankValue() )
end

if ::obrw:lgetbar

if ::obrw:nrowsel==-1

::bOnPostEdit:={|o,v,n| if(n != VK_ESCAPE ,::cf1:=v,)}
::nEdittype:={||if(::beditblock<>nil,EDIT_GET_BUTTON,1)}
if ::beditblock<>nil.and.GetCursorPos()[2]>::nwidth+ ::nDisplayCol-10
::RunBtnAction()
end
elseif ::obrw:nrowsel==0
::bOnPostEdit:={|o,v,n| if(n != VK_ESCAPE ,::cf2:=v,)}
::nEdittype:={||if(::beditblock<>nil,EDIT_GET_BUTTON,1)}
if ::beditblock<>nil.and.GetCursorPos()[2]>::nwidth+ ::nDisplayCol-10
::RunBtnAction()
end

else
::bOnPostEdit:=if(::bOnPostEditST == nil,{|o,v,n|v:=v},::bOnPostEditST)
::nEdittype:=::nEdittypeSt
endif
end

The problem left is nedittype , can't enable bar gets always enable if nedittype<1


Shuming Wang

[nageswaragunupudi]

When using TArrayData() as the datasource for an xbrowse instance, how does one set a filter?

You can use the same syntax like DBF.

Ex: oBrw:oDbf:SetFilter( "AGE > 40" )

Please let us know if you face any problems.

[fraxzi]

Mr. Rao,

:lSeekBar works with MariaDB RS, but :lGetBar does not show ...

Not supported??

[nageswaragunupudi]

lGetBar works for all datasources. It is independent of the datasource.