Centrar los datos en un StringGrid y colocar color a las celdas

[CarlosAlberto]

Estimados amigos del club: ¿qué instrucciones debo emplear para centrar los datos en un Stringgrid y cómo debo hacer para colocarle color a las celdas que van siendo ocupadas?
Muchas gracias y saludos.
Carlos Alberto

[ecfisa]

Hola Carlos.

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid(Sender) do
  begin
    if Cells[ACol, ARow] > '' then
    begin
      Canvas.Brush.Color := clMoneyGreen; // color a gusto
      Canvas.FillRect(Rect)
    end;
    Canvas.TextRect(Rect,(Rect.Right+Rect.Left-Canvas.TextWidth(Cells[ACol,ARow])) shr 1,
      Rect.Top + 2, Cells[aCol, aRow])
  end
end;

Saludos.

[Neftali [Germán.Estévez]]

Si buscas en los foros encontrarás varios hilos que pueden completar la respuesta de ecfisa.
Hemos hablado otras veces del tema; Por ejemplo aqui.

[[rretamar]]

Además de las grillas que trae de serie Delphi (y Lazarus) hay otras muy buenas que vale la pena probar. Una de ellas es KGrid (ya viene preinstalada en Lazarus Codetyphon) con muchas más prestaciones:

http://www.tkweb.eu/en/delphicomp/kgrid.html