Buttons and keys issue

BlitzPlus Forums/BlitzPlus Beginners Area/Buttons and keys issue

scribbla

(Posted 2012) [#1]

im trying to write a map editor

using both Buttons and keys, problem is if i click on a button it disables the keys

in the example if you press Escape first you get a Notify message pop up, but if you press a button then a key... Nothing

any help please

example


Global Win1
Global Button1
Global Button2

CreateWin1()


While True

   ID=WaitEvent()

   If ID=$803 Then End

   ;key up     key down
   If ID=$101 Or ID=$102 Then Notify "key pressed"

   button=EventSource()

   Select button 
    Case Button1

    Case Button2  
        End
   End Select

   FlushEvents

Wend

; ----Function Begins----
Function CreateWin1()
Win1 = CreateWindow("Window1",349,150,355,314,Desktop(),3)
Button1 = CreateButton("Press Button Then Escape key for Notify window",34,79,270,25,Win1,0)
SetGadgetLayout Button1,1,0,1,0
Button2 = CreateButton("quit",114,227,100,20,Win1,0)
SetGadgetLayout Button2,1,0,1,0
End Function

Last edited 2012

Last edited 2012

Last edited 2012