// File: toolbar.agc
// Created: 20-02-10
LoadVariables:
Type MainParentType
	x_offset as integer
	localoffset as integer
	parent_string as string
	Parent_width as string 
	parent_height as string 
	Offset as integer
	Child as MainParentChild[10]
	SpriteID as integer
	ImageID as integer
	Hover as integer
	ChildSpriteID as integer
	ChildimageID as integer
	entrys as integer
endtype
	global Main as mainparenttype [ParentNums]
	
Type MainParentChild
	Data as string
	Action as string
endtype

global screen_width as integer:screen_width=getwindowwidth()
global screen_height as integer:screen_height=getwindowheight()
global oldheight as integer:oldheight=screen_height
global oldwidth as integer:oldwidth=screen_width
global fontsize as integer:fontsize=18
global black_col as integer:black_col=makecolor(0,0,0)
global Dgray_col as integer:Dgray_col=makecolor(80,80,80)
global Lgray_col as integer:Lgray_col=makecolor(100,100,100)
global White_col as integer:White_col= makecolor(255,255,255)
global HighlighterIID
global HighlighterSID
global clicked as integer//can replace with whatever u want to for clicked funtion
global backgroundSID as integer
global backgroundIID as integer
global ActiveChild as integer
global textheight as integer
global textwidth as integer
global size=1
BuildHighlighter()
return

function resolution()
	screen_height=GetWindowHeight()
	screen_width=GetWindowWidth()
	if screen_height <>oldHeight or screen_width<>oldwidth
		oldHeight=screen_height=GetWindowheight()
		oldwidth=screen_width=GetWindowwidth()
		SetVirtualResolution(screen_width,screen_height)
		DrawToolbarBackground()
	endif
endfunction
function BuildMainToolbar()
main[1].x_offset=10
main[1].parent_string="File"
main[2].parent_string="Edit"
main[3].parent_string="Tools"
main[4].parent_string="Options"
main[5].parent_string="Help"

main[1].Child[1].Data="Open"
main[1].Child[2].Data="Open Recent"
main[1].Child[3].Data="New"
main[1].Child[4].Data="Save"
main[1].Child[5].Data="Save as"
main[1].Child[6].Data="Exit"

main[2].Child[1].Data="Cut"
main[2].Child[2].Data="Copy"
main[2].Child[3].Data="Paste"

main[3].Child[1].Data="Tool1"
main[3].Child[2].Data="Tool2"
main[3].Child[3].Data="Tool3"
main[3].Child[4].Data="Tool4"

main[4].Child[1].Data="Option1"
main[4].Child[2].Data="Option2"
main[4].Child[3].Data="Option3"
main[4].Child[4].Data="Option4"
main[4].Child[5].Data="Option5"
main[4].Child[6].Data="Option6"
main[4].Child[7].Data="Option7"
main[4].Child[8].Data="Option8"
main[4].Child[9].Data="Option9"
main[4].Child[10].Data="Option10"


main[5].Child[1].Data="Help Files"
main[5].Child[2].Data="Key Reference"
main[5].Child[3].Data="Contact"
main[5].Child[4].Data="About"
text=toolbar_parents()
DrawToolbarBackground()
buildChildren(text)

//fill children entrys
for i = 1 to parentnums
	for b= 1 to 10
		if len(main[i].child[b].data)>=1
			main[i].entrys=main[i].entrys+1
		endif
	next
next
endfunction
	
function DrawToolbarBackground()
	clearscreen()
	size=26
	drawbox(0,0,screen_Width-1,size+1,black_col,black_col,black_col,black_col,1)
	drawbox(0+1,0+1,screen_Width-2,size/2,Dgray_col,dgray_col,lgray_col,lgray_col,1)//splitbox top
	drawbox(0+1,(size/2)+1,screen_Width-2,size,lgray_col,lgray_col,dgray_col,dgray_col,1)//splitbox top
	render()
	if backgroundSID>0
		deletesprite(BackgroundSID)
		deleteimage(BackgroundIID)
	endif
	image=GetImage(0,0,screen_Width-1,28):BackgroundIID=image
	sprite=createsprite(image):backgroundSID=sprite
	setspritedepth(sprite,10)
endfunction	
	
	
function toolbar_parents()
SetClearcolor(145,145,145)
text=createtext("")
settextvisible(text,0)
settextsize(text,fontsize)
settextstring(text,"a")
textheight=gettexttotalheight(text)
textwidth=gettexttotalwidth(text)
settextstring(text,"")
clearscreen()
	#constant ToolBarBackgroundID=GetImage(0,0,MaxWidth,42)
	#constant ToolBarSpriteID=createsprite(ToolBarBackgroundID)
	
	for i = 1 to ParentNums
		settextvisible(text,1)
		settextstring(text,main[i].parent_string)
		width=GetTextTotalWidth(text)+20
		size=26//even number only
		drawbox(0,2,width,size/2,Dgray_col,dgray_col,lgray_col,lgray_col,1)//splitbox top
		drawbox(0,(size/2)+1,width,size-1,lgray_col,lgray_col,dgray_col,dgray_col,1)//splitbox top
		settextposition(text,10,size/2-fontsize/2)
		render()
		drawtext(text)
		settextstring(text,"")
		settextvisible(text,0)
		image=getimage(0,0,width,size)
		sprite=createsprite(image)
		main[i].spriteID=sprite
		main[i].ImageID=image
		setspritedepth(sprite,2)
		xoffset=main[1].x_offset
		setspriteposition(sprite,xoffset,0)
		main[i].localoffset=xoffset
		main[1].x_offset=main[1].x_offset+width+10
		clearscreen()
	next
endfunction text


function buildChildren(text)
	child=0
	for parent=1 to ParentNums	
		for i=1 to 10 //get data of children determin longest lenght
			if len(main[Parent].child[i].data)>=1
				inc child,1
			endif
			settextstring(text,main[Parent].child[i].Data)
			lenght1=GetTextTotalWidth(text)
			if lenght <lenght1
				lenght=lenght1
			endif
			settextstring(text,"")
		next
		
		padding=8
		rows=child*textheight
		drawbox(0,0,lenght+60,rows+1,black_col,black_col,black_col,black_col,1)
		drawbox(0+1,0+1,lenght+60-2,rows,Dgray_col,dgray_col,lgray_col,lgray_col,1)//splitbox top
		drawline(20,3,20,rows-2,128,128,128)
		drawline(21,3,21,rows-2,140,140,140)
		
		for i= 1 to child
			drawline(23,((i-1)*textheight)+padding-(textheight/2),lenght+50,((i-1)*textheight)+padding-(textheight/2),110,110,110)
		next
		render()
		settextvisible(text,1)
		for i= 1 to child
			SetTextPosition(text,25,((i-1)*textheight)+padding-(textheight/2) )
			settextstring(text,main[Parent].child[i].Data)
			DrawText(text)
		next
		child=0
		
	settextvisible(text,0)
	image=getimage(0,0,lenght+60,rows+2)
	main[Parent].ChildImageID=image
	clearscreen()
	next
endfunction

Function RunMenu()
	resolution()
	HitID=getspritehit(getrawmousex(),getrawmousey())
	for i = 1 to Parentnums //get the number for array not id
		if main[i].SpriteID=HitID
			Highlightparent(i,HitID)
		endif
		if main[i].SpriteID<>HitID 
			UnHighlightParent(i,HitID)
		endif
	next
	mouseclick()
	DeleteChild()
	RunChildren()
	SelectSubroutine()
Endfunction
	
function mouseclick()
	if clicked=0 
		if GetRawMouseLeftPressed()=1
			for i = 1 to ParentNums
				if main[i].hover=1 
					CreateChild(i)
					clicked=1
				endif
			next
		endif
	endif
	
	if clicked=1 and GetRawMouseLeftPressed()=0
		clicked=0
	endif		
endfunction 
	
function highlightparent(parent,HitID)
		if  main[parent].Hover=0
			parentid=main[parent].SpriteID
			setspritecolor(ParentID,355,355,355,355)
			main[parent].Hover=1
		endif
endfunction

function UnhighlightParent(i,HitID)
	if main[i].hover=1 and main[i].SpriteID<>HitID
		if HitID<>main[i].SpriteID
			main[i].hover=0
			setspritecolor(main[i].SpriteID,255,255,255,255)
		endif
	endif
endfunction
	
Function createChild(i)
		if main[i].ChildSpriteID=0
			sprite=CreateSprite(main[i].ChildimageID)
			setspriteposition(sprite,main[i].localoffset,27)
			main[i].ChildSpriteID=sprite
			activechild=i
		endif
endfunction
	
function DeleteChild()
	for b = 1 to parentnums
	Target=getspritehit(getrawmousex(),getrawmousey())
		if main[b].SpriteID<>target and main[b].ChildSpriteID<>target and target<>highlighterSID
			if GetSpriteExists(main[b].ChildSpriteID)=1
				Deletesprite(main[b].ChildSpriteID)
				main[b].ChildSpriteID=0
				deletesprite(highlighterSID)
				highlighterSID=0
				activechild=0
			endif
		endif 
	next
Endfunction

function RunChildren()
	if activechild>0
		If highlighterSID <1
			sprite=createsprite(HighlighterIID) //keep from looping
			SetSpriteDepth(sprite,1)
			highlighterSID=sprite
		endif
		if getspriteexists(main[activechild].ChildSpriteID)>0
			x=getspritex(main[activechild].ChildSpriteID)
			y=getspritey(main[activechild].ChildSpriteID)
			mousey=ceil(getrawmousey())
			size= (mousey-y+textheight)/textheight
			if size> main[ActiveChild].entrys
				size=main[ActiveChild].entrys
			endif
			if size<1
				setspritevisible(highlightersID,0)
			endif
			if size>0
				setspritevisible(highlightersID,1)
			endif
			boarderoffset=22
			SetSpritePosition(highlighterSID,main[activechild].localoffset+boarderoffset+2,size*textheight+10)
			text=createtext(main[ActiveChild].child[size].Data)
			settextsize(text,fontsize)
			width=gettexttotalwidth(text)+4
			deletetext(text)
			setspritesize(highlighterSID,width,textheight-3)
		endif
	endif
endfunction
	
		
		
function BuildHighlighter()
	blah$="label1"
	clearscreen()
	gray=makecolor(200,200,200,128)
	drawbox(0,0,1,1,gray,gray,gray,gray,1)
	render()
	HighlighterIID=getimage(0,0,1,1)
endfunction


//below are examples for launching functions whith a click
function SelectSubroutine()
	if activechild>0 and clicked=0
		if getrawmouseleftpressed()=1  and len(main[activechild].child[size].Data)>1
			
			if main[activechild].child[size].Data="Open"
				File()
			endif
			
			if main[activechild].child[size].Data="Open Recent"
				File()
			endif
			if main[activechild].child[size].Data="New"
				`New()
			endif
			if main[activechild].child[size].Data="Save"
				`File()
			endif
			if main[activechild].child[size].Data="Exit"
				`File()
			endif
			//cleanup
			for b= 1 to parentnums
				if GetSpriteExists(main[b].ChildSpriteID)=1
					Deletesprite(main[b].ChildSpriteID)
					main[b].ChildSpriteID=0
					deletesprite(highlighterSID)
					highlighterSID=0
					activechild=0
				endif
			next
		endif
	endif
	
	
endfunction
//////////////////////////FUNCTION EXAMPLE
function File()
	file$=ChooseRawFile(".txt" )
endfunction