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.)

Oh thanks much!!! It's now working, even as an Application.

To do: Mouse Events

need 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:
// CODE FOR PICTURE 8*8
Pt-Change(10,10,Pic1
DispGrah
If getKey(54)
If X>=10 and X<=20 and Y>=10 AND Y<=20
ClrDraw
Text(0,0,"You pressed the button")
You think that would work?

[7E8181818181817E]->Pic1
Pt-Change(10,10,Pic1
If getkey(54)
box(1)
for(a,0,7)
for(b,0,7)
If ((Button top left coordinants + A)=X) and ("" + B = Y)
ClrDraw
Text(0,0,"You pressed the button
Pause 9999
End
End
End
. Other button checks.
End
If ((Button top left coordinants + A)=X) and ("" + B = Y)

Have no idea what this means, what is A? And B? And ""?

[7E8181818181817E]->Pic1
Pt-Change(10,10,Pic1
If getkey(54)
box(1)
for(a,0,7)
for(b,0,7)
If ((10 + A)=X) and ((10 + B) = Y)
ClrDraw
Text(0,0,"You pressed the button
Pause 9999
End
End
End
. Other button checks.
End
From my Axe experience I think there are curly braces somewhere here...

If ((10 + A)=X) and ((10 + B) = Y)

This is what you meant?

Great! It's not a very big code, though. I pretend to have 7 buttons each moment and they will move, but I can handle that

// CODE FOR PICTURE 8*8
Pt-Change(10,10,Pic1
DispGrah
If getKey(54)
If X>=10 and X<=20 and Y>=10 AND Y<=20
ClrDraw
Text(0,0,"You pressed the button")
Stuff like that right?

Quote from: happybobjr on December 05, 2010, 01:28:56 pm

need 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:

There's actually a slightly more efficient way of doing it. Let's say that you have a series of buttons arranged vertically, as is common in many GUIs. You could arrange the buttons with a simple algorithm like this:

:"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

This will display three characters from the string for each button and draw a box around the text. When you go to click on a button, you just have to redo the algorithm with with the Y coordinate.

Basically,
:If getKey(54)
:Y-3/8→B
:End

An integer corresponding to the button will now be located in B. The top button on the page will return a 0, the second will return a 1, and so on. This is also easily extended to horizontally arranged buttons.