[ecfisa]

Hola MAXIUM.


Según tengo entendido (fuera de algunas pruebas no he trabajador mucho con ese componente) TDrawGrid es una versíon
simplificada de TstringGrid en la que es necesario dibujar lo que se quiere mostrar.
Es decir que el color se debería cambiar al mostrar la celda.

Ejemplo:

Código Delphi [-]
...

const
  Colores: array[0..4] of TColor=(clYellow,clLime,clGreen,clRed,clTeal);

var
  Numeros: array[0..4,0..4] of Integer;

procedure TForm1.FormCreate(Sender: TObject);
var
  f, c: Byte;
begin
  for f:= 0 to 4 do
    for c:= 0 to 4 do
       Numeros[f,c]:= f+c;
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with Sender as TDrawGrid do
   if gdFocused in State then
   begin
     Canvas.Brush.Color:= Colores[Numeros[ARow,ACol]];
     Canvas.FillRect(Rect);
     Canvas.TextOut(Rect.Left, Rect.Top,IntToStr(Numeros[ARow,ACol]));
   end;
end;

Aca hay algo sobre la clase TDrawGrid , aunque no es mucho más de lo dicho por la ayuda del editor...


Saludos.