StringGrid

[Robson Lima Costa 0]

Pessoal, peguei uma tela para dar manutenção e tem o stringgrid, estou tentando fazer pintar uma linha, mas não consigo..vejam se podem me ajudar...to fazendo assim no StringGrid1DrawCell

 

for i := 1 to stringgrid1.RowCount do

begin

if StringGrid1.Cells[10, i] = 'SIM' then

begin

StringGrid1.canvas.brush.Color := clinfobk;

StringGrid1.canvas.FillRect(rect);

end

else

begin

StringGrid1.canvas.brush.Color := clwhite;

StringGrid1.canvas.FillRect(rect);

end;

end;

 

valeu

[Robson Lima Costa 0]

resolvido...segue codigo...se alguem precisar...

if (stringgrid1.Cells[10, ARow] = 'SIM') then

begin

StringGrid1.Canvas.Brush.Color := clRed;

StringGrid1.Canvas.Font.Color := clYellow;

end

else

if (stringgrid1.Cells[10, ARow] = 'NAO') then

begin

StringGrid1.Canvas.Brush.Color := clwhite;

StringGrid1.Canvas.Font.Color := clblack;

end;

StringGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);