Hola;
Tengo un problema que me trae de cabeza y no me sale despues de mucho mirar por los foros y probar, estoy intentando poner un evento de teclado con las key 37 ( derecha ) y 39 (izquierda ) de las flechas --> y <-- del teclado. La idea es hacer resalte del checkbox seleccionado o resaltado como si fuera un menú.
El codigo es este:
Tu creas 4 checkboxes por ejemplo ; checkbox1 hasta el 4 ...
ON SHOW:
ON KEY:
El caso es cuando le digo "Accion!" no hace nada con los teclados que mencione arriba, se queda resaltado el primero ( para que pueda empezar por algun sitio).
¿Alguien me puede decir en donde carallo me estoy rallando?
Gracias
Tengo un problema que me trae de cabeza y no me sale despues de mucho mirar por los foros y probar, estoy intentando poner un evento de teclado con las key 37 ( derecha ) y 39 (izquierda ) de las flechas --> y <-- del teclado. La idea es hacer resalte del checkbox seleccionado o resaltado como si fuera un menú.
El codigo es este:
Tu creas 4 checkboxes por ejemplo ; checkbox1 hasta el 4 ...
ON SHOW:
Page.SetFocus("CheckBox1");
CheckBox.SetChecked("CheckBox1", false);
CheckBox.SetChecked("CheckBox2", false);
CheckBox.SetChecked("CheckBox3", false);
CheckBox.SetChecked("CheckBox4", false);
CheckBox.SetChecked("CheckBox5", false);
CH1 = CheckBox.GetChecked("CheckBox1");
CH2 = CheckBox.GetChecked("CheckBox2");
CH3 = CheckBox.GetChecked("CheckBox3");
CH4 = CheckBox.GetChecked("CheckBox4");
CH5 = CheckBox.GetChecked("CheckBox5");
if (e_Key == 37) then
-- Get the names of all of the objects on the page.
str_37 = Page.EnumerateObjects();
for index, object in pairs(str_37) do
-- Get the type of the object
typem = Page.GetObjectType(object);
if (typem == OBJECT_CHECKBOX) then
for n=1, 5 do
chkn = Page.GetFocus("CheckBox"..n);
if chkn ~= "" then
Page.SetFocus("CheckBox"..(n+1));
end
end
end
end
end
if (e_Key == 39) then
-- Get the names of all of the objects on the page.
str_39 = Page.EnumerateObjects();
for index, objectu in pairs(str_39) do
-- Get the type of the object
type = Page.GetObjectType(object);
if (type == OBJECT_CHECKBOX) then
for i=1, 5 do
chk = Page.GetFocus("CheckBox"..i);
if chk ~= "" then
Page.SetFocus("CheckBox"..(i-1));
end
end
end
end
end
¿Alguien me puede decir en donde carallo me estoy rallando?
Gracias