Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   DrawGrid - ¿para que sirve? (https://www.clubdelphi.com/foros/showthread.php?t=70492)

MAXIUM 24-10-2010 03:06:42

DrawGrid - ¿para que sirve?
 
He buscado información pero nada concreto. Es casi igual que el StringGrid, solo cambia el nombre...

Dibuje unas celdas de colores en un StringGrid, pero la hacer scroll, estos se repintan con el color de la primera celda, tomando en cuenta que cada celda tiene un color distinto.

¿Puedo insertar algún icono sin que se borren al hacer scroll?

ecfisa 24-10-2010 21:02:33

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. :)


La franja horaria es GMT +2. Ahora son las 02:21:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi