Cuadricula

[[egostar]]

Hola,

Se me ocurre que podrías usar el TGridPanel

Salud OS

[Omega]

Gracias a ambos por una respuesta tan rapida.


@roman: El TDrawGrid parece interesante salvo por dos cosas:

La 1º son esos cuadros gris, que no me sirven para nada. Y la 2º es que permite seleccionar las casillas mostrando el típico fondo azul.

@egostar: El TGridPanel no lo encuentro. mmm ¿Esta para Delphi 7?

Saludos.

[[egostar]]

Empezado por Omega

Gracias a ambos por una respuesta tan rapida.


@roman: El TDrawGrid parece interesante salvo por dos cosas:

La 1º son esos cuadros gris, que no me sirven para nada. Y la 2º es que permite seleccionar las casillas mostrando el típico fondo azul.

@egostar: El TGridPanel no lo encuentro. mmm ¿Esta para Delphi 7?

Saludos.

Pues pense que si, lo he visto aquí

New VCL features since Delphi 7 - 9:38am
2 Apr 2007 ... VCL Features Since Delphi 7. VCL Applications are themed by default. ... With a grid panel, a developer can specify the number of rows and ...

Salud OS

Edito: Mea culpa, esto es después de D7, perdón.

Abstract: See many of the major new VCL features available in releases after Delphi 7

[roman]

Empezado por Omega

El TDrawGrid parece interesante salvo por dos cosas:

La 1º son esos cuadros gris, que no me sirven para nada. Y la 2º es que permite seleccionar las casillas mostrando el típico fondo azul.

Los cuadros grises corresponden a las filas y columnas fijas. Simplemente pon FixedCols y FixedRows en 0 para que no haya columnas fijas.

La selección azul la puedes quitar al momento de dibujar las celdas en el evento OnDrawCell:

Código Delphi [-]
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if gdSelected in State then
  begin
    InflateRect(Rect, 1, 1);
    DrawGrid1.Canvas.Brush.Color := DrawGrid1.Color;
    DrawGrid1.Canvas.Rectangle(Rect);
  end;
end;

// Saludos