Como obtengo los RGB's de un color más degradado que el que tengo

[[Delphius]]

Me alegro que te sirva. Ese método que te pasé de sumar y restar en igual cantidad a cada canal es el más fácil. Pero a mi gusto estético le queda un poco desentonado. En realidad yo implemento una suma/resta independiente a cada canal. Ya que para mi, ofrece una proporción más pareja a la distribución del color y se consigue una gama de colores más adecuados para formar la "temática"

Mi método consiste en el siguiente:
por cada canal:
1. Obtengo un "delta". Este "delta" me indicará el incremento/decremento.
La fórmula que yo aplico es:
delta = (255 - ValorActual)/5. El 5 me indica que tan "espaciado" esté un color respecto al otro. Y limita por tanto la cantidad de colores que voy a obtener hasta llegar al más claro.
2. Entonces, el máximo valor que se puede alcanzar corresponderá a:
MaxValor = ValorActual + (delta * 4). Este 4, es aquel 5 - 1. Esto es a fines de no llegar al blanco, sino lo más cercano al blanco. Es decir que no llegará al valor 255.
En base al ejemplo, obtendría incrementos/decrementos de (9,21,11) respectivamente, con un espaciado de 5.

Si aplicaras este esquema, debes establecer un mínimo también, evitando caer al negro (0, cero). Este color mínimo debe ser aquel que mantenga el mismo predominante:
(210,150,200)
(201,129,189)
(192,108,178)
(183,87,167)
(174,66,156)
(165,45,145)
(156,24,134)
(147,3,123)

De modo que (147,3,123) es el color más oscuro que obtendrías. Y al igual, que el otro método puedes conseguir un degradado porcentual:

100% - 63 (210-147)
30% - x = 18,9. Aprox: 19

100% - 147 (150-3)
30% - x = 44,1. Aprox: 41

100% - 77 (200-123)
30% - x = 23,1. Aprox: 23

Entonces, el color a obtener es (210-19,150-41,200-23) = (191,109,177)

Puedes probar cuales de los dos métodos te resulta mejor estéticamente. A mi me gusta más este. Creo que mantiene mejor las tonalidades.
Podría pasarte un ejemplo de mi plantilla para que veas si estás interesado.

Saludos a todo color,

[Neftali [Germán.Estévez]]

Hace no muchos días contesté en los foros una pregunta similar.
A parte de lo que te comenta Delphius, que te ayudará a entender seguro cómo funciona el sistema de coloración y lo que debes hacer, yo te recomiendo que revises la unit GraphUtil que viene con Delphi. Algunas funciones que trae te pueden ser de utilidad:

Código Delphi [-]
function GetHighLightColor(const Color: TColor): TColor;
function GetShadowColor(const Color: TColor): TColor;
procedure ColorRGBToHLS(clrRGB: COLORREF; var Hue, Luminance, Saturation: Word);
function ColorHLSToRGB(Hue, Luminance, Saturation: Word): TColorRef;
function ColorAdjustLuma(clrRGB: TColorRef; n: Integer; fScale: BOOL): TColorRef;

[[gluglu]]

Ante todo, gracias a Delphius y Neftalí por responder.

Me sirvió la versión simple que explicó Delphius. Lo único que pretendía es dado un color determinado, provocar un cierto degradado de ese color a otro más oscuro y con la explicación de Delphius ha sido suficiente.

En cualquier caso he indagado en lo que dice Neftalí y al menos en BDS2006 no aparece esa unidad GraphUtil. Por lo que he podido 'googlear' parece que era de versiones anteriores como D6.

Saludos

[Neftali [Germán.Estévez]]

Empezado por gluglu

En cualquier caso he indagado en lo que dice Neftalí y al menos en BDS2006 no aparece esa unidad GraphUtil. Por lo que he podido 'googlear' parece que era de versiones anteriores como D6.

En D2007 aparece la unit GraphUtil en el directorio \source\win32\vcl, así que me extraña que no esté en D2006.
¿Seguro que la has buscado bien? Sería muy raro que estuviera en D6 y D2007 y no en D2006.

[[gluglu]]

Tienes razón, Germán !

Sí que está. Lo que me pasó es que después de tu post, inmediatamente fui a la ayuda de Delphi para ver la descripción de esas funciones, y en la ayuda ni me apereció ni me aparece nada acerca ni de las funciones descritas ni de la unidad GraphUtil.

... y fue por eso que precipitadamente deduje que en BDS 2006 no estaba dicha unidad.

[[Delphius]]

Empezado por Neftali

Hace no muchos días contesté en los foros una pregunta similar.
A parte de lo que te comenta Delphius, que te ayudará a entender seguro cómo funciona el sistema de coloración y lo que debes hacer, yo te recomiendo que revises la unit GraphUtil que viene con Delphi. Algunas funciones que trae te pueden ser de utilidad:

Código Delphi [-]function GetHighLightColor(const Color: TColor): TColor;
function GetShadowColor(const Color: TColor): TColor;
procedure ColorRGBToHLS(clrRGB: COLORREF; var Hue, Luminance, Saturation: Word);
function ColorHLSToRGB(Hue, Luminance, Saturation: Word): TColorRef;
function ColorAdjustLuma(clrRGB: TColorRef; n: Integer; fScale: BOOL): TColorRef;

Muchas gracias, esto es lo primero que llevo aprendido en el día. Desconocía absolutamente esta unidad.
Tengo que confesar que alguna que otra función de allí ha sido reescrita, y por tanto reinventada, por mi sabia ignorancia.

Muchas gracias amigo por mostrarme un poco más de luz, y quitarme un cacho más ignorancia.

Ahora me dispongo a ir al otro salón, antes de que suene el timbre. No vaya ser cosa de que llegue tarde a clases.

Saludos,