new help with makeing a button for the mouse

[the_laughing_man]

this is one thing i would like to know how to make a button for my shell i am working on .
in freebasic

[hexdude!]

A button is normally a rectangular area. If you already know how to use GETMOUSE, then you use that to find the x and y co-ordinates of the mouse, and which buttons are down. If the user is clicking the left button, then check to see if the mouse is inside the button (This is done by seeing if mouse_x > button_left and mouse_x < button_right, and mouse_y > button_top and mouse_y < button_bottom). If all these things are true, then the user clicked the button.

If you don't know how to use GETMOUSE, then a quick guide for our purposes is:

Code: Select All | Copy To Clipboard

GETMOUSE mouse_x,mouse_y,,mouse_buttons

Now mouse_x and mouse_y will contain the x and y co-ordinates of the mouse, and mouse_buttons will tell us which buttons are down. To find out if the left button is down, do an:

Code: Select All | Copy To Clipboard

IF mouse_buttons AND 1 THEN

Anything after the THEN will only be executed if the left button was down.

For a more complete discussion of GETMOUSE, you could look at the wiki page, which is at http://www.freebasic.net/wiki/wikka.php?wakka=KeyPgGetmouse

[the_laughing_man]

like if i want a button at the the right side of my sreen how would I do this ?

[the_laughing_man]

i see ok but how do i make a bmp file in to a button on the screen ? i know how to call the mouse 

[phycowelder]

Code: Select All | Copy To Clipboard

get(0,0)-(99,99),@button_pic(0)        'sets button 100x100 to memory
put (100,100), @button_pic(0), pset  'puts button at location 100,100
get mouse x,y,s,b
if b=1 then
  if x>100 and x<199 and y>100 and y<199 then   'checks to see if you are in the button zone
    {button code}
  end if
end if

for looks though you will have to make a shading mask or another button picture for the animation
so it looks like a button being pushed!

[the_laughing_man]

let me show you what i got now
if you click it will quit
now i want to make a box if i click it will quit the program.

-----------------------------------------
#include "fbgfx.bi"
Dim x As Integer, y As Integer, buttons As Integer
                       

Do
    ' get mouse x, y and button state
    GetMouse x, y , , buttons                     

    If buttons = 1 Then
        ' on left mouse click, center mouse
        SetMouse 400, 300end
 
 
  End If

    ' do loop until esc is pressed
Loop Until MultiKey(fb.SC_ESCAPE)

[BadMrBox]

Remove that END after SetMouse.

[the_laughing_man]

ok and what dose that do if i do ?

[the_laughing_man]

but how do you make a button ?
like do i make a pic bmp like a box and put it in a say if 300x300
then if i click there it will quit ?

[the_laughing_man]

ok guys
i have a good lay out all i need like a bit of help

[BadMrBox]

Okey, I wrote this up for you.
It should be fairly easy to follow. Just create a bmp of your choice, put it in the same directory as your basfile and change buttonsizex/buttonsizey to the image size.

Code: Select All | Copy To Clipboard

'FB 0.18b
screenres 640,480,32,2

dim button as any ptr
dim as integer mousex,mousey,mousebuttons,buttonposx,buttonposy, imgwidth, imgheight
dim as integer buttonsizex,buttonsizey,exittheloop

    Const True = 1
    const false = not true
       
        buttonsizex = 100
        buttonsizey = 30
        buttonposx = 50
        buttonposy = 50

button = imagecreate(buttonsizex,buttonsizey)
bload "button.bmp",button

screenset 1,0

do
    cls
   
    locate 1,1:? "Press the button"
    put (buttonposx,buttonposy),button
    GetMouse mousex, mousey , , mousebuttons 


    if mousebuttons=1 then
        if mousex>buttonposx and mousex<buttonposx+buttonsizex then
            if mousey>buttonposy and mousey<buttonposy+buttonsizey then
            exittheloop = True
            endif
        endif
    endif
   
    screencopy
   
loop until exittheloop = True

[the_laughing_man]

  thx dude that was a big help
you need any thing let me know the_laughing_man@live.ca

[BadMrBox]

Good to hear

[Leonheart]

Nice BadMrBox. <Yah, Im late>

I sometimes peek to themes resource files, their pack some button bitmap for corner-upper-left/right, corner-downside-left/right, and for around skin. And, their pack it skin into four state (if not going wrong); focus, no focus, disabled, pushed. Keep that state to variable to show their condition, maybe that's can be help.
And, you can keep bitmap part into variable too when load (so you don't have to include bitmap files everytime).

Maybe that's from me. Have a nice button!

[the_laughing_man]

now you guys are going to kick me but this is that last thing i need help with now how
do i make 2 buttons ...?