0 Members and 1 Guest are viewing this topic.
fix 4 does the opposite of fix 5.If you use fix 5, you must have fix 4 at the end of your program or else you calc will go bye bye (not die, it just goes funky.)
To do: Mouse Events
need help with mouse events?Is this anything to do with the secret project?
// CODE FOR PICTURE 8*8Pt-Change(10,10,Pic1DispGrahIf getKey(54)If X>=10 and X<=20 and Y>=10 AND Y<=20ClrDrawText(0,0,"You pressed the button")
[7E8181818181817E]->Pic1Pt-Change(10,10,Pic1If getkey(54)box(1)for(a,0,7)for(b,0,7)If ((Button top left coordinants + A)=X) and ("" + B = Y)ClrDrawText(0,0,"You pressed the buttonPause 9999EndEndEnd. Other button checks.End
[7E8181818181817E]->Pic1Pt-Change(10,10,Pic1If getkey(54)box(1)for(a,0,7)for(b,0,7)If ((10 + A)=X) and ((10 + B) = Y)ClrDrawText(0,0,"You pressed the buttonPause 9999EndEndEnd. Other button checks.End
Quote from: happybobjr on December 05, 2010, 01:28:56 pmneed help with mouse events?Is this anything to do with the secret project?Yes it has So, I have X and Y which are the actual coordenates of the mouse.However, a button has many coordenates, to check if when I press 2nd a button which size is 8*8 located at 10,10 is pressed:
:"WTRSNDMTLSPKOILFIRERS"→Str1:For(A,0,6:A*8+5→B:Text(80,B,3*A+Str1):RectI(78,B-1,15,9:RectI(79,B,13,7:End
:If getKey(54):Y-3/8→B:End