troubleshooting Question

I need a help with a component descendent from TListBox

Avatar of hidrau
hidrauFlag for Brazil asked on
Delphi
6 Comments1 Solution646 ViewsLast Modified:
Hello Friends

For my project I am using this component

http://www.tmssoftware.com/site/advsmoothlistbox.asp

The advsmoothlistbox is very interessting and nice for what I need to do.

But I am having some trouble to reach what I want to do. Well, let me explain

so you can understand and help me.

This project is for students

I have a small text and 10 questions. My task is a routine for each question that has 4 options where only one will be chosen, only one is the suitable answer.

On a form I have a scrollbox where I create in run time 10 advsmoothlistbox, each advsmoothlistbox  has a header where is the question and 4 itens where of them is the correct.  The component has this option for header and itens.

The student will choose one item and click on, when it is done that, the component turn on the item selected.

After having all itens of each advsmoothlistbox selected, I want to correct the selection.

If the student selected the correct alternative, the  item must be in blue color to show him that its answer was right.

If the answer is not right, the correct answer must be displayed in blue color and its answer must be in red color.

My difficult is being how to manipulate the color, so I need an example to do that. I think that all the code must be in onItemDraw. But you can tell me if there is the suitable place to do.

Well, a small  example with the component advsmoothlistbox  that you can download it to try is very welcome, so this way I can see how to reach the goal and inplamentate my code.

thanks
Alexandre
ASKER CERTIFIED SOLUTION
Ferruccio Accalai
Developer

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 6 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 6 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros