How do I stack windows in a required order

[Graham Wickens]

My Xdialog has a button to call a Browse. When the Browse is displayed it is under the xdialog window, how can I make it display on top of the Xdialog?

example:

dim global dlg_title as c = "Example"
ui_modeless_dlg_box(dlg_title,<<%dlg%
{region1}
(%B=T;T=Show Historic Browse;O={J=C,C}{C=Yellow}{F=Bahnschrift,10,B}{B=Light Blue}Historic%vOpt:Historic!HistoricBrowseEvent){sp=2}
(%B=T;T=Close Dialog;O={J=C,C}{C=Yellow}{F=Bahnschrift,10,B}{B=Red}Close%vOpt:Close!CloseDialogEvent);
{endregion1};
%dlg%,<<%code%
if a_dlg_button = "HistoricBrowseEvent" then
varP_Historical_Logging = :Form.view("Historical_Logging","Dialog")
varP_Historical_Logging.zorder("top")
a_dlg_button = ""
end if
if a_dlg_button = "CloseDialogEvent" then
ui_modeless_dlg_close(dlg_title)
a_dlg_button = ""
end if
%code%)

I am assuming I have to use .zorder somewhere, but where?

[Ronald Anusiewicz]

Graham, I took your code and put it in a script. I had to build a table of some data and created a form to display that data.
The form contained some fields and an embedded browse.

When I press the Historic button, the form opens on top of the xdialog.

My only issue is the the Historic button works only once and I have to close the xdialog and rerun the script to view the form a second time.

Ron

[Al Buchholz]

Build the browse within an xdialog using the option under the browse in design mode - browse - advanced Create Xdialog with embedded Browse

[Graham Wickens]

thanks Al,

will digest and learn, just what I was looking for (in the Example above and others). That sort of thing doesnt jump out at you in the documentation. :)

[johnkoh]

I have tried 'Last_Button as C = FORM.DIALOG( ) and it works well.

here my sample for event on your codes

if a_dlg_button = "HistoricBrowseEvent" then
' varP_Historical_Logging = :Form.view("Historical_Logging","Dialog")
' varP_Historical_Logging.zorder("top")

'**create the Global function. call that fuction to open a form from xdlg

'Open the layout_type showing just the records that satisfy the filter
'Last_Button as C = FORM.DIALOG( Form_Name as C [, Window_Name as C [, Filter as C, [ Order as C [, QueryFlags as C [, Horiz_Position as C [, Vert_Position as C [, ShowNewRecord as L ]]]]]]] )
'queryFlags -- Optional. Sort instructions. "U" = Unique "D" = Descending

'form condition
vClose_flag = .f.
query.order=""
query.filter = ""

if query.order="" then
query.order = "recno()"
end if
'replace variables in the filter with their actual values
if query.filter = "" then
query.filter = ".t."
end if
query.filter = convert_expression(query.filter,"VE")
vLastBttn = form.dialog("sample"," ",query.filter,query.order,"u","center","center")

'close form
msgbox("test",vLastBttn)
If vLastBttn = "bttn_close" then 'it is close button and Make sure the property(Object) name of button is "bttn_close"
vClose_flag = .T. 'form is still remained as open without close at here,
end if
'** end global function


a_dlg_button = ""
end if

[Ronald Anusiewicz]

Graham,

I had a similar issue when running a report from a modeless xDialog. The report would run but it would open up behind the xDialog. I’d have to drag the xDialog off to the side to see the report. I’ve been living with this for years. While looking at you issue, I stumbled across some functions I’ve never seen before. Sys_id_hide() and sys_id_show(). This has solved my problem . Now when I click on the report button on the xDialog, the xDialog is hidden and the report is now on top of everything on the screen. When I close the report, the rest of the code runs which then shows my xDialog.

Thank you for your help.

Ron

vTitle = "Enter/Change Corrective Actions"

ELSEif a_dlg_button = "view_report" THEN
if alltrim(vcHeadTransno) = "" then
msgbox("Oops","Please Select an Open Work Order",UI_ATTENTION_SYMBOL+UI_OK)
else
sys_id_hide(vTitle) 'hide this xDialog*********************
query.filter = "transno = " + s_quote(vcHeadTransno)
query.order = "transno"
query.filter = convert_expression(query.filter,"VE")
:Report.Preview("CA",query.filter,query.order)
sys_id_show(vTitle) 'show this xDialog********************
end if

a_dlg_button = ""

ELSEif a_dlg_button = "PrintSqwK" THEN