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

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