TStringGrid-Zellen einfärben

[mez]

Hi

Ich hab folgendes Problem:
Ich habe ein TStringGrid bei dem ich durch die Zellen gehe und einen Wert reinschreibe. Ungefähr so:

for (i= 1; i<= Days; i++){
    sgd->Cells[0][i] = i;
    if (i >= 5 && i <= 10)    
        sgd->Cells[1][i] = "x";
    else
        sgd->Cells[1][i] = "";
}

Soweit so gut. Nun möchte ich aber diese Felder, wo ein x drin steht einfärben. Und zwar das erste und das letzte Feld jeweils gelb und die dazwischen rot.
Dachte dabei an folgende Lösung:

for (i= 1; i<= Days; i++){
    sgd->Cells[0][i] = i;
    if (i >= 5 && i <= 10){
        if i == 5 || i == 10)
            sgd->Cells[1][i]->Color = clYellow;
        else
            sgd->Cells[1][i]->Color = clRed;

        sgd->Cells[1][i] = "x";
    }
    else
        sgd->Cells[1][i] = "";
}

Funktioniert nur so halt nicht. Aber so müsste mein Problem wohl deutlich geworden sein. Weiß da jemand ne Lösung?

Grüße
mez

[Christian Marquardt]

DrawCell überschreiben und dort die Zellen mit

Grid->Brush->Color=DEINE_Color;

die Farben der Zellen setzen