Ayuda de Linea en un DBGrid

[luis_sencion]

Hola a todos, necesito ayuda urgente,
estoy realizando un dbgrid que me tache los registro o un registro con una linea por encima del registro un ej. es el siguiente de que las letras del registro queden como sigue : Luis Joaquin pero que la raya quede en el medio de las letras.

bueno si pueden ayudar se lo agradeceria. gracias.

[roman]

Tachar todo el registro (una línea que abarque todos los campos) lo veo difícil, pero tachar celda por celda puedes hacerlo usando el estilo fsStrikeOut para la fuente del DBGrid. Claro que, como supongo que no deseas tachar todas las celdas sino sólo las que cumplan alguna condición entonces lo que debes hacer es manejar el evento OnDrawColumnCell del DBGrid, por ejemplo:

Código Delphi [-]
if HayQueTachar then
  DBGrid1.Canvas.Font.Style := [fsStrikeOut];

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

y poner la propiedad DefaultDrawing del DBGrid en false.

// Saludos