Does the edittable support the roller button of the Mouse, so we scroll up or down using same.

If not does anyone know the code to make it work.

Thanks,

Gerry van Niekerk

Csoft

Gerry-

Not yet, but it's on the list.

Thanks.

Thanks,

Gerry van Niekerk

Csoft

The list box control supports the mousewheel.

You could always hide the scroll bar on the table and hide the data in the list box, and link the two.

Cant say I have tried it, but in theory it might work, although you may need to qualify an event and set focus.

Another option:

on create event for window, qualify the mousewheel message.

EXAMPLE:

declare subroutine utility

declare function send_message

Equ TRUE$ to 1

Equ WM_MOUSEWHEEL$ to 522 ;*\020A\

x=send_message(@window,"QUALIFY_EVENT",WM_MOUSEWHEEL$,TRUE$)

RETURN 0

On winmsg event for window, change selpos if the current focus is your edittable and message is mousewheel.

EXAMPLE:

declare function get_property

declare function set_property

Equ WM_MOUSEWHEEL$ to 522 ;*\020A\

curfocus=get_property(@window,"FOCUS")

if Message=WM_MOUSEWHEEL$ and curfocus=@window:'.MYEDITTABLE' then

curpos=get_property(@window:".MYEDITTABLE",'SELPOS')

if wparam=7864320' then

  curpos=curpos - 1

  if curpos =1  

end else

  rows=get_property(@window:".MYEDITTABLE",'ARRAY')

  rowcnt=count(rows,@vm) + (rows # '')

  curpos=curpos + 1

  if curpos ] rowcnt then curpos=rowcnt

end  

was=set_property(@window:".MYEDITTABLE",'SELPOS',curpos)     

end

RETURN 0

View this thread on the Works forum...