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

[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,