#DOpusBasic:office
@script JScript
function OnClick(clickData)
{
// --------------------------------------------------------
var dlg = DOpus.Dlg;
dlg.template = "dialog1";
dlg.window = clickData.func.sourcetab;
dlg.detach = true;
dlg.Create();
dlg.Show();
var msg;
while(true) {
msg = dlg.GetMsg();
if (!msg.result) break;
DOpus.Output("MSG: event=" + msg.event);
if (msg.event == "color")
dlg.control("static1").label = ">> " + dlg.control("palette1").value;
}
// --------------------------------------------------------
}
==SCRIPT RESOURCES
<resources>
<resource name="dialog1" type="dialog">
<dialog height="34" lang="francais" width="206">
<control height="14" name="palette1" paltype="alpha" title="Palette" type="palette" width="50" x="30" y="10" />
<control halign="left" height="8" name="static1" title="Static" type="static" valign="top" width="60" x="112" y="14" />
</dialog>
</resource>
</resources>