títulos de dbgrids de 2 filas

[giocatore]

buenas noches, quisiera me ayuden con este problema que tengo:
quisiera poder poner títulos largos en las tablas usando dbgrid sin tener que ensanchar la columna, es decir quiero saber como hacer para poder ponerlos en 2 filas para que me entre el título completo, o caso contrario (pese a que encontré alguna solución, y no es muy fluida ya que el hint aveces aparece y aveces nó) ponerles hints a cada columna de la tabla.
para los hints usé el código de este hilo.

http://www.clubdelphi.com/foros/showthread.php?t=56876

hago notar que uso adotables, delphi xe2 y dbgrids.

Espero por favor puedan ayudarme.

GRacias!!!

[[ElDioni]]

Hola,

puedes utilizar el componente SMDBGrid que es gratuito y funciona para todas las versiones de delphi. Si te decides por este componente verás que tiene una propiedad que se llama TitleHeight para conseguir lo que quieres hacer.

Saludos.

[giocatore]

hola, gracias por la respuesta, hay alguna manera de hacerlo con dbgrid o sin usar un componente externo???
gracias!!

[ecfisa]

Hola giocatore.

Empezado por giocatore

hay alguna manera de hacerlo con dbgrid o sin usar un componente externo???

Si claro que la hay.

Por ejemplo:

Código Delphi [-]
...
type
  TDBGrid = class(DBGrids.TDBGrid)
  private
  protected
    procedure DrawCell(ACol, ARow: Integer; ARect: TRect; State: TGridDrawState); override;
  public
  end;

  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation 

procedure TDBGrid.DrawCell(ACol, ARow: Integer; ARect: TRect; State: TGridDrawState);
const
  ALGN : array[0..2] of Integer = (DT_LEFT, DT_RIGHT, DT_CENTER);
var
  CurrTit : string;
  CurrCol : TColumn;
  uFormat : Integer;
begin
  TDBGrid(Self).RowHeights[0] := 2 * TDBGrid(Self).DefaultRowHeight;
  if (ARow = 0) and (ACol > 0) and (ColCount > 0) then
  begin
    CurrCol := Columns[ACol - Integer(dgIndicator in Options)];
    CurrTit := CurrCol.Title.Caption;
    Canvas.Font := CurrCol.Font;
    Canvas.FillRect(ARect);
    uFormat := ALGN[Integer(CurrCol.Title.Alignment)] + DT_WORDBREAK;
    DrawText(Canvas.Handle, PChar(CurrTit), -1, ARect, uFormat);
  end
  else
    Inherited;
end;

// Ejemplo: Un titulo y su alineación
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.Columns[0].Title.Caption :=
    'Titulo muy largo para que pueda verse' + #10 +
    'con mayor clariodad en dos renglones';
  DBGrid1.Columns[0].Title.Alignment := taCenter;
end;
...

Pero coincido con ElDioni, con que es mas simple y reusable utilizar un componente de tercero, o bién crearte uno incorporándole este código u otro similar.

Saludos

[[ElDioni]]

ecfisa de mayor quiero ser como tu .

Saludos.