Club Builder

[Leonel]

Tengo una pregunta, necesito colocarle un color especifico a una celda en un DrawGrid, como lo podria hacer ?

[mopa]

Este codigo pone la Celda 1,1 en color Verde.
Para poner la que quieras simplemente es cambiar los 1 o crear variables para poner las celdas que quieras a tu gusto.
Un saludo

void __fastcall TForm1::DrawGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TDrawGrid *dg=reinterpret_cast<TDrawGrid*>(Sender);
TColor ColorBackup;
ColorBackup=dg->Canvas->Brush->Color;
if (ACol==1 && ARow==1)
{
dg->Canvas->Brush->Color=clGreen;
dg->Canvas->FillRect(Rect);
}
dg->Canvas->Brush->Color=ColorBackup;

}