List Box R Directive




The R directive specifies that a list box will have a specific number of lines, regardless of the point size of the text in the list box. Note the [%O={@@};F=fmt;R;B=T%.100,18item^#data] line in the example below.


dim orig_fmt as C
dim fmt as C
fmt = "{A=1C}First{T=1.5:0-20}{A=2C}Second{T=3.5:0-20}{A=3C}Third{A=}"
data = <<%a%
Row 1 Column 1{T=$1}Row 1 Column 2{T=$2}Row 1 Column 3
Row 2 Column 1{T=$1}Row 2 Column 2{T=$2}Row 2 Column 3
Row 3 Column 1{T=$1}Row 3 Column 2{T=$2}Row 3 Column 3
Row 4 Column 1{T=$1}Row 4 Column 2{T=$2}Row 4 Column 3
Row 5 Column 1{T=$1}Row 5 Column 2{T=$2}Row 5 Column 3
Row 6 Column 1{T=$1}Row 6 Column 2{T=$2}Row 6 Column 3
tree_data = <<%a%
+3Users and Groups.1+2Users
+3Users and Groups.1+2Groups
tree_images = <<%a%
dim item as N
dim dlg_title as C
item = 1
dlg_title = "Resizeable List Box Columns"
This script demonstrates how to create an 'Explorer' style dialog box.;
[%S=LX;[email protected]_images%.30,20^ 
if a_dlg_button = "resize" then
    'This event is fired whenever the mouse is over the column headings.
    'The event fires whether or not the columns are actually resized.
    a_dlg_button = ""
end if
if a_dlg_button = "click" then
    a_dlg_button = ""
    control = ui_dlg_control_anchor_from_pos(dlg_title)
    ui_msg_box("","User pressed: " + control)
end if

See Also