O código é o seguinte:
/*
Descrição: Controle da caixa de seleção
Versão: 1.1
Nota: O texto que segue atrás do controle da caixa de seleção
É para obter o htc_mylabel do objeto de caixa de seleção para exibi -lo
Atualizado e adicionado o atributo de intervalo para aumentar as escolhas incertas
*/
<público: componente>
<public: ATPLEVENT = "ONCONTENTREADO" Onevent = "Fninit ()"/>
<public: ATPLEVENT = "OnPropertyChange" Onevent = "FNPropertyChange ()"/>
<scriptLanguage = "javascript">
varCheckBoximg = window.document.createElement ("img");
ImageArray = [];
ImageArray ["Checkbox_false"] = "Checkbox_false.gif";
ImageArray ["Checkbox_false_down"] = "Checkbox_false_down.gif";
ImageArray ["Checkbox_false_over"] = "Checkbox_false_over.gif";
ImageArray ["Checkbox_true"] = "Checkbox_true.gif";
ImageArray ["Checkbox_true_down"] = "Checkbox_true_down.gif";
ImageArray ["Checkbox_true_over"] = "Checkbox_true_over.gif";
ImageArray ["Checkbox_indeter"] = "Checkbox_indeter.gif";
ImageArray ["Checkbox_indeter_down"] = "Checkbox_indeter_down.gif";
ImageArray ["Checkbox_indeter_over"] = "Checkbox_indeter_over.gif";
functionpreload (path, obj) {
para (iinobj) {
este [i] = newImage ();
este [i] .src = path+obj [i];
}
devolver isso;
}
preb = newpreload ("imagens/", imagearray);
functionfninit () {
varo = elemento;
if (O.Type == "Caixa de seleção") {
var_table = window.document.createElement ("tabela");
_table.Cellspacing = "0px";
_table.CellPadding = "0px";
_table.border = "0px";
if (O.Disabled) {
_table.style.filter = "alfa (opacidade = 50)";
}
outro{
_table.style.filter = "";
}
_table.style.display = "inline";
var_tr = _table.insertrow ();
var_td = _tr.insertCell ();
if (O.CHecked) {