How do I create two data controls that scroll together? (OpenInsight Specific)
At 05 FEB 1999 06:12:08PM Ivan Richmond wrote:
I am trying to create a list box and an independent edit table that scroll down together. I want a list box for my main data because of its multiple-selection capability but I want to provide additional information about it in an edit table whose data would always line up with the data in the list box that it corresponds to. In order fot this to work, the two controls would have to scroll together.
So far, I've experimented with Vertical Scroll Bar control but I'm stumped. I got the VPOSITION from the vertical scroll bar and sent it to my list for a test run (I haven't even tried it with both yet). The list box's scroll bar moved but the list box did not change accordingly. I can't figure out how to get the list box to recognize that its own scroll bar has moved.
Any suggestions?
At 05 FEB 1999 09:14PM Don Bakke wrote:
Ivan,
I am sure it's possible to create some kind of scrolling synchronization between a listbox and an edittable, but if the only reason you want to use a listbox is for multiple selections then perhaps you should know that an edittable can also be set up for multiple selections. Just look under the STYLE property in the Programmer's Reference Guide (Multi-Row Selection). This should make your task much simpler.
If you still need to get both controls to work together then let me know and I'll try to come up with a suggestion.
At 05 FEB 1999 11:53PM [email protected] wrote:
Ivan,
If you change to using a edittable instead of listbox .. this snippet of code will allow sync 4 edit tables together .. this was taken from a bit of code that cameron once worked up a long time ago.
*
*DECLARE fUNCTION SENDMESSAGE
*Equ GetTopNdx$ to 1024+32
*Equ SetTopNdx$ to 1024+33
*
*CtrlHndl2=GET_PROPERTY(ParentId:".DBTABLE_2","HANDLE")
*CtrlHndl3=GET_PROPERTY(ParentId:".DBTABLE_3","HANDLE")
*CtrlHndl4=GET_PROPERTY(ParentId:".DBTABLE_4","HANDLE")
*
*TopRow=SENDMESSAGE(CtrlHndl,GetTopNdx$,0,0)
*x=SENDMESSAGE(CtrlHndl2,SetTopNdx$,0,TopRow)
*x=SENDMESSAGE(CtrlHndl3,SetTopNdx$,0,TopRow)
*x=SENDMESSAGE(CtrlHndl4,SetTopNdx$,0,TopRow)
*
*
*
[email protected] onmouseover=window.status=you have seen the rest .. now try the best!;return(true)"
David Tod Sigafoos ~ SigSolutions
voice: 503-639-8080
At 11 FEB 1999 03:07PM Cameron Revelation wrote:
Ivan,
I use the TOPPOS property.
Cameron Purdy
Revelation Software