>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