OpenEuphoria

Re: Q

• Posted by Wolf <wolfritz at KING.IGS.NET> Feb 26, 2002
• 377 views

ZERO warranty, works on my keyboard

without warning
include win32lib.ew
constant win=create(Window,"",0,0,0,200,100,0),
out=create(LText,"",win,5,5,190,25,0)
procedure check(atom event,atom wParam,atom lParam)
if event=WM_KEYDOWN and
and_bits(#FF,floor(lParam/power(2,16))) = 16 then
setText(out,"q key")
elsif
event=WM_KEYDOWN and
and_bits(#FF,floor(lParam/power(2,16))) = 60 then
setText(out,"F2 key")
end if
end procedure
onEvent[win]=routine_id("check")
WinMain(win,Normal)