Pop-up menu with an xDialog

[johnkoh]

Hello,


I was wondering How to build for opening and close with "pop-up menu" within an xdialog. I found the solution from Help (see {CLOSE_ON_LEAVE} ).
Many developers are already know it and It may help the others.

This is copy of the sample from {CLOSE_ON_LEAVE} with modification.

files = <<%str%
apples.txt
oranges.txt
%str%

ui_dlg_box("Position",<<%dlg%
[%P=files%.40file] | <&Files!files>;
| <\>\>>;
| <sticky>;
| <Open>;
| <Popup>;

%dlg%,<<%code%

	if a_dlg_button = "files" then
		    a_dlg_button = ""
		    ui_modeless_dlg_box("Files",<<%dlg%
			{position=dropdown}
			{nocaption}
			{close_on_leave}
			{on_key=enter}
			[.40,20file^#files!file_*]
		
			%dlg%,<<%code1%
		
			if a_dlg_button = "enter" .or. a_dlg_button = "file_dblclick" .or. a_dlg_button = "" then
			    a_dlg_button = ""
			    ui_modeless_dlg_close("Files")
			end if
		
			%code1%)
		
	else if a_dlg_button = ">>" then
	    a_dlg_button = ""
	    ui_dlg_box("Files",<<%dlg%
		{position=expandright}
		[.40,20file^#files] <Close>
		
		%dlg%)
	
	else if a_dlg_button = "sticky" then
	    a_dlg_button = ""
	    ui_dlg_box("Sticky",<<%dlg%
		{position=relative,remember=sticky_window}
		{size=remember=sticky_window}
		This is a sticky dialog | <Ok>;
		{stretch=center}
		[.30,10dummy]
		%dlg%)
		


	else if a_dlg_button = "open" then
	    'a_dlg_button = ""  'Disable so it will close the current xdialog
	    form.view("Your_form")

'Build Popup menu, How to close current xdialog when open a form the other remained the xdialog
	    
	else if a_dlg_button ="popup" then
		
		vMenu = comma_to_crlf("New Price,Update Price,Report") 'Set the Popup Menu
		result = ui_popup_menu(vmenu)
		
		if result = "New Price" then 
			'a_dlg_button = ""  'Disable so it will close the current xdialog
			vForm = "Your_form"
			if is_object(obj(":"+vForm)) then
			    vForm.show()
			    vForm.activate()
			else
				:form.view(vForm)    
			end if	
		else if Result = "Update Price" 
			a_dlg_button =""
			msgbox("test","open an xdlg form")
				
		else if result = "Report"
			a_dlg_button =""
			msgbox("test","Selected Report Filter now")	
		end if			    
	end if

%code%)