Free Dynamic Control Rating

Hi
I worked in a dynamic version, I hope will be helpful

capture:

source code

Why the new thread? It was fine enough to add this to the other thread, completely unnecessary and inappropriate to make your own thread.

Thank you. Did you included a license for how to use it?
Maybe you should post here how we are allowed to use it.
Thank again for your contribution to the community.

[quote=189132:@Dirk Cleenwerck]Thank you. Did you included a license for how to use it?
Maybe you should post here how we are allowed to use it.
Thank again for your contribution to the community.[/quote]
It is mostly Alex Schneider’s work. See https://forum.xojo.com/22556-rating-control

Thanks Dirk

License anyone can modify it, that was my intention that the algorithm is not encrypted. Alex utility used to convert images to text to ensure the integrity of the project.

To use it you just have to write the following in the event Rating1.Open

[code] Rating1.quantityOfImages = Val(tfCantidad.Text)
Rating1.showFrame = true
Rating1.showBackground = true

//if is picture example: Rating1.imageEmpty = pictureNombre
Rating1.imageEmpty = kStarEmpty.PictureFromString
Rating1.imageHalf = kStarHalf.PictureFromString
Rating1.imageFull = kStarFull.PictureFromString

Rating1.createObjectsImage

// loading values to ComboBox
dim imageTotal as Integer = Val(tfCantidad.Text) * 2
pop.DeleteAllRows

for i as integer = 0 to imageTotal
pop.AddRow str(i)
next[/code]

then, many ObjectImage be created according Rating1.quantityOfImages. Which subsequently react according to the features they have at the time of the Rating1.MouseDown or pop.Change event occur.

Rating1 change in height, width according to ObjectImage to be created, you can also upload more images, respectanto that should always be 3 empty - half - full in form of plain text or picture, and change you declared in the event Rating1 .open