Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: jtempo
  Where is jtempo?
 San Francisco
 Argentina
 jtempo
 To: jtempo
  Where is jtempo?
 San Francisco
 Argentina
 jtempo
 Tags
Subject: RE: DRAG SCROLL
Thread ID: 373493 Message ID: 373572 # Views: 44 # Ratings: 0
Version: Visual FoxPro 9 SP2 Category: Classes and Objects
Date: Saturday, March 23, 2013 1:38:28 PM         
   


> Hi! How can implement drag scroll into a container like this with jquery (see demo on http://the-taylors.org/jquery.kinetic/) Thanks in advance!

I solve this! Try


PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
*-- Form:         form1 (c:\dragscroll\dragscroll.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   03/23/13 09:36:10 AM
*
DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	nmouseatx = 0
	nmouseaty = 0
	nmovex = 0
	nmovey = 0
	Name = "Form1"


	ADD OBJECT container1 AS container WITH ;
		Top = 12, ;
		Left = 12, ;
		Width = 353, ;
		Height = 125, ;
		Name = "Container1"


	ADD OBJECT form1.container1.text1 AS textbox WITH ;
		Height = 23, ;
		Left = 10, ;
		Top = 10, ;
		Width = 100, ;
		Name = "Text1"


	ADD OBJECT form1.container1.text2 AS textbox WITH ;
		Height = 23, ;
		Left = 10, ;
		Top = 44, ;
		Width = 100, ;
		Name = "Text2"


	PROCEDURE container1.MouseDown
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		ThisForm.nmouseatx= nXCoord
		ThisForm.nmouseaty= nYCoord
	ENDPROC


	PROCEDURE container1.MouseUp
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		ThisForm.nmovex = -(nXCoord - ThisForm.nmouseatx)
		ThisForm.nmovey = -(nYCoord - ThisForm.nmouseaty)

		This.Left = This.Left - ThisForm.nmovex
		This.Top = This.Top - ThisForm.nmovey
	ENDPROC


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



ENTIRE THREAD

DRAG SCROLL Posted by jtempo @ 3/22/2013 3:02:53 PM
RE: DRAG SCROLL Posted by Paul Gibson @ 3/22/2013 3:46:28 PM
RE: DRAG SCROLL Posted by jtempo @ 3/22/2013 4:01:16 PM
RE: DRAG SCROLL Posted by llyrad atsituab @ 3/23/2013 2:32:08 AM
RE: DRAG SCROLL Posted by jtempo @ 3/23/2013 1:38:28 PM
RE: DRAG SCROLL Posted by Bernard Bout @ 3/24/2013 2:30:56 AM
RE: DRAG SCROLL Posted by jtempo @ 3/24/2013 6:25:39 PM