Keyboard and windowdScreen
Posted: Tue Apr 23, 2013 1:17 pm
if i used a windowd-Screen, no keyboard functions work.
can anyone confirm ?
(linux Mint in a vm-ware )
can anyone confirm ?
(linux Mint in a vm-ware )
Code: Select all
;
; ------------------------------------------------------------
;
; PureBasic - Keyboard example file
;
; (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;
If InitKeyboard() = 0 Or InitSprite() = 0
MessageRequester("Error", "Can't initialize the sprite system.", 0)
End
EndIf
MessageRequester("Information", "This will test the fast keyboard access..."+#LF$+"Press 'ESC' to quit!", 0)
w=800
h=600
;If OpenScreen(800, 600, 32, "Keyboard")=0:MessageRequester("Info","Error OpenScreen!",0):EndIf
If OpenWindow(0, 10, 10, w, h, "Hangman V1.0 - build 4", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)=0:MessageRequester("Info","Error OpenWindow!",0):EndIf
If OpenWindowedScreen(WindowID(0), 0, 0, w,h)=0:MessageRequester("Info","Error OpenWindowScreen!",0):EndIf
; If w>0
x = 100
y = 100
LoadSprite(0, "Data/PureBasic.bmp", 0)
Repeat
FlipBuffers()
ClearScreen(RGB(0,0,0))
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left)
x-1
EndIf
If KeyboardPushed(#PB_Key_Right)
x+1
EndIf
If KeyboardPushed(#PB_Key_Up)
y-1
EndIf
If KeyboardPushed(#PB_Key_Down)
y+1
EndIf
For OffsetY=0 To 600 Step 70
For OffsetX=0 To 800 Step 200
DisplaySprite(0, OffsetX+x, y+OffsetY)
Next
For OffsetX=0 To 800 Step 200
DisplaySprite(0, OffsetX+x+90, y+OffsetY+35)
Next
Next
Until KeyboardPushed(#PB_Key_Escape)
End