TStringList Colores

[rafadrover]

Hola, tengo un TStringList, y un pequeño problema, quiero pintar las celdas de un color diferente segun una variable, y tambien quiero escribir texto en esas celdas, por ahora no he conseguido hacer hambas cosas, pero si por separado.

Por ejemplo tengo un procedimiento que pone el texto en cada celda:

StringGrid1.cells[i,j]:='Texto';

Despues en el evento DrawCell tengo:

Canvas.Brush.Color:=clRed;
Canvas.FillRect(Rect);

Esto lo que hace es cargarse el texto que habia puesto con el anterior procedimiento

Cambiando el FillRect(Rect) por FrameRect(Rect) si que me funciona, pero si pudiera ser me gustaria que fuera relleno.

Tambíen he probado de poner el texto en el evento DrawCell en lugar de un procedimiento a parte pero no hay resultado, incluso he probado con el
Canvas.TextRect(Rect, 0, 0, 'Texto');
y tampoco, gracias por vuestros comentarios.