Xbasic
{BEGINEMBEDDED}
Syntax
{BEGINEMBEDDED} ... Xdialog Code ... {ENDEMBEDDED}
Description
The {BEGINEMBEDDED} command allows you to embed an Xdialog within another Xdialog with in-line code, rather than using the {EMBEDDED} command to define a window within the parent xdialog in which the embedded dialog will be displayed.
Example
The following example embeds the data entry fields and Inside button (to the right of the list box).
dim lv as P
dim pe as P
lv = local_variables()
people=<<%str%
Kerry
Aaron
Jay
Claire
Ethel
%str%
ui_dlg_box("{BEGINEMBEDDED}",<<%dlg%
{stretch=width}
[.40,10name^#people]
{hslider}
{beginembedded}
{stickto=left}
Name|{stretch=width}[.20Name];
{stickto=left}Company|{stretch=width}[.30Company];
{stickto=left}Address|{stretch=width}[.30Address1];
|[.30Address2];
|[.15City]{stickto=right}[.3Atate][.9ZIP];
{stickto=left}<Inside>
{endembedded};
{stretch=width}
{line=1,0};
{stickto=left,bottom}
<Ok>
%dlg%,<<%code%
if a_dlg_button = "Inside" then
pe = *for_each(i,i+" = "+eval(i),properties_enum(lv))
a_dlg_button = ""
ui_msg_box("event",pe)
delete pe
end if
%code%)Limitations
Desktop applications only
See Also