Agregar texto en primera fila de TStringrid
 

Hola amigos,

Como puedo agregar texto a cada celda de la primera linea de un TStringgrid ?

Uso Delphi 7

Gracias de antemano

Ya logre hacerlo,

Código Delphi [-]
StringGrid1.Cells[1,0] := 'Longitud';

ahora me gustaria centrarlos dentro del campo o ajustarlo a la derecha

Alguna sugerencia ?

Para eso tienes que pintar tú mismo las celdas. Te pongo un ejemplo:

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
  begin
    // Dibujar texto centrado horizontal y verticalmente o a la derecha
    InflateRect(Rect, -1, -1);
    Canvas.FillRect(Rect);
    InflateRect(Rect, -3, -3);
    DrawText(Canvas.Handle, PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect,
      DT_CENTER or DT_VCENTER or DT_SINGLELINE);   // Texto centrado en la celda
//      DT_RIGHT or DT_VCENTER or DT_SINGLELINE);   // Texto alineado a la derecha en la celda
  end;
end;

Saludos.

Me sale el error Expected '='('found. en una pequena ventana

Revisa lo que has escrito. En algún sitio metiste la gamba.















Saludos.

Aqui la declare

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);

private
{ Private declarations }

No olvides las etiquetas para código, gracias:

En el IDE debes ir a Eventos del TSringGrid y buscar OnDrawCell Haces dobleclick y se abrirá en el editor de código con la función preparada para escribir. Allí pega el código que puse. Si lo haces "a mano" No debes poner Form1.

Código Delphi [-]
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Pero luego tienes que is al editor de eventos igualmente para que quede asignado dicho evento.




Saludos.

Ya lo intente

Coloco el procedure y se ejecuta el formulario pero no hace el arreglo en el grid

No has asignado el evento


Saludos.

Cuando trato de asignarlo me da error apuntando al nombre de la procedure

Sera que no lo estoy haciendo bien ??

Borra todo y deja que delphi lo haga. Cuando se muestre el editor de código, escribes el código que te puse.


Saludos.

El evento OnDrawCell queda vacio luego que borro el codigo y ejecuto

Es normal ?

Cuando un evento que ha asignado delphi no tiene código, directamente se borra por completo al ejecutar o guardar. Si el evento tiene código, delphi no borra nada.




Saludos.

Esto es lo que te debe aparecer en el editor de eventos:








Saludos.

Ahora si, era eso

Mil gracias mi estimado

Aunque el ejemplo lo hace con todas las celdas

Yo necesito que las celdas de escabezado queden centradas y el resto alineadas a la derecha

Como logro ajustarlo

Adicional, el color azul de la celda activa me gustaria quitarlo tambien

Te muestro como esta

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Alin: integer;
begin
  with Sender as TStringGrid do
  begin
    if ARow = 0 then
       Alin:= DT_CENTER
    else
       Alin:= DT_RIGHT;

    // Dibujar texto centrado horizontal y verticalmente o a la derecha
    InflateRect(Rect, -1, -1);
    Canvas.FillRect(Rect);
    InflateRect(Rect, -3, -3);
    DrawText(Canvas.Handle, PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect,
      Alin or DT_VCENTER or DT_SINGLELINE);
  end;
end;

Código Delphi [-]
DefaultDrawing:= false;

Saludos.

Muchisimas gracias

:)

Amigos,

Tengo el stringgrid funcionando correctamente pero ahora necesito agregar un tipo de font diferente entre textos sin que me cambie el font a todo el grid. Necesito algo asi como esta imagen

[IMG][/IMG]

Agradezco sus aportes