Just as the attatchement,there are two ListBoxes in VBox, I select the
"red" and "blue" items of the first ListBox and the "yellow" and "green"
items of the second ListBox.I want to drag these four items at the same
time.How to realize it?
Codes:
{curl 3.0, 4.0, 5.0,5.1 applet}
{VBox
{ListBox
"red", "blue", "green",
graphic-selectable={GraphicSelectable},
list-item-creation-proc =
{proc {val:any}:ListItem
let d:Graphic = val asa Graphic
set d.color = val asa FillPattern
let lv:ListValueItem ={ListValueItem d}
set lv.dragee = {ListItemDragee}
|| return it.
{return lv}
},
value="red"
},
{ListBox
"red", "yellow", "green",
graphic-selectable={GraphicSelectable},
list-item-creation-proc =
{proc {val:any}:ListItem
let d:Graphic = val asa Graphic
set d.color = val asa FillPattern
let lv:ListValueItem ={ListValueItem d}
set lv.dragee = {ListItemDragee}
|| return it.
{return lv}
},
value="red"
}
}
Best wishes.
----------------------------------------------------------------------------------------------
Confidentiality Notice: The information contained in this e-mail and any
accompanying attachment(s) is intended only for the use of the intended
recipient and may be confidential and/or privileged of Neusoft Group Ltd., its
subsidiaries and/or its affiliates. If any reader of this communication is not
the intended recipient, unauthorized use, forwarding, printing, storing,
disclosure or copying is strictly prohibited, and may be unlawful. If you have
received this communication in error, please immediately notify the sender by
return e-mail, and delete the original message and all copies from your system.
Thank you.
-----------------------------------------------------------------------------------------------
{curl 3.0,4.0,5.0 applet}
{VBox
{ListBox
"red", "blue", "green",
graphic-selectable={GraphicSelectable},
list-item-creation-proc =
{proc {val:any}:ListItem
let d:Graphic = val asa Graphic
set d.color = val asa FillPattern
let lv:ListValueItem ={ListValueItem d}
set lv.dragee = {ListItemDragee}
|| return it.
{return lv}
},
value="red"
},
{ListBox
"red", "yellow", "green",
graphic-selectable={GraphicSelectable},
list-item-creation-proc =
{proc {val:any}:ListItem
let d:Graphic = val asa Graphic
set d.color = val asa FillPattern
let lv:ListValueItem ={ListValueItem d}
set lv.dragee = {ListItemDragee}
|| return it.
{return lv}
},
value="red"
}
}
