This is an example of a script dialog; it implements the dialog shown at the start of the Script Dialogs section. It makes use of a Tab control to host two child dialogs, and also demonstrates how to add and remove strings from a List Box control.
The Tab control has been configured to host two child dialogs; Interests and Favorite Books. Clicking the tabs lets you switch back and forth between the two pages.
Most of the dialog’s controls don’t actually do anything – only the Favorite Books tab has been implemented. If you switch to that tab you can enter a string in the Enter title field and click the Add button to add it to the list. Click an item in the list and click the Delete button to remove it.
This dialog also provides an example of a resizable dialog. You can make any dialog resizable, but it’s particularly useful when working with tabs, as it means the Tab control and the parent dialog can automatically size to fit the content displayed inside the tabs.
If you want to experiment with this example, create a new toolbar button (with the type to Script Function) and paste the script code into the Script Code tab of the command editor, and the resources XML into the Resources tab. All the following examples are written in VBScript.
Code
Function OnClick(ByRef clickData)
Set dlg = DOpus.Dlg
dlg.window = clickData.func.sourcetab
dlg.template = "person"
dlg.detach = true
dlg.Show
Do
Set msg = dlg.GetMsg()
Select Case msg.control
Case "add"
' get the string the user has entered
str = dlg.Control("title", "books").value
if Len(str) > 0 Then
' add to the list box and clear the edit field
dlg.Control("books", "books").AddItem(str)
dlg.Control("title", "books").value = ""
End If
Case "del"
' get the selection from the list box
sel = dlg.Control("books", "books").value
if sel > -1 Then
' remove it from the list
dlg.Control("books", "books").RemoveItem(sel)
End If
End Select
Loop While msg
End Function
