forma de cambiar el color de una celda

[anubis]

Buenas, revisando para poder cambiar el color de una celda de un stringgrid(aunque uso xstringgrid), desde codigo y la que yo necesite, he llegado a esto:

Código Delphi [-]
procedure TForm1.calendarioDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 calendario.canvas.brush.color := clGreen;

calendario.Canvas.FillRect(rect);
calendario.canvas.TextOut(Rect.Left,Rect.Top,calendario.Cells[ACol,ARow]);

end;

el problema es que me los cambia a todos, tambien he llegado a poner

Código Delphi [-]
calendario.col:=5
calendario.row:=5;
calendario.font.Style:=[fsbold];
 calendario.Canvas.Brush.Color:= clRed;

se que me hace falta poner calendario.canvas.fillrect(rect), pero la rect no se que parametros poner.

Tampoco puedo poner la letra en bold.

Alguna idea de poder manipular los colores de cada celda a antojo?.

ya estuve revisando los post relacionados pero no dan respuesta a lo que busco.

gracias

[roman]

Como lo tienes vas por buen camino. Lo que falta es poner la condición para que se restrinja a la celda que quieres, algo como:

Código Delphi [-]
procedure TForm1.calendarioDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = 5) and (ARow = 5) then
    calendario.canvas.brush.color := clGreen;

  calendario.Canvas.FillRect(rect);
  calendario.canvas.TextOut(Rect.Left,Rect.Top,calendario.Cells[ACol,ARow]);
end;

// Saludos

[anubis]

Gracias roman, asi funciona pero solo para acol=5 y arow=5 pero dentro de esa procedure, hay forma enviarle esos datos desde fuera de la procedure, o desde otra procedure, por ejemplo formshow?

gracias de nuevo

[roman]

Lo que tendrías que hacer es almacenar en un par de variables externas al evento, los valores de la celda que debas pintar, por ejemplo:

Código Delphi [-]
type
  TForm1 = class(TForm)
    ...
  private
    Columna: Integer;
    Renglon: Integer;
  end;

Y entonces en el evento DrawCell dejas la condición así:

Código Delphi [-]
if (ACol = Columna) and (ARow = Renglon) then
   calendario.canvas.brush.color := clGreen;

De esta manera ya puedes pintar la celda que quieras simplemente asignando valores a esas variables en el momento que quieras.

// Saludos

[anubis]

la cosa funciona, perdon que insista, pero si quiero pintar varias celdas como haria, porque no se como llamar al procedimiento.

Código Delphi [-]
columna:=0;
 renglon:=5;
calendario.repaint;
 columna:=4;
 renglon:=9;

[[Delphius]]

Hola anubis,

Si vas a tener que pintar una cantidad arbitrarias de celdas quizás lo que puedas hacer es declarar un conjunto y hacer comparaciones al estilo:

Código Delphi [-]
if (aRow IN tuConjuntoFila) AND (aCol IN tuConjuntoColumna)
   then

Puede ser una alternativa...
El código no es "simple" como lo expuse... pero creo que la idea se entiende.

Saludos,