Sorry your browser is not supported!

Rem Project: topdropdownmenu
Rem Created: 4/13/2005 6:44:50 PM

Rem ***** Main Source File *****
rem Standard Setup Code

rem Order of running
rem setup screen font and size
rem create an array to put menu names in.
rem make variables global
rem get menu names and store them in menu$
rem make some quick variables for screen size
rem start do loop
rem call  frame_title() function
rem show menu titles
rem show mouse cords
rem check if mouse is in menu bar if it is gosub titles.
rem Now check if mouse is clicked when over a menu title then call menuchoice() function.
rem a gosub to dosomething
rem a gosub to dosomething2
rem make menu titles and subtitles, you put your menu names here
rem Function menuchoice(menumber,xpos)this take menu number and how far in from the left of screen and draws a box to put submenus in.
rem Function dosomething(menu_choice,choice) checks which menu title press and which submenu then gose to gosub of function.
rem Function whatdidIpressed(menu_choice,choice) shoes you on screen what you pressed.
rem Function bevelbox(_left,_top,_right,_bottom,_bevwidth,_maincolor,_secondcolor,_bevshade,_toback,_fill)
rem bevelbox is a function to make a color fade down to a darker color
rem _left,_top is first cords like 0,0
rem _right,_bottom second cords like 100,100
rem _bevwidth is how much it fades by.
rem _maincolor the color of the paper.
rem _secondcolor is the paper color.
rem _bevshade is shade color of bevel.
rem _toback if this is set to 1 will draw to front else draw to back.
rem _fill set to 1 fills paper else its open jusrt the boarder.
rem Function frame_title(title$) draw the main frame title.
rem Function Menu_titles(number_of_titles) draws how many menu tiles to screen set by number_of_titles.

sync on : sync rate 0 :
color backdrop rgb(0,0,128)
rem hide mouse
set text font "arial" : set text size 12
set text transparent

dim menu$(8,20)
dim ts$(8)
global th sw sh th ts$ click menuchoice

rem get menu titles and subtitles
gosub menutitles

rem quick variables
sw=screen width()
sh=screen height()
th=text height("1")
tw=text width("1")
sp=(screen width()/8)/tw
mw=text width(menu$(0,0))
click=0
rem number of titles in bar
Menu_titles(8)

do
cls
rem make top frame bar with title
frame_title(menu$(0,1))
rem show menu titles
text tw,th+2,ts$
rem show mouse cords
set cursor 0,60
print "mouse cords=x "+str$(mousex())+" y "+str$(mousey())

rem go to choice if in bar
if mousey()>11 and mousey()<26
   gosub Over_Menu_titles_X
endif
rem reset text
set text transparent
rem submenu do choice
if mcc=1 and click=1
   click=1-click
   rem call menu function 1
   menuchoice(1,tw)
   click=1-click
endif
rem sub2
if mcc=2 and click=1
   click=1-click
   menuchoice(2,tw*3+mw)
   click=1-click
endif
rem sub3
if mcc=3 and click=1
click=1-click
menuchoice(3,tw*4+mw*2)
click=1-click
endif
rem sub4
if mcc=4 and click=1
click=1-click
menuchoice(4,mw*4)
click=1-click
endif
rem sub5
if mcc=5 and click=1
click=1-click
menuchoice(5,tw*2+mw*5)
click=1-click
endif
rem sub6
if mcc=6 and click=1
click=1-click
menuchoice(6,tw*4+mw*6)
click=1-click
endif
rem sub7
if mcc=7 and click=1
click=1-click
menuchoice(7,tw*5+mw*7)
click=1-click
endif
rem sub8
if mcc=8 and click=1
click=1-click
menuchoice(8,tw*8+mw*8)
click=1-click
endif

sync
loop

Over_Menu_titles_X:
rem if the mouse is over title then invert color
if mousey()>11 and mousey()<26
   if mousex()>tw and mousex()<tw+text width(menu$(1,0))
      set text opaque
      text tw,th+2,  menu$(1,0)
      choice=1
   endif
   rem this is menu two.
   if mousex()>tw+text width(menu$(1,0)) and mousex()<tw+text width(menu$(1,0)+menu$(2,0))
      set text opaque
      text tw+text width(menu$(1,0)),th+2, menu$(2,0)
      choice=2
   endif
   if mousex()>tw+text width(menu$(1,0)+menu$(2,0)) and mousex()<tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0))
      set text opaque
      text tw+text width(menu$(1,0)+menu$(2,0)),th+2, menu$(3,0)
      choice=3
   endif
   if mousex()>tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)) and mousex()<tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0))
      set text opaque
      text tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)),th+2, menu$(4,0)
      choice=4
   endif
   if mousex()>tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)) and mousex()<tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0))
      set text opaque
      text tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)),th+2, menu$(5,0)
      choice=5
   endif
   if mousex()>tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)) and mousex()<tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)+menu$(6,0))
      set text opaque
      text tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)),th+2, menu$(6,0)
      choice=6
   endif
   if mousex()>tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)+menu$(6,0)) and mousex()<tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)+menu$(6,0)+menu$(7,0))
      set text opaque
      text tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)+menu$(6,0)),th+2, menu$(7,0)
      choice=7
   endif
   if mousex()>tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)+menu$(6,0)+menu$(7,0)) and mousex()<tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)+menu$(6,0)+menu$(7,0)+menu$(8,0))
      set text opaque
      text tw+text width(menu$(1,0)+menu$(2,0)+menu$(3,0)+menu$(4,0)+menu$(5,0)+menu$(6,0)+menu$(7,0)),th+2, menu$(8,0)
      choice=8
   endif
   rem if mouse is click put choice into mcc
   if mouseclick()
      click=1-click
      mcc=choice
      repeat
         until mouseclick()=0
      endif
   else
   mcc=0
   set text transparent
endif
return

something:
rem put your action code in here
return

something2:
     text sw/2,sh/2,"you clicked menu title two first"
     sync
     wait 5000
return

menutitles:
rem menu titles and subtitles
menu$(0,0)="         " :rem text spacer
menu$(0,1)="Frame Title"
rem menu 1 list
menu$(1,0)="File     " :rem title
menu$(1,1)="New File " :rem sub items
menu$(1,2)="Save file"
menu$(1,3)="Save As.."
menu$(1,4)="Exit     "
rem menu 2 list
menu$(2,0)="Edit     "
menu$(2,1)="Undo     "
menu$(2,2)="Cut      "
menu$(2,3)="Copy     "
rem menu 3 list
menu$(3,0)="Search   "
menu$(3,1)="Find..   "
rem menu 4
menu$(4,0)="View     "
menu$(4,1)="Reset    "
rem menu 5
menu$(5,0)="Options  "
rem menu 6
menu$(6,0)="Tools    "
rem menu 7
menu$(7,0)="Window   "
rem menu 8
menu$(8,0)="Help     "
menu$(8,1)="About..  "
return

rem ===============================
function menuchoice(menumber,xpos)
depth=30 :rem depth of text
   while click=0
      set text transparent
      rem draw out side bar and fill in box
      bevelbox(xpos-tw-6,26,xpos+text width(menu$(0,0))+th+th,150,3,RGB(0,135,225),RGB(202,202,202),RGB(0,0,255),0,1)
      rem set text color
      ink RGB(255,255,255),0
      rem  show number of sub menus
      text xpos,depth,     menu$(menumber,1)
      text xpos,depth+th,  menu$(menumber,2)
      text xpos,depth+th*2,menu$(menumber,3)
      text xpos,depth+th*3,menu$(menumber,4)
      text xpos,depth+th*4,menu$(menumber,5)
      rem check if mouse pointer is over it and change to invers color
      if mousex()>xpos and mousex()<xpos+depth+text width(menu$(menumber,1))
         if mousey()>depth and mousey()<depth+th
            set text opaque
            text xpos,depth,  menu$(menumber,1)
            rem make schoice equal one
            schoice=1
         endif
         rem reapeat as above for sub menu 2
         if mousey()>depth+th and mousey()<depth+th*2
            set text opaque
            text xpos,depth+th,  menu$(menumber,2)
            schoice=2
         endif
         if mousey()>depth+th*2 and mousey()<depth+th*3
            set text opaque
            text xpos,depth+th*2,  menu$(menumber,3)
            schoice=3
         endif
         if mousey()>depth+th*3 and mousey()<depth+th*4
            set text opaque
            text xpos,depth+th*3,  menu$(menumber,4)
            schoice=4
         endif
         if mousey()>depth+th*4 and mousey()<depth+th*5
            set text opaque
            text xpos,depth+th*4,  menu$(menumber,5)
            schoice=5
         endif
      endif
      sync
rem set click and put your choice into smcc fot checking
   if mouseclick()
      click=1-click
      smcc=schoice
   endif
   rem waits till you let go of mouse button.
   repeat
      until mouseclick()=0
   endwhile
   rem take smcc to function
   dosomething(menumber,smcc)

endfunction value

function  dosomething(menu_choice,choice)
rem which menu then which choice knock out this line when you use it
whatdidIpressed(menu_choice,choice)
if menu_choice=1
if choice=2 then gosub something
rem if you have Ion or BlueGUI
rem if smcc=3 then saveBox(title$,filter$)
rem if smcc=5 then printbox(title$,filter$)
rem if smcc=6 then end
 endif
 if menu_choice=2
      if choice=1 then gosub something2
 endif
endfunction

rem knock this out when working
function whatdidIpressed(menu_choice,choice)
center text sw/2,sh/2," You clicked on menu Title "+str$(menu_choice)+" and Submenu "+str$(choice)
sync
wait 2000
endfunction


rem   bevelbox(screen width()/screen width(),screen height()/screen height(),screen width(),screen height(),6,RGB(255,255,0),RGB(0,255,0),0,0)
function bevelbox(_left,_top,_right,_bottom,_bevwidth,_maincolor,_secondcolor,_bevshade,_toback,_fill)
rem make paper
if _toback=1
   draw to front
else
   draw to back
endif
rem find color numbers
   rcol=rgbr(_secondcolor) : gcol=rgbg(_secondcolor) : bcol=rgbb(_secondcolor)
rem make boarders
   if _fill<>0 then   box _left,_top,_right,_bottom,_maincolor,_maincolor,_secondcolor,_secondcolor
   for _bev = 0 to _bevwidth
   rem fade color
      gcol=gcol-_bev
      rcol=rcol-_bev
      bcol=bcol-_bev
      ink rgb(rcol,gcol,bcol),_foundcol
      rem draw a black line to end beveal
     if _bev=_bevwidth then ink RGB(0,0,0) ,_foundcol
      line _left+_bev,  _top+_bev,    _right-_bev, _top+_bev
      line _left+_bev,  _bottom-_bev, _right-_bev, _bottom-_bev
      line _left+_bev,  _top+_bev,    _left+_bev,  _bottom-_bev
      line _right-_bev, _top+_bev,    _right-_bev, _bottom-_bev+1
   next _bev
rem reset drawing
draw to back
rem end above
endfunction

function frame_title(title$)
rem draws frame title bars and puts name there
box 0,0,sw,th+4,RGB(0,0,255),RGB(0,0,255),RGB(255,255,255),RGB(255,255,255)
text tw,0,title$
rem draws menu title bar
box 0,th,sw,th*2+4,RGB(0,135,225),RGB(0,135,235),RGB(0,135,255),RGB(0,135,255)
endfunction
function Menu_titles(number_of_titles)
rem draws menus titles
ink RGB(255,255,255),0
for t=1 to number_of_titles
   ts$(t)=menu$(t,0)+space$(sp-len(menu$(0,0)))
   ts$=ts$+ts$(t)
next t
endfunction

Rem Project: topdropdownmenu
Rem Created: 4/13/2005 6:44:50 PM

Rem ***** Main Source File *****
rem Standard Setup Code

rem Order of running
rem setup screen font and size
rem create an array to put menu names in and get the text width.
rem make some variables global
rem get menu names and store them in menu$
rem make some quick variables for screen size
rem start do loop
rem call  frame_title() function
rem show menu titles
rem show mouse cords
rem check if mouse is in menu bar if it is gosub titles.
rem Now check if mouse is clicked when over a menu title then call menuchoice() function.
rem a gosub to dosomething
rem a gosub to dosomething2
rem make menu titles and subtitles, you put your menu names here
rem Function menuchoice(menumber,xpos)this take menu number and how far in from the left of screen and draws a box to put submenus in.
rem Function dosomething(menu_choice,choice) checks which menu title press and which submenu then gose to gosub of function.
rem Function whatdidIpressed(menu_choice,choice) shoes you on screen what you pressed.
rem Function bevelbox(_left,_top,_right,_bottom,_bevwidth,_maincolor,_secondcolor,_bevshade,_toback,_fill)
rem bevelbox is a function to make a color fade down to a darker color
rem _left,_top is first cords like 0,0
rem _right,_bottom second cords like 100,100
rem _bevwidth is how much it fades by.
rem _maincolor the color of the paper.
rem _secondcolor is the paper color.
rem _bevshade is shade color of bevel.
rem _toback if this is set to 1 will draw to front else draw to back.
rem _fill set to 1 fills paper else its open jusrt the boarder.
rem Function frame_title(title$) draw the main frame title.
rem Function Menu_titles(number_of_titles) draws how many menu tiles to screen set by number_of_titles.

sync on : sync rate 0 :
color backdrop rgb(0,0,128)
rem hide mouse
set text font "arial" : set text size 12
set text transparent

dim menu$(8,20)
dim ts$(8)
dim mtl(8) :rem menu text lenght
global th tw sw sh th ts$ click menuchoice choice mw mtl open mcc smcc
rem Put your colors here
global My_color1 My_color2 My_color3 My_color4
My_color1= RGB(0,0,255)   :rem Main color
My_color2= RGB(255,255,255):rem second main color
My_color3= RGB(192,192,192):rem bevel color
My_color4= RGB(0,135,225)  :rem Frame title color
rem get menu titles and subtitles
gosub menutitles
rem number of titles in bar
Menu_titles(8)

rem quick variables
sw=screen width()
sh=screen height()
th=text height("1")
tw=text width("1")
sp=(screen width()/8)/tw
mw=text width(menu$(0,0))
click=0
open=0

do
cls
rem your code can go here



rem call menu function
Menu()



rem show what has been clicked not need when project is working
   whatdidIpressed(mcc,smcc,choice)
rem or you cam put your code here.

   sync

loop

rem Menu call function
function Menu()
    rem make top frame bar with title
frame_title(menu$(0,1))
rem show menu titles
text tw,th+2,ts$
rem show mouse cords knock out when done
gosub show_values

rem go to choice if in bar
if mousey()>11 and mousey()<26
   gosub Over_Menu_titles_X
endif
rem loop around all sub menus
for number = 0 to 7
   if mcc=number+1 and open<>0
      rem now open sub menu
      submenuchoice(mcc,tw+mtl(number))
   endif
next number
   rem reset text
   set text transparent

endfunction
Over_Menu_titles_X:
rem if the mouse is over title then invert color
   for number=0 to 7
      if mousex()>tw+mtl(number) and mousex()<mtl(number+1)-tw
         rem invert menu title
         set text opaque
         text tw+mtl(number),th+2,  menu$(number+1,0)
         choice=number+1
      endif
   next number
   rem if mouse is click put choice into mcc
   if mouseclick()
      click=1-click
      mcc=choice
      open=1-open
      repeat
         until mouseclick()=0
      else
         if open<>0 and click<>0 then mcc=choice
   endif
   set text transparent

return

something:
rem put your action code in here
return

something2:
rem or here
     text sw/2,sh/2,"you clicked menu title two first"
     sync
     wait 5000
     cls
return

something3:
rem or here
     text sw/2,sh/2,"you clicked menu title three first"
     sync
     wait 5000
     cls
return
menutitles:
rem menu titles and subtitles
menu$(0,0)="_________" :rem text spacer
menu$(0,1)="Frame Title"
rem menu 1 list
menu$(1,0)="File     " :rem title
menu$(1,1)="New File " :rem sub items
menu$(1,2)="Save file"
menu$(1,3)="Save As.."
menu$(1,4)="Exit     "
rem menu 2 list
menu$(2,0)="Edit     "
menu$(2,1)="Undo     "
menu$(2,2)="Cut      "
menu$(2,3)="Copy     "
rem menu 3 list
menu$(3,0)="Search   "
menu$(3,1)="Find..   "
rem menu 4
menu$(4,0)="View     "
menu$(4,1)="Reset    "
rem menu 5
menu$(5,0)="Options  "
rem menu 6
menu$(6,0)="Tools    "
rem menu 7
menu$(7,0)="Window   "
rem menu 8
menu$(8,0)="Help     "
menu$(8,1)="About..  "
return
show_values:
   rem show values on screen
      set cursor 0,150
print "mouse cords=x "+str$(mousex())+" y "+str$(mousey())
print "open=",open, "click=",click," mcc=",mcc," number=",number
return



rem ===============================
function submenuchoice(menumber,xpos)
depth=30 :rem depth of text
      rem check if mouse pointer is over it and change to invers color
if click<>0 and open<>0
while mousex()>xpos and mousex()<xpos+mw and click<>0
if mousey()<>11 and mousey()<>26

      set text transparent
      rem draw out side bar and fill in box
      bevelbox(xpos-tw-6,26,xpos+mw+th+th,150,3,My_color4,My_color3,My_Color1,0,1)
      rem set text color
      ink RGB(255,255,255),0
      rem  show number of sub menus
      text xpos,depth,     menu$(menumber,1)
      text xpos,depth+th,  menu$(menumber,2)
      text xpos,depth+th*2,menu$(menumber,3)
      text xpos,depth+th*3,menu$(menumber,4)
      text xpos,depth+th*4,menu$(menumber,5)
         rem first sub menu
         if mousey()>depth and mousey()<depth+th
            set text opaque
            text xpos,depth,  menu$(menumber,1)
            rem make schoice equal one
            schoice=1
         endif
         rem reapeat as above for second sub menu
         if mousey()>depth+th and mousey()<depth+th*2
            set text opaque
            text xpos,depth+th,  menu$(menumber,2)
            schoice=2
         endif
           rem reapeat as above for third sub menu
         if mousey()>depth+th*2 and mousey()<depth+th*3
            set text opaque
            text xpos,depth+th*2,  menu$(menumber,3)
            schoice=3
         endif
         if mousey()>depth+th*3 and mousey()<depth+th*4
            set text opaque
            text xpos,depth+th*3,  menu$(menumber,4)
            schoice=4
         endif
         if mousey()>depth+th*4 and mousey()<depth+th*5
            set text opaque
            text xpos,depth+th*4,  menu$(menumber,5)
            schoice=5
         endif
         gosub show_values
          sync


   rem set click and put your choice into smcc fot checking
   if mouseclick()
      click=1-click
      open=1-open
      smcc=schoice
   endif
   rem waits till you let go of mouse button.
   repeat
      until mouseclick()=0
      endif
       endwhile

   rem take choice and call gosub or function and return to main loop
   rem unless a call to end is used.
   call_gosub_do_something(menumber,smcc)
  endif
endfunction smcc

function  call_gosub_do_something(menu_choice,choice)

rem menu choices one
if menu_choice=1
if choice=2 then gosub something

rem if you have Ion or BlueGUI
rem if choice=2 then saveBox(title$,filter$) :rem Ion calls
rem if choice=3 then printbox(title$,filter$) :rem Ion calls
if choice=4 then end
 endif
 rem menu choices two
 if menu_choice=2
      if choice=1 then gosub something2
 endif
endfunction

rem knock this out when working
function whatdidIpressed(menu_choice,choice,menu_choice2)
if menu_choice<>0
center text sw/2,sh/2," You clicked on Menu_Title "+str$(menu_choice)+" and Sub_Menu "+str$(choice)
else
center text sw/2,sh/2," You clicked on Menu_Title "+str$(menu_choice2)+" and Sub_Menu "+str$(choice)
 endif
sync

endfunction


rem   bevelbox(screen width()/screen width(),screen height()/screen height(),screen width(),screen height(),6,RGB(255,255,0),RGB(0,255,0),0,0)
function bevelbox(_left,_top,_right,_bottom,_bevwidth,_maincolor,_secondcolor,_bevshade,_toback,_fill)
rem make paper
if _toback=1
   draw to front
else
   draw to back
endif
rem find color numbers
   rcol=rgbr(_secondcolor) : gcol=rgbg(_secondcolor) : bcol=rgbb(_secondcolor)
rem make boarders
   if _fill<>0 then   box _left,_top,_right,_bottom,_maincolor,_maincolor,_secondcolor,_secondcolor
   for _bev = 0 to _bevwidth
   rem fade color
      gcol=gcol-_bev
      rcol=rcol-_bev
      bcol=bcol-_bev
      ink rgb(rcol,gcol,bcol),_foundcol
      rem draw a black line to end beveal
     if _bev=_bevwidth then ink RGB(0,0,0) ,_foundcol
      line _left+_bev,  _top+_bev,    _right-_bev, _top+_bev
      line _left+_bev,  _bottom-_bev, _right-_bev, _bottom-_bev
      line _left+_bev,  _top+_bev,    _left+_bev,  _bottom-_bev
      line _right-_bev, _top+_bev,    _right-_bev, _bottom-_bev+1
   next _bev
rem reset drawing
draw to back
rem end above
endfunction

function frame_title(title$)
rem draws frame title bars and puts name there
box 0,0,sw,th+4,My_color1,My_color1,My_color2,My_color2
text tw,0,title$
rem draws menu title bar
box 0,th,sw,th*2+4,My_color4,My_color4,My_color4,My_color4
endfunction

function Menu_titles(number_of_titles)
rem draws menus titles and works out text length of each word
ink RGB(255,255,255),0
for t=1 to number_of_titles
   ts$(t)=menu$(t,0)
   ts$=ts$+ts$(t)
   mtl(t)= text width(ts$)
next t
mtl(0)=0
endfunction