Scroll Panel

Tue, 02/19/2013 - 07:43 pm

To enable vertical scrolling of all controls in a panel with the mouse wheel, as if there was a scroll bar, put this in a procedure file:

Function ScrollHook(info)
    Struct WMWinHookStruct &info
   
    if(info.eventCode == 22)
        string controls = ControlNameList(info.winName)
        variable i
        for(i=0;i<itemsinlist(controls);i+=1)
            string control = stringfromlist(i,controls)
            ModifyControl $control pos+={0,info.wheelDy}
        endfor
    endif
End


Then activate a given panel with this:

SetWindow my_panel hook(scroll)=ScrollHook
I offer this refinement to Rick's cool code snippet:

Function PanelScrollHook(info)
    Struct WMWinHookStruct &info
 
    strswitch( info.eventName )
        case "mouseWheel":
            // If the mouse wheel is above a subwindow, info.name won't be the top level window
            // This test allows the scroll wheel to work normally when over a table subwindow.
            Variable mouseIsOverSubWindow= ItemsInList(info.WinName,"#") > 1
            if( !mouseIsOverSubWindow )
                String controls = ControlNameList(info.winName)
                Variable shiftKeyIsDown = info.eventMod & 0x2
                if( shiftKeyIsDown )
                    Variable dx
                    #ifdef MACINTOSH
                        dx= info.wheelDx
                    #else
                        dx= info.wheelDy
                    #endif
                    ModifyControlList controls, win=$info.winName, pos+={dx,0}  // left/right
                else
                    ModifyControlList controls, win=$info.winName, pos+={0,info.wheelDy}    // up/down
                endif
            endif
            break
    endswitch
    return 0    // process all events normally
End


It's not perfect, however: if the mouse is over a control that uses the mouse wheel, that action happens, too, so the control's value changes AND the controls all move.

Better would be to detect whether the mouse if over a control, and only if not, THEN move the controls.

Or perhaps just use a slider or a listbox full of controls.

--Jim Prouty
Software Engineer, WaveMetrics, Inc.

February 20, 2013 at 10:25 am - Permalink

Forum

Support

Gallery

Igor Pro 9

Learn More

Igor XOP Toolkit

Learn More

Igor NIDAQ Tools MX

Learn More