[Gambas-user] How do i use columnview.MoveBelow() ?

ron ronstk at ...239...
Sun Mar 28 18:24:58 CEST 2004


Sorry I send this one direct to your email but I'm desperate
I just got problem report of the server in germany on a project
I have running for friend in Tenerife.

If you want to release it as you made now there is no problem.
General the way you do is good.

For the columnview I can not get it working.

I click on a entry in the column view
Put the key for that item in the columnview.tag

Then next code runs if the Find Next is pressed

    skey=cvwFindList.tag < -- gives the good value
' if key is set goto it
    IF cvwFindList.tag THEN 
      cvwFindList.moveto(cvwFindList.tag) '<-- it is already
      cvwFindlist.Item.Selected=TRUE    <-- object not found
    ENDIF

' make it the active one, it is already but....    
    cvwfindlist.moveCurrent()
    cvwFindlist.Item.Selected=TRUE    

' is it    
    IF cvwFindlist.Available THEN
      cvwFindlist.Item.Selected=TRUE    
      cvwFindlist.MoveBelow()
      cvwFindlist.Item.Selected=TRUE    

' get the next key to go after rebuild
      TRY  sKey=CStr(cvwFindlist.Key)
    ENDIF  

' do somthing, rebuild the columnview    
    search(FALSE, FALSE)

' check if the old exists, goto and select    
    IF cvwfindlist.Exist(sKey) THEN 
      cvwFindList.moveto(sKey)  
      cvwFindlist.Item.Selected=TRUE    
    ENDIF  

Where o where do I something wrong.??????

My wish was simple

' get current for going  to default
	skey=cvwFindList.key
' do something, rebuild the columnview    
	search(FALSE, FALSE)
	if skey then
		if cvwFindList.exist(sKey) then	 cvwFindList.moveto(sKey)
      		cvwFindlist.Item.Selected=TRUE    
	endif
'and ready

I'm also afraid that the .Item.Selected will fire the columnview_click event
and that is not true, the user did not select any thing.

Ron




More information about the User mailing list