Colorir uma célula utilizando algum tipo de GRID

20/05/2003

1

Bom dia

Gostaria de tirar uma dúvida, tenho a seguinte situação, mas não consigo implementa-la, pois ainda não achei a solução.

tenho uma matriz 5x5 por exemplo, e em algumas de suas células tenho o valor 1, e o restante 0.

Meu problema:
Criar uma Grid 5x5 (pode ser DbGrid/StringGrid) e nos valores da matriz referente ao dígito 1 gostaria que a célula da grid fosse colorida por exemplo de vermelho.

Conto com a ajuda dos amigos


Responder

Posts

20/05/2003

Okama

Componente: TStringGrid
Evento: OnDrawCell


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin

With StringGrid1.Canvas do begin
   if StringGrid1.Cells[ACol,ARow] = ´1´ then
      Brush.Color := clBlue
   else
      Brush.Color := clRed;

   FillRect(Rect);
   TextOut (Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol,ARow] );
end;

end;



Responder

26/05/2003

Waldirio

Boa

Mas como poderia implementar o mesmo pegando os valores diretamente de uma matriz (testo o valor 1 na matriz na posição 1,1 por exemplo, caso esteja com o valor, a célula referente ficaria azul), e assim por diante.

:?


Responder