Colorir stringgrid

Delphi

25/06/2007

Boa Noite, gostaria de colorir algumas linhas dependendo da situação do meu StringGrid...

Com dbgrid é fácil 

  if cdsPesqPedidos.FieldByName(´SITUACAO´).AsString = ´C´ then
  begin
    dbgPesquisa.Canvas.Font.Color:=clRed;
    dbgPesquisa.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;


Como ficaria com stringgrid ?
obrigado.


Unix

Unix

Curtidas 0

Respostas

Unix

Unix

25/06/2007

  if sgagenda.Cells[ACol,ARow] = ´C ´then
  begin
    sgagenda.Canvas.font.color := clBlue;
    sgagenda.canvas.TextOut(Rect.Left,Rect.Top,sgagenda.Cells[ACol,ARow]);
  end;


No caso acima, somente 1 coluna muda a cor...

Gostaria de alterar a cor de toda linha...


GOSTEI 0
Unix

Unix

25/06/2007

Outra alternativa é colocar uma imagem no 1 campo como referência..


  with sgagenda.Canvas do

  begin
  if sgagenda.Cells[ACol,ARow] = ´Marcado´ then
    Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
  end;


Mas está alternativa tem 1 problema, gostaria que a imagem fica-se na 1 coluna...


GOSTEI 0
POSTAR