Global font = LoadFont(\"verdana\",14)
Type popup_menu
	Field w,h
	Field win
	Field can
	Field sub.popup_sub
	Field icons
End Type

Type popup_sub
	Field txt$
	Field hot$
	Field pos
	Field parent
	Field pos_px
	Field on
	Field icon
End Type

Function CreatePopupMenu()
	Local pum.popup_menu = New popup_menu
	pum\w = 5
	pum\h = 5
	pum\win = CreateWindow(\"\",pum\w,pum\h,pum\w,pum\h,Desktop(),16)
	pum\can = CreateCanvas(0,0,pum\w,pum\h,pum\win)
	HideGadget(pum\win)
	Return Handle(pum)
End Function

Function DeletePopupMenu(Menu_ID)
	Local pum.popup_menu = Object.popup_menu(Menu_ID)
	If pum = Null Then Return -2
	For pum\sub = Each popup_sub
		If pum\sub\parent = pum\win Then Delete pum\sub
	Next
	FreeGadget(pum\can)
	FreeGadget(pum\win)
End Function

Function AddPopupMenuItem(Parent_ID,Name$,icon=-1,on=1)
	Local pum.popup_menu = Object.popup_menu(Parent_ID)
	If pum = Null Then Return -2
	Local id_s = 0
	Local id_m = 0
	Local ret$
	For pum\sub = Each popup_sub
		id_s = id_s + 1
	Next
	For pum = Each popup_menu
		id_m = id_m + 1
	Next
	pum.popup_menu = Object.popup_menu(Parent_ID)
	pum\sub.popup_sub = New popup_sub
	If Instr(name$,Chr(9)) Then
		pum\sub\txt$ = Left(Name$,Instr(name$,Chr(9))-1)
		pum\sub\hot$ = Mid(name$,Instr(name$,Chr(9))+1)
	 Else
		pum\sub\txt$ = Name$
	EndIf
	pum\sub\pos = id_s
	pum\sub\parent = pum\win
	pum\sub\on = on
	pum\sub\icon = icon
	If Len(Str$(id_s)) = 1 Then
		ret$ = Str$(id_m)+\"0\"+Str$(id_s)
	EndIf
	If Len(Str$(id_s)) = 2 Then
		ret$ = Str$(id_m)+Str$(id_s)
	EndIf
	Return Int(ret$)
End Function

Function ShowPopupMenu(Menu_ID,x,y,mode=1)
	Local pum.popup_menu = Object.popup_menu(Menu_ID)
	If pum = Null Then Return -2
	ShowGadget(pum\win)
	hwnd = GetActiveWindow()
	SetBuffer(CanvasBuffer(pum\can))	
	SetFont(font)
	Local length
	Local hot_l = 0
	Local height
	Local y_show
	For pum\sub = Each popup_sub
		If pum\sub\parent = pum\win Then
			If StringWidth(pum\sub\txt$) > length Then length = StringWidth(pum\sub\txt$)
			If pum\sub\hot$ <> \"\" Then
				If StringWidth(pum\sub\hot$) > hot_l Then hot_l = StringWidth(pum\sub\hot$)
			EndIf
			If pum\sub\txt$ = \"\" Then
				height = height + 5
			 Else 
				height = height + FontHeight()+6
			EndIf
		EndIf
	Next
	length = length + 24 + hot_l + 10 + 20
	height = height + 10
	pum\w = length
	pum\h = height
	FreeGadget(pum\can)
	SetGadgetShape(pum\win,x,y,pum\w,pum\h)
	pum\can = CreateCanvas(0,0,pum\w,pum\h,pum\win)
	Local img = CreateImage(pum\w,pum\h)
	SetBuffer(ImageBuffer(img))
	SetFont(font)
	Color 170,170,170
	Rect 0,0,pum\w,pum\h
	Color 255,255,255
	Rect 2,2,pum\w-4,pum\h-4
	y_show = 5
	For pum\sub = Each popup_sub
		If pum\sub\parent = pum\win Then
			If pum\sub\txt$ = \"\" Then
				Color 170,170,150
				Line 7,y_show,pum\w-7,y_show
				y_show = y_show + 5
				pum\sub\pos_px = -(FontHeight()+5)
			 Else
				If pum\sub\on = 1 Then
					Color 0,0,0
				 Else
					Color 170,170,150
				EndIf
				Text 27,y_show,pum\sub\txt$
				Text 27+length-44-hot_l,y_show,pum\sub\hot$
				pum\sub\pos_px = y_show
				y_show = y_show + FontHeight()+6
				If pum\sub\icon <> -1 Then DrawImage(pum\icons,7,pum\sub\pos_px,pum\sub\icon)
			EndIf
		EndIf
	Next
	SetBuffer(CanvasBuffer(pum\can))
	SetFont(font)
	Repeat
		DrawBlock(img,0,0)
		If (MouseX(pum\can)>2) And (MouseX(pum\can)<pum\w-4) Then
			For pum\sub = Each popup_sub
				If MouseY(pum\can) > pum\sub\pos_px-2 Then
					If MouseY(pum\can) < pum\sub\pos_px+FontHeight()+4 Then
						Color 50,100,200
						Rect 3,pum\sub\pos_px-2,pum\w-6,FontHeight()+6
						If pum\sub\on = 1 Then
							Color 255,255,255
						 Else
							Color 170,170,150
						EndIf
						Text 27,pum\sub\pos_px,pum\sub\txt$
						Text 27+length-44-hot_l,pum\sub\pos_px,pum\sub\hot$
						If pum\sub\icon <> -1 Then DrawImage(pum\icons,7,pum\sub\pos_px,pum\sub\icon)
						If MouseDown(1) Then
							HideGadget(pum\win)
							Return pum\sub\pos
						EndIf
					EndIf
				EndIf
			Next
		EndIf
		FlipCanvas(pum\can)
		If GetActiveWindow()<>hwnd Then Exit
	Until KeyHit(0)
	HideGadget(pum\win)
	Return -1
End Function

Function SetPopupMenuIcons(Menu_ID,Datei$)
	Local pum.popup_menu = Object.popup_menu(Menu_ID)
	If pum = Null Then Return -2
	Local img = LoadImage(Datei$,2)
	If img = 0 Then Return -1
	SetBuffer(ImageBuffer(img))
	width = ImageWidth(img)
	height = ImageHeight(img)
	FreeImage(img)
	Local frames% = width/height
	pum\icons = LoadAnimImage(Datei$,height,height,0,frames,2)
	MaskImage(pum\icons,255,0,255)
	If pum\icons <> 0 Then Return 1
	Return -2
End Function

lol = CreatePopupMenu()
SetPopupMenuIcons(lol,\"icons.bmp\")
AddPopupMenuItem(lol,\"Cut	Str+X\",-1,0)
AddPopupMenuItem(lol,\"Copy	Str+C\")
AddPopupMenuItem(lol,\"Paste	Str+V\")
AddPopupMenuItem(lol,\"\")
AddPopupMenuItem(lol,\"Show Toolbar?	Shift+Esc\",-1,0)

ShowPopupMenu(lol,100,100)
DeletePopupMenu(lol)
End