scaHalfStarRating

Descripción del Control

scaHalfStarRating te da la posibilidad de añadir un control de usuario basado en calificación mediante estrellas.

Características:

  • Permite media estrella
  • Botón de limpieza (opcional)
  • Cantidad de estrellas
  • Captura de los siguientes eventos: Mouse over, mouse out, Clear button pressed

Compatibilidad

Web

Usando el control 

Este es un control de tipo User Control (que no es mostrado en la caja de herramientas) como el User Control FCK Editor, para utilizarlo necesita seleccionarlo en la propiedad Control Type del control.
Seleccione y arrastre una variable numérica y cambie el valor de su propiedad "ControlType" a "scaHalfStarRating".
 
Se pueden capturar los eventos MouseOver, MouseOut, Click y Cancel, y realizar las operaciones necesarias utilizando eventos nativos de GeneXus. 

Propiedades:

Stars: Indica el número de estrellas (5 por defecto)
HalfStar: true/false, indica si utiliza media estrella o completa.
ClearButton: Permite mostrar/ocultar el botón Clear (para limpiar el valor seleccionado)
 
Ejemplo
Crear una variable &rate, N(4,0)

 

Insertar la variable en el webform

 

 

 

Seleccionar "scaHalfStarRating" en la propiedad ControlType

 

¡El control está listo para ser utilizado!

Eventos 

Event &rate.MouseOver
 &value = &rate.MouseOverValue
 Do 'ChangeText' 
EndEvent

Event &rate.MouseOut
 if &rate=0
 DescTextBlock.Caption = ""
 else
 &value = &rate
 Do 'ChangeText' 
 endif
EndEvent

Event &rate.Click
 &value = &rate
 Do 'ChangeText' 
EndEvent

Event &rate.Clear
 DescTextBlock.Caption = ""
EndEvent

Sub 'ChangeText' 
Do case
 case &value = 10
 DescTextBlock.Caption = "Excellent"
 case &value = 9
 DescTextBlock.Caption = "Very good"
 case &value = 8
 DescTextBlock.Caption = "Good"
 case &value = 7
 DescTextBlock.Caption = "Acceptable"
 case &value = 5 or &value = 6
 DescTextBlock.Caption = "Regular"
 case &value = 3 or &value = 4
 DescTextBlock.Caption = "Poor"
 case &value = 1 or &value = 2
 DescTextBlock.Caption = "Very poor"
endcase
EndSub