DBGrid subir texto a mostrar

[[gluglu]]

Hola Amigos !

Como posiciono el texto que va a aparecer en (p.ej) la Columna 1 de un DBGrid, para que me lo muestre 1 o 2 pixel's más hacia arriba ?

He probado con

Código Delphi [-]
if (Column.Index = 1) then begin
  Canvas.TextOut(Rect.Left + 2, Rect.Top + 0, DBGrid1.Columns[1].Field.AsString);
end;

en el evento OnDrawColumnCell del DBGrid pero no parece que funcione.

Saludos

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

Te falla, que debes pintar sobre el Canvas del Grid, no del owner; Sustituye la línea por ésta:

Código Delphi [-]
DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 0, DBGrid1.Columns[1].Field.AsString);

[[gluglu]]

Claro !! Absurdo descuido por mi parte

Gracias.