Xbasic
UI_DLG_CTL_COMMAND Function
Syntax
UI_DLG_CTL_COMMAND(C title,C control,C command)
Arguments
- title
The name of the dialog box.
- control
Unique identifier for control (variable name).
- command
Command to send to the control.
Description
Send a command to an xdialog control.
Discussion
Example
Send commands to the listview control to change the presentation of the list.
dim list as c
list = <<%txt%
{image=$$generic.orb.green}Erica|Jones
{image=$$generic.orb.blue}Tom|Snider
{image=$$generic.orb.yellow}Molly|Maloney
%txt%
list = replicate(list,30)
list = *for_each(x,"{data=" + *index() + "}" + x, list)
dim dlg_title as c = "Quick ListView - Sortable"
ui_dlg_box(dlg_title,<<%dlg%
{wrap=100}
This dialog shows a simple ListView using the new ^" Xdialog syntax.;
Using this technique, it is possible to create a simple ListView with substantialy less Xbasic than the {{Listview} Xdialog command.;
The ^ in the control definition makes the column sortable.;
[%M;K;%.100,20id^"Firstname:30^|Lastname:50^"list!idchange_*];
{lf};
Click button to change List layout;
<List><Report><SmallIcon>
%dlg%,<<%code%
if a_dlg_button = "List" then
a_dlg_button = ""
ui_dlg_ctl_command(dlg_title,"idchange","list")
end if
if a_dlg_button = "report" then
a_dlg_button = ""
ui_dlg_ctl_command(dlg_title,"idchange","report")
end if
if a_dlg_button = "smallicon" then
a_dlg_button = ""
ui_dlg_ctl_command(dlg_title,"idchange","SmallIcon")
end if
if atc("idchange_",a_dlg_button) = 1 then
if a_dlg_button = "idchange_dblclick" then
ui_msg_box("","double click on : " + id)
else if a_dlg_button = "idchange_change" then
ui_msg_box("Note","User clicked on : " + id )
end if
a_dlg_button = ""
end if
%code%)Limitations
Desktop applications only.
See Also