Ver Mensaje Individual
  #1  
Antiguo 31-07-2007
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: mar 2007
Posts: 863
Reputación: 18
anubis Va por buen camino
forma de cambiar el color de una celda

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
Responder Con Cita