myForm = VCL.Form("myForm")

myForm.toolbar = VCL.ToolBar(myForm,"TB")
myForm.toolbar._ = {
	  	borderwidth ="0",
	  	edgeborders = "[ebLeft,ebTop,ebRight,ebBottom]",
		edgeinner = "esRaised",
		edgeouter = "esLowered",	  	
		autosize = "true",
		buttonwidth = "24",
	    buttonheight = "24",
	    align = "alTop",
		flat = "true",
}

myForm.toolbar.toolImgList = VCL.ImageList(myForm.toolbar,"toolImgList")
local p,n = resource.getfile(medialib.."db.bmp")
myForm.toolbar.toolImgList:LoadBuffer(medialib.."db.bmp",p,n,VCL.clFuchsia)
p,n = resource.getfile(medialib.."table.bmp")
myForm.toolbar.toolImgList:LoadBuffer(medialib.."table.bmp",p,n,VCL.clFuchsia)
p,n = resource.getfile(medialib.."db.bmp")
myForm.toolbar.toolImgList:LoadBuffer(medialib.."run.bmp",p,n,VCL.clFuchsia)
p,n = resource.getfile(medialib.."view.bmp")
myForm.toolbar.toolImgList:LoadBuffer(medialib.."view.bmp",p,n,VCL.clFuchsia)
myForm.toolbar:Images(myForm.toolbar.toolImgList)

-- reverse order needed
myForm.toolbar.tb03 = VCL.ToolButton(myForm.toolbar,"tb03")
myForm.toolbar.tb03._ = {
		style = "tbsButton",
		imageindex = "3",
		onclick = "OnToolButtonClick",
		hint = "tb03",
		showhint = "true",
}
myForm.toolbar.ts02 = VCL.ToolButton(myForm.toolbar,"ts02")
myForm.toolbar.ts02._ = {
		style = "tbsSeparator",
		width = "10",
		hint = "ts02",
		showhint = "true",
}
myForm.toolbar.tb02 = VCL.ToolButton(myForm.toolbar,"tb02")
myForm.toolbar.tb02._ = {
		style = "tbsButton",
		imageindex = "2",
		onclick = "OnToolButtonClick",
		hint = "tb02",
		showhint = "true",
}
myForm.toolbar.ts01 = VCL.ToolButton(myForm.toolbar,"ts01")
myForm.toolbar.ts01._ = {
		style = "tbsSeparator",
		width = "10",
		hint = "ts01",
		showhint = "true",
}
myForm.toolbar.tb01 = VCL.ToolButton(myForm.toolbar,"tb01")
myForm.toolbar.tb01._ = {
		style = "tbsButton",
		imageindex = "1",
		onclick = "OnToolButtonClick",
		hint = "tb01",
		showhint = "true",
}

function OnToolButtonClick(Sender)
	print(Sender.Name)
	Sender.Enabled = "false"
end