Club Builder

[tyloya]

Sigo sin dar con la manera de conseguir mostrar una escala de grises.
Me dijeron que para hacer una matriz en un form usara como componente un TPanel o TPaintBox.
¿Hay que acceder a la paleta de colores de windows, cómo lo hago......?
Lo que pretendo es mostrar escalas de grises pasando desde el blanco al negro en cada uno de los cuadros de la matriz y NO SÉ CÓMO HACERLO!!
Por favor, alguien que me intente ayudar.

Gracias

[Alfredo]

Hola, Prueba esto para actuar sobre un Form o cualquier objeto con acceso a la propiedad Canvas.

Ponlo en cualquier evento, preferible onPaint

float Step, stepr,stepg, stepb;
TColor cInicial=clWhite;
TColor cFinal=clBlack;
TRect BandRect;

int Orientacion=2;//1=Vertical
//2=Horiontal
int r1=GetRValue((unsigned long)cInicial);
int g1=GetGValue((unsigned long)cInicial);
int b1=GetBValue((unsigned long)cInicial);
int r2=GetRValue((unsigned long)cFinal);
int g2=GetGValue((unsigned long)cFinal);
int b2=GetBValue((unsigned long)cFinal);
int r3,g3,b3;
stepr=(float)(r1-r2)/256;
stepg=(float)(g1-g2)/256;
stepb=(float)(b1-b2)/256;
if (Orientamento==1)
{
Step=(float)Height/256;
}
else
{
Step=(float)Width/256;
}
for(int i=0;i<256;i++)
{
if (Orientacion==1)
{
BandRect.Left=0;
BandRect.Top=(int)(i*Step);
BandRect.Right=Width+1;
BandRect.Bottom=(int)((i+1)*Step);
}
else
{
BandRect.Left=(int)(i*Step);
BandRect.Top=0;
BandRect.Right=(int)((i+1)*Step);
BandRect.Bottom=Height+1;
}
if ((r1<r2))
{
r3=r1+stepr*i;
}
else
{
r3=r1-stepr*i;
}
if (g1<g2)
{
g3=g1+stepg*i;
}
else
{
g3=g1-stepg*i;
}
if (b1<b2)
{
b3=b1+stepb*i;
}
else
{
b3=b1-stepb*i;
}
Canvas->Brush->Color=RGB(r3,g3,b3);
Canvas->FillRect(BandRect);
}

[tyloya]