[DBPro] Text Button

[Challenge]

Un exemplu cum poti sa faci butoane pentru un meniu,etc.

Cod:

Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,66,"Load Game")
Button(40,50,"Save Game")
If Button(20,175,"Exit")=1 then End

loop

New_Game:
instructiunea_1
instructiunea_2
instructiunea_3
.....................
instructiunea_n

function Button(x1,y1,WORDS$)
      Pressed=0
      x2=Text Width(WORDS$)
      y2=Text Height(WORDS$)
      if mousex()>x1 and mousex()             if mousey()>y1-y2 and mousey()                   Pressed=1
             endif
      endif
      if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
      if pressed=1
             pressed=Mouseclick()
      else
             pressed = 0
     endif
     text x1,y1,WORDS$
endfunction pressed

[zapakitul]

opa opa ! Inca un DBPRO user perfect !
Superba functie! Chiar renunt la a mea cu bttnClick ! E mai simpla aceasta!

[SkullAds]