ListBox degradado

[Deiv]

Hola Roman
El fin de semana acabo de revisar tu código (antes no tuve tiempo) y funciona de maravilla, un par de consultas más por favor:

1.- El gradiente de tu código va de izquierda a derecha (vertical) verdad?, ¿como puedo implementar un gradiente HORIZONTAL por decir blanco, celeste, blanco (por dar un ejemplo), son 3 colores?, voy bien?
2.- ¿Como implementar tu código en un TMenu?, para que la selección también se vea diferente

Agradecerte bastante el tiempo que te hayas tomado en confeccionar el código, disculpa las molestias, pero Yo aprendo solamente a través de los ejemplos, cuando en el TMenu quise cambiar por ejemplo así:

if odSelected in State // AQUÍ YA ME DA ERROR DE COMPILACIÓN
then GradientRect(MainMenu1.Canvas.Handle, Rect, clNavy, clWhite) //AQUÍ creo que no existe Handle
else MainMenu1.Canvas.FillRect(Rect);
etc, etc,

Un saludo