OpenEuphoria

On the edge.......

• Posted by Euman <euman at bellsouth.net> Mar 14, 2001
• 534 views

Derek, Wolf thanks for the help earlier but
nothing I've tried so far is a solution to my problem

I feel really stupid here.

I need to test continuously for WM_LBUTTONDOWN & UP

If buttondown do something till buttonup essentially, I thought
to myself this will be easy enough in windows right, *wrong*!

if onMouse[ ]  call procedure, test for mouse positions and if in
certain position, if buttondown then do something till buttonup
well, I just repeated myself but to get the point across
how easy it sounds.

procedure test_mouse( integer event, integer x, integer y )
      if  x>left  and x<right and y> upper and y<lower then
          if event = WM_LBUTTONDOWN
             do something but, until WM_LBUTTONUP
          end if
      end if
end procedure

onMouse[ Win ] = routine_id("test_mouse")

EASY RIGHT?

I tried to make an onEvent[ ] call on a function to check
buttondown & up then return 1 for down 0 for up
and pass this thru to my test_mouse procedure in this form.


function check_buttonup( integer event )
    if event = WM_LBUTTONDOWN then  
       return 1
    end if    
    if event = WM_LBUTTONUP then
       return 0
    end if
return 0
end function

procedure isMouseEvent(atom iMsg, atom wParam, atom lParam)
   theMouse = check_buttonup( iMsg )
end procedure

procedure test_mouse( integer event, integer x, integer y )
      if  x>left  and x<right and y> upper and y<lower then
          if theMouse then
             do something but, until theMouse = 0
          end if
      end if
end procedure

onMouse[ Win ] = routine_id("test_mouse")
onEvent[ Win ] = routine_id("isMouseEvent")

Well, something similar anyways.

Damn I feel so stretched on this simple idea
Would someone throw me a bone here

I dont understand most of what goes on behind Win32Lib
so I have left the new 30000 line deal for a more comfortable
version 20d that has most of the functionality I would need
for this project but, still I could spend a lifetime traceing through
some of this because I cant seem to figure out how to trace
thru events without haveing the burden of a DOS screen that overlays
my app-window and to catch a button click in trace mode is a nightmare.

Euman