Where is the mouse? Any tips?

aisman · Post by **aisman** » Mon May 10, 2004 6:44 am

Hello,
Where is the mouse? Any tips?

Thanks.

InitMouse() 
InitSprite()
InitKeyboard() 

xscreen = 150 
yscreen = 150 

WindowID = OpenWindow(0, 30, 30, xscreen, yscreen, #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget,"") 
OpenWindowedScreen(WindowID, 0, 0, xscreen, yscreen, 0, 0, 0) 

Repeat  
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_Escape)
    End
  EndIf
  ExamineMouse()
  StartDrawing(ScreenOutput())   
    Circle(MouseX(),MouseY(),3,RGB(100,100,100)) 
  StopDrawing()                  
  FlipBuffers()
  Delay(10)
ForEver

blueznl · Post by **blueznl** » Mon May 10, 2004 7:11 am

you mean the mousepointer?

aisman · Post by **aisman** » Mon May 10, 2004 7:14 am

I see you understand me

blueznl · Post by **blueznl** » Mon May 10, 2004 7:18 am

haven't done anything in that direction yet, but i have a feeling it's not supposed to be there, i could be wrong though

benny · Post by **benny** » Mon May 10, 2004 8:05 am

Hmm .. maybe this helps (avoid ExamineMouse() )

Code: Select all

InitMouse() 
InitSprite() 
InitKeyboard() 

xscreen = 150 
yscreen = 150 

WindowID = OpenWindow(0, 30, 30, xscreen, yscreen, #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget,"") 
OpenWindowedScreen(WindowID, 0, 0, xscreen, yscreen, 0, 0, 0) 


Repeat  

  Select WindowEvent() 
    Case #WM_CLOSE
         End
   EndSelect
      
  ExamineKeyboard() 
  If KeyboardPushed(#PB_Key_Escape) 
    End 
  EndIf 

    GetCursorPos_(CursorPosition.POINT) 
    MouseX = CursorPosition\x - WindowX()
    MouseY = CursorPosition\y - WindowY() - 20 

  StartDrawing(ScreenOutput())    
    Circle(MouseX,MouseY,3,RGB(100,100,100)) 
  StopDrawing()                  
  FlipBuffers() 
  Delay(10) 
ForEver

aaron · Post by **aaron** » Mon May 10, 2004 11:49 pm

You can use this:

ShowCursor_(1) ; display the mouse pointer

You'll see that it looks busy all the time though (as an hourglass)... I'll still puzzling thru this windows stuff too, but it looks like you need to check window events even if you aren't going to us them.... I call a WindowEvent() command right around the delay command also.

Updated code:

Code: Select all

InitMouse()
InitSprite()
InitKeyboard()

xscreen = 150
yscreen = 150

WindowID = OpenWindow(0, 30, 30, xscreen, yscreen, #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget,"")
OpenWindowedScreen(WindowID, 0, 0, xscreen, yscreen, 0, 0, 0)

ShowCursor_(1) ; display the mouse pointer

Repeat 
  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_Escape)
    End
  EndIf
  ExamineMouse()
  StartDrawing(ScreenOutput())   
  Circle(MouseX(),MouseY(),3,RGB(100,100,100))
  StopDrawing()                 
  FlipBuffers()
  Delay(10) : WindowEvent()
ForEver

I don't know if this is the right way to do it, but it's been working for me thus far....