Hola borlandpablo.
No comentaste que condición debe cumplirse para que la celda se pinte. Pero por tu código del mensaje
#5, deduzco que es cuando la fecha que está en la celda del StringGrid es igual (exíste) en determinado campo de la tabla en que realizas la búsqueda.
Si es así, de este modo hará lo que buscas:
Código:
...
#define COL_DATE 0 // Columna correspondiente a la fecha
...
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State) {
TCanvas *CV = static_cast<TCanvas*>(StringGrid1->Canvas);
TDate FechaCell;
if (ACol == COL_DATE && TryStrToDate(StringGrid1->Cells[COL_DATE][ARow],FechaCell)) {
QryTmp->Close();
QryTmp->SQL->Text = "SELECT FECHA FROM TABLA WHERE FECHA = :VALUE";
QryTmp->ParamByName("VALUE")->AsString = StringGrid1->Cells[COL_DATE][ARow];
QryTmp->Open();
if (!QryTmp->IsEmpty()) {
CV->Brush->Color = clLime;
CV->FillRect(Rect);
CV->TextOut(Rect.Left+1 ,Rect.top+1, StringGrid1->Cells[ACol][ARow]);
}
}
}
En la consulta SQL tenes que cambiar "TABLA" por el nombre de tu tabla y "FECHA" por el nombre del campo a consultar.
La sintáxis del query (QryTmp) puede variar de acuerdo a los componentes que estas usando y que desconozco por que tampoco encontré mención a ellos en tus mensajes.
Revisando a fondo el código del mensaje
#5, no sólo recorre la tabla por cada celda ¡ Sino que por cada celda recorre todas las celdas leyendo secuencialmente la tabla cada vez ! de allí que el programa se volvía "loco"...
Este código sólo realiza una consulta (muchísimo mas veloz que una busqueda secuencial) cuando se va a pintar una celda de la columna COL_DATE (fecha) y su contenido es una fecha válida.
De todas formas no es lo óptimo, pienso que un
TDBGrid cumpliría mejor con el cometido... pero para asegurarlo tendría que entender bién la lógica de lo que estas intentando hacer.
Saludos.