Xbasic
{ENDEMBEDDED}
IN THIS PAGE
Syntax
{BEGINEMBEDDED} ... Xdialog Code ... {ENDEMBEDDED}
Description
Terminates a {BEGINEMBEDDED} command.
Discussion
The {ENDEMBEDDED} command terminates a {BEGINEMBEDDED} command. These commands allow 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%
selwyn
richard
cian
tim
aaron
%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}
{endembedded};
{stretch=width}
{line=1,0};
{stickto=left,bottom}
%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%)See Also