1. On the edge.......
- Posted by Euman <euman at bellsouth.net> Mar 14, 2001
- 394 views
- Last edited Mar 15, 2001
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