Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Column Moved or Resized - How to know?
Message
 
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01443558
Message ID:
01443591
Views:
30
>I was able to tackle my problem. Some columns already got a new header. But now I give ALL columns a new header. That new header contains some code for refreshing other objects on the form. The biggest problem remaining is that it takes a double for/next routine to retrieve the LEFT of the header/column. And this routine must be done each time that the user clicks on a header.
>
>Perhaps this routine can be done less times if we can distinguuish between a simple click and a move click. Any idea is welcome.

Yes, look closer at this code
	procedure mousedown
>>	lparameters nButton, nShift, nXCoord, nYCoord
>>
>>	with this
>>* initialize items that will be tested in MouseUp
>>		.mnColumnOrder = this.parent.columnorder
>>		.mnColumnWidth = this.parent.width
>>		.nOriginalForeColor=.ForeColor
>>	endwith
>>endproc
>>
>>	procedure mouseup
>>	lparameters nButton, nShift, nXCoord, nYCoord
>>
>>	with this
>>* check to see if this was a resize or move
>>		.mlColumnMoved = ( this.parent.columnorder != .mnColumnOrder )
>>		.mlColumnSized = ( this.parent.width != .mnColumnWidth )
>>*		.ForeColor=.nOriginalForeColor				    	
>>	endwith
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform