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.
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.
Code:
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%)