string grid

[rebollo75]

hola a todos,

me gustaria saber si alguien sabe como puedo poner las rows de un string grid las pares en verde y las impares en rojo, pq no me funciona con el canvas.

muchas gracias.

[roman]

¿Cómo estás usando el Canvas? Debes usarlo en el evento OnDrawCell del StringGrid.

// Saludos

[rebollo75]

lo he puesto asi:


procedure Tfalq.sgartDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (arow div 2) = 0 then
sgart.Canvas.Brush.Color:=clred
else
sgart.Canvas.Brush.Color:=clblue;
end;

y nada de nada. lo he probado con el brush y con el font y sigue sin funcionarme.
gracias.

[roman]

Es que no estás haciendo nada

Con sgart.Canvas.Brush.Color únicamente estás indicando de que color quieres pintar la fila pero no la estás pintando. Para ello debes usar algo como sgart.Canvas.FillRect(Rect).

// Saludos

[rebollo75]

un millon de gracias roman