Cita:
Empezado por AgustinOrtu
Daniel, funciona excelente, muchas gracias
Fue cuestion solamente de hacer un par de ajustes para que quede perfecto
Por cierto, es necesario en este caso que DBGrid.DefaultDrawing este a True
|
Correccion, DefaultDraw debe estar desactivado (False), sino se escribe el texto dos veces (una el DBGrid, otra el evento)
Si no se pinta el texto en este evento, es necesario invocar al metodo
DefaultDrawColumnCell
por ejemplo:
Código Delphi
[-]
p := AnsiPos(FSearched, Column.Field.AsString);
if (p <> 0) and (Column.Field is TStringField) then
begin
...
end
else
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);