Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Barbara Peisch
  Where is Barbara Peisch?
 Oceanside
 California - United States
 Barbara Peisch
 To: Koen Piller
  Where is Koen Piller?
 Santpoort-Zuid
 Netherlands
 Koen Piller
 Tags
Subject: RE: Real-time scrolling in a grid
Thread ID: 155204 Message ID: 155219 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: Grids
Date: Friday, December 28, 2007 2:52:25 AM         
   


> >
> > What you want is a ContinuousScroll property. Unfortunately, the only object in VFP that has this property is the form. Sorry, but the grid and list/combos just won't work this way.
> >
>
>
>
> ContiniousScroll Property???
> Found indeed this property on form, but all remains mystic to me. Applied a form with scrollbars the default ContiniousScroll and changed the property to .f. but noticed no significance difference. What is suppose to happen or not happen? Do we have an explaining example?
> And how is Excel or Access suppose to behave differently than VFP in respect of scrolling?
>
> Thanks
>
> Koen

Run the code below with ContinuousScroll set to .T. and .F. Notice that when it's .T. and you move the scrollbar up and down, you can see where you are on the form without letting go of the scrollbar. Change the ContinuousScroll to .F. and when you scroll up and down you must let go of the scrollbar in order to see where you are on the form.

PUBLIC ox
ox = CREATEOBJECT('Form1')
ox.visible = .T.

**************************************************
DEFINE CLASS form1 AS form

	Height = 250
	Width = 375
	ScrollBars = 2
	AutoCenter = .T.
	WindowType = 1
	ContinuousScroll = .T.

	ADD OBJECT label1 AS label WITH ;
		Caption = "Text1", ;
		Height = 17, ;
		Left = 24, ;
		Top = 24, ;
		Width = 40, ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		Caption = "Text2", ;
		Height = 17, ;
		Left = 24, ;
		Top = 72, ;
		Width = 40, ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		Caption = "Text3", ;
		Height = 17, ;
		Left = 24, ;
		Top = 132, ;
		Width = 40, ;
		Name = "Label3"


	ADD OBJECT label4 AS label WITH ;
		Caption = "Text4", ;
		Height = 17, ;
		Left = 24, ;
		Top = 180, ;
		Width = 40, ;
		Name = "Label4"


	ADD OBJECT label5 AS label WITH ;
		Caption = "Text5", ;
		Height = 17, ;
		Left = 24, ;
		Top = 228, ;
		Width = 40, ;
		Name = "Label5"


	ADD OBJECT label6 AS label WITH ;
		Caption = "Text6", ;
		Height = 17, ;
		Left = 24, ;
		Top = 270, ;
		Width = 40, ;
		Name = "Label6"


	ADD OBJECT label7 AS label WITH ;
		Caption = "Text7", ;
		Height = 17, ;
		Left = 24, ;
		Top = 300, ;
		Width = 40, ;
		Name = "Label7"


ENDDEFINE
*
*-- EndDefine: form1
**************************************************


-BP
www.peisch.com

ENTIRE THREAD

Real-time scrolling in a grid Posted by Maurizio Zazzi @ 12/27/2007 4:15:53 PM
RE: Real-time scrolling in a grid Posted by Koen Piller @ 12/27/2007 9:07:32 PM
RE: Real-time scrolling in a grid Posted by Barbara Peisch @ 12/27/2007 9:28:51 PM
RE: Real-time scrolling in a grid Posted by Koen Piller @ 12/28/2007 12:56:03 AM
RE: Real-time scrolling in a grid Posted by Barbara Peisch @ 12/28/2007 2:52:25 AM
RE: Real-time scrolling in a grid Posted by Koen Piller @ 12/28/2007 10:48:57 AM