Hi all
I have a simple custom header class:
DEFINE CLASS gridheader AS Header
PROCEDURE Click
THISFORM.HeaderClick(THIS,"L")
ENDPROC
PROCEDURE RightClick
THISFORM.HeaderClick(THIS,"R")
ENDPROC
ENDDEFINE
I have a grid which starts off with column count = -1 and then I have
the following code:
.Grid1.RecordSource = "IndexTable"
FOR EACH loColumn IN .Grid1.Columns
lcCaption = loColumn.Header1.Caption
loColumn.RemoveObject("Header1")
loColumn.AddObject( 'Header1', 'gridheader' )
loColumn.Header1.Caption = lcCaption
ENDFOR
Now all this works fine and when I click or right click on any of the
headers the code in "THISFORM.HeaderClick" executes. A problem arises
however when I move columns in the grid by holding down the left mouse
button and dragging - sure the column moves but the columns and headers
get all out of synch !
Any suggestions ?
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
