forma de cambiar el color de una celda

[[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,

[anubis]

Se agradece, lo unico que no se que valores van a tomar, irian saliendo y se van pintando, tambien si se pulsa un boton se pintaria o se borraria el pintado.

parece complicado llamar al procedimiento calendario.drawcell desde otro procedimiento y pasarle los valores columna y renglon tal y como puso roman?

gracias de nuevo

edito: tambien he probado a poner dos botones para probar, en cada uno de ellos le pongo diferentes valores pero cuando redibuja uno el otro se vuelve otra vez en blanco y viceversa. He probado tambien a crear una array bidimensional donde almaceno los colores con tcolor y generar en la procedure drawcell varios for, pero tampoco, porque parece redibuja todo al color original.

complicado parece amigo sancho

[[Chris]]

Según leo, lo que quieres es pintar un calendario o algo por el estilo, bien, lo primero que debes hacer es determinar en que reglón y fila irá un determinado día, luego con está información puesdes escribir las condiciones.

Para hacer esto, te recomiendo que escribas una funciòn por separado la cual te determine las coordenadas de los días en la grilla, por ejemplo:

Código Delphi [-]
Function Dia_enCoordenada(elDia, Reglon, fila : Integer):Boolean;
Begin
  {Haces las operaciones o calculos necesarios}
end;

Luego en el evento OnDraw puedes escribir algo como esto:

Código Delphi [-]
If Dia_enCoordenada(miDia,aRow,aColumn) Then
   Begin
    Canvas.Brush.Color := clGreen;
    Canvas.Font.Style := [fsBold] //con esta línea haces el texto en negría
  end;
...

espero que me halla dado a entender y que mi sugerencia te sirva.

[anubis]

Se agradece pero cuando se pinta una celda las otras siguen en blanco, al final lo que he empezado a hacer quitar el stringgrid y hacerlo con botones que pueden cambiar de color (xibutton) y generar un array bidimensional [1..37,1..12], a ver como puedo colocar los numeros de los dias. Si al final consigo algo bastante aceptable, si me echais una mano, intentare publicarlo por si le sirviera a alguien. Voy a investigar el jvyeargrid a ver como esta hecho.

gracias