JBGrid scoll to first and last row

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

fomaxrge

Trainee

Posts: 88

Date of registration: Aug 14th 2012

Thursday, November 22nd 2012, 12:25pm

Hi again,
is there someone that can help me?
I have a JBGrid with a scroll bar.
I also have a button called top and one called bottom.
How can i enable first row when i press TOP and how can i move to last when i press BOTTOM?

Thanks in advanced!

Go to the top of the page

theuserbl

Intermediate

Posts: 436

Date of registration: Dec 20th 2008

Thursday, November 22nd 2012, 3:48pm

RE: JBGrid scoll to first and last row

Short answer:

Quoted from "fomaxrge"

How can i enable first row when i press TOP

	Jabaco Source
1 2 3 4 5	Public Sub Command1_Click() Dim v As javax#swing#JViewport = JBGrid1.getViewPort v.setViewPosition(New Point(0,0)) JBGrid1.setViewport(v) End Sub

Quoted

and how can i move to last when i press BOTTOM?

	Jabaco Source
1 2 3 4 5	Public Sub Command2_Click() Dim v As javax#swing#JViewport = JBGrid1.getViewPort v.setViewPosition(New Point(0,99999)) JBGrid1.setViewport(v) End Sub

Last one is only a dirty hack. I have had known how to find out the maximum. But currently, I don't remember. So I used a big number (9999) instead.

Go to the top of the page

theuserbl

Intermediate

Posts: 436

Date of registration: Dec 20th 2008

Thursday, November 22nd 2012, 5:24pm

RE: RE: JBGrid scoll to first and last row

Quoted
Quoted

and how can i move to last when i press BOTTOM?
Jabaco Source
1
2
3
4
5
Public Sub Command2_Click()
   Dim v As javax#swing#JViewport = JBGrid1.getViewPort
   v.setViewPosition(New Point(0,99999))
   JBGrid1.setViewport(v)   
End Sub
Last one is only a dirty hack.

Here a better solution:

Jabaco Source

Public Sub Command2_Click()
   Dim v As javax#swing#JViewport = JBGrid1.getViewport
   Dim vpos As Single = v.getViewSize.getHeight-v.getViewRect.getHeight
   If vpos<0 Then
     v.setViewPosition(New Point(0,0))
   Else
     v.setViewPosition(New Point(0,vpos))
   End If
   JBGrid1.setViewport(v)   
End Sub

Go to the top of the page

theuserbl

Intermediate

Posts: 436

Date of registration: Dec 20th 2008

Thursday, November 22nd 2012, 5:31pm

And with this you can go to top and bottom, without changing the view position in X:

Jabaco Source

Public Sub Command1_Click()
   Dim v As javax#swing#JViewport = JBGrid1.getViewPort
   v.setViewPosition(New Point(v.getViewPosition.getX,0))
   JBGrid1.setViewport(v)
End Sub

Public Sub Command2_Click()
   Dim v As javax#swing#JViewport = JBGrid1.getViewport
   Dim vpos As Single = v.getViewSize.getHeight-v.getViewRect.getHeight
   If vpos<0 Then
     v.setViewPosition(New Point(v.getViewPosition.getX,0))
   Else
     v.setViewPosition(New Point(v.getViewPosition.getX,vpos))
   End If
   JBGrid1.setViewport(v)   
End Sub

Go to the top of the page

fomaxrge

Trainee

Posts: 88

Date of registration: Aug 14th 2012

Thursday, November 22nd 2012, 9:51pm

I will try you solutions.
Thank you very much for your help.
It is good that you are here, all of you, and help as.
Thanks again.

Go to the top of the page

Dani

Intermediate

Posts: 325

Date of registration: Nov 19th 2009

Location: GERMANY

Thursday, November 22nd 2012, 10:32pm

Hey there,

or try this

	Jabaco Source
1 2 3 4 5	'scroll to last row JBGrid1.Parent.changeSelection(JBGrid1.Rows - 1, 0, False, False) 'scroll to firs row JBGrid1.Parent.changeSelection(0, 0, False, False)