REM Test Program for Button 'feature'
REM Click mouse in window then use ^C to copy coords
REM these may then be pasted into a text editor.
REM Menu may be accessed (play tones) and copy still works.
REM After using buttons (different tones) copy has old coords.
REM If window covered by another and then revealed,
REM copy begins to work again.
INSTALL @lib$+"WINLIB5" : REM Buttons
AM$ = "AppendMenu"
SYS "CreatePopupMenu" TO hpop1%
SYS AM$, hpop1%, 0, 1, "&Go"
SYS AM$, hpop1%, 0, 2, "&Stop"
SYS "CreateMenu" TO H%
SYS AM$, H%, 16, hpop1%, "&Mode "
SYS "SetMenu",@hwnd%,H%
SYS "DrawMenuBar",@hwnd%
DIM hb%(4)
FOR I%=0 TO 3
hb%(I%)=FN_button(STR$I%,4+I%*40,0,36,36,100+I%,0)
NEXT
ON MOUSE PROCmouse(@wparam%,@lparam%) : RETURN
ON SYS PROCmenu(@wparam%,@lparam%) : RETURN
OFF
REPEAT
key% = INKEY(1)
CASE key% OF
WHEN 3 : PROCcopy
ENDCASE
UNTIL FALSE
END
DEF PROCmenu(wp%,lp%)
CASE wp% OF
WHEN 1 : SOUND 1,-15,136,5
WHEN 2 : SOUND 1,-15,88,5
WHEN 100,101,102,103,104 : PROCselect(wp%-100)
ENDCASE
ENDPROC
DEF PROCmouse(wp%,lp%)
X%=(lp% AND &FFFF)*2 - @vdu.o.x%
Y%=(@vdu%!212-1-(lp% >>> 16))*2 - @vdu.o.y%
ENDPROC
DEF PROCselect(n%)
SOUND 1,-10,n%*4+148,2
ENDPROC
DEF PROCcopy
LOCAL R%,C%,t$
REM copy grid to clipboard
t$ = "X = "+STR$X%+", Y = "+STR$Y%
SYS "GlobalAlloc", &2000, LEN(t$)+1 TO hdata%
SYS "GlobalLock", hdata% TO tmp%
$$tmp% = t$
SYS "GlobalUnlock", hdata%
SYS "OpenClipboard", @hwnd%
SYS "EmptyClipboard"
SYS "SetClipboardData", 1, hdata%
SYS "CloseClipboard"
ENDPROC