Code: Select all
InitSprite()
InitMouse()
ww=800
wh=600
style | #PB_Window_ScreenCentered
style | #PB_Window_SystemMenu
style | #PB_Window_MinimizeGadget
hWin=OpenWindow(0, 50,100,ww,wh, "",style) :: AddKeyboardShortcut(0,#PB_Shortcut_Escape,10)
OpenWindowedScreen( hWin, 0,0,ww,wh, 0,0,0)
ExamineMouse()
Repeat
Debug "-----------"
Debug "examinemouse: "+Str(ExamineMouse())
Debug "mb: "+Str(MouseButton(1))
Debug "gaks"+Str(GetAsyncKeyState_(#VK_LBUTTON))
event=WaitWindowEvent(30)
em=EventMenu()
Select event
Case #PB_Event_CloseWindow
quit=1
Case #PB_Event_Menu
Select em
Case 10
quit=1
EndSelect
EndSelect
StartDrawing(ScreenOutput())
Box(MouseX(),MouseY(),3,3,$ffffff)
StopDrawing()
FlipBuffers()
Delay(150)
ClearScreen($333333)
Until quitusing PB451 32bit, WinXP SP2
can somebody confirm this?
