StringGrid, Dibujar mas de una celda o columna

[olbeup]

Empezado por ecfisa

Hola olbeup.

Una consulta, ¿ que clase es TGridCell ? no pude encontrar referencias.

Saludos

Esta clase es creada por mi, la información de cada celda la tiene TGridCell, que es:

Código Delphi [-]
type
  TGridCell = class(TObject)
  private
    FAlignment: TAlignment;       // Alineación
    FCoordCell: TCoordCell;       // Coordenadas de la celda
    FFontCell: TFontCell;         // Fuente, Tamaño y color de la celda
    FTextCell: String;            // Texto de la celda
    FServiceCell: TServiceCell;   // Datos del Servicio
  protected
    FStrGrid: TStringGrid;        // Objecto que apunta al StringGrid
    function GetDrawAlign: Integer;
  public
    constructor Create(StrGrid: TStringGrid);
    destructor Destroy; override;

    procedure RefreshCell;
  published
    property Alignment: TAlignment read FAlignment write FAlignment;
    property DrawAlign: Integer read GetDrawAlign;

    property CoordCell: TCoordCell read FCoordCell write FCoordCell;
    property FontCell: TFontCell read FFontCell write FFontCell;
    property TextCell: String read FTextCell write FTextCell;
    property ServiceCell: TServiceCell read FServiceCell write FServiceCell;
  end;

El problemas es cuando al dibujar el cuadro de las celdas, sólo dibuja la primera al hacer click en la celda que tiene dibujado varias celdas.

Un saludo.